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

Some more test graphics code.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2021-09-17 22:36:02 -04:00
parent 0ca648489f
commit 3b057cb7db
3 changed files with 23 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

19
auxmem.vdu.s
View File

@ -576,20 +576,26 @@ SCNTAB DW $800,$880,$900,$980,$A00,$A80,$B00,$B80
* Unimplemented
* May end up moving graphics bits to seperate source
* May end up moving graphics bits to separate source
* VDU 1 - Send one character to printer
VDU01 RTS
* VDU 16 - CLG, clear graphics window
VDU16 JSR Entry+22 ; FDRAW: Clear HGR screen
VDU16 >>> XF2MAIN,CLRHGR
VDU16RET >>> ENTAUX
RTS
* VDU 17 - COLOUR n - select text or border colour
VDU17 RTS
* VDU 18 - GCOL k,a - select graphics colour and plot action
VDU18 RTS
VDU18 >>> WRTMAIN
STA Entry+5
>>> WRTAUX
>>> XF2MAIN,SETCOLOR
VDU18RET >>> ENTAUX
RTS
* VDU 19 - Select palette colours
VDU19 RTS
@ -604,8 +610,7 @@ VDU23 RTS
VDU24 RTS
* VDU 25,k,x;y; - PLOT k,x;y; - PLOT point, line, etc.
VDU25
>>> WRTMAIN
VDU25 >>> WRTMAIN
STZ Entry+6 ; LSB of X0
STZ Entry+7 ; MSB of X0
STZ Entry+8 ; Y0
@ -617,9 +622,7 @@ VDU25
STA Entry+11 ; Y1
>>> WRTAUX
>>> XF2MAIN,DRAWLINE
VDU25RET
>>> ENTAUX
VDU25RET >>> ENTAUX
RTS
* VDU 26 - Reset to default windows

14
mainmem.svc.s
View File

@ -1057,10 +1057,20 @@ MAINRDMEM STA A1L
LDA (A1L)
MAINRDEXIT >>> XF2AUX,NULLRTS ; Back to an RTS
* Call FDraw Clear routine
CLRHGR >>> ENTMAIN
JSR Entry+22 ; FDRAW: Clear
>>> XF2AUX,VDU16RET
* Call FDraw SetColor routine
SETCOLOR >>> ENTMAIN
JSR Entry+16 ; FDRAW: SetColor
>>> XF2AUX,VDU18RET
* Call FDraw DrawLine routine
DRAWLINE >>> ENTMAIN
LDA #7
STA Entry+5 ; Color 7
LDA #7 ; TEMP
STA Entry+5 ; TEMP Color 7
JSR Entry+16 ; FDRAW: SetColor
JSR Entry+28 ; FDRAW: DrawLine
>>> XF2AUX,VDU25RET