6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-11-16 18:08:04 +00:00
Code Issues Projects Releases Wiki Activity

fix for getdefpalette

Browse Source
This commit is contained in:
xlar54 2024-06-16 16:06:38 -05:00
parent 6dbf5f528a
commit 6098ac2788
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
libsrc/cx16/tgi/cx640p1.s
View File

@ -96,6 +96,7 @@ TEMP3 = sreg ; HORLINE
SCRBASE: .res 1 ; High byte of screen base
BITMASK: .res 1 ; $00 = clear, $FF = set pixels
defpalette: .res 2
palette: .res 2
color: .res 1 ; Stroke and fill index
@ -121,7 +122,7 @@ ERROR: .byte TGI_ERR_OK ; Error code
.rodata
defpalette:
veracolors:
col_black: .byte %00000000, %00000000
col_white: .byte %11111111, %00001111
col_red: .byte %00000000, %00001000
@ -160,9 +161,9 @@ bitMasks2:
INSTALL:
; Create the default palette.
lda #$00
sta palette
sta defpalette
lda #$01
sta palette+1
sta defpalette+1
; Fall through.
@ -344,7 +345,7 @@ SETPALETTE:
lda palette
asl
tay
lda defpalette,y
lda veracolors,y
sta VERA::DATA0
inc VERA::ADDR ; $1FA01
@ -353,7 +354,7 @@ SETPALETTE:
asl
tay
iny ; second byte of color
lda defpalette,y
lda veracolors,y
sta VERA::DATA0
; set foreground color from palette color 1
@ -362,7 +363,7 @@ SETPALETTE:
lda palette+1
asl
tay
lda defpalette,y
lda veracolors,y
sta VERA::DATA0
inc VERA::ADDR ; $1FA03
@ -371,7 +372,7 @@ SETPALETTE:
asl
tay
iny ; second byte of color
lda defpalette,y
lda veracolors,y
sta VERA::DATA0
rts