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

Circle drawing implemented.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-10-10 18:07:58 -04:00
parent c0d00c27e5
commit 6cff1b8eb2
2 changed files with 23 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.

27
auxmem.gfx.s
View File

@ -140,10 +140,16 @@ HGRPLOTABS LDA VDUQ+4
BNE HGRPLOTACT BNE HGRPLOTACT
HGRPLOTPOS JMP HGRPOS ; Just update pos HGRPLOTPOS JMP HGRPOS ; Just update pos
HGRPLOTACT LDA VDUQ+4 HGRPLOTACT LDA VDUQ+4
AND #$C0 AND #$F0
CMP #$40 ; Bit 7 clr, bit 6 set -> point CMP #$00
BNE :LINE BEQ :LINE
>>> WRTMAIN CMP #$40
BEQ :POINT
CMP #$90
BNE :UNDEF
JMP :CIRC
:UNDEF RTS
:POINT >>> WRTMAIN
LDA VDUQ+4 LDA VDUQ+4
STA PLOTMODE STA PLOTMODE
LDA VDUQ+5 LDA VDUQ+5
@ -171,6 +177,19 @@ HGRPLOTACT LDA VDUQ+4
STA FDRAWADDR+11 ; Y1 STA FDRAWADDR+11 ; Y1
>>> WRTAUX >>> WRTAUX
>>> XF2MAIN,DRAWLINE >>> XF2MAIN,DRAWLINE
:CIRC >>> WRTMAIN
LDA VDUQ+4
STA PLOTMODE
LDA XPIXEL+0
STA FDRAWADDR+6
LDA XPIXEL+1
STA FDRAWADDR+7
LDA YPIXEL
STA FDRAWADDR+8
LDA VDUQ+5
STA FDRAWADDR+12 ; Radius
>>> WRTAUX
>>> XF2MAIN,DRAWCIRC
VDU25RET >>> ENTAUX VDU25RET >>> ENTAUX
* Fall through into HGRPOS * Fall through into HGRPOS
* Save pixel X,Y position * Save pixel X,Y position