|
996
|
1 PLEASE NOTE: IACC FILE TO GENERATE A COMPILER FOR CLC-INTERCAL
|
|
|
2
|
|
|
3 Copyright (c) 2006-2008 Claudio Calvelli, all rights reserved.
|
|
|
4
|
|
|
5 CLC-INTERCAL is copyrighted software. However, permission to use, modify,
|
|
|
6 and distribute it is granted provided that the conditions set out in the
|
|
|
7 licence agreement are met. See files README and COPYING in the distribution.
|
|
|
8
|
|
|
9 PERVERSION "CLC-INTERCAL INTERCAL/Include/sick.iacc 1.-94.-2"
|
|
|
10
|
|
|
11 DO %BA <- #2
|
|
|
12 DO %RT <- ?CLC
|
|
|
13 DO %WT <- #0
|
|
|
14 DO %IO <- ?CLC
|
|
|
15 DO %CR <- ?ASCII
|
|
|
16 DO %CW <- ?ASCII
|
|
|
17 DO %CF <- #0
|
|
|
18 DO %DM <- #0
|
|
|
19 DO %RM <- #1
|
|
|
20 DO ?TYPE <- ?COMPILER
|
|
|
21 DO CREATE _2 ?PROGRAM ?STATEMENT AS ?STATEMENT #1
|
|
|
22 DO CREATE _2 ?CALC_EXPR ?EXPRESSION AS STS + * + ROU + #1 +
|
|
|
23 ?EXPRESSION #1
|
|
|
24 DO CREATE _2 ?CALC_EXPR ?CALCULATION AS STS + * + ?CALCULATION
|
|
|
25 #1
|
|
|
26 DO CREATE _2 ?CALC_FULL ?EXPRESSION AS STS + * + ROU + #1 +
|
|
|
27 ?EXPRESSION #1
|
|
|
28 DO CREATE _2 ?CALC_FULL ?STATEMENT AS ?STATEMENT #1
|
|
|
29 DO CREATE _2 ?END_JUNK ?STMT_LABEL AS ,,
|
|
|
30 DO CREATE _2 ?END_JUNK ?DO_PLEASE AS ,,
|
|
|
31 DO CREATE _2 ?STATEMENT ?MAYBE_STMT_LABEL ?DO_PLEASE
|
|
|
32 ?QUALIFIERS ?WVERB AS STS + * + ?MAYBE_STMT_LABEL #1 +
|
|
|
33 ?QUALIFIERS #1 + ?WVERB #1
|
|
|
34 DO CREATE _2 ?STMT_LABEL ,#40, ?CONSTANT ,#41, AS ?CONSTANT #1
|
|
|
35 DO CREATE _2 ?MAYBE_STMT_LABEL ,, AS ,,
|
|
|
36 DO CREATE _2 ?MAYBE_STMT_LABEL ?STMT_LABEL AS LAB + ?STMT_LABEL
|
|
|
37 #1
|
|
|
38 DO CREATE _2 ?DO_PLEASE ,DO, AS ,,
|
|
|
39 DO CREATE _2 ?DO_PLEASE ,PLEASE, AS ,,
|
|
|
40 DO CREATE _2 ?DO_PLEASE ,PLEASE, ,DO, AS ,,
|
|
|
41 DO CREATE _2 ?QUALIFIERS ,, AS ,,
|
|
|
42 DO CREATE _2 ?QUALIFIERS ?DOUBLE_OH_SEVEN ?QUALIFIERS AS
|
|
|
43 ?DOUBLE_OH_SEVEN #1 + ?QUALIFIERS #1
|
|
|
44 DO CREATE _2 ?QUALIFIERS ?NOT ?QUALIFIERS AS ?NOT #1 +
|
|
|
45 ?QUALIFIERS #1
|
|
|
46 DO CREATE _2 ?DOUBLE_OH_SEVEN ,#37, ?CONSTANT AS DSX +
|
|
|
47 ?CONSTANT #1
|
|
|
48 DO CREATE _2 ?DOUBLE_OH_SEVEN ,#37, ?EXPRESSION AS DSX +
|
|
|
49 ?EXPRESSION #1
|
|
|
50 DO CREATE _2 ?NOT ,NOT, AS NOT
|
|
|
51 DO CREATE _2 ?NOT ,N, ,#39, ,T, AS NOT
|
|
|
52 DO CREATE _2 ?NOT ,#172, AS NOT
|
|
|
53 DO CREATE _2 ?WVERB ?NOT ?JUNK AS NOT + MSP + #0 + #1 + ?JUNK
|
|
|
54 #1
|
|
|
55 DO CREATE _2 ?WVERB ?VERB ?MAYBE_WHILE AS ?MAYBE_WHILE #1 +
|
|
|
56 ?VERB #1
|
|
|
57 DO CREATE _2 ?WVERB ?EXPRESSION ,WHILE, ?VERB AS ECB +
|
|
|
58 ?EXPRESSION #1 + ?VERB #1
|
|
|
59 DO CREATE _2 ?MAYBE_WHILE ,, AS ,,
|
|
|
60 DO CREATE _2 ?MAYBE_WHILE ,WHILE, ?VERB AS CWB + ?VERB #1
|
|
|
61 DO CREATE _2 ?MAYBE_WHILE ,WHILE, ?EXPRESSION AS EBC +
|
|
|
62 ?EXPRESSION #1
|
|
|
63 DO CREATE _2 ?TEMPLATE ,CONDITION, ,WHILE, ,BODY, AS CWB
|
|
|
64 DO CREATE _2 ?TEMPLATE ,BODY, ,WHILE, ,CONDITION, AS BWC
|
|
|
65 DO CREATE _2 ?TEMPLATE ,EXPRESSION, ,WHILE, ,STATEMENT, AS ECB
|
|
|
66 DO CREATE _2 ?TEMPLATE ,STATEMENT, ,WHILE, ,EXPRESSION, AS EBC
|
|
|
67 DO CREATE _2 ?GERUND ,LOOPING,=4 AS CWB + BWC + ECB + EBC
|
|
|
68 DO CREATE _2 ?GERUND ,WHILING,=4 AS CWB + BWC + ECB + EBC
|
|
|
69 DO CREATE _2 ?GERUND ,COMMENTING,=1 AS MSP
|
|
|
70 DO CREATE _2 ?GERUND ,COMMENTS,=1 AS MSP
|
|
|
71 DO CREATE _2 ?GERUND ,COMPILER, ,BUG,=1 AS BUG
|
|
|
72 DO CREATE _2 ?GERUND ,QUANTUM, ,COMPUTING,=1 AS QUA
|
|
|
73 DO CREATE _2 ?CALCULATION ?EXPRESSION ,#60, ,#45, ?EXPR_OR_DIM
|
|
|
74 ?Q_CALCULATE AS ?Q_CALCULATE #1 + STO + ?EXPR_OR_DIM #1 +
|
|
|
75 ?EXPRESSION #1
|
|
|
76 DO CREATE _2 ?VERB ?CALCULATION AS ?CALCULATION #1
|
|
|
77 DO CREATE _2 ?GERUND ,CALCULATING,=1 AS STO
|
|
|
78 DO CREATE _2 ?TEMPLATE ?REG_EXPR ,#60, ,#45, ,EXPRESSION,
|
|
|
79 ?MAYBE_LIST AS STO
|
|
|
80 DO CREATE _2 ?Q_CALCULATE ,, AS ,,
|
|
|
81 DO CREATE _2 ?Q_CALCULATE ,WHILE, ,NOT, ,ASSIGNING, ,TO, ,IT,
|
|
|
82 AS QUA
|
|
|
83 DO CREATE _2 ?VERB ,STASH, ?NAMES ?Q_STASH AS ?Q_STASH #1 + STA
|
|
|
84 + !NAMES #1 + ?NAMES #1
|
|
|
85 DO CREATE _2 ?GERUND ,STASHING,=1 AS STA
|
|
|
86 DO CREATE _2 ?TEMPLATE ,STASH, ,REGISTER, ?MAYBE_LIST AS STA
|
|
|
87 DO CREATE _2 ?Q_STASH ,, AS ,,
|
|
|
88 DO CREATE _2 ?Q_STASH ,WHILE, ,NOT, ,STASHING, ?IT AS QUA
|
|
|
89 DO CREATE _2 ?VERB ,RETRIEVE, ?NAMES ?Q_RETRIEVE AS ?Q_RETRIEVE
|
|
|
90 #1 + RET + !NAMES #1 + ?NAMES #1
|
|
|
91 DO CREATE _2 ?GERUND ,RETRIEVING,=1 AS RET
|
|
|
92 DO CREATE _2 ?TEMPLATE ,RETRIEVE, ,REGISTER, ?MAYBE_LIST AS RET
|
|
|
93 DO CREATE _2 ?Q_RETRIEVE ,, AS ,,
|
|
|
94 DO CREATE _2 ?Q_RETRIEVE ,WHILE, ,NOT, ,RETRIEVING, ?IT AS QUA
|
|
|
95 DO CREATE _2 ?VERB ,IGNORE, ?NAMES ?Q_IGNORE AS ?Q_IGNORE #1 +
|
|
|
96 IGN + !NAMES #1 + ?NAMES #1
|
|
|
97 DO CREATE _2 ?GERUND ,IGNORING,=1 AS IGN
|
|
|
98 DO CREATE _2 ?TEMPLATE ,IGNORE, ,REGISTER, ?MAYBE_LIST AS IGN
|
|
|
99 DO CREATE _2 ?Q_IGNORE ,, AS ,,
|
|
|
100 DO CREATE _2 ?Q_IGNORE ,WHILE, ,REMEMBERING, ?IT AS QUA
|
|
|
101 DO CREATE _2 ?VERB ,REMEMBER, ?NAMES ?Q_REMEMBER AS ?Q_REMEMBER
|
|
|
102 #1 + REM + !NAMES #1 + ?NAMES #1
|
|
|
103 DO CREATE _2 ?GERUND ,REMEMBERING,=1 AS REM
|
|
|
104 DO CREATE _2 ?TEMPLATE ,REMEMBER, ,REGISTER, ?MAYBE_LIST AS REM
|
|
|
105 DO CREATE _2 ?Q_REMEMBER ,, AS ,,
|
|
|
106 DO CREATE _2 ?Q_REMEMBER ,WHILE, ,IGNORING, ?IT AS QUA
|
|
|
107 DO CREATE _2 ?VERB ,ABSTAIN, ,FROM, ?ABSTAIN ?Q_ABSTAIN AS
|
|
|
108 ?Q_ABSTAIN #1 + ?ABSTAIN #1
|
|
|
109 DO CREATE _2 ?ABSTAIN ?LABEL AS ABL + ?LABEL #1
|
|
|
110 DO CREATE _2 ?ABSTAIN ?GERUNDS AS ABG + !GERUNDS #1 + ?GERUNDS
|
|
|
111 #1
|
|
|
112 DO CREATE _2 ?GERUND ,ABSTAINING,=2 ,FROM, AS ABL + ABG
|
|
|
113 DO CREATE _2 ?GERUND ,ABSTAINING,=2 AS ABL + ABG
|
|
|
114 DO CREATE _2 ?TEMPLATE ,ABSTAIN, ,FROM, ,LABEL, AS ABL
|
|
|
115 DO CREATE _2 ?TEMPLATE ,ABSTAIN, ,FROM, ,GERUND, ?MAYBE_LIST AS
|
|
|
116 ABG
|
|
|
117 DO CREATE _2 ?Q_ABSTAIN ,, AS ,,
|
|
|
118 DO CREATE _2 ?Q_ABSTAIN ,WHILE, ,REINSTATING, ?IT AS QUA
|
|
|
119 DO CREATE _2 ?VERB ,REINSTATE, ?REINSTATE ?Q_REINSTATE AS
|
|
|
120 ?Q_REINSTATE #1 + ?REINSTATE #1
|
|
|
121 DO CREATE _2 ?REINSTATE ?LABEL AS REL + ?LABEL #1
|
|
|
122 DO CREATE _2 ?REINSTATE ?GERUNDS AS REG + !GERUNDS #1 +
|
|
|
123 ?GERUNDS #1
|
|
|
124 DO CREATE _2 ?GERUND ,REINSTATING,=2 AS REL + REG
|
|
|
125 DO CREATE _2 ?TEMPLATE ,REINSTATE, ,LABEL, AS REL
|
|
|
126 DO CREATE _2 ?TEMPLATE ,REINSTATE, ,GERUND, ?MAYBE_LIST AS REG
|
|
|
127 DO CREATE _2 ?GERUND ?TEMPLATE=1 AS ?TEMPLATE #1
|
|
|
128 DO CREATE _2 ?GERUNDS ?GERUND=* AS ?GERUND #1
|
|
|
129 DO CREATE _2 ?GERUNDS ?GERUND=* ,#43, ?GERUNDS=* AS ?GERUND #1
|
|
|
130 + ?GERUNDS #1
|
|
|
131 DO CREATE _2 ?Q_REINSTATE ,, AS ,,
|
|
|
132 DO CREATE _2 ?Q_REINSTATE ,WHILE, ,ABSTAINING, ,FROM, ?IT AS
|
|
|
133 QUA
|
|
|
134 DO CREATE _2 ?VERB ,GIVE, ,UP, ?Q_GIVE_UP AS ?Q_GIVE_UP #1 +
|
|
|
135 GUP
|
|
|
136 DO CREATE _2 ?GERUND ,GIVING, ,UP,=1 AS GUP
|
|
|
137 DO CREATE _2 ?GERUND ,GIVING,=1 AS GUP
|
|
|
138 DO CREATE _2 ?TEMPLATE ,GIVE, ,UP, AS GUP
|
|
|
139 DO CREATE _2 ?Q_GIVE_UP ,, AS ,,
|
|
|
140 DO CREATE _2 ?Q_GIVE_UP ,WHILE, ,CONTINUING, ,TO, ,RUN, AS QUA
|
|
|
141 DO CREATE _2 ?VERB ,WRITE, ,IN, ?E_LIST ?Q_WRITE_IN AS
|
|
|
142 ?Q_WRITE_IN #1 + WIN + !E_LIST #1 + ?E_LIST #1
|
|
|
143 DO CREATE _2 ?GERUND ,WRITING, ,IN,=1 AS WIN
|
|
|
144 DO CREATE _2 ?GERUND ,WRITING,=1 AS WIN
|
|
|
145 DO CREATE _2 ?TEMPLATE ,WRITE, ,IN, ?REG_EXPR ?MAYBE_LIST AS
|
|
|
146 WIN
|
|
|
147 DO CREATE _2 ?Q_WRITE_IN ,, AS ,,
|
|
|
148 DO CREATE _2 ?Q_WRITE_IN ,WHILE, ,NOT, ,WRITING, ?IT ?MAYBE_IN
|
|
|
149 AS QUA
|
|
|
150 DO CREATE _2 ?MAYBE_IN ,, AS ,,
|
|
|
151 DO CREATE _2 ?MAYBE_IN ,IN, AS ,,
|
|
|
152 DO CREATE _2 ?VERB ,READ, ,OUT, ?E_LIST AS ROU + !E_LIST #1 +
|
|
|
153 ?E_LIST #1
|
|
|
154 DO CREATE _2 ?GERUND ,READING, ,OUT,=1 AS ROU
|
|
|
155 DO CREATE _2 ?GERUND ,READING,=1 AS ROU
|
|
|
156 DO CREATE _2 ?TEMPLATE ,READ, ,OUT, ?REG_EXPR ?MAYBE_LIST AS
|
|
|
157 ROU
|
|
|
158 PLEASE NOTE: NO QUANTUM OUTPUT (YET)
|
|
|
159 DO CREATE _2 ?VERB ,COME, ,FROM, ?COME_FROM ?Q_COME_FROM AS
|
|
|
160 ?Q_COME_FROM #1 + ?COME_FROM #1
|
|
|
161 DO CREATE _2 ?COME_FROM ?LABEL AS CFL + ?LABEL #1
|
|
|
162 DO CREATE _2 ?COME_FROM ?GERUNDS AS CFG + !GERUNDS #1 +
|
|
|
163 ?GERUNDS #1
|
|
|
164 DO CREATE _2 ?GERUND ,COMING, ,FROM,=2 AS CFL + CFG
|
|
|
165 DO CREATE _2 ?GERUND ,COMING,=2 AS CFL + CFG
|
|
|
166 DO CREATE _2 ?TEMPLATE ,COME, ,FROM, ,LABEL, AS CFL
|
|
|
167 DO CREATE _2 ?TEMPLATE ,COME, ,FROM, ,GERUND, ?MAYBE_LIST AS
|
|
|
168 CFG
|
|
|
169 DO CREATE _2 ?Q_COME_FROM ,, AS ,,
|
|
|
170 DO CREATE _2 ?Q_COME_FROM ,WHILE, ,NOT, ,COMING, ,FROM, ,THERE,
|
|
|
171 AS QUA
|
|
|
172 DO CREATE _2 ?VERB ,ENSLAVE, ?RNAME ,TO, ?RNAME ?Q_ENSLAVE AS
|
|
|
173 ?Q_ENSLAVE #1 + ENS + ?RNAME #1 + ?RNAME #2
|
|
|
174 DO CREATE _2 ?GERUND ,ENSLAVING,=1 AS ENS
|
|
|
175 DO CREATE _2 ?TEMPLATE ,ENSLAVE, ,REGISTER, ,TO, ,REGISTER, AS
|
|
|
176 ENS
|
|
|
177 DO CREATE _2 ?Q_ENSLAVE ,, AS ,,
|
|
|
178 DO CREATE _2 ?Q_ENSLAVE ,WHILE, ,LEAVING, ,IT, ,FREE, AS QUA
|
|
|
179 DO CREATE _2 ?VERB ,FREE, ?RNAME ,FROM, ?RNAME ?Q_FREE AS
|
|
|
180 ?Q_FREE #1 + FRE + ?RNAME #1 + ?RNAME #2
|
|
|
181 DO CREATE _2 ?GERUND ,FREEING,=1 AS FRE
|
|
|
182 DO CREATE _2 ?TEMPLATE ,FREE, ,REGISTER, ,FROM, ,REGISTER, AS
|
|
|
183 FRE
|
|
|
184 DO CREATE _2 ?Q_FREE ,, AS ,,
|
|
|
185 DO CREATE _2 ?Q_FREE ,WHILE, ,LEAVING, ,IT, ,IN, ,SLAVERY, AS
|
|
|
186 QUA
|
|
|
187 DO CREATE _2 ?VERB ,STUDY, ?EXPRESSION ,AT, ?LABEL ,IN, ,CLASS,
|
|
|
188 ?RNAME ?Q_STUDY AS ?Q_STUDY #1 + STU + ?EXPRESSION #1 +
|
|
|
189 ?LABEL #1 + ?RNAME #1
|
|
|
190 DO CREATE _2 ?GERUND ,STUDYING,=1 AS STU
|
|
|
191 DO CREATE _2 ?TEMPLATE ,STUDY, ?EXPR_OR_SUBJECT ,AT, ,LABEL,
|
|
|
192 ,IN, ,CLASS, ,REGISTER, AS STU
|
|
|
193 DO CREATE _2 ?EXPR_OR_SUBJECT ,EXPRESSION, AS ,,
|
|
|
194 DO CREATE _2 ?EXPR_OR_SUBJECT ,SUBJECT, AS ,,
|
|
|
195 DO CREATE _2 ?Q_STUDY ,, AS ,,
|
|
|
196 DO CREATE _2 ?Q_STUDY ,WHILE, ,NOT, ,STUDYING, ,IT, AS QUA
|
|
|
197 DO CREATE _2 ?VERB ,ENROL, ?RNAME ,TO, ,LEARN, ?E_LIST ?Q_ENROL
|
|
|
198 AS ?Q_ENROL #1 + ENR + !E_LIST #1 + ?E_LIST #1 + ?RNAME #1
|
|
|
199 DO CREATE _2 ?GERUND ,ENROLLING,=1 AS ENR
|
|
|
200 DO CREATE _2 ?TEMPLATE ,ENROL, ,REGISTER, ,TO, ,LEARN,
|
|
|
201 ?EXPR_OR_SUBJECT ?MAYBE_LIST AS ENR
|
|
|
202 DO CREATE _2 ?Q_ENROL ,, AS ,,
|
|
|
203 DO CREATE _2 ?Q_ENROL ,WHILE, ,NOT, ,ENROLLING, AS QUA
|
|
|
204 DO CREATE _2 ?VERB ?RNAME ,LEARNS, ?EXPRESSION ?Q_LEARNS AS
|
|
|
205 ?Q_LEARNS #1 + LEA + ?EXPRESSION #1 + ?RNAME #1
|
|
|
206 DO CREATE _2 ?GERUND ,LEARNING,=1 AS LEA
|
|
|
207 DO CREATE _2 ?TEMPLATE ,REGISTER, ,LEARNS, ?EXPR_OR_SUBJECT AS
|
|
|
208 LEA
|
|
|
209 DO CREATE _2 ?Q_LEARNS ,, AS ,,
|
|
|
210 DO CREATE _2 ?Q_LEARNS ,WHILE, ,NOT, ,LEARNING, ,IT, AS QUA
|
|
|
211 DO CREATE _2 ?VERB ,FINISH, ,LECTURE, ?Q_FINISH AS ?Q_FINISH #1
|
|
|
212 + FIN
|
|
|
213 DO CREATE _2 ?GERUND ,FINISHING, ,LECTURE,=1 AS FIN
|
|
|
214 DO CREATE _2 ?GERUND ,FINISHING,=1 AS FIN
|
|
|
215 DO CREATE _2 ?TEMPLATE ,FINISH, ,LECTURE, AS FIN
|
|
|
216 DO CREATE _2 ?Q_FINISH ,, AS ,,
|
|
|
217 DO CREATE _2 ?Q_FINISH ,WHILE, ,CONTINUING, ,IT, AS QUA
|
|
|
218 DO CREATE _2 ?VERB ?RNAME ,GRADUATES, ?Q_GRADUATES AS
|
|
|
219 ?Q_GRADUATES #1 + GRA + ?RNAME #1
|
|
|
220 DO CREATE _2 ?GERUND ,GRADUATING,=1 AS GRA
|
|
|
221 DO CREATE _2 ?TEMPLATE ,REGISTER, ,GRADUATES, AS GRA
|
|
|
222 DO CREATE _2 ?Q_GRADUATES ,, AS ,,
|
|
|
223 DO CREATE _2 ?Q_GRADUATES ,WHILE, ,REMAINING, ,A, ,STUDENT, AS
|
|
|
224 QUA
|
|
|
225 DO CREATE _2 ?VERB ,NEXT, ,FROM, ?NEXT_FROM ?Q_NEXT_FROM AS
|
|
|
226 ?Q_NEXT_FROM #1 + ?NEXT_FROM #1
|
|
|
227 DO CREATE _2 ?NEXT_FROM ?LABEL AS NXL + ?LABEL #1
|
|
|
228 DO CREATE _2 ?MEXT_FROM ?GERUNDS AS NXG + !GERUNDS #1 +
|
|
|
229 ?GERUNDS #1
|
|
|
230 DO CREATE _2 ?GERUND ,NEXTING, ,FROM,=2 AS NXL + NXG
|
|
|
231 DO CREATE _2 ?TEMPLATE ,NEXT, ,FROM, ,LABEL, AS NXL
|
|
|
232 DO CREATE _2 ?TEMPLATE ,NEXT, ,FROM, ,GERUND, ?MAYBE_LIST AS
|
|
|
233 NXG
|
|
|
234 DO CREATE _2 ?Q_NEXT_FROM ,, AS ,,
|
|
|
235 DO CREATE _2 ?Q_NEXT_FROM ,WHILE, ,NOT, ,NEXTING, ,FROM,
|
|
|
236 ,THERE, AS QUA
|
|
|
237 DO CREATE _2 ?VERB ,CONVERT, ?TEMPLATE ,TO, ?TEMPLATE
|
|
|
238 ?Q_CONVERT AS ?Q_CONVERT #1 + CON + ?TEMPLATE #1 + ?TEMPLATE
|
|
|
239 #2
|
|
|
240 DO CREATE _2 ?GERUND ,CONVERTING,=3 AS CON
|
|
|
241 DO CREATE _2 ?TEMPLATE ,CONVERT, ,STATEMENT, ,TO, ,STATEMENT,
|
|
|
242 AS CON
|
|
|
243 DO CREATE _2 ?Q_CONVERT ,, AS ,,
|
|
|
244 DO CREATE _2 ?Q_CONVERT ,WHILE, ,LEAVING, ,IT, ,UNCHANGED, AS
|
|
|
245 QUA
|
|
|
246 DO CREATE _2 ?VERB ,SWAP, ?TEMPLATE ,AND, ?TEMPLATE ?Q_SWAP AS
|
|
|
247 ?Q_SWAP #1 + SWA + ?TEMPLATE #1 + ?TEMPLATE #2
|
|
|
248 DO CREATE _2 ?GERUND ,SWAPPING,=2 AS SWA
|
|
|
249 DO CREATE _2 ?TEMPLATE ,SWAP, ,STATEMENT, ,AND, ,STATEMENT, AS
|
|
|
250 SWA
|
|
|
251 DO CREATE _2 ?Q_SWAP ,, AS ,,
|
|
|
252 DO CREATE _2 ?Q_SWAP ,WHILE, ,LEAVING, ,THEM, ,UNCHANGED, AS
|
|
|
253 QUA
|
|
|
254 DO CREATE _2 ?VERB ,CREATE, ?GSYMBOL ?LEFT ,AS, ?RIGHT
|
|
|
255 ?Q_CREATE AS ?Q_CREATE #1 + CRE + #1 + ?GSYMBOL #1 + !LEFT
|
|
|
256 #1 + ?LEFT #1 + !RIGHT #1 + ?RIGHT #1
|
|
|
257 DO CREATE _2 ?GERUND ,CREATING,=1 AS CRE
|
|
|
258 DO CREATE _2 ?TEMPLATE ,CREATE, ,SYMBOL, ,LEFT, ,AS, ,RIGHT, AS
|
|
|
259 CRE
|
|
|
260 DO CREATE _2 ?Q_CREATE ,, AS ,,
|
|
|
261 DO CREATE _2 ?Q_CREATE ,WHILE, ,NOT, ,CREATING, ,IT, AS QUA
|
|
|
262 DO CREATE _2 ?VERB ,DESTROY, ?GSYMBOL ?LEFT ?Q_DESTROY AS
|
|
|
263 ?Q_DESTROY #1 + DES + #1 + ?GSYMBOL #1 + !LEFT #1 + ?LEFT #1
|
|
|
264 DO CREATE _2 ?GERUND ,DESTROYING,=1 AS DES
|
|
|
265 DO CREATE _2 ?TEMPLATE ,DESTROY, ,SYMBOL, ,EXPRESSION, ,LEFT,
|
|
|
266 AS DES
|
|
|
267 DO CREATE _2 ?Q_DESTROY ,, AS ,,
|
|
|
268 DO CREATE _2 ?Q_DESTROY ,WHILE, ,NOT, ,DESTROYING, ,IT, AS QUA
|
|
|
269 DO CREATE _2 ?VERB ,RESUME, ?EXPRESSION ?Q_RESUME AS ?Q_RESUME
|
|
|
270 #1 + RES + ?EXPRESSION #1
|
|
|
271 DO CREATE _2 ?GERUND ,RESUMING,=1 AS RES
|
|
|
272 DO CREATE _2 ?TEMPLATE ,RESUME, ,EXPRESSION, AS RES
|
|
|
273 DO CREATE _2 ?Q_RESUME ,, AS ,,
|
|
|
274 DO CREATE _2 ?Q_RESUME ,WHILE, ,NOT, ,RESUMING, AS QUA
|
|
|
275 DO CREATE _2 ?VERB ,FORGET, ?EXPRESSION ?Q_FORGET AS ?Q_FORGET
|
|
|
276 #1 + FOR + ?EXPRESSION #1
|
|
|
277 DO CREATE _2 ?GERUND ,FORGETTING,=1 AS FOR
|
|
|
278 DO CREATE _2 ?TEMPLATE ,FORGET, ,EXPRESSION, AS FOR
|
|
|
279 DO CREATE _2 ?Q_FORGET ,, AS ,,
|
|
|
280 DO CREATE _2 ?Q_FORGET ,WHILE, ,NOT, ,FORGETTING, AS QUA
|
|
|
281 DO CREATE _2 ?Q_FORGET ,WHILE, ,REMEMBERING, AS QUA
|
|
|
282 DO CREATE _2 ?NAMES ?RNAME=1 AS ?RNAME #1
|
|
|
283 DO CREATE _2 ?NAMES ?RNAME=1 ,#43, ?NAMES=* AS ?RNAME #1 +
|
|
|
284 ?NAMES #1
|
|
|
285 DO CREATE _2 ?RTYPE ,#46, AS SPO
|
|
|
286 DO CREATE _2 ?RTYPE ,#58, AS TSP
|
|
|
287 DO CREATE _2 ?RTYPE ,#44, AS TAI
|
|
|
288 DO CREATE _2 ?RTYPE ,#59, AS HYB
|
|
|
289 DO CREATE _2 ?RTYPE ,#64, AS WHP
|
|
|
290 DO CREATE _2 ?RTYPE ,_, AS CHO
|
|
|
291 DO CREATE _2 ?RTYPE ,#43, ?REGISTER AS TYP + ?REGISTER #1
|
|
|
292 DO CREATE _2 ?RNUMBER ?CONSTANT AS ?CONSTANT #1
|
|
|
293 DO CREATE _2 ?RNUMBER ,#45, ?REGISTER AS NUM + ?REGISTER #1
|
|
|
294 DO CREATE _2 ?RNAME ?OWNER ?RTYPE ?RNUMBER AS ?OWNER #1 +
|
|
|
295 ?RTYPE #1 + ?RNUMBER #1
|
|
|
296 DO CREATE _2 ?REGISTER ?OWNER ?RTYPE ?UNARIES ?RNUMBER AS
|
|
|
297 ?UNARIES #1 + ?OWNER #1 + ?RTYPE #1 + ?RNUMBER #1
|
|
|
298 DO CREATE _2 ?REGISTER ?OWNER ,#43, ?UNARIES ?REGISTER ?RNUMBER
|
|
|
299 AS ?UNARIES #1 + ?OWNER #1 + TYP + ?REGISTER #1 + ?RNUMBER
|
|
|
300 #1
|
|
|
301 DO CREATE _2 ?OWNER ,, AS ,,
|
|
|
302 DO CREATE _2 ?OWNER ?MASTER ?OWNER AS ?OWNER #1 + ?MASTER #1
|
|
|
303 DO CREATE _2 ?MASTER ,#36, AS OWN + #1
|
|
|
304 DO CREATE _2 ?MASTER ,1, AS OWN + #1
|
|
|
305 DO CREATE _2 ?MASTER ,2, AS OWN + #2
|
|
|
306 DO CREATE _2 ?MASTER ,3, AS OWN + #3
|
|
|
307 DO CREATE _2 ?MASTER ,4, AS OWN + #4
|
|
|
308 DO CREATE _2 ?MASTER ,5, AS OWN + #5
|
|
|
309 DO CREATE _2 ?MASTER ,6, AS OWN + #6
|
|
|
310 DO CREATE _2 ?MASTER ,7, AS OWN + #7
|
|
|
311 DO CREATE _2 ?MASTER ,8, AS OWN + #8
|
|
|
312 DO CREATE _2 ?MASTER ,9, AS OWN + #9
|
|
|
313 DO CREATE _2 ?ELEMENT ?OWNER ?RTYPE ?UNARIES ?CONSTANT
|
|
|
314 ?SUBSCRIPTS AS ?UNARIES #1 + ?SUBSCRIPTS #1 + ?OWNER #1 +
|
|
|
315 ?RTYPE #1 + ?CONSTANT #1
|
|
|
316 DO CREATE _2 ?LELEMENT ?OWNER ?RTYPE ?CONSTANT ?SUBSCRIPTS AS
|
|
|
317 ?SUBSCRIPTS #1 + ?OWNER #1 + ?RTYPE #1 + ?CONSTANT #1
|
|
|
318 DO CREATE _2 ?SUBSCRIPTS ,SUB, ?EXPRESSION ?MORE_SUBSCRIPTS AS
|
|
|
319 ?MORE_SUBSCRIPTS #1 + SUB + ?EXPRESSION #1
|
|
|
320 DO CREATE _2 ?MORE_SUBSCRIPTS ,, AS ,,
|
|
|
321 DO CREATE _2 ?MORE_SUBSCRIPTS ,SUB, ?EXPRESSION
|
|
|
322 ?MORE_SUBSCRIPTS AS ?MORE_SUBSCRIPTS #1 + SUB + ?EXPRESSION
|
|
|
323 #1
|
|
|
324 DO CREATE _2 ?NONUNARIES ?REGISTER AS ?REGISTER #1
|
|
|
325 DO CREATE _2 ?NONUNARIES ?ELEMENT AS ?ELEMENT #1
|
|
|
326 DO CREATE _2 ?NONUNARIES ,#45, ?REGISTER AS NUM + ?REGISTER #1
|
|
|
327 DO CREATE _2 ?NONUNARIES ,#35, ?UNARIES ?CONSTANT AS ?UNARIES
|
|
|
328 #1 + ?CONSTANT #1
|
|
|
329 DO CREATE _2 ?NONUNARIES ,#39, ?UNARIES ?EXPRESSION ,#39, AS
|
|
|
330 ?UNARIES #1 + ?EXPRESSION #1
|
|
|
331 DO CREATE _2 ?NONUNARIES ,#34, ?UNARIES ?EXPRESSION ,#34, AS
|
|
|
332 ?UNARIES #1 + ?EXPRESSION #1
|
|
|
333 DO CREATE _2 ?NONUNARIES ,#42, AS SPL
|
|
|
334 DO CREATE _2 ?BANG ?RNUMBER AS SPO + ?RNUMBER #1
|
|
|
335 DO CREATE _2 ?BANG_U ?UNARIES ?RNUMBER AS ?UNARIES #1 + SPO +
|
|
|
336 ?RNUMBER #1
|
|
|
337 DO CREATE _2 ?NONUNARIES ?BANG_U ?MAYBE_BINARY ,#39, AS
|
|
|
338 ?MAYBE_BINARY #1 + ?BANG_U #1
|
|
|
339 DO CREATE _2 ?NONUNARIES ?BANG ,#47, ?EXPRESSION ,#39, AS OVR +
|
|
|
340 ?EXPRESSION #1 + ?BANG #1
|
|
|
341 DO CREATE _2 ?NONUNARIES ?BANG_U ,#92, ?EXPRESSION ,#39, AS OVM
|
|
|
342 + ?EXPRESSION #1 + ?BANG_U #1
|
|
|
343 DO CREATE _2 ?RABBIT_U ,#34 + #8 + #46, ?UNARIES ?CONSTANT AS
|
|
|
344 ?UNARIES #1 + SPO + ?CONSTANT #1
|
|
|
345 DO CREATE _2 ?RABBIT ,#34 + #8 + #46, ?CONSTANT AS SPO +
|
|
|
346 ?CONSTANT #1
|
|
|
347 DO CREATE _2 ?NONUNARIES ?RABBIT_U ?MAYBE_BINARY ,#34, AS
|
|
|
348 ?MAYBE_BINARY #1 + ?RABBIT_U #1
|
|
|
349 DO CREATE _2 ?NONUNARIES ?RABBIT ,#47, ?EXPRESSION ,#34, AS OVR
|
|
|
350 + ?EXPRESSION #1 + ?RABBIT #1
|
|
|
351 DO CREATE _2 ?NONUNARIES ?RABBIT_U ,#92, ?EXPRESSION ,#34, AS
|
|
|
352 OVM + ?EXPRESSION #1 + ?RABBIT_U #1
|
|
|
353 DO CREATE _2 ?EXPRESSION ?NONUNARIES ?MAYBE_BINARY AS
|
|
|
354 ?MAYBE_BINARY #1 + ?NONUNARIES #1
|
|
|
355 DO CREATE _2 ?EXPRESSION ?OVERLOADABLE ,#47, ?EXPRESSION AS OVR
|
|
|
356 + ?EXPRESSION #1 + ?OVERLOADABLE #1
|
|
|
357 DO CREATE _2 ?EXPRESSION ?NONUNARIES ,#92, ?EXPRESSION AS OVM +
|
|
|
358 ?EXPRESSION #1 + ?NONUNARIES #1
|
|
|
359 DO CREATE _2 ?E_LIST ?EXPRESSION=1 AS ?EXPRESSION #1
|
|
|
360 DO CREATE _2 ?E_LIST ?EXPRESSION=1 ,#43, ?E_LIST=* AS
|
|
|
361 ?EXPRESSION #1 + ?E_LIST #1
|
|
|
362 DO CREATE _2 ?UNARIES ,, AS ,,
|
|
|
363 DO CREATE _2 ?UNARIES ?UNARY ?UNARIES AS ?UNARY #1 + ?UNARIES
|
|
|
364 #1
|
|
|
365 DO CREATE _2 ?UNARY ,V, AS BUT + #7
|
|
|
366 DO CREATE _2 ?UNARY ,#38, AS BUT + #0
|
|
|
367 DO CREATE _2 ?UNARY ,#86 + #8 + #45, AS SWB
|
|
|
368 DO CREATE _2 ?UNARY ,#165, AS SWB
|
|
|
369 DO CREATE _2 ?UNARY ,#63, AS BUT + #1
|
|
|
370 DO CREATE _2 ?UNARY ,1, ,#63, AS BUT + #1
|
|
|
371 DO CREATE _2 ?UNARY ,2, ,#63, AS BUT + #2
|
|
|
372 DO CREATE _2 ?UNARY ,3, ,#63, AS BUT + #3
|
|
|
373 DO CREATE _2 ?UNARY ,4, ,#63, AS BUT + #4
|
|
|
374 DO CREATE _2 ?UNARY ,5, ,#63, AS BUT + #5
|
|
|
375 DO CREATE _2 ?UNARY ,#124, AS AWC
|
|
|
376 DO CREATE _2 ?UNARY ,#45, AS UDV
|
|
|
377 DO CREATE _2 ?MAYBE_BINARY ,, AS ,,
|
|
|
378 DO CREATE _2 ?MAYBE_BINARY ?BINARY ?EXPRESSION AS ?BINARY #1 +
|
|
|
379 ?EXPRESSION #1
|
|
|
380 DO CREATE _2 ?BINARY ,#126, AS RSE
|
|
|
381 DO CREATE _2 ?BINARY ,#67 + #8 + #47, AS RIN
|
|
|
382 DO CREATE _2 ?BINARY ,#67 + #8 + #124, AS RIN
|
|
|
383 DO CREATE _2 ?BINARY ,#162, AS RIN
|
|
|
384 DO CREATE _2 ?OVERLOADABLE ?REGISTER AS ?REGISTER #1
|
|
|
385 DO CREATE _2 ?OVERLOADABLE ?LELEMENT AS ?LELEMENT #1
|
|
|
386 DO CREATE _2 ?EXPR_OR_DIM ?EXPRESSION AS ?EXPRESSION #1
|
|
|
387 DO CREATE _2 ?EXPR_OR_DIM ?DIMENSION AS MUL + !DIMENSION #1 +
|
|
|
388 ?DIMENSION #1
|
|
|
389 DO CREATE _2 ?DIMENSION ?EXPRESSION=1 ,BY, ?EXPRESSION=1
|
|
|
390 ?MORE_DIMENSION=* AS ?EXPRESSION #1 + ?EXPRESSION #2 +
|
|
|
391 ?MORE_DIMENSION #1
|
|
|
392 DO CREATE _2 ?MORE_DIMENSION ,, AS ,,
|
|
|
393 DO CREATE _2 ?MORE_DIMENSION ,BY, ?DIMENSION=* AS ?DIMENSION #1
|
|
|
394 DO CREATE _2 ?LABEL ,#40, ?CONSTANT ,#41, AS ?CONSTANT #1
|
|
|
395 DO CREATE _2 ?LABEL ,#40, ?EXPRESSION ,#41, AS ?EXPRESSION #1
|
|
|
396 DO CREATE _2 ?LABEL ?EXPRESSION AS ?EXPRESSION #1
|
|
|
397 DO CREATE _2 ?IT ,IT, AS ,,
|
|
|
398 DO CREATE _2 ?IT ,THEM, AS ,,
|
|
|
399 DO CREATE _2 ?THEM ,THEM, AS ,,
|
|
|
400 DO CREATE _2 ?THEM ,IT, AS ,,
|
|
|
401 DO CREATE _2 ?LEFT ,, AS ,,
|
|
|
402 DO CREATE _2 ?LEFT ?LP=1 ?MAYBE_COUNT ?LEFT=* AS ?MAYBE_COUNT
|
|
|
403 #1 + ?LP #1 + ?LEFT #1
|
|
|
404 DO CREATE _2 ?LP ?GSYMBOL AS #0 + ?GSYMBOL #1
|
|
|
405 DO CREATE _2 ?LP ,#44, ?E_LIST ,#44, AS #1 + MUL + !E_LIST #1 +
|
|
|
406 ?E_LIST #1
|
|
|
407 DO CREATE _2 ?LP ,#44, ,#44, AS #1 + STR + #0
|
|
|
408 DO CREATE _2 ?LP ,#44, ?SYMBOL ,#44, AS #1 + ?SYMBOL #1
|
|
|
409 DO CREATE _2 ?MAYBE_COUNT ,, AS #0
|
|
|
410 DO CREATE _2 ?MAYBE_COUNT ,#61, ?CONSTANT AS ?CONSTANT #1
|
|
|
411 DO CREATE _2 ?MAYBE_COUNT ,#61, ?EXPRESSION AS ?EXPRESSION #1
|
|
|
412 DO CREATE _2 ?MAYBE_COUNT ,#61, ,#42, AS #65535
|
|
|
413 DO CREATE _2 ?RIGHT ,, AS ,,
|
|
|
414 DO CREATE _2 ?RIGHT ?RIGHT_NONEMPTY=* AS ?RIGHT_NONEMPTY #1
|
|
|
415 DO CREATE _2 ?RIGHT_NONEMPTY ?RP=1 ?MORE_RIGHT=* AS ?RP #1 +
|
|
|
416 ?MORE_RIGHT #1
|
|
|
417 DO CREATE _2 ?MORE_RIGHT ,, AS ,,
|
|
|
418 DO CREATE _2 ?MORE_RIGHT ,#43, ?RIGHT_NONEMPTY=* AS
|
|
|
419 ?RIGHT_NONEMPTY #1
|
|
|
420 DO CREATE _2 ?RP ?GSYMBOL ?EXPRESSION AS #0 + ?EXPRESSION #1 +
|
|
|
421 ?GSYMBOL #1
|
|
|
422 DO CREATE _2 ?RP ,#44, ?E_LIST ,#44, ?EXPRESSION AS #1 +
|
|
|
423 ?EXPRESSION #1 + MUL + !E_LIST #1 + ?E_LIST #1
|
|
|
424 DO CREATE _2 ?RP ,#44, ,#44, AS #4 + #0
|
|
|
425 DO CREATE _2 ?RP ,#44, ?SYMBOL ,#44, ?EXPRESSION AS #1 +
|
|
|
426 ?EXPRESSION #1 + ?SYMBOL #1
|
|
|
427 DO CREATE _2 ?RP ?BYTECODE AS #4 + !BYTECODE #1 + ?BYTECODE #1
|
|
|
428 DO CREATE _2 ?RP ,#33, ?GSYMBOL ?EXPRESSION AS #6 + ?EXPRESSION
|
|
|
429 #1 + ?GSYMBOL #1
|
|
|
430 DO CREATE _2 ?RP ,#42, AS #15
|
|
|
431 DO CREATE _2 ?BYTECODE ?SPECIAL_REGISTER=* AS ?SPECIAL_REGISTER
|
|
|
432 #1
|
|
|
433 DO CREATE _2 ?BYTECODE ?EXPRESSION=1 AS ?EXPRESSION #1
|
|
|
434 DO CREATE _2 ?BC_LIST ?BYTECODE=* ?OTHER_BC=* AS ?BYTECODE #1 +
|
|
|
435 ?OTHER_BC #1
|
|
|
436 DO CREATE _2 ?OTHER_BC ,, AS ,,
|
|
|
437 DO CREATE _2 ?OTHER_BC ,#43, ?BC_LIST=* AS ?BC_LIST #1
|
|
|
438 DO CREATE _2 ?REG_EXPR ,REGISTER, AS ,,
|
|
|
439 DO CREATE _2 ?REG_EXPR ,EXPRESSION, AS ,,
|
|
|
440 DO CREATE _2 ?MAYBE_LIST ,, AS ,,
|
|
|
441 DO CREATE _2 ?MAYBE_LIST ,LIST, AS ,,
|
|
|
442 DO CREATE _2 ?GSYMBOL ,#63, ?SYMBOL AS ?SYMBOL #1
|
|
|
443
|
|
|
444 PLEASE NOTE: BYTECODE DEFINITION (FROM THE ASSEMBLER)
|
|
|
445
|
|
|
446 PLEASE NOTE: NAMES OF "%" REGISTERS
|
|
|
447 DO CREATE _2 ?SPECIAL_REGISTER ,#37, ?REG69=* AS ?REG69 #1
|
|
|
448 DO CREATE _2 ?REG69 ,WT,=2 AS %WT
|
|
|
449 DO CREATE _2 ?REG69 ,AR,=2 AS %AR
|
|
|
450 DO CREATE _2 ?REG69 ,AW,=2 AS %AW
|
|
|
451 DO CREATE _2 ?REG69 ,JS,=2 AS %JS
|
|
|
452 DO CREATE _2 ?REG69 ,SS,=2 AS %SS
|
|
|
453 DO CREATE _2 ?REG69 ,PS,=2 AS %PS
|
|
|
454 DO CREATE _2 ?REG69 ,FS,=2 AS %FS
|
|
|
455 DO CREATE _2 ?REG69 ,ES,=2 AS %ES
|
|
|
456 DO CREATE _2 ?REG69 ,IS,=2 AS %IS
|
|
|
457 DO CREATE _2 ?REG69 ,DM,=2 AS %DM
|
|
|
458 DO CREATE _2 ?REG69 ,SP,=2 AS %SP
|
|
|
459 DO CREATE _2 ?REG69 ,RT,=2 AS %RT
|
|
|
460 DO CREATE _2 ?REG69 ,TH,=2 AS %TH
|
|
|
461 DO CREATE _2 ?REG69 ,RM,=2 AS %RM
|
|
|
462 DO CREATE _2 ?REG69 ,IO,=2 AS %IO
|
|
|
463 DO CREATE _2 ?REG69 ,BA,=2 AS %BA
|
|
|
464 DO CREATE _2 ?REG69 ,CF,=2 AS %CF
|
|
|
465 DO CREATE _2 ?REG69 ,CR,=2 AS %CR
|
|
|
466 DO CREATE _2 ?REG69 ,CW,=2 AS %CW
|
|
|
467 DO CREATE _2 ?REG69 ,OS,=2 AS %OS
|
|
|
468 DO CREATE _2 ?REG69 ,TM,=2 AS %TM
|
|
|
469
|
|
|
470 PLEASE NOTE: NAMES OF "@" REGISTERS
|
|
|
471 DO CREATE _2 ?SPECIAL_REGISTER ,#64, ?REG68=* AS ?REG68 #1
|
|
|
472 DO CREATE _2 ?REG68 ,OR,=2 AS @OR
|
|
|
473 DO CREATE _2 ?REG68 ,OWFH,=2 AS @OWFH
|
|
|
474 DO CREATE _2 ?REG68 ,ORFH,=2 AS @ORFH
|
|
|
475 DO CREATE _2 ?REG68 ,OSFH,=2 AS @OSFH
|
|
|
476 DO CREATE _2 ?REG68 ,SNFH,=2 AS @SNFH
|
|
|
477 DO CREATE _2 ?REG68 ,TRFH,=2 AS @TRFH
|
|
|
478
|
|
|
479 PLEASE NOTE: NAMES OF "^" REGISTERS
|
|
|
480 DO CREATE _2 ?SPECIAL_REGISTER ,#94, ?REG70=* AS ?REG70 #1
|
|
|
481 DO CREATE _2 ?REG70 ,AV,=2 AS ^AV
|
|
|
482 DO CREATE _2 ?REG70 ,EV,=2 AS ^EV
|
|
|
483
|
|
|
484 PLEASE NOTE: "BYTECODE" INSTRUCTION NAMES
|
|
|
485 DO CREATE _2 ?BYTECODE ,ABG,=1 AS ABG
|
|
|
486 DO CREATE _2 ?BYTECODE ,ABL,=1 AS ABL
|
|
|
487 DO CREATE _2 ?BYTECODE ,AWC,=1 AS AWC
|
|
|
488 DO CREATE _2 ?BYTECODE ,BAW,=1 AS BAW
|
|
|
489 DO CREATE _2 ?BYTECODE ,BBT,=1 AS BBT
|
|
|
490 DO CREATE _2 ?BYTECODE ,BSW,=1 AS BSW
|
|
|
491 DO CREATE _2 ?BYTECODE ,BUG,=1 AS BUG
|
|
|
492 DO CREATE _2 ?BYTECODE ,BUT,=1 AS BUT
|
|
|
493 DO CREATE _2 ?BYTECODE ,BWC,=1 AS BWC
|
|
|
494 DO CREATE _2 ?BYTECODE ,CFG,=1 AS CFG
|
|
|
495 DO CREATE _2 ?BYTECODE ,CFL,=1 AS CFL
|
|
|
496 DO CREATE _2 ?BYTECODE ,CHO,=1 AS CHO
|
|
|
497 DO CREATE _2 ?BYTECODE ,CON,=1 AS CON
|
|
|
498 DO CREATE _2 ?BYTECODE ,CRE,=1 AS CRE
|
|
|
499 DO CREATE _2 ?BYTECODE ,CSE,=1 AS CSE
|
|
|
500 DO CREATE _2 ?BYTECODE ,CWB,=1 AS CWB
|
|
|
501 DO CREATE _2 ?BYTECODE ,DES,=1 AS DES
|
|
|
502 DO CREATE _2 ?BYTECODE ,DOS,=1 AS DOS
|
|
|
503 DO CREATE _2 ?BYTECODE ,DSX,=1 AS DSX
|
|
|
504 DO CREATE _2 ?BYTECODE ,EBC,=1 AS EBC
|
|
|
505 DO CREATE _2 ?BYTECODE ,ECB,=1 AS ECB
|
|
|
506 DO CREATE _2 ?BYTECODE ,ENR,=1 AS ENR
|
|
|
507 DO CREATE _2 ?BYTECODE ,ENS,=1 AS ENS
|
|
|
508 DO CREATE _2 ?BYTECODE ,FIN,=1 AS FIN
|
|
|
509 DO CREATE _2 ?BYTECODE ,FLA,=1 AS FLA
|
|
|
510 DO CREATE _2 ?BYTECODE ,FOR,=1 AS FOR
|
|
|
511 DO CREATE _2 ?BYTECODE ,FRE,=1 AS FRE
|
|
|
512 DO CREATE _2 ?BYTECODE ,FRZ,=1 AS FRZ
|
|
|
513 DO CREATE _2 ?BYTECODE ,GRA,=1 AS GRA
|
|
|
514 DO CREATE _2 ?BYTECODE ,GUP,=1 AS GUP
|
|
|
515 DO CREATE _2 ?BYTECODE ,HSN,=1 AS HSN
|
|
|
516 DO CREATE _2 ?BYTECODE ,HYB,=1 AS HYB
|
|
|
517 DO CREATE _2 ?BYTECODE ,IGN,=1 AS IGN
|
|
|
518 DO CREATE _2 ?BYTECODE ,INT,=1 AS INT
|
|
|
519 DO CREATE _2 ?BYTECODE ,LAB,=1 AS LAB
|
|
|
520 DO CREATE _2 ?BYTECODE ,LEA,=1 AS LEA
|
|
|
521 DO CREATE _2 ?BYTECODE ,MKG,=1 AS MKG
|
|
|
522 DO CREATE _2 ?BYTECODE ,MSP,=1 AS MSP
|
|
|
523 DO CREATE _2 ?BYTECODE ,MUL,=1 AS MUL
|
|
|
524 DO CREATE _2 ?BYTECODE ,NOT,=1 AS NOT
|
|
|
525 DO CREATE _2 ?BYTECODE ,NUM,=1 AS NUM
|
|
|
526 DO CREATE _2 ?BYTECODE ,NXG,=1 AS NXG
|
|
|
527 DO CREATE _2 ?BYTECODE ,NXL,=1 AS NXL
|
|
|
528 DO CREATE _2 ?BYTECODE ,NXT,=1 AS NXT
|
|
|
529 DO CREATE _2 ?BYTECODE ,OPT,=1 AS OPT
|
|
|
530 DO CREATE _2 ?BYTECODE ,OSN,=1 AS OSN
|
|
|
531 DO CREATE _2 ?BYTECODE ,OVM,=1 AS OVM
|
|
|
532 DO CREATE _2 ?BYTECODE ,OVR,=1 AS OVR
|
|
|
533 DO CREATE _2 ?BYTECODE ,OWN,=1 AS OWN
|
|
|
534 DO CREATE _2 ?BYTECODE ,QUA,=1 AS QUA
|
|
|
535 DO CREATE _2 ?BYTECODE ,REG,=1 AS REG
|
|
|
536 DO CREATE _2 ?BYTECODE ,REL,=1 AS REL
|
|
|
537 DO CREATE _2 ?BYTECODE ,REM,=1 AS REM
|
|
|
538 DO CREATE _2 ?BYTECODE ,RES,=1 AS RES
|
|
|
539 DO CREATE _2 ?BYTECODE ,RET,=1 AS RET
|
|
|
540 DO CREATE _2 ?BYTECODE ,RIN,=1 AS RIN
|
|
|
541 DO CREATE _2 ?BYTECODE ,ROM,=1 AS ROM
|
|
|
542 DO CREATE _2 ?BYTECODE ,ROR,=1 AS ROR
|
|
|
543 DO CREATE _2 ?BYTECODE ,ROU,=1 AS ROU
|
|
|
544 DO CREATE _2 ?BYTECODE ,RSE,=1 AS RSE
|
|
|
545 DO CREATE _2 ?BYTECODE ,SEL,=1 AS SEL
|
|
|
546 DO CREATE _2 ?BYTECODE ,SHF,=1 AS SHF
|
|
|
547 DO CREATE _2 ?BYTECODE ,SMU,=1 AS SMU
|
|
|
548 DO CREATE _2 ?BYTECODE ,SPL,=1 AS SPL
|
|
|
549 DO CREATE _2 ?BYTECODE ,SPO,=1 AS SPO
|
|
|
550 DO CREATE _2 ?BYTECODE ,STA,=1 AS STA
|
|
|
551 DO CREATE _2 ?BYTECODE ,STE,=1 AS STE
|
|
|
552 DO CREATE _2 ?BYTECODE ,STO,=1 AS STO
|
|
|
553 DO CREATE _2 ?BYTECODE ,STR,=1 AS STR
|
|
|
554 DO CREATE _2 ?BYTECODE ,STS,=1 AS STS
|
|
|
555 DO CREATE _2 ?BYTECODE ,STU,=1 AS STU
|
|
|
556 DO CREATE _2 ?BYTECODE ,SUB,=1 AS SUB
|
|
|
557 DO CREATE _2 ?BYTECODE ,SWA,=1 AS SWA
|
|
|
558 DO CREATE _2 ?BYTECODE ,SWB,=1 AS SWB
|
|
|
559 DO CREATE _2 ?BYTECODE ,SYS,=1 AS SYS
|
|
|
560 DO CREATE _2 ?BYTECODE ,TAI,=1 AS TAI
|
|
|
561 DO CREATE _2 ?BYTECODE ,TSP,=1 AS TSP
|
|
|
562 DO CREATE _2 ?BYTECODE ,TYP,=1 AS TYP
|
|
|
563 DO CREATE _2 ?BYTECODE ,UDV,=1 AS UDV
|
|
|
564 DO CREATE _2 ?BYTECODE ,UNE,=1 AS UNE
|
|
|
565 DO CREATE _2 ?BYTECODE ,UNS,=1 AS UNS
|
|
|
566 DO CREATE _2 ?BYTECODE ,USG,=1 AS USG
|
|
|
567 DO CREATE _2 ?BYTECODE ,WHP,=1 AS WHP
|
|
|
568 DO CREATE _2 ?BYTECODE ,WIN,=1 AS WIN
|
|
|
569
|
|
|
570 DO GIVE UP
|
