mirror of
https://github.com/Tolik-Trek/FFORMAT.git
synced 2026-06-15 09:21:43 +03:00
29 lines
536 B
NASM
Executable File
29 lines
536 B
NASM
Executable File
; <20>®«ãç¨âì ®¢ãî ¨ä®à¬ æ¨î ® ¬ë誥.
|
||
; <20>८¡à §ã¥â £à ä. ª®®à¤¨ âë ¢ ⥪á⮢ë¥
|
||
GetMousInfo:
|
||
ExmFire: ld c,3 ; ¯®«ãç¨âì ª®®à¤. ¬ë誨
|
||
RST ToDSS.Mouse
|
||
ret c
|
||
ex af,af'
|
||
srl h
|
||
rr l
|
||
srl h
|
||
rr l
|
||
srl l
|
||
ld a,e ; Y ª®®à¤¨ â (0-255)
|
||
rra
|
||
rra
|
||
rra
|
||
and 1Fh
|
||
ld h,a ; hl=ª®®à¤. ¢ § ª®¬¥áâ å
|
||
ex af,af' ; áâ âãá ¡ãâ®®¢ ¬ë誨
|
||
and 3
|
||
ret
|
||
|
||
|
||
; †¤¥¬, ¥á«¨ ¦ â ¡ãâ®(ë) ¬ë誨
|
||
GetFire: call GetMousInfo
|
||
jr nz,GetFire ; 㧠âì ®¢ãî ¨äã ¯® áâ âãáã ¡ãâ®®¢
|
||
; ¡ãâ®(ë) ¥ ¦ âë
|
||
ret
|