Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-15 19:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Fix #259 (SHR mode graphics background colour init)

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-10 20:34:14 -05:00
parent 21421d1737
commit 3952506523
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

11
auxmem.vdu.s
View File

@ -1017,26 +1017,29 @@ VDU20
VDU20LP STA TXTFGD,X ; Clear all colours VDU20LP STA TXTFGD,X ; Clear all colours
DEX ; and gcol actions DEX ; and gcol actions
BPL VDU20LP BPL VDU20LP
LDA #$80 LDA #$80 ; Black background
JSR SETTCOL ; Set txt background JSR SETTCOL ; Set txt background
LDX #$00 LDX #$00 ; GCOL 'set' mode
LDA #$80 LDA #$80 ; Black background
JSR HGRSETGCOL ; Set HGR background JSR HGRSETGCOL ; Set HGR background
BIT VDUBANK BIT VDUBANK
BPL :S1 ; Skip if not GS BPL :S1 ; Skip if not GS
LDX #$00 ; GCOL 'set' mode
LDA #$80 ; Black background
JSR SHRSETGCOL ; Set SHR background JSR SHRSETGCOL ; Set SHR background
:S1 LDA VDUCOLOURS :S1 LDA VDUCOLOURS
AND #$07 AND #$07
PHA PHA
STA TXTFGD ; Note txt foreground STA TXTFGD ; Note txt foreground
JSR SETTCOL ; Set txt foreground JSR SETTCOL ; Set txt foreground
LDX #$00 LDX #$00 ; GCOL 'set' mode
PLA PLA
STA GFXFGD ; Note gfx foreground STA GFXFGD ; Note gfx foreground
JSR HGRSETGCOL ; Set gfx foreground JSR HGRSETGCOL ; Set gfx foreground
BIT VDUBANK BIT VDUBANK
BPL :S2 ; Skip if not GS BPL :S2 ; Skip if not GS
LDX #$00 ; Default GCOL action LDX #$00 ; Default GCOL action
LDA #$07 ; White
JSR SHRSETGCOL ; Set SHR foreground JSR SHRSETGCOL ; Set SHR foreground
:S2 RTS :S2 RTS