Upload files to "basic"

2026-05-07 10:02:50 +12:00
parent 181f828ebc
commit 5fd7765f53
32 changed files with 4764 additions and 0 deletions
@@ -0,0 +1,144 @@
+addprc	=1
+romloc	=$a000          ;vic-40 basic rom
+linlen	=40             ;vic screen size ?why?
+buflen	=89             ;vic buffer
+bufpag	=2
+buf	=512
+stkend	=507
+clmwid	=10             ;print window 10 chars
+pi	=255
+numlev	=23
+strsiz	=3
+.segment "ZPBASIC" : zeropage
+blank0	.res 3           ;6510 register area
+adray1	.res 2           ;convert float->integer
+adray2	.res 2           ;convert integer->float
+integr
+charac	.res 1
+endchr	.res 1
+trmpos	.res 1
+verck	.res 1
+count	.res 1
+dimflg	.res 1
+valtyp	.res 1
+intflg	.res 1
+garbfl
+dores	.res 1
+subflg	.res 1
+inpflg	.res 1
+domask
+tansgn	.res 1
+channl	.res 1
+poker
+linnum	.res 2
+temppt	.res 1
+lastpt	.res 2
+tempst	.res 9
+index
+index1	.res 2
+index2	.res 2
+resho	.res 1
+resmoh	.res 1
+addend
+resmo	.res 1
+reslo	.res 1
+	.res 1
+txttab	.res 2
+vartab	.res 2
+arytab	.res 2
+strend	.res 2
+fretop	.res 2
+frespc	.res 2
+memsiz	.res 2
+curlin	.res 2
+oldlin	.res 2
+oldtxt	.res 2
+datlin	.res 2
+datptr	.res 2
+inpptr	.res 2
+varnam	.res 2
+fdecpt	
+varpnt	.res 2
+lstpnt
+andmsk
+forpnt	.res 2
+eormsk	=forpnt+1
+vartxt
+opptr	.res 2
+opmask	.res 1
+grbpnt
+tempf3
+defpnt	.res 2
+dscpnt	.res 2
+	.res 1
+four6	.res 1
+jmper	.res 1
+size	.res 1
+oldov	.res 1
+tempf1	.res 1
+arypnt
+highds	.res 2
+hightr	.res 2
+tempf2
+	.res 1
+deccnt
+lowds	.res 2
+grbtop
+dptflg
+lowtr	.res 1
+expsgn	.res 1
+tenexp	=lowds+1
+epsgn	=lowtr+1
+dsctmp
+fac
+facexp	.res 1
+facho	.res 1
+facmoh	.res 1
+indice
+facmo	.res 1
+faclo	.res 1
+facsgn	.res 1
+degree
+sgnflg	.res 1
+bits	.res 1
+argexp	.res 1
+argho	.res 1
+argmoh	.res 1
+argmo	.res 1
+arglo	.res 1
+argsgn	.res 1
+strngi
+arisgn	.res 1
+facov	.res 1
+bufptr
+strng2
+polypt
+curtol
+fbufpt	.res 2
+chrget	.res 6
+chrgot	.res 1
+txtptr	.res 6
+qnum	.res 10
+chrrts	.res 1
+rndx	.res 5
+
+	.segment "STRTMP" : zeropage
+lofbuf	.res 1
+fbuffr	.res 1
+strng1	=arisgn
+;
+	.segment "BVECTORS" ;basic indirects
+ierror	.res 2           ;indirect error (output error in .x)
+imain	.res 2           ;indirect main (system direct loop)
+icrnch	.res 2           ;indirect crunch (tokenization routine)
+iqplop	.res 2           ;indirect list (char list)
+igone	.res 2           ;indirect gone (char dispatch)
+ieval	.res 2           ;indirect eval (symbol evaluation)
+;temp storage untill system intergration
+; sys 6502 regs
+sareg	.res 1           ;.a reg
+sxreg	.res 1           ;.x reg
+syreg	.res 1           ;.y reg
+spreg	.res 1           ;.p reg
+usrpok	.res 3           ;user function dispatch
+