Рисование на экране прямых линий, оканчивающиеся в позициях, которые указываются мышью

; mousedr.asm
;Рисует на экране прямые линии, оканчивающиеся в позициях, которые указываются мышью.
;
        .model  tiny
        .code
        org     100h                ; COM-файл.
        .186                        ; Для команжы shr cx, 3.
start:
        mov     ax, 12h
        int     10h             ; Видеорежим 640*480.
        mov     ax, 0               ; Инициализировать мышь.
        int     33h
        mov     ax, 1               ; Показать курсор мыши.
        int     33h
        
        mov     ax, 000Ch           ; Установить обработчик событий мыши.
        mov     cx, 0002h           ; Событие - нажатие левой кнопки.
        mov     dx, offset handler      ; ES:DX - адрес обработчика.
        int     33h
        
        mov     ah, 0               ; Ожидание нажатия любой клавиши.
        int     16h
        mov     ax, 000Ch
        mov     cx, 0000h           ; Удалить обработчик событий мыши.
        int     33h
        mov     ax, 3               ; Текстоый режим.
        int     10h
        ret                     ; Конец программы.
 
; Обработчик событий мыши: при первом нажатии выводит точку на экран,
; при каждом дальнейшем вызове проводит прямую линию от предыдущей
; точки к текущей.
        
handler:
        push        0A000h
        pop     es              ; ES - начало видеопамяти.
        push        cs
        pop     ds              ; DS - сегмент кода и данных этой программы.
        push        cx              ; CX (X-координата) и DX(Y-координата)
        push        dx              ; потребуются в конце.
        
        mov     ax, 2               ; Спрятать курсор мыши перед выводом на экран.
        int     33h
        
        cmp     word ptr previous_X, -1            ; Если это первый вызов,
        je      first_point         ; только вывести точку.
        
        call        line_bresenham                 ; Иначе - провести прямую.                            
 
exit_handler:
        pop     dx              ; Восстановить CX и DX
        pop     cx
        mov     previous_X, cx                 ; и запомнить их как предыдущие
        mov     previous_Y, dx                 ; координаты.
        
        mov     ax, 1               ; Показать курсор мыши.
        int     33h
        
        retf                        ; Выход из обработчика - команда RETF.
        
first_point:
        call        putpixel1b          ; Вывод одной точки (при первом вызове).
        jmp     short exit_handler
 
; Процедура рисования прямой линии с использованием алгоритма Брезенхама.
; Вывод CX, DX - X, Y начальной точки.
; previous_X, previous_Y - X, Y начальной точки.
        
line_bresenham:
        mov     ax, cx
        sub     ax, previous_X                 ; AX = длина проекции прямой на ось X.
        jns     dx_pos                     ; Если AX отрицательный -
        neg     ax              ; сменить его знак, причем
        mov     word ptr X_increment, 1            ; координата X при выводе
        jmp     short dx_neg                   ; прямой будет расти.
dx_pos: mov     word ptr X_increment, -1               ; Иначе - уменьшаться.
 
dx_neg: mov     bx, dx
        sub     bx, previous_Y                 ; BX = длина проекции прямой на ось Y.
        jns     dy_pos                     ; Если BX отрицательный - 
        neg     bx              ; сменить его знак, причем
        mov     word ptr Y_increment, 1            ; координата Y при выводе
        jmp     short dy_neg            ; прямой будет расти.
dy_pos: mov     word ptr Y_increment, -1               ; иначе - уменьшаться.
dy_neg:
        shl     ax, 1               ; Удвоить значения проекций,
        shl     bx, 1               ; чтобы избежать работы с полуцелыми числами.
        
        call        putpixel1b          ; Вывести первую точку (прямая рисуется от
                                ; CX, DX к previous_X, previous_Y).
        cmp     ax, bx              ; Если проекция на ось X больше, чем на Y,
        jna     dx_le_dy
        mov     di, ax              ; DI будет указывать, в какую сторону мы
        shr     di, 1               ; отклонились от идеальной прямой.
        neg     di              ; Оптимальное начальное значение DI:
        add     di, bx              ; DI = 2 * dy - dx
cycle:
        cmp     cx, word ptr previous_X            ; Основной цикл выполняется,
        je      exit_bres           ; пока X не станет равное previous_X.
        cmp     di, 0               ; Если DI > 0,
        jl      fractlt0
 
        add     dx, word ptr Y_increment    ; перейти к следующему Y
        sub     di, ax              ; и уменьшить DI на 2 * dx.
fractlt0:
        add     cx, word ptr X_increment    ; Следующий X (на каждом шаге).
        add     di, bx              ; Увеличить на DI на 2 * dy.
        call        putpixel1b          ; Вывести точку.                                                        ;!!!!!
        jmp     short cycle         ; Продолжить цикл.
        
dx_le_dy:                           ; Если проекция на ось Y больше, чем на X.
        mov     di, bx
        shr     di, 1
        neg     di              ; Оптимальное начальное значение DI:
        add     di, ax              ; DI = 2 * dx - dy.
cycle2:
        cmp     dx, word ptr previous_Y            ; Основной цикл выполняется,
        je      exit_bres           ; пока Y не станет равным previous_Y.
        cmp     di, 0               ; Если DI > 0,
        jl      fractlt02
        add     cx, word ptr X_increment    ; перейти к следующему X
        sub     di, bx              ; и уменьшить DI на 2 * dy,
fractlt02:
        add     dx, word ptr Y_increment    ; Следующий Y (на каждом шаге).
        add     di, ax              ; Увеличить DI на 2 * dy,
        call        putpixel1b          ; вывести точку,
        jmp     short cycle2            ; продолжить цикл.
exit_bres:
        ret                     ; Конец процедуры.
 
; Процедура вывода точки на экран в режиме, использующем один бит для
; хранения одного пикселя.
; DX = строка, CX = столбец.
; Все регистры сохраняются.
        
putpixel1b:
        pusha                       ; Сохранить регистры.
        xor     bx, bx
        mov     ax, dx              ; AX = номер строки.
        imul        ax, ax, 80          ; AX = номер строки x число байтов в строке.
        push        cx
        shr     cx, 3               ; CX = номер байта в строке.
        add     ax, cx              ; AX = номер байта в видеопамяти.
        mov     di, ax              ; Поместить его в SI и DI для команд
        mov     si, di              ; строковой обработки.
        
        pop     cx              ; CX снова содержит номер столбца.
        mov     bx, 0080h
        and     cx, 07h                    ; Последние три бита CX = 
                                ; остаток от деления на 8 = номер бита в байте
                                ; считая справа налево.
        shr     bx, cl              ; Теперь в BL установлен в 1 нужный бит.
 
        lods        es: byte ptr some_label            ; AL = байт из видеопамяти.
        ;or     ax, bx              ; Установить выводимый бит в 1,
; Чтобы стереть пиксел с экрана, эту команду OR  можно заменить на
 not bx
 and ax, bx
; или лучше инициализировать BX не числом 0080h, а числом FF7Fh и использовать
; только and
        stosb                       ; И вернуть байт на место.
        popa                        ; Восстановить регистры.
        ret                     ; Конец.
        
previous_X          dw  -1          ; Предыдущая X-координата.
previous_Y          dw  -1          ; Предыдущая Y-координата.
Y_increment         dw  -1          ; Направление изменения Y.
X_increment         dw  -1          ; Направление изменения X.
some_label:                         ; Метка, используемая для переопределения
                                ; сегмента-источника для lods с DS на ES.
        end start

.model tiny
.486
.code
org 100h
start:
mov ax,13h
int 10h
 
xor ax,ax
int 33h
mov ax,1
int 33h
 
mov ax,12
mov cx,2
mov dx,offset handler
int 33h
 
xor ax,ax
int 16h
ret
 
handler:
  mov  ax,2
  int  33h
  push dx
  shr  cx,1
  push cx
  push 100
  push 160
  call line
  mov  ax,1
  int  33h
retf
 
 
line:
  push bp
  mov  bp,sp
  imul di,ss:[bp+6],320
  add  di,ss:[bp+4]
 
  mov  ax,ss:[bp+8]
  sub  ax,ss:[bp+4]
  sbb  bx,bx
  mov  dx,ss:[bp+10]
  sub  dx,ss:[bp+6]
  sbb  cx,cx
 
  mov  si,ax
  or   si,dx
  je   quit
 
  xor  ax,bx
  sub  ax,bx
  xor  dx,cx
  sub  dx,cx
 
  or   bx,1
  mov  si,cx
  xor  cx,320
  sub  cx,si
 
  cmp  ax,dx
  ja a
      xchg ax,dx
      xchg bx,cx
  a:
 
  push 0A000h
  pop  es
 
  mov  si,ax
  mov  bp,ax
  b:mov byte ptr es:[di],2
    sub si,dx
    jnl next
      add si,ax
      add di,cx
    next:
    add di,bx
    dec bp
  jne b
 
  quit:
  mov byte ptr es:[di],2
  pop bp
ret 8
 
end start

mov ah, 2
mov dl, 07h; функция вывода сигнала
int 21h