Tolik-Trek/Estex-DSS
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Estex-DSS.git synced 2026-06-16 01:41:17 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

fixed no interrupts enter to PAUSE command in BAT

Browse Source
This commit is contained in:
Anatoliy Belyanskiy 2024-06-24 03:06:52 +10:00
parent 1fab894409
commit 7bda57266b
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
SHELL/Commands/PAUSE.ASM
View File

@ -4,11 +4,19 @@
; ;
;/////////////////////////////////////////////////// ;///////////////////////////////////////////////////
cmd_pause: cmd_pause:
ld de,MAIN_MSG.PAUSE ; ¨­¤¥ªá "Press any key to continue ..." LD de,MAIN_MSG.PAUSE ; ¨­¤¥ªá "Press any key to continue ..."
call ECHO_MESSAGE ; ¢ë¢®¤ áâப¨ CALL ECHO_MESSAGE ; ¢ë¢®¤ áâப¨
LD A,LF LD A,LF
LD C,Dss.PutChar LD C,Dss.PutChar
RST ToDSS RST ToDSS
ld c,Dss.WaitKey ; ¦¤¥¬ ­ ¦ â¨ï ª« ¢¨è¨ LD A,R
JP ToDSS PUSH AF
LD C,Dss.WaitKey ; ¦¤¥¬ ­ ¦ â¨ï ª« ¢¨è¨
EI
RST ToDSS
POP AF
DI
RET PO
EI
RET
;ret ;ret

2
SHELL/build.txt
View File

@ -1 +1 @@
407 408