Вывод координат мыши на экран

;masm dos com #
;при нажатии левой кнопки мышки выводятся координаты места где было нажатие.
.286
.model tiny
.code
org 100h
start:  mov ax,3;текстовый режим 80х25 символов, если учесть размер символа
    int 10h;8х8 соответствует графическому режиму 640х200
    mov dx,offset string1;выводим сообщение как выйти из программы
    mov ah,9
    int 21h
    mov ax,0;Функция 00h предназначена для выяснения, загружен ли в память 
    int 33h;драйвер мыши. Если эта функция возвращает AX = 0, то драйвер 
    test ax,ax;отсутствует. Если драйвер загружен, то AX = 0FFFFh , а в 
    jz exit;регистре BX - число кнопок мыши
    mov ax,0Ch;Функция 0Ch позволяет программно задать реакцию на события 
    push cs;связанные с мышью: ее перемещения, нажатие и отпускание кнопок. 
    pop es;События, на которые необходимо реагировать, должны быть отмечены 
    mov cx,2;единицами в соответствующих разрядах регистра CX. CX=2 - вызвать подпрограмму, 
    mov dx,offset mouse;если левая клавиша отпущена. После выполнения этой 
        int 33h;функции драйвер мыши на каждое из заданных событий будет 
;реагировать вызовом обработчика событий - подпрограммы, FAR-указатель на адрес 
;которой был указан в регистрах ES:DX
    mov ax,1;Функция 01h включает изображение курсора мыши на экране.
        int 33h
    xor ax,ax;ждем пока не нажмут на клавиатуру
    int 16h
exit:   int 20h;завершаем программу
mouse proc far
    push cs
    pop ds
    push 0B800h
    pop es
    mov ax,cx;в CX и DX - координаты курсора
    mov di,dx;в DI будут координаты надписи
    shl di,2;di=dx*4
    add di,dx;di=dx*5
    shl di,2;di=dx*20
    shr cx,2
    add di,cx;di=dx*20+cx/4
    mov bl,10
    div bl
    or ah,30h
    mov string[4],ah
    aam
    add ax,3030h
    mov string[2],ah
        mov string[3],al
    mov ax,dx
    div bl
    or ah,30h
    mov string[10],ah
    aam
    add ax,3030h
    mov string[8],ah
        mov string[9],al
    mov ax,3;стираем с экрана предыдущую надпись
    int 10h
    mov si,offset string
    mov cx,string1-string;длина надписи
    mov ah,0Fh;аттрибуты надписи (белое на черном)
@@: lodsb
    stosw;выводим координаты на экран в заданную позицию
    loop @b
    retf
mouse endp
string db "x=    y=   "
string1 db "для выхода из программы нажмите на Esc$"
end start

shl cx, 1
shl cx, 1

 shl cx, 2

 shl cx, 1
 shl cx, 1

; You may customize this and other start-up templates;
; The location of this template is c:\emu8086\inc\0_com_template.txt
 
org 100h
 
; masm dos com #
.model tiny
.code
org 100h
start:  mov ax,3;òåêñòîâûé ðåæèì 80õ25 ñèìâîëîâ, åñëè ó÷åñòü ðàçìåð ñèìâîëà
int 10h;8õ8 ñîîòâåòñòâóåò ãðàôè÷åñêîìó ðåæèìó 640õ200
mov dx,offset string1;âûâîäèì ñîîáùåíèå êàê âûéòè èç ïðîãðàììû
mov ah,9
int 21h
mov ax,0;Ôóíêöèÿ 00h ïðåäíàçíà÷åíà äëÿ âûÿñíåíèÿ, çàãðóæåí ëè â ïàìÿòü
int 33h;äðàéâåð ìûøè. Åñëè ýòà ôóíêöèÿ âîçâðàùàåò AX = 0, òî äðàéâåð
test ax,ax;îòñóòñòâóåò. Åñëè äðàéâåð çàãðóæåí, òî AX = 0FFFFh , à â
jz exit;ðåãèñòðå BX - ÷èñëî êíîïîê ìûøè
mov ax,0Ch;Ôóíêöèÿ 0Ch ïîçâîëÿåò ïðîãðàììíî çàäàòü ðåàêöèþ íà ñîáûòèÿ
push cs;ñâÿçàííûå ñ ìûøüþ: åå ïåðåìåùåíèÿ, íàæàòèå è îòïóñêàíèå êíîïîê.
pop es;Ñîáûòèÿ, íà êîòîðûå íåîáõîäèìî ðåàãèðîâàòü, äîëæíû áûòü îòìå÷åíû
mov cx,2;åäèíèöàìè â ñîîòâåòñòâóþùèõ ðàçðÿäàõ ðåãèñòðà CX. CX=2 - âûçâàòü ïîäïðîãðàììó,
mov dx,offset mouse;åñëè ëåâàÿ êëàâèøà îòïóùåíà. Ïîñëå âûïîëíåíèÿ ýòîé
int 33h;ôóíêöèè äðàéâåð ìûøè íà êàæäîå èç çàäàííûõ ñîáûòèé áóäåò
;ðåàãèðîâàòü âûçîâîì îáðàáîò÷èêà ñîáûòèé - ïîäïðîãðàììû, FAR-óêàçàòåëü íà àäðåñ
;êîòîðîé áûë óêàçàí â ðåãèñòðàõ ES:DX
mov ax,1;Ôóíêöèÿ 01h âêëþ÷àåò èçîáðàæåíèå êóðñîðà ìûøè íà ýêðàíå.
int 33h
xor ax,ax;æäåì ïîêà íå íàæìóò íà êëàâèàòóðó
int 16h
exit:   int 20h;çàâåðøàåì ïðîãðàììó
mouse proc far
push cs
pop ds
push 0B800h
pop es
mov ax,cx;â CX è DX - êîîðäèíàòû êóðñîðà
mov di,dx;â DI áóäóò êîîðäèíàòû íàäïèñè
shl cx, 1
shl cx, 1
;di=dx*4
add di,dx;di=dx*5
shl cx, 1
shl cx, 1
;di=dx*20
shr cx,2
add di,cx;di=dx*20+cx/4
mov bl,10
div bl
or ah,30h
mov string[4],ah
aam
add ax,3030h
mov string[2],ah
mov string[3],al
mov ax,dx
div bl
or ah,30h
mov string[10],ah
aam
add ax,3030h
mov string[8],ah
mov string[9],al
mov ax,3;ñòèðàåì ñ ýêðàíà ïðåäûäóùóþ íàäïèñü
int 10h
mov si,offset string
mov cx,string1-string;äëèíà íàäïèñè
mov ah,0Fh;àòòðèáóòû íàäïèñè (áåëîå íà ÷åðíîì)
@0: lodsb
stosw;âûâîäèì êîîðäèíàòû íà ýêðàí â çàäàííóþ ïîçèöèþ
loop @0
retf
mouse endp
string db "x=    y=   "
string1 db "äëÿ âûõîäà èç ïðîãðàììû íàæìèòå íà Esc$"
end start
 
ret