mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-06-15 09:21:47 +03:00
20 lines
480 B
NASM
20 lines
480 B
NASM
; [x] 11/12/23
|
|
cmd_break:
|
|
.sp+1: LD SP,0
|
|
;!TODO ¢«®¦¥ë¥ bat. ¯¥à¥¤ ¢ âì ®è¨¡ªã ®¡à â® ¢ ¢ë§ë¢ î騩 bat
|
|
.exit: ld a,(goto_active) ; GOTO: label not found ?
|
|
or a
|
|
jr z,.close
|
|
xor a
|
|
ld (goto_active),a
|
|
ld de,MAIN_MSG.LABEL_NOT_FOUND
|
|
call ECHO_MESSAGE
|
|
.close: xor a
|
|
ld (gosub_sp),a ; reset GOSUB stack
|
|
ld a,(BAT_FM) ; ¤¥áªà. bat-ä ©«
|
|
ld c,Dss.Close ; § ªàëâì ä ©«
|
|
RST ToDSS
|
|
xor a
|
|
ld (BAT_FM),a
|
|
;!TODO ¢«®¦¥ë¥ bat. ¯¥à¥¤ ¢ âì ®è¨¡ªã ®¡à â® ¢ ¢ë§ë¢ î騩 bat
|
|
ret |