Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-25 15:29:37 +00:00
Code Issues Projects Releases Wiki Activity

Fix HGR drawing colour (MODE 2).

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-18 17:39:35 -04:00
parent 9e6f18c6fe
commit c5f4d72d55
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

12
auxmem.vdu.s
View File

@ -594,8 +594,9 @@ VDU16RET >>> ENTAUX
VDU17 RTS
* VDU 18 - GCOL k,a - select graphics colour and plot action
VDU18 >>> WRTMAIN
LDA VDUQ+8
VDU18 LDA VDUQ+8
STA HCOLOR
>>> WRTMAIN
STA Entry+5
>>> WRTAUX
>>> XF2MAIN,SETCOLOR
@ -623,6 +624,8 @@ VDU25 LDA VDUQ+4
CMP #$04 ; Move absolute
BEQ HGRPOS ; Just update pos
:NOTMOVE >>> WRTMAIN
LDA HCOLOR
STA Entry+5 ; Colour
LDA XPIXEL+0
STA Entry+6
LDA XPIXEL+1
@ -650,8 +653,9 @@ HGRPOS LDA VDUQ+5
LDA VDUQ+8
STA YPIXEL+1
RTS
XPIXEL DW $0000
YPIXEL DW $0000
XPIXEL DW $0000 ; Previous plot x-coord
YPIXEL DW $0000 ; Previous plot y-coord
HCOLOR DB $00 ; High res colour
* VDU 26 - Reset to default windows
VDU26 RTS

3
mainmem.svc.s
View File

@ -1069,8 +1069,6 @@ SETCOLOR >>> ENTMAIN
* Call FDraw DrawLine routine
DRAWLINE >>> ENTMAIN
LDA #7 ; TEMP
STA Entry+5 ; TEMP Color 7
JSR Entry+16 ; FDRAW: SetColor
JSR Entry+28 ; FDRAW: DrawLine
>>> XF2AUX,VDU25RET
@ -1078,4 +1076,3 @@ DRAWLINE >>> ENTMAIN