Рисование по алгоритму DDA-линии

.data
k dt 2.4
x1 dw 50 ; начальная х
y1 dw 50 ; начальная у
y2 dw 0
y3 dw 0
.code
start:
mov ax,@data
mov ds,ax
xor ax,ax
 
mov ah,0    
mov al,0fh  ;нвыбор графического режима
int 10h
 
push x1
finit
fild x1  ;загрузка x1 в стек сопроцессора
fld k   ;загрузка k в стек сопроцессора
Fmul st(0),st(1)   ;st0=x1=k*x1
fild y1  ;загрузка y1 в стек сопроцессора
Fsub st(2),st(0)  ;y1=y1-kx1
frndint   ;округляем число 
fistp y2 ;загружаем число в переменную temp
fmul     ;умножает целочисленное слово на st0.
pop x1
mov cx,100 ;длинна 
 
print:
push cx
 
push x1
fild x1 ;загрузка x1 в стек сопроцессора
fld k   ;загрузка k в стек сопроцессора
Fmul st(0),st(1)   ;st0=x1=k*x1
fild y1  ;загрузка y1 в стек сопроцессора
fadd st(0),st(2)  ;y1=y1+kx1
fistp y3 ;достаем полученное число в переменную у3
pop x1
 
mov cx,x1
mov dx,y3
mov ah,0ch  ;рисование точки
mov al,1    ;цвет
;mov bh,0   ;видеостраница
    
int 10h
inc x1
pop cx
loop print
 
mov ax,4c00h
int 21h
end start

.model  small
.stack  100h
.data
.data
k dt 1.0
x1 dw 50 ; начальная х
y1 dw 50 ; начальная у
b dw 0
y3 dw 0
.code
start:
mov     ax,@data
mov     ds,ax
xor     ax,ax
 
mov ah,0        
mov al,0fh      ;выбор графического режима
int 10h
 
push x1
finit
fild x1  ;загрузка x1 в стек сопроцессора
fld k   ;загрузка k в стек сопроцессора
Fmul st(0),st(1)   ;st0=x1=k*x1
fild y1  ;загрузка y1 в стек сопроцессора
Fsub st(0),st(1)  ;y1=y1-kx1
frndint   ;округляем число 
fistp b ;загружаем число в переменную b
;fmul     ;умножает целочисленное слово на st0.
pop x1
mov cx,100 ;длинна 
 
print:
push cx
 
push x1
fild x1 ;загрузка x1 в стек сопроцессора
fld k   ;загрузка k в стек сопроцессора
Fmul st(0),st(1)   ;st0=x1=k*x1
fild b  ;загрузка y1 в стек сопроцессора
fadd st(0),st(1)  ;y1=y1+kx1
frndint   ;округляем число 
fistp y3 ;достаем полученное число в переменную у3
pop x1
 
mov cx,x1
mov dx,y3
mov ah,0ch      ;рисование точки
mov al,1        ;цвет
;mov bh,0       ;видеостраница
        
int 10h
inc x1
pop cx
loop print
 
mov     ax,4c00h
int     21h
end     start

.286
.model tiny
.code
    ORG 100h
.startup
MOV AH,0Fh  ;запомнить текущий видеорежим
    INT 10h
MOV VIDEOR,AL;видеорежим в переменную videor
MOV AX, 0013h   ;установить видеорежим 13h
INT 10h
PUSH 0A000h ;установить регистр ES на сегмент 
POP ES  ;видеопамяти
MOV DI,0    ;Установка точки (0, 0) зеленого цвета
MOV CX,0        ;в левый верхний угол экрана
MOV DL,2
CALL DRAW_PIXEL
MOV DI,160  ;Установка точки (160,100) красного 
MOV CX,100  ; цвета в центр экрана
MOV DL,4
CALL DRAW_PIXEL
MOV DI,319  ;Установка точки (319, 199) белого 
MOV CX,199  ; цвета в правый нижний угол экрана
MOV DL,7
CALL DRAW_PIXEL
XOR AX,AX       ;ожидание нажатия любой клавиши
INT 16h
MOV AH,0        ;восстановление видеорежима
MOV AL,VIDEOR
INT 10h
ret         ;выход из программы
;процедура вывода точки на экран
;DI — X координата точки (от 0 до 319)
;CX — Y координата точки (от 0 до 199)
;DL — цвет точки
PROC NEAR DRAW_PIXEL
;присвоить регистру AX значение горизонтального 
;разрешения 
MOV AX,320  ;умножение координаты Y на горизонтальное 
MUL CX      ;разрешение. Результат умножения в AX
MOV BX,AX   ;сложить с координатой X
MOV ES:[BX][DI],DL;вывести точку на экран
RET         ;выход из процедуры
ENDP            ;конец процедуры
VIDEOR DB ? ;переменная для хранения значения 
;текущего видеорежима
END         ;конец программы

.8087
.model  small
.stack  100h
.data
.data
k dd 1.0
x1 dd 50 ; начальная х
y1 dd 50 ; начальная у
b dd 0
y3 dd 0
.code
start:
mov     ax,@data
mov     ds,ax
xor     ax,ax
 
mov ah,0        
mov al, 13h;0fh      ;выбор графического режима
int 10h
 
finit
fild x1  ;загрузка x1 в стек сопроцессора
fld dword ptr k   ;загрузка k в стек сопроцессора
Fmul   ;st0=x1=k*x1
fild y1  ;загрузка y1 в стек сопроцессора
Fsub  ;y1=y1-kx1
frndint   ;округляем число 
fistp b ;загружаем число в переменную b
;fmul     ;умножает целочисленное слово на st0.
 
mov cx,100 ;длинна 
print:
push cx
 
fild x1 ;загрузка x1 в стек сопроцессора
fld dword ptr k   ;загрузка k в стек сопроцессора
Fmul   ;st0=x1=k*x1
fild b  ;загрузка y1 в стек сопроцессора
fadd ;y1=y1+kx1
frndint   ;округляем число 
fistp y3 ;достаем полученное число в переменную у3
 
mov cx, word ptr [x1+2]
mov dx, word ptr [y3+2]
mov ah, 0ch      ;рисование точки
mov al, 1        ;цвет
;mov bh,0       ;видеостраница
        
int 10h
inc word ptr [x1+2]
pop cx
loop print
 
xor ax, ax
int 16h
 
mov     ax,4c00h
int     21h
end     start