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
JP Z,RESET_TO_ZX.cont
.cont: LD A,(#FFF0) ;!HARDCODE
OUT (SLOT0),A
LD A,(#FFF3) ;!HARDCODE
.cont: ;LD A,(Spec_Page.page_0)
;OUT (SLOT0),A
LD A,(Spec_Page.page_3)
OUT (SLOT3),A
XOR A
@ -675,9 +675,9 @@ SETUP_RAM_DRIVES:
; ;
;!FIXIT ¯¥à¥¤¥« âì ­  äã­ªæ¨î ¡¨®á 
SET_RELOAD_PROG:
DI
LD A,Spec_Page
OUT (SLOT3),A
; DI
; LD A,Spec_Page
; OUT (SLOT3),A
; LD A,"Z"
; LD (#FFFE),A
@ -687,18 +687,21 @@ SET_RELOAD_PROG:
LD A,(PARAMS.Ret_fn+2)
AND A
LD DE,RESET_TO_ZX ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-zx
JR Z,NO_RET_FN
JR Z,.NO_RET_FN
LD DE,EXIT_TO_DSS ;  ¤à¥á ¯à®£à ¬¬ë ¯¥à¥§ ¯ã᪠ ¤«ï ret-fn
;
NO_RET_FN: LD (#FFF4),DE ;  ¤à¥á ¯à®£à ¬¬ë ¢®§¢à â 
IN A,(SLOT0)
LD (#FFF0),A ; DOS-PAGE
IN A,(SLOT1)
LD (#FFF1),A
IN A,(SLOT2) ; á®åà ­¨âì áâà ­¨æã
LD (#FFF2),A ; ¯à®£à ¬¬ë ¤«ï ¢®§¢à â 
LD A,(SAVE_SLOT3)
LD (#FFF3),A
.NO_RET_FN: ;LD (#FFF4),DE ;  ¤à¥á ¯à®£à ¬¬ë ¢®§¢à â 
;IN A,(SLOT0)
;LD (#FFF0),A ; DOS-PAGE
;IN A,(SLOT1)
;LD (#FFF1),A
;IN A,(SLOT2) ; á®åà ­¨âì áâà ­¨æã
;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
;° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °;
RESET_TO_ZX: DI
LD SP,stack_point ; #BFF0