Tolik-Trek/Spectrum.EXE
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Spectrum.EXE.git synced 2026-06-15 00:51:36 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
Tolik 2024-10-25 02:31:27 +10:00
parent 526fffd345
commit bd8b527a32
1 changed files with 33 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
spectrum.asm
View File

@ -684,11 +684,11 @@ SET_RELOAD_PROG:
; LD A,"X"
; LD (#FFFF),A
LD A,(PARAMS.Ret_fn+2)
AND A
LD DE,RESET_TO_ZX ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-zx
JR Z,.NO_RET_FN
LD DE,EXIT_TO_DSS ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-fn
; LD A,(PARAMS.Ret_fn+2)
; AND A
; LD DE,RESET_TO_ZX ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-zx
; JR Z,.NO_RET_FN
; LD DE,EXIT_TO_DSS ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-fn
;
.NO_RET_FN: ;LD (#FFF4),DE ;  ¤à¥á ¯à®£à ¬¬ë ¢®§¢à â 
;IN A,(SLOT0)
@ -699,9 +699,14 @@ SET_RELOAD_PROG:
;LD (#FFF2),A ; ¯à®£à ¬¬ë ¤«ï ¢®§¢à â 
;LD A,(SAVE_SLOT3)
;LD (#FFF3),A
LD A,ACEX.Config_PG.Sp2000_SoftRestartSet
LD BC,BIOS.RST_CONF.CUSTOM
RST ToBIOS
; LD B,A
; LD A,(PARAMS.Ret_zx+2)
; XOR B
; JR Z,RESET_TO_ZX
; ;
; LD A,ACEX.Config_PG.Sp2000_SoftRestartSet
; LD BC,BIOS.RST_CONF.CUSTOM
; RST ToBIOS
;° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °;
RESET_TO_ZX: DI
LD SP,stack_point ; #BFF0
@ -720,13 +725,28 @@ RESET_TO_ZX: DI
; LD BC,BIOS.SWAP_RAM_DRIVES.ZX
; RST ToBIOS
;
LD A,(PARAMS.Ret_zx+2)
LD B,A
; LD A,(PARAMS.Ret_zx+2)
; LD B,A
; LD A,(PARAMS.Ret_fn+2)
; XOR B
; LD B,A
; LD A,ACEX.RET_PORT
; CALL SET_ROM ; ¢ª«îç¨âì ¢®§¢à â
LD A,(PARAMS.Ret_fn+2)
AND A
LD DE,RESET_TO_ZX ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-zx
JR Z,.NO_RET_FN
LD DE,EXIT_TO_DSS ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-fn
.NO_RET_FN: LD B,A
LD A,(PARAMS.Ret_zx+2)
XOR B
LD B,A
LD A,ACEX.RET_PORT
CALL SET_ROM ; ¢ª«îç¨âì ¢®§¢à â
JR Z,.NO_RST_HDL
;
LD A,ACEX.Config_PG.Sp2000_SoftRestartSet
LD BC,BIOS.RST_CONF.CUSTOM
RST ToBIOS
.NO_RST_HDL:
; [ ]
LD A,SYS_PAGE