3 <GFCN
\1aAND-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP16 OP27 DEST8 HINT9>
4 <OPT-DISPATCH 3 %<> OPT4 OPT5>
18 <CALL '
\1aANDOR-GEN 4 = TEMP11>
24 <GFCN
\1aOR-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP16 OP27 DEST8 HINT9>
25 <OPT-DISPATCH 3 %<> OPT4 OPT5>
39 <CALL '
\1aANDOR-GEN 4 = TEMP11>
45 <GFCN
\1aEOR-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP16 OP27 DEST8 HINT9>
46 <OPT-DISPATCH 3 %<> OPT4 OPT5>
60 <CALL '
\1aANDOR-GEN 4 = TEMP11>
66 <GFCN
\1aEQV-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> "OPTIONAL" ANY) OP16 OP27 DEST8 HINT9>
67 <OPT-DISPATCH 3 %<> OPT4 OPT5>
81 <CALL '
\1aANDOR-GEN 4 = TEMP11>
87 <GFCN
\1aANDOR-GEN ("VALUE" ATOM <OR <PRIMTYPE WORD> VARTBL> <OR <PRIMTYPE WORD> VARTBL> <OR VARTBL ATOM> ATOM) OP14 OP25 DEST6 OPC7>
88 <TEMP (VAC8 %<>) TMP9 TEMP19>
91 <TYPE? TMP9 <TYPE-CODE VARTBL> + PHRASE12>
97 <TYPE? OP25 <TYPE-CODE VARTBL> + PHRASE14>
98 <CHTYPE OP25 <TYPE-CODE FIX> = OP25>
100 <FRAME '
\1aFIND-CACHE-VAR>
102 <CALL '
\1aFIND-CACHE-VAR 1 = VAC8>
103 <TYPE? VAC8 <TYPE-CODE FALSE> + BOOL16>
104 <NTHUV VAC8 6 = VAC8>
105 <TYPE? VAC8 <TYPE-CODE FALSE> + BOOL16>
106 <FRAME '
\1aAVAILABLE?>
108 <CALL '
\1aAVAILABLE? 1 = TEMP19>
109 <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE24>
112 <TYPE? OP25 <TYPE-CODE VARTBL> - PHRASE20>
113 <FRAME '
\1aFIND-CACHE-VAR>
116 <CALL '
\1aFIND-CACHE-VAR 1 = VAC8>
117 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE20>
118 <NTHUV VAC8 6 = VAC8>
119 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE20>
120 <FRAME '
\1aAVAILABLE?>
122 <CALL '
\1aAVAILABLE? 1 = TEMP19>
123 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE20>
131 <SET VAC8 %<> (TYPE FALSE)>
133 <VEQUAL? VAC8 0 + PHRASE26>
138 <TYPE? OP25 <TYPE-CODE FIX> - PHRASE29>
139 <VEQUAL? OPC7 'EQV - PHRASE31>
140 <XOR OP25 #WORD *777777777777* = OP25>
141 <SET OPC7 'EOR (TYPE ATOM)>
144 <VEQUAL? OPC7 'AND - PHRASE43>
145 <XOR OP25 #WORD *777777777777* = OP25>
148 <VEQUAL? OPC7 'EQV + BOOL34>
149 <VEQUAL? OPC7 'AND - PHRASE43>
151 <VEQUAL? VAC8 0 + PHRASE36>
154 <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
155 <OR TEMP19 #WORD *120* = TEMP19>
156 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
157 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
159 <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
160 <OR TEMP19 #WORD *120* = TEMP19>
161 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
162 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
169 <FRAME '
\1aVAR-VALUE-ADDRESS>
171 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
175 <CALL '
\1aGET-AC 2 = VAC8>
176 <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
177 <OR TEMP19 #WORD *120* = TEMP19>
178 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
179 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
183 <VEQUAL? OPC7 'EQV - PHRASE43>
184 <SET OPC7 'EOR (TYPE ATOM)>
186 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE45>
187 <VEQUAL? OPC7 'AND - BOOL47>
188 <TYPE? OP25 <TYPE-CODE FIX> - PHRASE45>
191 <VEQUAL? OPC7 'AND - PHRASE50>
192 <SET TEMP19 202 (TYPE FIX)>
195 <VEQUAL? OPC7 'EOR - PHRASE51>
197 <SET TEMP19 204 (TYPE FIX)>
200 <SET TEMP19 200 (TYPE FIX)>
204 <TYPE? OP25 <TYPE-CODE FIX> - PHRASE54>
208 <CALL '
\1aMA-IMM 1 = TEMP19>
211 <FRAME '
\1aVAR-VALUE-ADDRESS>
214 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP19>
218 <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
219 <OR TEMP19 #WORD *120* = TEMP19>
220 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
221 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
226 <TYPE? OP25 <TYPE-CODE FIX> - PHRASE58>
228 <VEQUAL? OPC7 'AND - PHRASE61>
229 <SET TEMP19 203 (TYPE FIX)>
232 <VEQUAL? OPC7 'EOR - PHRASE62>
234 <SET TEMP19 205 (TYPE FIX)>
237 <SET TEMP19 201 (TYPE FIX)>
244 <CALL '
\1aMA-IMM 1 = STACK>
245 <FRAME '
\1aVAR-VALUE-ADDRESS>
248 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
252 <CALL '
\1aGET-AC 2 = VAC8>
253 <NTHUV VAC8 2 = TEMP19 (TYPE FIX)>
254 <OR TEMP19 #WORD *120* = TEMP19>
255 <LSH TEMP19 24 = TEMP19 (TYPE FIX)>
256 <CHTYPE TEMP19 <TYPE-CODE EFF-ADDR> = STACK>
262 <VEQUAL? OPC7 'AND - PHRASE70>
263 <SET TEMP19 203 (TYPE FIX)>
266 <VEQUAL? OPC7 'EOR - PHRASE71>
268 <SET TEMP19 205 (TYPE FIX)>
271 <SET TEMP19 201 (TYPE FIX)>
275 <TYPE? OP14 <TYPE-CODE FIX> - PHRASE74>
279 <CALL '
\1aMA-IMM 1 = TEMP19>
282 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE76>
283 <NTHUV VAC8 2 = TMP9 (TYPE FIX)>
284 <OR TMP9 #WORD *120* = TMP9>
285 <LSH TMP9 24 = TMP9 (TYPE FIX)>
286 <CHTYPE TMP9 <TYPE-CODE EFF-ADDR> = TEMP19>
290 <FRAME '
\1aVAR-VALUE-ADDRESS>
293 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP19>
297 <FRAME '
\1aVAR-VALUE-ADDRESS>
300 <CALL '
\1aVAR-VALUE-ADDRESS 1 = STACK>
302 <TYPE? TEMP19 <TYPE-CODE FALSE> - PHRASE82>
306 <CALL '
\1aGET-AC 2 = VAC8>
309 <NTHUV TEMP19 2 = TMP9 (TYPE FIX)>
311 <OR TMP9 #WORD *120* = TMP9>
312 <LSH TMP9 24 = TMP9 (TYPE FIX)>
313 <CHTYPE TMP9 <TYPE-CODE EFF-ADDR> = STACK>
317 <FRAME '
\1aDEST-DECL>
323 <CALL '
\1aDEST-DECL 3>
328 <GFCN
\1aASH-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) VAL16 VAL27 DEST8 HINT9>
329 <OPT-DISPATCH 3 %<> OPT4 OPT5>
335 <FRAME '
\1aSHIFT-GEN>
343 <CALL '
\1aSHIFT-GEN 4 = TEMP11>
349 <GFCN
\1aLSH-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) VAL16 VAL27 DEST8 HINT9>
350 <OPT-DISPATCH 3 %<> OPT4 OPT5>
356 <FRAME '
\1aSHIFT-GEN>
364 <CALL '
\1aSHIFT-GEN 4 = TEMP11>
370 <GFCN
\1aROT-GEN ("VALUE" ATOM <OR FIX VARTBL> <OR FIX VARTBL> <OR ATOM VARTBL> "OPTIONAL" ANY) VAL16 VAL27 DEST8 HINT9>
371 <OPT-DISPATCH 3 %<> OPT4 OPT5>
377 <FRAME '
\1aSHIFT-GEN>
385 <CALL '
\1aSHIFT-GEN 4 = TEMP11>
391 <GFCN
\1aSHIFT-GEN ("VALUE" ATOM <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL <PRIMTYPE FIX>> <OR VARTBL ATOM> ATOM) VAL14 VAL25 DEST6 OPC7>
392 <TEMP (VAC8 %<>) (USE-LONG9 %<>) TEMP34>
394 <TYPE? VAL14 <TYPE-CODE VARTBL> + PHRASE12>
395 <CHTYPE VAL14 <TYPE-CODE FIX> = VAL14>
397 <TYPE? VAL25 <TYPE-CODE VARTBL> + PHRASE14>
398 <CHTYPE VAL25 <TYPE-CODE FIX> = VAL25>
400 <VEQUAL? OPC7 'LSH - PHRASE16>
401 <TYPE? VAL14 <TYPE-CODE VARTBL> + BOOL18>
402 <LESS? VAL14 0 - PHRASE16 (TYPE FIX)>
404 <TYPE? VAL25 <TYPE-CODE VARTBL> + BOOL21>
405 <LESS? VAL25 0 - PHRASE16 (TYPE FIX)>
410 <CALL '
\1aGET-AC 2 = VAC8>
414 <CALL '
\1aNEXT-AC 1 = STACK>
417 <SET USE-LONG9 'T (TYPE ATOM)>
418 <TYPE? VAL14 <TYPE-CODE VARTBL> - PHRASE28>
424 <CALL '
\1aLOAD-VAR 4>
427 <FRAME '
\1aLOAD-CONSTANT>
430 <CALL '
\1aLOAD-CONSTANT 2>
436 <CALL '
\1aNEXT-AC 1 = TEMP34>
437 <NTHUV TEMP34 2 = TEMP34 (TYPE FIX)>
438 <OR TEMP34 #WORD *120* = TEMP34>
439 <LSH TEMP34 24 = TEMP34 (TYPE FIX)>
440 <CHTYPE TEMP34 <TYPE-CODE EFF-ADDR> = STACK>
445 <TYPE? VAL14 <TYPE-CODE FIX> + BOOL37>
446 <FRAME '
\1aFIND-CACHE-VAR>
448 <CALL '
\1aFIND-CACHE-VAR 1 = VAC8>
449 <TYPE? VAC8 <TYPE-CODE FALSE> + BOOL37>
450 <NTHUV VAC8 6 = VAC8>
451 <TYPE? VAC8 <TYPE-CODE FALSE> + BOOL37>
452 <FRAME '
\1aAVAILABLE?>
454 <CALL '
\1aAVAILABLE? 1 = TEMP34>
455 <TYPE? TEMP34 <TYPE-CODE FALSE> - PHRASE35>
458 <SET VAC8 %<> (TYPE FALSE)>
460 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE41>
461 <EQUAL? VAL14 DEST6 + PHRASE41>
467 <VEQUAL? OPC7 'ROT - PHRASE46>
469 <SET TEMP34 156 (TYPE FIX)>
472 <VEQUAL? USE-LONG9 0 + PHRASE48>
473 <SET TEMP34 121 (TYPE FIX)>
476 <SET TEMP34 120 (TYPE FIX)>
480 <TYPE? VAL25 <TYPE-CODE FIX> - PHRASE51>
484 <CALL '
\1aMA-IMM 1 = TEMP34>
487 <FRAME '
\1aVAR-VALUE-ADDRESS>
490 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP34>
494 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE56>
495 <NTHUV VAC8 2 = TEMP34 (TYPE FIX)>
496 <OR TEMP34 #WORD *120* = TEMP34>
497 <LSH TEMP34 24 = TEMP34 (TYPE FIX)>
498 <CHTYPE TEMP34 <TYPE-CODE EFF-ADDR> = TEMP34>
501 <TYPE? VAL14 <TYPE-CODE FIX> - PHRASE57>
505 <CALL '
\1aMA-IMM 1 = TEMP34>
508 <FRAME '
\1aVAR-VALUE-ADDRESS>
511 <CALL '
\1aVAR-VALUE-ADDRESS 1 = TEMP34>
515 <VEQUAL? USE-LONG9 0 + PHRASE62>
517 <NTHUV VAC8 2 = TEMP34 (TYPE FIX)>
518 <OR TEMP34 #WORD *120* = TEMP34>
519 <LSH TEMP34 24 = TEMP34 (TYPE FIX)>
520 <CHTYPE TEMP34 <TYPE-CODE EFF-ADDR> = TEMP34>
523 <TYPE? VAC8 <TYPE-CODE FALSE> + PHRASE63>
524 <NTHUV VAC8 2 = USE-LONG9 (TYPE FIX)>
525 <OR USE-LONG9 #WORD *120* = USE-LONG9>
526 <LSH USE-LONG9 24 = USE-LONG9 (TYPE FIX)>
527 <CHTYPE USE-LONG9 <TYPE-CODE EFF-ADDR> = TEMP34>
534 <CALL '
\1aGET-AC 2 = VAC8>
535 <NTHUV VAC8 2 = USE-LONG9 (TYPE FIX)>
536 <OR USE-LONG9 #WORD *120* = USE-LONG9>
537 <LSH USE-LONG9 24 = USE-LONG9 (TYPE FIX)>
538 <CHTYPE USE-LONG9 <TYPE-CODE EFF-ADDR> = TEMP34>
544 <FRAME '
\1aDEST-DECL>
550 <CALL '
\1aDEST-DECL 3>