-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathbastkn.inc
129 lines (125 loc) · 3.25 KB
/
bastkn.inc
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
; BASIC-11 tokens
T.PLS equ 0A5h ; '+'
T.MIN equ 0A6h ; '-'
T.UMIN equ 0A2h ; unary minus
T.MUL equ 0A3h ; '*'
T.DIV equ 0A4h ; '/'
T.PWR equ 0A1h ; '^'
T.LPAR equ 0B4h ; '('
T.RPAR equ 0A9h ; ')'
T.EOL equ 080h ; '\'
T.CONC equ 0A0h ; '&'
T.SEM equ 0A8h ; ';'
T.COM equ 0ADh ; ','
T.LE equ 0AEh ; '<='
T.GE equ 0AFh ; '>='
T.NE equ 0B0h ; '<>'
T.LT equ 0B1h ; '<'
T.GT equ 0B2h ; '>'
T.EQ equ 0B3h ; '='
T.DBLQ equ 0B5h ; '"'
T.SNGQ equ 0B6h ; "'"
T.COLN equ 0B7h ; ':'
T.FILN equ 0B8h ; '#'
T.TERM equ 0A7h ; end of expression on stack
T.IFE equ 08Bh ; 'IF END #'
T.LET equ 088h ; 'LET '
T.IF equ 08Ah ; 'IF '
T.GOTO equ 08Fh ; 'GO TO '
T.ON equ 090h ; 'ON '
T.FINP equ 0BCh ; ' FOR INPUT'
T.FOUT equ 0BAh ; ' FOR OUTPUT'
T.FOR equ 089h ; 'FOR '
T.TO equ 0AAh ; ' TO '
T.NEXT equ 08Ch ; 'NEXT '
T.THEN equ 0ACh ; ' THEN '
T.STEP equ 0ABh ; ' STEP '
T.GSUB equ 08Eh ; 'GOSUB '
T.RET equ 08Dh ; 'RETURN'
T.INP equ 091h ; 'INPUT '
T.LINP equ 092h ; 'LINPUT '
T.PRNT equ 093h ; 'PRINT '
T.USNG equ 0C1h ; 'USING '
T.REM equ 083h ; 'REM'
T.DEF equ 084h ; 'DEF '
T.READ equ 094h ; 'READ '
T.DATA equ 085h ; 'DATA '
T.CALL equ 086h ; 'CALL '
T.FN equ 0B9h ; 'FN'
T.PI equ 0D8h ; 'PI'
T.SYS equ 0C4h ; 'SYS('
T.RCO equ 0C5h ; 'RCTRLO'
T.ABO equ 0C6h ; 'ABORT('
T.TTYS equ 0C7h ; 'TTYSET('
T.CC equ 0C8h ; 'CTRLC'
T.RCC equ 0C9h ; 'RCTRLC'
T.RNDP equ 0CAh ; 'RND('
T.RND equ 0CBh ; 'RND'
T.SIN equ 0DCh ; 'SIN('
T.COS equ 0DDh ; 'COS('
T.SQR equ 0DEh ; 'SQR('
T.ATN equ 0DFh ; 'ATN('
T.EXP equ 0E0h ; 'EXP('
T.LOG equ 0E1h ; 'LOG('
T.LG10 equ 0E2h ; 'LOG10('
T.ABS equ 0CCh ; 'ABS('
T.INT equ 0D9h ; 'INT('
T.SGN equ 0CDh ; 'SGN('
T.TAB equ 0C3h ; 'TAB('
T.BIN equ 0CEh ; 'BIN('
T.OCT equ 0CFh ; 'OCT('
T.CHR equ 0D2h ; 'CHR$('
T.LEN equ 0D0h ; 'LEN('
T.ASC equ 0D1h ; 'ASC('
T.POS equ 0D3h ; 'POS('
T.SEG equ 0D4h ; 'SEG$('
T.VAL equ 0D5h ; 'VAL('
T.TRM equ 0D6h ; 'TRM$('
T.DAT equ 0DAh ; 'DAT$'
T.CLK equ 0DBh ; 'CLK$'
T.STR equ 0D7h ; 'STR$('
T.OPEN equ 09Ah ; 'OPEN '
T.CLSE equ 09Bh ; 'CLOSE '
T.CHN equ 09Ch ; 'CHAIN '
T.OVL equ 09Dh ; 'OVERLAY '
T.ASF equ 0BBh ; ' AS FILE '
T.KILL equ 09Eh ; 'KILL '
T.NAME equ 09Fh ; 'NAME '
T.RCSZ equ 0BEh ; ' RECORDSIZE '
T.FSZ equ 0BFh ; ' FILESIZE '
T.MODE equ 0C0h ; ' MODE '
T.DBUF equ 0BDh ; ' DOUBLE BUF'
T.LINE equ 0C2h ; ' LINE '
T.DIM equ 081h ; 'DIM '
T.COMN equ 082h ; 'COMMON '
T.RDMZ equ 097h ; 'RANDOMIZE'
T.RES equ 095h ; 'RESTORE '
T.RST equ 096h ; 'RESET '
T.STOP equ 087h ; 'STOP'
T.END equ 098h ; 'END'
T.EOF equ 099h ; end of program
T.TEXT equ 0FAh ; text follows
T.UNS equ 092h ; 'UNSAVE'
T.REN equ 089h ; 'RENAME'
T.NEW equ 08Ah ; 'NEW'
T.RPLC equ 091h ; 'REPLACE'
T.DEL equ 087h ; 'DEL'
T.SUB equ 088h ; 'SUB'
T.LNH equ 086h ; 'LISTNH'
T.RNH equ 08Eh ; 'RUNNH'
T.LIST equ 085h ; 'LIST'
T.RUN equ 08Dh ; 'RUN'
T.SAVE equ 08Fh ; 'SAVE'
T.CMPL equ 090h ; 'COMPILE'
T.APND equ 08Bh ; 'APPEND'
T.OLD equ 08Ch ; 'OLD'
T.SCR equ 081h ; 'SCR'
T.CLR equ 080h ; 'CLEAR'
T.LENG equ 082h ; 'LENGTH'
T.BYE equ 084h ; 'BYE'
T.RSEQ equ 083h ; 'RESEQ'
T.CAT equ 093h ; 'CAT'
T.CMD equ 0E3h ; direct statement follows
T.LFLT equ 0FCh ; float value follows
T.LBYT equ 0FDh ; integer byte value follows
T.LINT equ 0FEh ; integer word value follows