-
Notifications
You must be signed in to change notification settings - Fork 84
/
tokens
129 lines (129 loc) · 1.71 KB
/
tokens
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
.SKI 5
;STATEMENT DISPATCH TABLE
* =ROMLOC
.PAG
STMDSP .WOR END-1
.WOR FOR-1
.WOR NEXT-1
.WOR DATA-1
.WOR INPUTN-1
.WOR INPUT-1
.WOR DIM-1
.WOR READ-1
.WOR LET-1
.WOR GOTO-1
.WOR RUN-1
.WOR IF-1
.WOR RESTOR-1
.WOR GOSUB-1
.WOR RETURN-1
.WOR REM-1
.WOR STOP-1
.WOR ONGOTO-1
.WOR FNWAIT-1
.WOR CLOAD-1
.WOR CSAVE-1
.WOR CVERF-1
.WOR DEF-1
.WOR POKE-1
.WOR PRINTN-1
.WOR PRINT-1
.WOR CONT-1
.WOR LIST-1
.WOR CLEAR-1
.WOR CMD-1
.WOR CSYS-1
.WOR COPEN-1
.WOR CCLOS-1
.WOR GET-1
.WOR SCRATH-1
FUNDSP .WOR SGN
.WOR INT
.WOR ABS
USRLOC .WOR USRPOK
.WOR FRE
.WOR POS
.WOR SQR
.WOR RND
.WOR LOG
.WOR EXP
.WOR COS
.WOR SIN
.WOR TAN
.WOR ATN
.WOR PEEK
.WOR LEN
.WOR STRD
.WOR VAL
.WOR ASC
.WOR CHRD
.WOR LEFTD
.WOR RIGHTD
.WOR MIDD
OPTAB .BYT 121
.WOR FADDT-1
.BYT 121
.WOR FSUBT-1
.BYT 123
.WOR FMULTT-1
.BYT 123
.WOR FDIVT-1
.BYT 127
.WOR FPWRT-1
.BYT 80
.WOR ANDOP-1
.BYT 70
.WOR OROP-1
NEGTAB .BYT 125
.WOR NEGOP-1
NOTTAB .BYT 90
.WOR NOTOP-1
PTDORL .BYT 100
.WOR DOREL-1
.SKI 5
;RESERVED WORD LIST
.SKI
RESLST .BYT 'EN',$C4
ENDTK =@200
.BYT 'FO',$D2
FORTK =@201
.BYT 'NEX',$D4
.BYT 'DAT',$C1
DATATK =@203
.BYT 'INPUT',$A3
.BYT 'INPU',$D4
.BYT 'DI',$CD
.BYT 'REA',$C4
.BYT 'LE',$D4
.BYT 'GOT',$CF
GOTOTK =@211
.BYT 'RU',$CE
.BYT 'I',$C6
.BYT 'RESTOR',$C5
.BYT 'GOSU',$C2
GOSUTK =@215
.BYT 'RETUR',$CE
.BYT 'RE',$CD
REMTK =@217
.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 =@231
.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 =@242
.FIL TOKEN2