Обработка прерываний мыши

SSEG segment stack
   db 256 dup(?)
SSEG ends
 
DSEG segment
        sqx1 dw ?
        sqy1 dw ?
        sqx2 dw ?
        sqy2 dw ?
        sqarea dw 0
DSEG ends
 
CSEG segment
        .186
       
        assume cs: CSEG, es: DSEG, ss: SSEG
begin:
        mov ax, DSEG
        mov es, ax
 
        mov ah, 0
        mov al, 12h ; 640x480x16
        int 10h
 
        mov cx, 14
new_square:         ; add new points and label
        push cx
        call points
        
        mov al, 01h ; color changer  
        add ax, cx
        call render_square
        call print_square_area
        
      
        ; need to add mouse handler
        mov ax, 0h ; initialization
        int 33h
 
        mov ax, 1h ; show cursor
        int 33h
        
        mov ax,0Ch
        mov cx, 10b
        push cs
        pop es
        mov dx, offset handler          ;;;;;;
        int 33h
       
        mov ah,0h 
        int 16h   
        
        mov ax, 000Ch
        mov cx, 0000h
        int 33h
         
        call clrscr
      
        pop cx
loop new_square
         
        mov ax, 1h ; show cursor
        int 33h
        
        ;mov ax, 000Ch
        ;mov cx, 0000h
        ;int 33h
   
        mov ah, 4ch
        int 21h
 
render_square proc near
  
        mov si, sqx2
        mov dx, sqy1
        mov di, sqy2
 
        render_hor_line:
                mov cx, sqx1
                call hor_line
                inc dx
                cmp dx, di
                jle render_hor_line
                
        retn
render_square endp
 
; cx - start x
; si - end x
; dx - y
; al - color
hor_line proc near 
  __hor_line:
        call pixel
        inc cx
        cmp cx, si
        jle __hor_line
 
  retn
hor_line endp
 
; cx - x
; dx - y
; al - color
pixel proc near
    mov ah, 0Ch
    mov bh, 0
    int 10h
 
retn
pixel endp      
 
print_square_area proc near
        mov bx, sqx1
        mov ax, sqx2
        sub ax, bx
        mul ax
        mov sqarea, ax
 
        mov dl, 38 ; cursor x
        mov dh, 17 ; cursor y
        mov bh, 00h
        mov ah, 02h
        int 10h
 
retn
print_square_area endp
 
 
 
random_number proc near
        push dx
        mov ax, word ptr cs:seed
        mov dx, 8E45h
        mul dx
        inc ax
        mov cs:word ptr seed,ax
        shr ax,7
        pop dx
retn
random_number endp
 
points proc near
 
call random_number        ; random number
        mov bx, ax
        cmp bx, 589d
        jl k 
        mov ax, 589d
     k:   
        mov sqx1,ax
        mov sqx2,ax
        add sqx2,50
        
        call random_number
        mov bx, ax
        cmp bx, 429d
        jl p 
        mov ax, 429d
     p:   
        mov sqy1,ax
        mov sqy2,ax
        add sqy2,50 
        
 
retn
points endp
 
 
handler proc far 
        push 0A00Ch
        pop es
        push cs
        pop ds
        push cx
        push dx
        
        
        mov ax, sqx1 
        cmp ax,cx 
        jg no 
 
        mov ax, sqx2 
        cmp ax, cx 
        jl no 
 
        mov ax, sqy1 
        cmp ax,dx 
        jg no 
 
        mov ax, sqx2 
        cmp ax,dx 
        jl no 
 
        jmp next
 
no: 
        mov ah, 0
        mov al, 10h ; 640x480x16
        int 10h
        
    next:
        
        pop dx
        pop cx
            
        retf
handler endp
 
clrscr proc
        mov ax,0600h ; clear scr
        mov cx,00h
        mov dx,386Fh
        int 10h
retn        
clrscr endp
        
        seed:
         food_at equ seed+2
    
CSEG ends                                                                                                                                                                                                                                                                                
end begin