reset ZX flag in Spec_Page when RAM BlockID #1 is freed

This commit is contained in:
Anatoliy Belyanskiy 2023-12-09 05:21:37 +10:00
parent 67d48d6ae5
commit 9f164542df
2 changed files with 20 additions and 1 deletions

View File

@ -231,7 +231,8 @@ EMM.FreeMem:
AND A
SCF
RET Z
CP ZX_RAM_ID
CALL Z,SET_ROM_FLAG_ZX
LD L,A
IN A,(SLOT3)
EX AF,AF'

View File

@ -331,4 +331,22 @@ REINIT: DEC B
JR .loop2
;
;----------------------------------------------------------------------;
;
;
;----------------------------------------------------------------------;
SET_ROM_FLAG_ZX:
LD C,A
IN A,(SLOT3)
PUSH AF
LD A,Spec_Page
OUT (SLOT3),A
XOR A
LD (Spec_Page.flag_Z),A
LD (Spec_Page.flag_X),A
POP AF
OUT (SLOT3),A
LD A,C
RET
;----------------------------------------------------------------------;
;