Tolik-Trek/Spectrum.EXE
1
0
Fork 0
mirror of https://github.com/Tolik-Trek/Spectrum.EXE.git synced 2026-06-15 09:01: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
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
CALL RESTORE_PORT_HOLD
LD A,CNF_PORT.CNF_0
OUT (SYS_PORT.OFF),A
XOR A
LD BC,3*256+BIOS.SET_PAL_INIT ; SET IBM PAL
RST ToBIOS
@ -1104,10 +1111,10 @@ RESET_TO_ZX: DI
IN A,(ZXKeys)
AND #1F
CP #1E
JP Z,EXIT_TO_DSS
JP Z,EXIT_TO_DSS.cont
; ä¨ªá ­¥¯®«­®© ¤¥è¨äà æ¨¨ ¯®àâ  #FFFD (¯¨èãâ ¢ #C0FD)
LD A,#FF
.cont: LD A,#FF
LD HL,%00'010'1'1110'1101
LD DE,%10'111'1'1111'1111 ; CNF_0, CNF_1
LD BC,ACEX.AY_FFFD_WRITE*256 + BIOS.DCP_CONFIG