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

Added PLOT 69,x,y point plotting

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-20 20:06:08 -04:00
parent 5c898db590
commit 56bea28ff9
3 changed files with 44 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

20
auxmem.vdu.s
View File

@ -638,8 +638,24 @@ VDU25 JSR CVTCOORD ; Convert coordinate system
:ABS LDA VDUQ+4
AND #$03
CMP #$0 ; Bits 0,1 clear -> just move
BEQ HGRPOS ; Just update pos
:NOTMOVE >>> WRTMAIN
BNE :NOTMOVE
JMP HGRPOS ; Just update pos
:NOTMOVE LDA VDUQ+4
AND #$C0
CMP #$40 ; Bit 7 clr, bit 6 set -> point
BNE :LINE
>>> WRTMAIN
LDA VDUQ+4
STA PLOTMODE
LDA VDUQ+5
STA Entry+6 ; LSB of X1
LDA VDUQ+6
STA Entry+7 ; MSB of X1
LDA VDUQ+7
STA Entry+8 ; Y1
>>> WRTAUX
>>> XF2MAIN,DRAWPNT
:LINE >>> WRTMAIN
LDA VDUQ+4
STA PLOTMODE
LDA XPIXEL+0

26
mainmem.svc.s
View File

@ -1093,6 +1093,32 @@ DRAWLINE >>> ENTMAIN
JSR Entry+28 ; FDRAW: DrawLine
>>> XF2AUX,VDU25RET
* Call FDraw DrawPoint routine
DRAWPNT >>> ENTMAIN
LDA PLOTMODE
AND #$03
CMP #$01 ; Draw in foreground colour
BNE :S1
LDA FGCOLOR
BRA :SETCOLOR
:S1 CMP #$02 ; Draw in inverse colour
BNE :S2
SEC
LDA #$07
SBC FGCOLOR
BRA :SETCOLOR
:S2 LDA BGCOLOR ; Draw in background colour
:SETCOLOR STA Entry+5
JSR Entry+16 ; FDRAW: SetColor
LDA PLOTMODE
AND #$C0
CMP #$40
BEQ :POINT
JSR Entry+28 ; FDRAW: DrawLine
>>> XF2AUX,VDU25RET
:POINT JSR Entry+25 ; FDRAW: DrawPoint
>>> XF2AUX,VDU25RET
* Reset colours and linetype
GFXINIT JSR Entry+0 ; Initialize FDRAW library
LDA #$20