mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
12c028744a
Убран баг в ATTRIB для GET на разделе FAT с кластером 64 кб. Исправлен улёт стека в ПЗУ в процедуре запуска EXE. Исправлен баг со скроллом в ECHOKEY.
22 lines
419 B
NASM
22 lines
419 B
NASM
;///////////////////////////////////////////////////
|
||
;
|
||
; PAUSE. <20> 㧠(¢ bat-ä ©«¥)
|
||
;
|
||
;///////////////////////////////////////////////////
|
||
cmd_pause:
|
||
LD de,MAIN_MSG.PAUSE ; ¨¤¥ªá "Press any key to continue ..."
|
||
CALL ECHO_MESSAGE ; ¢ë¢®¤ áâப¨
|
||
LD A,LF
|
||
LD C,Dss.PutChar
|
||
RST ToDSS
|
||
;LD A,R
|
||
;PUSH AF
|
||
LD C,Dss.WaitKey ; ¦¤¥¬ ¦ â¨ï ª« ¢¨è¨
|
||
;EI
|
||
RST ToDSS
|
||
;POP AF
|
||
;DI
|
||
;RET PO
|
||
;EI
|
||
RET
|