Len_data Equ 14
Xcoord Dw 0
Ycoord Dw 0
Ascval Dw ?
Dispdata Label Byte
Xmsg Db 'x = '
Xascii Dw ?
Db ' '
Ymsg Db 'y = '
Yascii Dw ?
.code
A10main Proc Far
Mov Ax,2
Mov Ds,ax
Mov Es,ax
Call B10initz
Cmp Ax,00
Je A90
A20: Call C10pointr
Cmp Bx,01
Je A80
Mov Ax,xcoord
Call D10convrt
Mov Ax,ascval
Mov Xascii,ax
Mov Ax,ycoord
Call D10convrt
Mov Ax,ascval
Mov Yascii,ax
Call E10disply
A80: Mov Ax,02h
Int 33h
A90: ; Call Q10clear
Mov Ax,4c00h
Int 21h
A10main Endp
B10initz Proc Near
Mov Ax,00h
Int 33h
Cmp Ax,00
Je B90
Mov Ax,01h
Int 33h
B90: Ret
B10initz Endp
C10pointr Proc Near
C20: Mov Ax,03h
Int 33h
Cmp Bx,00000001b
Je C90
Shr Cx,03
Shr Dx,03
Cmp Cx,xcoord
Jne C30
Cmp Dx,ycoord
Je C20
C30: Mov Xcoord,cx
Mov Ycoord,dx
C90: Ret
C10pointr Endp
D10convrt Proc Near
Mov Ascval,2020h
Mov Cx,10
Lea Si,ascval+1
Cmp Ax,cx
Jb D20
Div Cl
Or Ah,30h
Mov [si],ah
Dec Si
D20: Or Al,30h
Mov [si],al
Ret
D10convrt Endp
E10disply Proc Near
Mov Ax,1300h
Mov Bx,0031h
Lea Bp,dispdata
Mov Cx,len_data
Mov Dx,0020h
Int 10h
Ret
E10disply Endp
End A10main
Above Are The Codes I Used For Mouse Tracking But I Get Some Problem And I Don't Know What's Wrong. I Can't See The Mouse Pointer And The X And Y Coordinates As Well. Can Anyone Help Me Pls?