Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-09 11:29:40 +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
* X=txt colour
* A=txt colour
HSCRSETTCOL RTS
* X=gfx colour, A=gcol action
* A=gfx colour, X=gcol action
* GCOL actions:
* 0 = SET pixel
* 1 = ORA with pixel
@ -74,15 +74,14 @@ HSCRSETTCOL RTS
* 5 = NUL no change to pixel
* 6 = CLR clear pixel to background
* 7 = UND undefined
HSCRSETGCOL PHX
LDX #$00 ; Normal drawing mode
CMP #$04 ; k=4 means toggle
HSCRSETGCOL PHA
LDA #$00 ; Normal drawing mode
CPX #$04 ; k=4 means toggle
BNE :NORM
LDX #$01 ; Change to toggle mode
LDA #$01 ; Change to toggle mode
:NORM >>> WRTMAIN
TXA
STX LINETYPE
STX FDRAWADDR+5
STA LINETYPE
STA FDRAWADDR+5
>>> WRTAUX
>>> XF2MAIN,SETLINE
VDU18RET1 >>> ENTAUX

5
auxmem.vdu.s
View File

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