-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathTokens.def
208 lines (207 loc) · 6.01 KB
/
Tokens.def
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
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
;***********************************************************************
;*
;* Camputers Lynx 48k Token Definitions
;* ------------------------------------
;*
;* Lynx BASIC token values (taken from the Lynx "Mark II" source code,
;* Apr-1984). Included here for compatibility. These tokens map to
;* numeric values for basic keywords - used in the internal system
;* representation of user's code.
;*
;* Collation and formatting by: Mike Panter 06/11/2021.
;*
;* Include file for use with: Lynx_48k_Rom.ASM
;* ---------------------------------------------------------------------
;*
;
; Extracted from TABLES module
;
S EQU $80
MINUS EQU '-' ;
;
MEM EQU $80 ; $80
PI EQU MEM+1 ; $81
INKEY EQU PI+1 ; $82
RND EQU INKEY+1 ; $83
THL EQU RND+1 ; $84
LEN EQU THL+1 ; $85
VAL EQU LEN+1 ; $86
ASC EQU VAL+1 ; $87
HIMEM EQU ASC+1 ; $88
GET EQU HIMEM+1 ; $89
FNINK EQU GET+1 ; $8A
FNPAP EQU FNINK+1 ; $8B
POS EQU FNPAP+1 ; $8C
VPOS EQU POS+1 ; $8D
TRUE EQU VPOS+1 ; $8E
FALSE EQU TRUE+1 ; $8F
INF EQU FALSE+1 ; $90
BLACK EQU INF+1 ; $91
BLUE EQU BLACK+1 ; $92
RED EQU BLUE+1 ; $93
MGNTA EQU RED+1 ; $94
GREEN EQU MGNTA+1 ; $95
CYAN EQU GREEN+1 ; $96
YELLOW EQU CYAN+1 ; $97
WHITE EQU YELLOW+1 ; $98
ALPHA EQU WHITE+1 ; $99
GRPHIC EQU ALPHA+1 ; $9A
;
SIN EQU GRPHIC+1 ; $9B
COS EQU SIN+1 ; $9C
TAN EQU COS+1 ; $9D
EXP EQU TAN+1 ; $9E
LOG EQU EXP+1 ; $9F
ANTLOG EQU LOG+1 ; $A0
LN EQU ANTLOG+1 ; $A1
SGN EQU LN+1 ; $A2
ABS EQU SGN+1 ; $A3
INT EQU ABS+1 ; $A4
FRAC EQU INT+1 ; $A5
SQR EQU FRAC+1 ; $A6
PEEK EQU SQR+1 ; $A7
DPEEK EQU PEEK+1 ; $A8
INP EQU DPEEK+1 ; $A9
ATN EQU INP+1 ; $AA
FACT EQU ATN+1 ; $AB
ARCCOS EQU FACT+1 ; $AC
ARCSIN EQU ARCCOS+1 ; $AD
LOCTN EQU ARCSIN+1 ; $AE
BIN EQU LOCTN+1 ; $AF
DEG EQU BIN+1 ; $B0
RAD EQU DEG+1 ; $B1
RAND EQU RAD+1 ; $B2
LIGHTP EQU RAND+1 ; $B3
JOYSTK EQU LIGHTP+1 ; $B4
USER0 EQU JOYSTK+1 ; $B5
USER1 EQU USER0+1 ; $B6
USER2 EQU USER1+1 ; $B7
USER3 EQU USER2+1 ; $B8
TFONT EQU USER3+1 ; $B9
;
PARENS EQU TFONT+6 ; $BF
NOT EQU PARENS+1 ; $C0
NEGATE EQU NOT+1 ; $C1
FN0 EQU NEGATE+1 ; $C2
FN1 EQU FN0+1 ; $C3
ARRAY EQU FN1+1 ; $C4
POWER EQU ARRAY+1 ; $C5
MULT EQU POWER+1 ; $C6
DIVIDE EQU MULT+1 ; $C7
ADDQ EQU DIVIDE+1 ; $C8
SUBT EQU ADDQ+1 ; $C9
GEQUAL EQU SUBT+1 ; $CA
LEQUAL EQU GEQUAL+1 ; $CB
NEQUAL EQU LEQUAL+1 ; $CC
GREATER EQU NEQUAL+1 ; $CD
LESS EQU GREATER+1 ; $CE
EQUAL EQU LESS+1 ; $CF
ORQ EQU EQUAL+1 ; $D0
ANDQ EQU ORQ+1 ; $D1
BNOR EQU ANDQ+1 ; $D2
BNXOR EQU BNOR+1 ; $D3
BNAND EQU BNXOR+1 ; $D4
TDIV EQU BNAND+1 ; $D5
MOD EQU TDIV+1 ; $D6
;
THEN EQU MOD+1 ; $D7
OLABEL EQU THEN+1 ; $D8
AT EQU OLABEL+1 ; $D9
TON EQU AT+1 ; $DA
TOFF EQU TON+1 ; $DB
STEP EQU TOFF+1 ; $DC
TO EQU STEP+1 ; $DD
TAB EQU TO+1 ; $DE
CHR EQU TAB+1 ; $DF
LEFT EQU CHR+1 ; $E0
RIGHT EQU LEFT+1 ; $E1
MID EQU RIGHT+1 ; $E2
UPCS EQU MID+1 ; $E3
INKEYS EQU UPCS+1 ; $E4
GETS EQU INKEYS+1 ; $E5
STR EQU GETS+1 ; $E6
WORDS EQU $80 ; $80
;
; Extracted from JUMPS module (formerly called EXTRA)
;
LET EQU 0 ; $00
VDU EQU LET+1 ; $01
DEFPRC EQU VDU+1 ; $02
PROC EQU DEFPRC+1 ; $03
ENDPRC EQU PROC+1 ; $04
NEXT EQU ENDPRC+1 ; $05
INK EQU NEXT+1 ; $06
PAPER EQU INK+1 ; $07
RANDOM EQU PAPER+1 ; $08
VERIFY EQU RANDOM+1 ; $09
DOKE EQU VERIFY+1 ; $0A
POINT EQU DOKE+1 ; $0B
POKE EQU POINT+1 ; $0C
ENDQ EQU POKE+1 ; $0D
STOP EQU ENDQ+1 ; $0E
FOR EQU STOP+1 ; $0F
GOTO EQU FOR+1 ; $10
GOSUB EQU GOTO+1 ; $11
RETURN EQU GOSUB+1 ; $12
CLS EQU RETURN+1 ; $13
RUN EQU CLS+1 ; $14
CONT EQU RUN+1 ; $15
OUTQ EQU CONT+1 ; $16
REM EQU OUTQ+1 ; $17
READ EQU REM+1 ; $18
DATA EQU READ+1 ; $19
NEW EQU DATA+1 ; $1A
DELETE EQU NEW+1 ; $1B
AUTO EQU DELETE+1 ; $1C
PRINT EQU AUTO+1 ; $1D
LOADQ EQU PRINT+1 ; $1E
SAVE EQU LOADQ+1 ; $1F
RESTOR EQU SAVE+1 ; $20
PLOT EQU RESTOR+1 ; $21
MOVE EQU PLOT+1 ; $22
DRAW EQU MOVE+1 ; $23
CALLQ EQU DRAW+1 ; $24
INPUT EQU CALLQ+1 ; $25
DIM EQU INPUT+1 ; $26
IF EQU DIM+1 ; $27
LIST EQU IF+1 ; $28
WINDOW EQU LIST+1 ; $29
PAUSE EQU WINDOW+1 ; $2A
TROUND EQU PAUSE+1 ; $2B
TRAIL EQU TROUND+1 ; $2C
LPRINT EQU TRAIL+1 ; $2D
LLIST EQU LPRINT+1 ; $2E
LABEL EQU LLIST+1 ; $2F
BEEP EQU LABEL+1 ; $30
SOUND EQU BEEP+1 ; $31
APPEND EQU SOUND+1 ; $32
CODE EQU APPEND+1 ; $33
LINK EQU CODE+1 ; $34
ZSWAP EQU LINK+1 ; $35
WHILE EQU ZSWAP+1 ; $36
WEND EQU WHILE+1 ; $37
REPEAT EQU WEND+1 ; $38
UNTIL EQU REPEAT+1 ; $39
FTEXT EQU UNTIL+1 ; $3A
PRTABR EQU FTEXT+1 ; $3B
ELSE EQU PRTABR+1 ; $3C
RESERV EQU ELSE+1 ; $3D
MONITR EQU RESERV+1 ; $3E
RENUM EQU MONITR+1 ; $3F
DISK EQU RENUM+1 ; $40
EXT EQU DISK+1 ; $41
CFR EQU EXT+1 ; $42
CCHAR EQU CFR+1 ; $43
TRACE EQU CCHAR+1 ; $44
SPEED EQU TRACE+1 ; $45
PRTECT EQU SPEED+1 ; $46
TERROR EQU PRTECT+1 ; $47
TTAPE EQU TERROR+1 ; $48
TLOADM EQU TTAPE+1 ; $49
TEXT EQU TLOADM+1 ; $4A
BREAK EQU TEXT+1 ; $4B
LOW EQU BREAK+1 ; $4C
FAST EQU LOW+1 ; $4D
OLD EQU FAST+1 ; $4E
XTZZZ EQU OLD+1 ; $4F
; End TOKENS.DEF