fix recent bank switching regression

This commit is contained in:
4am 2021-10-18 17:47:12 -04:00
parent 622e65929b
commit bbc2d71664
2 changed files with 14 additions and 12 deletions

View File

@ -209,35 +209,35 @@
; various language card configurations ; various language card configurations
!macro READ_RAM1_NO_WRITE { !macro READ_RAM1_NO_WRITE {
sta $C088 bit $C088
} }
!macro READ_RAM1_WRITE_RAM1 { !macro READ_RAM1_WRITE_RAM1 {
sta $C08B bit $C08B
sta $C08B bit $C08B
} }
!macro READ_RAM2_NO_WRITE { !macro READ_RAM2_NO_WRITE {
sta $C080 bit $C080
} }
!macro READ_RAM2_WRITE_RAM2 { !macro READ_RAM2_WRITE_RAM2 {
sta $C083 bit $C083
sta $C083 bit $C083
} }
!macro READ_ROM_WRITE_RAM1 { !macro READ_ROM_WRITE_RAM1 {
sta $C089 bit $C089
sta $C089 bit $C089
} }
!macro READ_ROM_WRITE_RAM2 { !macro READ_ROM_WRITE_RAM2 {
sta $C081 bit $C081
sta $C081 bit $C081
} }
!macro READ_ROM_NO_WRITE { !macro READ_ROM_NO_WRITE {
sta $C082 bit $C082
} }
; requires setting zpCharMask in zero page to #$FF or #$DF before use ; requires setting zpCharMask in zero page to #$FF or #$DF before use

View File

@ -86,10 +86,11 @@ Credits
ldx #0 ldx #0
stx VTAB stx VTAB
php ; save C, but Z=1 because of ldx #0 php ; save C, but Z=1 because of ldx #0
jsr SwitchToBank2
@drawLine @drawLine
lda $FF lda $FF
sta HTAB sta HTAB
jsr DrawString jsr DrawStringInternal
bmi @donePage bmi @donePage
clc clc
adc PTR adc PTR
@ -100,6 +101,7 @@ Credits
php php
beq @drawLine ; always branches beq @drawLine ; always branches
@donePage @donePage
jsr SwitchToBank1
plp plp
;end inline ;end inline
jsr ShowOtherPage ; show credits jsr ShowOtherPage ; show credits