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

Merged in JGH PR #110 'Tweaked GCOL Parms'

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-30 11:12:36 -04:00
parent 77fc32aad0
commit 426b375052
3 changed files with 10 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

17
auxmem.gfx.s
View File

@ -60,11 +60,11 @@ CLRLNRET >>> ENTAUX
RTS RTS
* X=txt colour * A=txt colour
HSCRSETTCOL RTS HSCRSETTCOL RTS
* X=gfx colour, A=gcol action * A=gfx colour, X=gcol action
* GCOL actions: * GCOL actions:
* 0 = SET pixel * 0 = SET pixel
* 1 = ORA with pixel * 1 = ORA with pixel
@ -74,15 +74,14 @@ HSCRSETTCOL RTS
* 5 = NUL no change to pixel * 5 = NUL no change to pixel
* 6 = CLR clear pixel to background * 6 = CLR clear pixel to background
* 7 = UND undefined * 7 = UND undefined
HSCRSETGCOL PHX HSCRSETGCOL PHA
LDX #$00 ; Normal drawing mode LDA #$00 ; Normal drawing mode
CMP #$04 ; k=4 means toggle CPX #$04 ; k=4 means toggle
BNE :NORM BNE :NORM
LDX #$01 ; Change to toggle mode LDA #$01 ; Change to toggle mode
:NORM >>> WRTMAIN :NORM >>> WRTMAIN
TXA STA LINETYPE
STX LINETYPE STA FDRAWADDR+5
STX FDRAWADDR+5
>>> WRTAUX >>> WRTAUX
>>> XF2MAIN,SETLINE >>> XF2MAIN,SETLINE
VDU18RET1 >>> ENTAUX VDU18RET1 >>> ENTAUX

5
auxmem.vdu.s
View File

@ -803,9 +803,8 @@ VDU18 LDA VDUQ+8 ; GCOL colour
PHP PHP
ROL A ROL A
PLP PLP
ROR A ROR A ; A=GCOL colour
TAX LDX VDUQ+7 ; X=GCOL action
LDA VDUQ+7 ; GCOL action
* TO DO: set local VDU variables * TO DO: set local VDU variables
JSR HSCRSETGCOL JSR HSCRSETGCOL
RTS RTS