-bug with ZX flag after ZX-ROM's inited

This commit is contained in:
Anatoliy Belyanskiy 2023-12-10 05:27:13 +10:00
parent 9f164542df
commit 0290fe13a9
3 changed files with 4 additions and 0 deletions

View File

@ -846,6 +846,7 @@ init_rom_address EQU #8200 ;!HARDCO
LDIR ; § ¡¨âì FF- ¬¨ LDIR ; § ¡¨âì FF- ¬¨
; áâ ¢¨¬ ¬¥âªã ¥á«¨ ¯à®£à㧨«¨ <20>‡“ ᯥªâà㬠 ; áâ ¢¨¬ ¬¥âªã ¥á«¨ ¯à®£à㧨«¨ <20>‡“ ᯥªâà㬠
DEC DE
LD A,'X' LD A,'X'
LD (DE),A LD (DE),A
DEC DE DEC DE

View File

@ -880,6 +880,7 @@ SWAP_RAM_DRIVES:
OUT (SLOT3),A OUT (SLOT3),A
; ;
LD A,(SYS_PAGE.CURRENT_RAM_DRV) LD A,(SYS_PAGE.CURRENT_RAM_DRV)
LD C,A
CP B CP B
JR Z,.exit ; 㦥 ãáâ ­®¢«¥­ § ¯à è¨¢ ¥¬ë© ­ ¡®à JR Z,.exit ; 㦥 ãáâ ­®¢«¥­ § ¯à è¨¢ ¥¬ë© ­ ¡®à
; ;
@ -903,9 +904,11 @@ SWAP_RAM_DRIVES:
LD A,(SYS_PAGE.CURRENT_RAM_DRV) LD A,(SYS_PAGE.CURRENT_RAM_DRV)
XOR #FF XOR #FF
LD (SYS_PAGE.CURRENT_RAM_DRV),A LD (SYS_PAGE.CURRENT_RAM_DRV),A
LD C,A
; ;
.exit: POP AF .exit: POP AF
OUT (SLOT3),A OUT (SLOT3),A
LD A,C
RET RET
;----------------------------------------------------------------------; ;----------------------------------------------------------------------;
; ;

Binary file not shown.