Apple-2-SW/WeeGUI
1
0
Fork 0
mirror of https://github.com/blondie7575/WeeGUI.git synced 2024-06-20 02:29:27 +00:00
Code Issues Projects Releases Wiki Activity

- Added &PLOT

Browse Source
This commit is contained in:
Quinn Dunki 2014-09-25 17:41:41 -07:00
parent 6872fa5af0
commit cd35b7d1b3
2 changed files with 31 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
applesoft.s
View File

@ -38,6 +38,7 @@ TOKEN_HOME = $97 ; Applesoft's token for HOME
TOKEN_PRINT = $ba ; Applesoft's token for PRINT
TOKEN_MINUS = $c9 ; Applesoft's token for a minus sign
TOKEN_DRAW = $94 ; Applesoft's token for DRAW
TOKEN_PLOT = $8d ; Applesoft's token for PLOT
ERR_UNDEFINEDFUNC = 224
ERR_SYNTAX = 16
@ -825,6 +826,33 @@ WGAmpersand_PNTA:
rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; WGAmpersand_PLOT
; Plots a single character (in Apple format)
; &PLOT(x,y,value)
WGAmpersand_PLOT:
jsr WGAmpersandBeginArguments
jsr WGAmpersandIntArgument
sta WG_CURSORX
jsr WGAmpersandNextArgument
jsr WGAmpersandIntArgument
sta WG_CURSORY
jsr WGAmpersandNextArgument
jsr WGAmpersandIntArgument
pha
jsr WGAmpersandEndArguments
pla
jsr WGPlot
jsr WGBottomCursor
rts
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -995,6 +1023,9 @@ WGAmpersandCommandTable:
.byte "PNTA",0,0
.addr WGAmpersand_PNTA
.byte TOKEN_PLOT,0,0,0,0,0
.addr WGAmpersand_PLOT
;.byte TOKEN_GOSUB,0,0,0,0,0,0,0,0,0,0,0,0,0 ; For internal testing of the procedural gosub
;.addr WGAmpersand_GOSUB

BIN
guidemo.dsk
View File

Binary file not shown.