Есть вот такой код, который строит график
.model small
.stack 256h
.data
curentx dw 0
curenty dw 100
divcoeff dd 180
stretchcoeff dd 49
addcoeff dd 100
A dd 2
B dd 40d
C dd 03d
array dw 720 dup(0)
.code
begin:
mov ax,@data
mov ds,ax
mov es,ax
finit
mov si,0
@@jump:
call calcnextpixel
mov ax,curenty
mov array[si],ax
add si,2
inc curentx
cmp si,720
jne @@jump
mov ax,0a000h
mov es,ax
xor ax,ax
mov al,13h
int 10h
@@null:
xor si,si
@@loop:
mov ah,01h
int 16h
jnz @@bef
push si
call shiftscreen
pop si
mov ax,array[si]
mov curenty,ax
call putpixel
add si,2
cmp si,720
je @@null
inc curentx
jmp @@loop
@@bef:
cmp al,1Bh
je @@quit
cmp al,20h
jne @@lp2
mov ah,0Ch
int 21h
@@lp1:
mov ah,01
int 16h
jnz @@lp2
jmp @@lp1
@@lp2:
mov ah,0Ch
int 21h
jmp @@loop
@@quit:
mov ah,10h
int 16h
mov ax,3
int 10h
mov ax,4c00h
int 21h
shiftscreen proc
push ds
mov ax,0a000h
mov ds,ax
mov si,320*200-2
mov di,320*200-1
std
@@nextraw:
mov cx,319
rep movsb
dec si
dec di
cmp di,319
jne @@nextraw
pop ds
ret
shiftscreen endp
putpixel proc
mov bx,0
mov cx,200
@@nextclear:
mov byte ptr es:[bx],0
add bx,320
loop @@nextclear
mov ax,320
imul curenty
mov bx,ax
mov byte ptr es:[bx],10
ret
putpixel endp
calcnextpixel proc
.386
.387
fldpi ; занесение пи st(0)
fimul curentx ; pi*x st(0)
fimul C ;
fidiv divcoeff ;pi*x/180 st(0)
fsin ;sin(st(0))
fidiv A ;
fimul stretchcoeff ;a=50*sin(...)
fiadd addcoeff ;+b (b=100)
fisub B ;
frndint ;округлить до целого
fistp curenty ;извлекаем из стека в Y
ret
calcnextpixel endp
end begin
И как можно его так переделать, а именно (на сколько я знаю) функцию calcnextpixel, чтобы можно было построить такой график?
Средний
Простой
