Upload files to "basic"
This commit is contained in:
+127
@@ -0,0 +1,127 @@
|
||||
.segment "LOBASIC"
|
||||
.word init ;c000 hard reset
|
||||
.word panic ;c000 soft reset
|
||||
.byt "CBMBASIC"
|
||||
stmdsp .word end-1
|
||||
.word for-1
|
||||
.word next-1
|
||||
.word data-1
|
||||
.word inputn-1
|
||||
.word input-1
|
||||
.word dim-1
|
||||
.word read-1
|
||||
.word let-1
|
||||
.word goto-1
|
||||
.word run-1
|
||||
.word if-1
|
||||
.word restor-1
|
||||
.word gosub-1
|
||||
.word return-1
|
||||
.word rem-1
|
||||
.word stop-1
|
||||
.word ongoto-1
|
||||
.word fnwait-1
|
||||
.word cload-1
|
||||
.word csave-1
|
||||
.word cverf-1
|
||||
.word def-1
|
||||
.word poke-1
|
||||
.word printn-1
|
||||
.word print-1
|
||||
.word cont-1
|
||||
.word list-1
|
||||
.word clear-1
|
||||
.word cmd-1
|
||||
.word csys-1
|
||||
.word copen-1
|
||||
.word cclos-1
|
||||
.word get-1
|
||||
.word scrath-1
|
||||
fundsp .word sgn
|
||||
.word int
|
||||
.word abs
|
||||
usrloc .word usrpok
|
||||
.word fre
|
||||
.word pos
|
||||
.word sqr
|
||||
.word rnd
|
||||
.word log
|
||||
.word exp
|
||||
.word cos
|
||||
.word sin
|
||||
.word tan
|
||||
.word atn
|
||||
.word peek
|
||||
.word len
|
||||
.word strd
|
||||
.word val
|
||||
.word asc
|
||||
.word chrd
|
||||
.word leftd
|
||||
.word rightd
|
||||
.word midd
|
||||
optab .byt 121
|
||||
.word faddt-1
|
||||
.byt 121
|
||||
.word fsubt-1
|
||||
.byt 123
|
||||
.word fmultt-1
|
||||
.byt 123
|
||||
.word fdivt-1
|
||||
.byt 127
|
||||
.word fpwrt-1
|
||||
.byt 80
|
||||
.word andop-1
|
||||
.byt 70
|
||||
.word orop-1
|
||||
negtab .byt 125
|
||||
.word negop-1
|
||||
nottab .byt 90
|
||||
.word notop-1
|
||||
ptdorl .byt 100
|
||||
.word dorel-1
|
||||
q=128-1
|
||||
reslst .byt "EN",$c4
|
||||
endtk =$80
|
||||
.byt "FO",$d2
|
||||
fortk =$81
|
||||
.byt "NEX",$d4
|
||||
.byt "DAT",$c1
|
||||
datatk =$83
|
||||
.byt "INPUT",$a3
|
||||
.byt "INPU",$d4
|
||||
.byt "DI",$cd
|
||||
.byt "REA",$c4
|
||||
.byt "LE",$d4
|
||||
.byt "GOT",$cf
|
||||
gototk =$89
|
||||
.byt "RU",$ce
|
||||
.byt "I",$c6
|
||||
.byt "RESTOR",$c5
|
||||
.byt "GOSU",$c2
|
||||
gosutk =$8d
|
||||
.byt "RETUR",$ce
|
||||
.byt "RE",$cd
|
||||
remtk =$8f
|
||||
.byt "STO",$d0
|
||||
.byt "O",$ce
|
||||
.byt "WAI",$d4
|
||||
.byt "LOA",$c4
|
||||
.byt "SAV",$c5
|
||||
.byt "VERIF",$d9
|
||||
.byt "DE",$c6
|
||||
.byt "POK",$c5
|
||||
.byt "PRINT",$a3
|
||||
.byt "PRIN",$d4
|
||||
printk =$99
|
||||
.byt "CON",$d4
|
||||
.byt "LIS",$d4
|
||||
.byt "CL",$d2
|
||||
.byt "CM",$c4
|
||||
.byt "SY",$d3
|
||||
.byt "OPE",$ce
|
||||
.byt "CLOS",$c5
|
||||
.byt "GE",$d4
|
||||
.byt "NE",$d7
|
||||
scratk =$a2
|
||||
|
||||
Reference in New Issue
Block a user