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

GCOL 4,x now enables XOR drawing.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-20 14:41:44 -04:00
parent 568d27e98c
commit 856d4f1b3f
3 changed files with 20 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.

17
auxmem.vdu.s
View File

@ -599,13 +599,23 @@ VDU16RET >>> ENTAUX
VDU17 RTS
* VDU 18 - GCOL k,a - select graphics colour and plot action
VDU18 LDA VDUQ+8
VDU18 LDA VDUQ+7 ; 'k'
CMP #$04 ; k=4 means XOR
LDA #$00 ; Normal drawing mode
BNE :NORM
LDA #$01 ; XOR mode
:NORM >>> WRTMAIN
STA Entry+5
>>> WRTAUX
>>> XF2MAIN,SETLINE
VDU18RET1 >>> ENTAUX
:NORM LDA VDUQ+8 ; 'a'
STA HCOLOR
>>> WRTMAIN
STA Entry+5
>>> WRTAUX
>>> XF2MAIN,SETCOLOR
VDU18RET >>> ENTAUX
VDU18RET2 >>> ENTAUX
RTS
* VDU 19 - Select palette colours
@ -659,7 +669,8 @@ HGRPOS LDA VDUQ+5
RTS
XPIXEL DW $0000 ; Previous plot x-coord
YPIXEL DW $0000 ; Previous plot y-coord
HCOLOR DB $00 ; High res colour
HCOLOR DB $00 ; High res foreground colour
BCOLOR DB $00 ; High res background colour
* VDU 26 - Reset to default windows
VDU26 RTS

7
mainmem.svc.s
View File

@ -1065,7 +1065,12 @@ CLRHGR >>> ENTMAIN
* Call FDraw SetColor routine
SETCOLOR >>> ENTMAIN
JSR Entry+16 ; FDRAW: SetColor
>>> XF2AUX,VDU18RET
>>> XF2AUX,VDU18RET2
* Call FDraw SetLineMode routine
SETLINE >>> ENTMAIN
JSR Entry+43 ; FDRAW: SetLineMode
>>> XF2AUX,VDU18RET1
* Call FDraw DrawLine routine
DRAWLINE >>> ENTMAIN