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

ACEX.Config_PG.Sp2000_SoftRestartSet

Browse Source
This commit is contained in:
Tolik 2024-10-25 01:23:01 +10:00
parent b337da2fbf
commit 526fffd345
2 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shared_Includes

@ -1 +1 @@
Subproject commit 7e00c2aa909241367878004ad104b56abb907f80 Subproject commit be501b0cc276065a9981e471dd26f9b069af7604

35
spectrum.asm
View File

@ -543,9 +543,9 @@ EXIT_TO_DSS: DI
CALL FIRST_PREPARE CALL FIRST_PREPARE
JP Z,RESET_TO_ZX.cont JP Z,RESET_TO_ZX.cont
.cont: LD A,(#FFF0) ;!HARDCODE .cont: ;LD A,(Spec_Page.page_0)
OUT (SLOT0),A ;OUT (SLOT0),A
LD A,(#FFF3) ;!HARDCODE LD A,(Spec_Page.page_3)
OUT (SLOT3),A OUT (SLOT3),A
XOR A XOR A
@ -675,9 +675,9 @@ SETUP_RAM_DRIVES:
; ; ; ;
;!FIXIT ¯¥à¥¤¥« âì ­  äã­ªæ¨î ¡¨®á  ;!FIXIT ¯¥à¥¤¥« âì ­  äã­ªæ¨î ¡¨®á 
SET_RELOAD_PROG: SET_RELOAD_PROG:
DI ; DI
LD A,Spec_Page ; LD A,Spec_Page
OUT (SLOT3),A ; OUT (SLOT3),A
; LD A,"Z" ; LD A,"Z"
; LD (#FFFE),A ; LD (#FFFE),A
@ -687,18 +687,21 @@ SET_RELOAD_PROG:
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)
LD (#FFF0),A ; DOS-PAGE ;LD (#FFF0),A ; DOS-PAGE
IN A,(SLOT1) ;IN A,(SLOT1)
LD (#FFF1),A ;LD (#FFF1),A
IN A,(SLOT2) ; á®åà ­¨âì áâà ­¨æã ;IN A,(SLOT2) ; á®åà ­¨âì áâà ­¨æã
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 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