Tolik-Trek/Spectrum.EXE
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Spectrum.EXE.git synced 2026-06-15 17:11:38 +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 A,"X"
; LD (#FFFF),A ; LD (#FFFF),A
LD A,(PARAMS.Ret_fn+2) ; LD A,(PARAMS.Ret_fn+2)
AND A ; AND A
LD DE,RESET_TO_ZX ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-zx ; LD DE,RESET_TO_ZX ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-zx
JR Z,.NO_RET_FN ; JR Z,.NO_RET_FN
LD DE,EXIT_TO_DSS ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-fn ; LD DE,EXIT_TO_DSS ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-fn
; ;
.NO_RET_FN: ;LD (#FFF4),DE ;  ¤à¥á ¯à®£à ¬¬ë ¢®§¢à â  .NO_RET_FN: ;LD (#FFF4),DE ;  ¤à¥á ¯à®£à ¬¬ë ¢®§¢à â 
;IN A,(SLOT0) ;IN A,(SLOT0)
@ -699,9 +699,14 @@ SET_RELOAD_PROG:
;LD (#FFF2),A ; ¯à®£à ¬¬ë ¤«ï ¢®§¢à â  ;LD (#FFF2),A ; ¯à®£à ¬¬ë ¤«ï ¢®§¢à â 
;LD A,(SAVE_SLOT3) ;LD A,(SAVE_SLOT3)
;LD (#FFF3),A ;LD (#FFF3),A
LD A,ACEX.Config_PG.Sp2000_SoftRestartSet ; LD B,A
LD BC,BIOS.RST_CONF.CUSTOM ; LD A,(PARAMS.Ret_zx+2)
RST ToBIOS ; 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 RESET_TO_ZX: DI
LD SP,stack_point ; #BFF0 LD SP,stack_point ; #BFF0
@ -720,13 +725,28 @@ RESET_TO_ZX: DI
; LD BC,BIOS.SWAP_RAM_DRIVES.ZX ; LD BC,BIOS.SWAP_RAM_DRIVES.ZX
; RST ToBIOS ; RST ToBIOS
; ;
LD A,(PARAMS.Ret_zx+2) ; LD A,(PARAMS.Ret_zx+2)
LD B,A ; 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) 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 XOR B
LD B,A JR Z,.NO_RST_HDL
LD A,ACEX.RET_PORT ;
CALL SET_ROM ; ¢ª«îç¨âì ¢®§¢à â LD A,ACEX.Config_PG.Sp2000_SoftRestartSet
LD BC,BIOS.RST_CONF.CUSTOM
RST ToBIOS
.NO_RST_HDL:
; [ ] ; [ ]
LD A,SYS_PAGE LD A,SYS_PAGE