Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-08 08:30:01 +00:00
Code Issues Projects Releases Wiki Activity

Reworking GCOL handling to call SHR routines also.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-12-30 01:13:18 -05:00
parent 5780da59fe
commit c3367bfc82
3 changed files with 40 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

26
auxmem.shr.s
View File

@ -555,7 +555,16 @@ SHRCLEAR PHP ; Disable interrupts
* Set text colour
* A=txt colour
* A=gfx colour, X=gcol action
* GCOL actions:
* 0 = SET pixel
* 1 = ORA with pixel
* 2 = AND with pixel
* 3 = XOR with pixel
* 4 = NOT pixel
* 5 = NUL no change to pixel
* 6 = CLR clear pixel to background
* 7 = UND undefined
SHRSETTCOL PHA
LDX VDUPIXELS ; Pixels per byte
CPX #$02 ; 2 is 320-mode (MODE 1)
@ -616,6 +625,21 @@ SHRSETTCOL PHA
DB $FF
* Set graphics colour
* A=gfx colour, X=gcol action
* GCOL actions:
* 0 = SET pixel
* 1 = ORA with pixel
* 2 = AND with pixel
* 3 = XOR with pixel
* 4 = NOT pixel
* 5 = NUL no change to pixel
* 6 = CLR clear pixel to background
* 7 = UND undefined
SHRSETGCOL
RTS
* Set up default palette
SHRDEFPAL LDY #00 ; Palette offset for 320 mode
LDA VDUPIXELS ; Pixels per byte

20
auxmem.vdu.s
View File

@ -924,8 +924,11 @@ VDU20LP STA TXTFGD,X ; Clear all colours
JSR SETTCOL ; Set txt background
LDX #$00
LDA #$80
JSR HGRSETGCOL ; Set gfx background
LDA VDUCOLOURS
JSR HGRSETGCOL ; Set HGR background
BIT VDUBANK
BPL :S1 ; Skip if not GS
JSR SHRSETGCOL ; Set SHR background
:S1 LDA VDUCOLOURS
AND #$07
PHA
STA TXTFGD ; Note txt foreground
@ -933,7 +936,11 @@ VDU20LP STA TXTFGD,X ; Clear all colours
LDX #$00
PLA
STA GFXFGD ; Note gfx foreground
JMP HGRSETGCOL ; Set gfx foreground
JSR HGRSETGCOL ; Set gfx foreground
BIT VDUBANK
BPL :S2 ; Skip if not GS
JSR SHRSETGCOL ; Set SHR background
:S2 RTS
* VDU 17 - COLOUR n - select text or border colour
VDU17 LDA VDUQ+8
@ -947,7 +954,7 @@ VDU17BORDER AND #$0F
STA CLOCKCTL
RTS
* Helper function
* Helper function to set text FG/BG colour in HGR & SHR modes
SETTCOL JSR HGRSETTCOL ; Set txt foreground
BIT VDUBANK
BPL :NOTGS
@ -968,7 +975,10 @@ VDU18A LDA VDUQ+7 ; GCOL action
PLA
AND VDUCOLOURS
STA GFXFGD-2,Y ; Store GCOL colour
TAY
BIT VDUBANK
BPL :S1 ; Skip if not GS
JSR SHRSETGCOL ; Set SHR background
:S1 TAY
LDA CLRTRANS8,Y ; Trans. to physical
PHP
ROL A