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

Пробел при CAD меняет куда ресетится на противоположное

Browse Source
This commit is contained in:
Tolik 2024-07-09 23:46:57 +10:00
parent 58c4d075f0
commit 497530f842
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
spectrum.asm
View File

@ -939,14 +939,21 @@ RESTORE_PORT_HOLD:
;******************************************** ;********************************************
EXIT_TO_DSS: DI EXIT_TO_DSS: DI
LD SP,stack_point LD SP,stack_point
LD A,CNF_PORT.CNF_0
OUT (SYS_PORT.OFF),A
LD A,(#FFF0) ;!HARDCODE LD A,high ZXKeys.Line_7
IN A,(ZXKeys)
AND #1F
CP #1E
JP Z,RESET_TO_ZX.cont
.cont: LD A,(#FFF0) ;!HARDCODE
OUT (SLOT0),A OUT (SLOT0),A
CALL RESTORE_PORT_HOLD CALL RESTORE_PORT_HOLD
LD A,CNF_PORT.CNF_0
OUT (SYS_PORT.OFF),A
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
@ -1104,10 +1111,10 @@ RESET_TO_ZX: DI
IN A,(ZXKeys) IN A,(ZXKeys)
AND #1F AND #1F
CP #1E CP #1E
JP Z,EXIT_TO_DSS JP Z,EXIT_TO_DSS.cont
; ä¨ªá ­¥¯®«­®© ¤¥è¨äà æ¨¨ ¯®àâ  #FFFD (¯¨èãâ ¢ #C0FD) ; ä¨ªá ­¥¯®«­®© ¤¥è¨äà æ¨¨ ¯®àâ  #FFFD (¯¨èãâ ¢ #C0FD)
LD A,#FF .cont: LD A,#FF
LD HL,%00'010'1'1110'1101 LD HL,%00'010'1'1110'1101
LD DE,%10'111'1'1111'1111 ; CNF_0, CNF_1 LD DE,%10'111'1'1111'1111 ; CNF_0, CNF_1
LD BC,ACEX.AY_FFFD_WRITE*256 + BIOS.DCP_CONFIG LD BC,ACEX.AY_FFFD_WRITE*256 + BIOS.DCP_CONFIG