mirror of
https://github.com/Tolik-Trek/Estex-DSS.git
synced 2026-08-05 01:34:39 +03:00
41ff458cd4
Затащены правки из Master: Исправлен баг с относительными путями. thx to @witchcraft2001 IF, GOTO, GOSUB/RETURN in BAT files. Правки CLP -bug с выводом строки в BAT -bug M_INT: RFI is CH-A ONLY (per Z80 SIO spec) -bug KEYINTER.ASM: russian chars fix Num Lock numbers
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 |