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

restoring HOLD port on CAD

Browse Source
This commit is contained in:
Tolik 2024-07-07 04:52:30 +10:00
parent 2227adf2ab
commit 675bfbf556
2 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shared_Includes

@ -1 +1 @@
Subproject commit 314ff5dbefe8d537655601dde8236957e4ed39a7 Subproject commit 990f10e80278825f071f5795a5ba459dec0f991f

16
spectrum.asm
View File

@ -924,6 +924,18 @@ FILE_HANDLE: DB 0
;******************************************** ;********************************************
RESTORE_PORT_HOLD:
;!FIXIT ᤥ« âì ç¥à¥§ API BIOS
LD D,CMOS_CELL.ScreenPosition
LD C,BIOS.CMOS_RD
RST ToBIOS
RET C
LD B,A
LD A,ACEX.HOLD
LD C,BIOS.SET_PORTS
JP ToBIOS
; ; ;
;******************************************** ;********************************************
EXIT_TO_DSS: DI EXIT_TO_DSS: DI
LD SP,stack_point LD SP,stack_point
@ -933,6 +945,8 @@ EXIT_TO_DSS: DI
LD A,(#FFF0) ;!HARDCODE LD A,(#FFF0) ;!HARDCODE
OUT (SLOT0),A OUT (SLOT0),A
CALL RESTORE_PORT_HOLD
XOR A XOR A
LD BC,3*256+BIOS.SET_PAL_INIT ; SET IBM PAL LD BC,3*256+BIOS.SET_PAL_INIT ; SET IBM PAL
RST ToBIOS RST ToBIOS
@ -1098,6 +1112,8 @@ RESET_TO_ZX: DI
LD BC,ACEX.AY_FFFD_WRITE*256 + BIOS.DCP_CONFIG LD BC,ACEX.AY_FFFD_WRITE*256 + BIOS.DCP_CONFIG
RST ToBIOS RST ToBIOS
; ;
CALL RESTORE_PORT_HOLD
;
;[x] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD ;[x] 04/11/2023 Žâ¤¥«ì­ë¥ à ¬¤¨áª¨ ¤«ï ०¨¬  ᯥªâà㬠 ¨ DSS. BLK_TO_RAMD
LD BC,BIOS.SWAP_RAM_DRIVES.ZX LD BC,BIOS.SWAP_RAM_DRIVES.ZX
RST ToBIOS RST ToBIOS