3 <GFCN
\1aPROCESS-BRANCH-1 ("VALUE" FIX FIX FIX FIX) INST4 BYTEOFF5 CODEPTR6>
4 <TEMP (XREF9 %<>) PTR7:FIX TEMP12:LIST LREF8:LABEL-REF TREF26:XREF-INFO>
6 <AND INST4 #WORD *177777* = PTR7>
8 <GVAL 'LABEL-TABLE = TEMP12>
9 <SUB PTR7 1 = PTR7 (TYPE FIX)>
10 <GRTR? PTR7 0 - RESTL15 (TYPE FIX)>
11 <LOOP (TEMP12 VALUE) (PTR7 VALUE)>
14 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
15 <SUB PTR7 1 = PTR7 (TYPE FIX)>
16 <GRTR? PTR7 0 + RESTL14 (TYPE FIX)>
18 <NTHL TEMP12 1 = LREF8 (TYPE LABEL-REF)>
20 <NTHUV LREF8 2 = TEMP12 (TYPE LIST)>
24 <EMPL? TEMP12 + MAPAP20>
25 <NTHL TEMP12 1 = TREF26>
26 <NTHUV TREF26 2 = PTR7 (TYPE FIX)>
27 <VEQUAL? CODEPTR6 PTR7 - PHRASE28 (TYPE FIX)>
33 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
36 <TYPE? XREF9 <TYPE-CODE FALSE> - BOOL30>
38 <PUSH "JUMP NOT FOUND">
44 <PUSH 'PROCESS-BRANCH>
47 <NTHUV XREF9 4 = XREF9>
48 <TYPE? XREF9 <TYPE-CODE FALSE> + BOOL32>
49 <EMPUU? XREF9 + BOOL32 (TYPE UVECTOR)>
56 <LENUU XREF9 = PTR7 (TYPE FIX)>
58 <ADD PTR7 1 = STACK (TYPE FIX)>
60 <CALL '
\1aSCAN-PASS 5 = BYTEOFF5>
64 <END
\1aPROCESS-BRANCH-1>
67 <GFCN
\1aPROCESS-BRANCH-2 ("VALUE" FIX FIX FIX FIX FIX FIX) INST4 BYTEOFF5 CODEPTR6 INSC7 EAT8>
68 <TEMP (XREF11 %<>) PTR9 TEMP14 LREF10:LABEL-REF TREF28:XREF-INFO>
70 <AND INST4 #WORD *177777* = PTR9>
72 <GVAL 'LABEL-TABLE = TEMP14>
73 <SUB PTR9 1 = PTR9 (TYPE FIX)>
74 <GRTR? PTR9 0 - RESTL17 (TYPE FIX)>
75 <LOOP (TEMP14 VALUE) (PTR9 VALUE)>
78 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
79 <SUB PTR9 1 = PTR9 (TYPE FIX)>
80 <GRTR? PTR9 0 + RESTL16 (TYPE FIX)>
82 <NTHL TEMP14 1 = LREF10 (TYPE LABEL-REF)>
84 <NTHUV LREF10 2 = TEMP14 (TYPE LIST)>
88 <EMPL? TEMP14 + MAPAP22>
89 <NTHL TEMP14 1 = TREF28>
90 <NTHUV TREF28 2 = PTR9 (TYPE FIX)>
91 <VEQUAL? CODEPTR6 PTR9 - PHRASE30 (TYPE FIX)>
97 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
100 <TYPE? XREF11 <TYPE-CODE FALSE> - BOOL32>
102 <PUSH "JUMP NOT FOUND">
107 <PUSH 'PROCESS-BRANCH>
110 <NTHUV LREF10 3 = PTR9 (TYPE FIX)>
112 <VEQUAL? EAT8 33 - PHRASE35 (TYPE FIX)>
114 <ADD BYTEOFF5 2 = BYTEOFF5 (TYPE FIX)>
118 <SUB PTR9 BYTEOFF5 = TEMP14 (TYPE FIX)>
119 <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
120 <LESS? PTR9 0 + BOOL39 (TYPE FIX)>
122 <GRTR? TEMP14 127 + BOOL39 (TYPE FIX)>
123 <LESS? TEMP14 -127 + BOOL39 (TYPE FIX)>
125 <NTHUV XREF11 12 = PTR9>
126 <TYPE? PTR9 <TYPE-CODE FALSE> + PHRASE38>
131 <VEQUAL? INSC7 17 - PHRASE43 (TYPE FIX)>
132 <ADD BYTEOFF5 2 = BYTEOFF5 (TYPE FIX)>
136 <VEQUAL? INSC7 244 + BOOL45 (TYPE FIX)>
137 <VEQUAL? INSC7 245 - PHRASE44 (TYPE FIX)>
139 <ADD BYTEOFF5 5 = BYTEOFF5 (TYPE FIX)>
143 <VEQUAL? INSC7 242 + BOOL47 (TYPE FIX)>
144 <VEQUAL? INSC7 243 - PHRASE46 (TYPE FIX)>
147 <ADD BYTEOFF5 6 = BYTEOFF5 (TYPE FIX)>
151 <ADD BYTEOFF5 4 = BYTEOFF5 (TYPE FIX)>
157 <ADD BYTEOFF5 1 = BYTEOFF5 (TYPE FIX)>
160 <END
\1aPROCESS-BRANCH-2>
163 <GFCN
\1aAGEN-BRANCH-1 ("VALUE" FIX FIX FIX FIX FIX) INST4 BYTEOFF5 CODEPTR6 INSCODE7>
164 <TEMP (SAVED-POINT11 0) TEMP14 TREF28:XREF-INFO XREF10:XREF-INFO>
166 <AND INST4 #WORD *177777* = SAVED-POINT11>
168 <GVAL 'LABEL-TABLE = TEMP14>
169 <SUB SAVED-POINT11 1 = SAVED-POINT11 (TYPE FIX)>
170 <GRTR? SAVED-POINT11 0 - RESTL17 (TYPE FIX)>
171 <LOOP (TEMP14 VALUE) (SAVED-POINT11 VALUE)>
174 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
175 <SUB SAVED-POINT11 1 = SAVED-POINT11 (TYPE FIX)>
176 <GRTR? SAVED-POINT11 0 + RESTL16 (TYPE FIX)>
178 <NTHL TEMP14 1 = TEMP14 (TYPE LABEL-REF)>
179 <NTHUV TEMP14 3 = SAVED-POINT11 (TYPE FIX)>
180 <NTHUV TEMP14 2 = TEMP14 (TYPE LIST)>
184 <EMPL? TEMP14 + MAPAP22>
185 <NTHL TEMP14 1 = TREF28>
186 <NTHUV TREF28 2 = SAVED-POINT11 (TYPE FIX)>
187 <VEQUAL? CODEPTR6 SAVED-POINT11 - PHRASE30 (TYPE FIX)>
193 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
196 <NTHUV XREF10 4 = SAVED-POINT11>
198 <TYPE? SAVED-POINT11 <TYPE-CODE FALSE> + BOOL32>
199 <EMPUU? SAVED-POINT11 + BOOL32 (TYPE UVECTOR)>
200 <FRAME '
\1aOUTPUT-PASS>
205 <LENUU SAVED-POINT11 = SAVED-POINT11 (TYPE FIX)>
206 <ADD SAVED-POINT11 1 = STACK (TYPE FIX)>
209 <CALL '
\1aOUTPUT-PASS 5 = BYTEOFF5>
213 <END
\1aAGEN-BRANCH-1>
216 <GFCN
\1aAGEN-BRANCH-2 ("VALUE" FIX ANY FIX ANY FIX FIX FIX) INST4 BYTEOFF5 CODEPTR6 INSCODE7 WHERE8 EAT9>
217 <TEMP PTR10:FIX TEMP15 TEMP16 TEMP32:FIX XREF12:XREF-INFO>
219 <AND INST4 #WORD *177777* = PTR10>
221 <GVAL 'LABEL-TABLE = TEMP15>
224 <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
225 <GRTR? TEMP16 0 - RESTL18 (TYPE FIX)>
226 <LOOP (TEMP15 VALUE) (TEMP16 VALUE)>
229 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
230 <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
231 <GRTR? TEMP16 0 + RESTL17 (TYPE FIX)>
233 <NTHL TEMP15 1 = TEMP15 (TYPE LABEL-REF)>
234 <NTHUV TEMP15 3 = PTR10 (TYPE FIX)>
235 <NTHUV TEMP15 2 = TEMP15 (TYPE LIST)>
239 <EMPL? TEMP15 + MAPAP23>
240 <NTHL TEMP15 1 = TEMP16>
241 <NTHUV TEMP16 2 = TEMP32 (TYPE FIX)>
242 <EQUAL? TEMP32 CODEPTR6 - PHRASE31>
248 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
251 <ADD BYTEOFF5 1 = BYTEOFF5 (TYPE FIX)>
252 <SUB PTR10 BYTEOFF5 = PTR10 (TYPE FIX)>
253 <GVAL 'FBYTE-OFFSET = TEMP15>
254 <NTHUV XREF12 5 = TEMP16>
255 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE34>
257 <FRAME '
\1aADD-BYTE-TO-FCODE>
258 <AND PTR10 #WORD *377* = STACK>
260 <CALL '
\1aADD-BYTE-TO-FCODE 1>
264 <VEQUAL? EAT9 33 - PHRASE36 (TYPE FIX)>
266 <SUB PTR10 1 = PTR10 (TYPE FIX)>
267 <FRAME '
\1aADD-BYTE-TO-FCODE>
268 <AND PTR10 #WORD *377* = STACK>
269 <CALL '
\1aADD-BYTE-TO-FCODE 1>
270 <FRAME '
\1aADD-BYTE-TO-FCODE>
271 <LSH PTR10 -8 = TEMP16 (TYPE FIX)>
273 <AND TEMP16 #WORD *377* = STACK>
275 <CALL '
\1aADD-BYTE-TO-FCODE 1>
276 <ADD BYTEOFF5 1 = BYTEOFF5 (TYPE FIX)>
280 <VEQUAL? INSCODE7 244 + BOOL40 (TYPE FIX)>
281 <VEQUAL? INSCODE7 245 - PHRASE39 (TYPE FIX)>
283 <FRAME '
\1aPUT-FCODE>
287 <CALL '
\1aPUT-FCODE 2>
288 <FRAME '
\1aADD-BYTE-TO-FCODE>
289 <GVAL 'IST-SOBGEQ = TEMP16>
290 <EQUAL? TEMP16 INSCODE7 - PHRASE44>
292 <SET TEMP16 24 (TYPE FIX)>
295 <SET TEMP16 20 (TYPE FIX)>
299 <CALL '
\1aADD-BYTE-TO-FCODE 1>
300 <FRAME '
\1aADD-BYTE-TO-FCODE>
302 <CALL '
\1aADD-BYTE-TO-FCODE 1>
303 <FRAME '
\1aADD-BYTE-TO-FCODE>
305 <CALL '
\1aADD-BYTE-TO-FCODE 1>
306 <GVAL 'FBYTE-OFFSET = TEMP15>
307 <ADD BYTEOFF5 4 = BYTEOFF5 (TYPE FIX)>
308 <SUB PTR10 4 = PTR10 (TYPE FIX)>
309 <FRAME '
\1aADD-BYTE-TO-FCODE>
310 <AND PTR10 #WORD *377* = STACK>
311 <CALL '
\1aADD-BYTE-TO-FCODE 1>
312 <FRAME '
\1aADD-BYTE-TO-FCODE>
313 <LSH PTR10 -8 = TEMP32 (TYPE FIX)>
315 <AND TEMP32 #WORD *377* = STACK>
317 <CALL '
\1aADD-BYTE-TO-FCODE 1>
321 <VEQUAL? INSCODE7 244 + BOOL51 (TYPE FIX)>
322 <VEQUAL? INSCODE7 242 - PHRASE50 (TYPE FIX)>
324 <SUB PTR10 5 = PTR10 (TYPE FIX)>
325 <FRAME '
\1aADD-BYTE-TO-FCODE>
327 <CALL '
\1aADD-BYTE-TO-FCODE 1>
328 <FRAME '
\1aADD-BYTE-TO-FCODE>
330 <CALL '
\1aADD-BYTE-TO-FCODE 1>
331 <FRAME '
\1aADD-BYTE-TO-FCODE>
333 <CALL '
\1aADD-BYTE-TO-FCODE 1>
334 <FRAME '
\1aADD-BYTE-TO-FCODE>
336 <CALL '
\1aADD-BYTE-TO-FCODE 1>
337 <GVAL 'FBYTE-OFFSET = TEMP15>
338 <FRAME '
\1aADD-BYTE-TO-FCODE>
339 <AND PTR10 #WORD *377* = STACK>
340 <CALL '
\1aADD-BYTE-TO-FCODE 1>
341 <FRAME '
\1aADD-BYTE-TO-FCODE>
342 <LSH PTR10 -8 = TEMP32 (TYPE FIX)>
344 <AND TEMP32 #WORD *377* = STACK>
346 <CALL '
\1aADD-BYTE-TO-FCODE 1>
347 <ADD BYTEOFF5 5 = BYTEOFF5 (TYPE FIX)>
351 <VEQUAL? INSCODE7 17 + PHRASE58 (TYPE FIX)>
352 <FRAME '
\1aPUT-FCODE>
355 <FRAME '
\1aINS-INVERT>
358 <CALL '
\1aINS-INVERT 1 = STACK>
359 <CALL '
\1aPUT-FCODE 2>
360 <SUB PTR10 3 = PTR10 (TYPE FIX)>
361 <FRAME '
\1aADD-BYTE-TO-FCODE>
363 <CALL '
\1aADD-BYTE-TO-FCODE 1>
364 <FRAME '
\1aADD-BYTE-TO-FCODE>
366 <CALL '
\1aADD-BYTE-TO-FCODE 1>
367 <GVAL 'FBYTE-OFFSET = TEMP15>
368 <FRAME '
\1aADD-BYTE-TO-FCODE>
369 <AND PTR10 #WORD *377* = STACK>
370 <CALL '
\1aADD-BYTE-TO-FCODE 1>
371 <FRAME '
\1aADD-BYTE-TO-FCODE>
372 <LSH PTR10 -8 = TEMP32 (TYPE FIX)>
374 <AND TEMP32 #WORD *377* = STACK>
376 <CALL '
\1aADD-BYTE-TO-FCODE 1>
377 <ADD BYTEOFF5 3 = BYTEOFF5 (TYPE FIX)>
381 <FRAME '
\1aPUT-FCODE>
385 <CALL '
\1aPUT-FCODE 2>
386 <ADD BYTEOFF5 1 = BYTEOFF5 (TYPE FIX)>
387 <SUB PTR10 1 = PTR10 (TYPE FIX)>
388 <FRAME '
\1aADD-BYTE-TO-FCODE>
389 <AND PTR10 #WORD *377* = STACK>
390 <CALL '
\1aADD-BYTE-TO-FCODE 1>
391 <FRAME '
\1aADD-BYTE-TO-FCODE>
392 <LSH PTR10 -8 = TEMP32 (TYPE FIX)>
394 <AND TEMP32 #WORD *377* = STACK>
396 <CALL '
\1aADD-BYTE-TO-FCODE 1>
399 <PUTUV XREF12 6 BYTEOFF5 (TYPE FIX)>
400 <PUTUV XREF12 2 TEMP15>
404 <END
\1aAGEN-BRANCH-2>
407 <GFCN
\1aINS-INVERT ("VALUE" FIX FIX) INS4>
410 <XOR INS4 #WORD *1* = TEMP5>
416 "PASS TO FIXUP THE LABELS IN THE FINAL CODE"
419 <GFCN
\1aFIXUP-PASS ("VALUE" ANY)>
420 <TEMP LABELS4:LIST TEMP16 ADDR6:FIX TEMP30:LIST XREF31:XREF-INFO POINT5 TEMP33 DADDR32:FIX>
422 <GVAL 'LABEL-TABLE = LABELS4>
423 <SET TEMP16 %<> (TYPE FALSE)>
427 <EMPL? LABELS4 + MAPAP11>
428 <NTHL LABELS4 1 = TEMP16>
429 <NTHUV TEMP16 3 = ADDR6 (TYPE FIX)>
430 <NTHUV TEMP16 2 = TEMP30 (TYPE LIST)>
434 <EMPL? TEMP30 + MAPAP23>
435 <NTHL TEMP30 1 = XREF31>
436 <NTHUV XREF31 2 = POINT5 (TYPE FIX)>
437 <NTHUV XREF31 6 = TEMP33 (TYPE FIX)>
438 <SUB ADDR6 TEMP33 = DADDR32 (TYPE FIX)>
440 <NTHUV XREF31 5 = TEMP33>
441 <TYPE? TEMP33 <TYPE-CODE FALSE> + BOOL34>
444 <LESS? TEMP33 0 - TAG35 (TYPE FIX)>
445 <SUB 0 TEMP33 = TEMP33 (TYPE FIX)>
447 <GRTR? TEMP33 127 - BOOL34 (TYPE FIX)>
450 <PUSH "CANT FIT OFFSET">
454 <NTHUV XREF31 5 = TEMP33>
456 <TYPE? TEMP33 <TYPE-CODE FALSE> + PHRASE38>
458 <FRAME '
\1aPUT-FCODE>
461 <AND DADDR32 #WORD *377* = STACK>
463 <CALL '
\1aPUT-FCODE 2>
466 <FRAME '
\1aPUT-FCODE>
468 <AND DADDR32 #WORD *377* = STACK>
469 <CALL '
\1aPUT-FCODE 2>
470 <FRAME '
\1aPUT-FCODE>
471 <ADD POINT5 1 = STACK (TYPE FIX)>
473 <LSH DADDR32 -8 = TEMP33 (TYPE FIX)>
475 <AND TEMP33 #WORD *377* = STACK>
477 <CALL '
\1aPUT-FCODE 2>
479 <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
482 <NTHUV TEMP16 6 = POINT5>
485 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE44>
486 <FRAME '
\1aPUT-FCODE>
488 <AND ADDR6 #WORD *377* = STACK>
489 <CALL '
\1aPUT-FCODE 2>
490 <FRAME '
\1aPUT-FCODE>
491 <ADD POINT5 1 = STACK (TYPE FIX)>
492 <LSH ADDR6 -8 = DADDR32 (TYPE FIX)>
493 <AND DADDR32 #WORD *377* = STACK>
495 <CALL '
\1aPUT-FCODE 2>
496 <FRAME '
\1aPUT-FCODE>
497 <ADD POINT5 2 = STACK (TYPE FIX)>
498 <LSH ADDR6 -16 = DADDR32 (TYPE FIX)>
499 <AND DADDR32 #WORD *377* = STACK>
501 <CALL '
\1aPUT-FCODE 2>
502 <FRAME '
\1aPUT-FCODE>
503 <ADD POINT5 3 = STACK (TYPE FIX)>
505 <LSH ADDR6 -24 = DADDR32 (TYPE FIX)>
507 <AND DADDR32 #WORD *377* = STACK>
509 <CALL '
\1aPUT-FCODE 2 = TEMP16>
511 <RESTL LABELS4 1 = LABELS4 (TYPE LIST)>
519 <GFCN
\1aCLEAR-CONSTANT-TABLE-FOR-SCAN ("VALUE" ATOM)>
520 <TEMP PTR7 MCNT8:FIX TEMP12:FIX>
522 <GVAL 'CONSTANT-TABLE = PTR7>
523 <GVAL 'CONSTANT-POINTER = MCNT8>
527 <NTHUU PTR7 2 = TEMP12 (TYPE FIX)>
528 <VEQUAL? TEMP12 -1 - PHRASE11 (TYPE FIX)>
532 <SUB MCNT8 2 = MCNT8 (TYPE FIX)>
533 <GRTR? MCNT8 0 + PHRASE16 (TYPE FIX)>
536 <RESTUU PTR7 2 = PTR7 (TYPE UVECTOR)>
538 <END
\1aCLEAR-CONSTANT-TABLE-FOR-SCAN>
541 <GFCN
\1aCHECK-CONSTANT-TABLE ("VALUE" <OR ATOM !<FALSE>> FIX FIX) PTR4 BYTEOFF5>
542 <TEMP TAB6:UVECTOR TEMP9>
544 <GVAL 'CONSTANT-TABLE = TAB6>
545 <ADD PTR4 1 = PTR4 (TYPE FIX)>
546 <NTHUU TAB6 PTR4 = TEMP9 (TYPE FIX)>
547 <VEQUAL? TEMP9 0 - PHRASE8 (TYPE FIX)>
553 <NTHUU TAB6 PTR4 = TEMP9 (TYPE FIX)>
554 <VEQUAL? TEMP9 -1 - PHRASE12 (TYPE FIX)>
558 <NTHUU TAB6 PTR4 = TEMP9 (TYPE FIX)>
559 <SUB BYTEOFF5 TEMP9 = BYTEOFF5 (TYPE FIX)>
561 <GRTR? BYTEOFF5 32767 - PHRASE18 (TYPE FIX)>
568 <END
\1aCHECK-CONSTANT-TABLE>
571 <GFCN
\1aASSEMBLE-CODE ("VALUE" <LIST FIX FIX> FIX ATOM) SBYTEOFF4 FNAME5>
572 <TEMP LBYTEOFF10 EBYTEOFF6:FIX NPASSES24:FIX NEBYTEOFF23:FIX>
574 <SET LBYTEOFF10 %<> (TYPE FALSE)>
578 <FRAME '
\1aINIT-LABEL-CHECK>
579 <CALL '
\1aINIT-LABEL-CHECK 0>
580 <FRAME '
\1aCLEAR-CONSTANT-TABLE-FOR-SCAN>
581 <CALL '
\1aCLEAR-CONSTANT-TABLE-FOR-SCAN 0>
582 <FRAME '
\1aSCAN-PASS>
584 <CALL '
\1aSCAN-PASS 1 = EBYTEOFF6>
585 <TYPE? LBYTEOFF10 <TYPE-CODE FALSE> - PHRASE21>
587 <GVAL 'GLUE = LBYTEOFF10>
588 <TYPE? LBYTEOFF10 <TYPE-CODE FALSE> + PHRASE21>
590 <FRAME '
\1aCHECK-UNRESOLVED-CALLS>
593 <CALL '
\1aCHECK-UNRESOLVED-CALLS 2 = LBYTEOFF10>
594 <VEQUAL? LBYTEOFF10 SBYTEOFF4 + PHRASE21 (TYPE FIX)>
595 <SET SBYTEOFF4 LBYTEOFF10>
598 <GVAL 'MAX-NUMBER-PASSES = NPASSES24>
602 <VEQUAL? NPASSES24 0 + EXIT22 (TYPE FIX)>
603 <FRAME '
\1aCLEAR-CONSTANT-TABLE-FOR-SCAN>
604 <CALL '
\1aCLEAR-CONSTANT-TABLE-FOR-SCAN 0>
605 <FRAME '
\1aINIT-LABEL-CHECK>
606 <CALL '
\1aINIT-LABEL-CHECK 0>
607 <FRAME '
\1aSCAN-PASS>
609 <CALL '
\1aSCAN-PASS 1 = NEBYTEOFF23>
610 <SUB NEBYTEOFF23 EBYTEOFF6 = LBYTEOFF10 (TYPE FIX)>
612 <VEQUAL? LBYTEOFF10 0 + EXIT22 (TYPE FIX)>
614 <SET EBYTEOFF6 NEBYTEOFF23>
616 <SUB NPASSES24 1 = NPASSES24 (TYPE FIX)>
619 <FRAME '
\1aCLEAR-CONSTANT-TABLE-FOR-SCAN>
620 <CALL '
\1aCLEAR-CONSTANT-TABLE-FOR-SCAN 0>
621 <FRAME '
\1aINIT-LABEL-CHECK>
622 <CALL '
\1aINIT-LABEL-CHECK 0>
623 <FRAME '
\1aOUTPUT-PASS>
625 <CALL '
\1aOUTPUT-PASS 1 = EBYTEOFF6>
626 <FRAME '
\1aFIXUP-PASS>
627 <CALL '
\1aFIXUP-PASS 0>
628 <GVAL 'GLUE = LBYTEOFF10>
629 <TYPE? LBYTEOFF10 <TYPE-CODE FALSE> + PHRASE43>
631 <FRAME '
\1aUPDATE-CALL-ENTRY-TABLE>
634 <CALL '
\1aUPDATE-CALL-ENTRY-TABLE 1 = LBYTEOFF10>
635 <FRAME '
\1aADD-UNRESOLVED-CALLS>
636 <CALL '
\1aADD-UNRESOLVED-CALLS 0>
637 <FRAME '
\1aFIXUP-UNRESOLVED-CALLS>
640 <CALL '
\1aFIXUP-UNRESOLVED-CALLS 1>
642 <CONS EBYTEOFF6 () = LBYTEOFF10>
644 <CONS SBYTEOFF4 LBYTEOFF10 = LBYTEOFF10>
648 <END
\1aASSEMBLE-CODE>
651 <GFCN
\1aSCAN-PASS ("VALUE" FIX FIX "OPTIONAL" LIST CODEVEC ANY FIX) BYTEOFF9 CL10 CV11 CLABELS12 MAXPTR13>
652 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
662 <TEMP PTR24:FIX IN-CASE?31 AFLG28 INS25:FIX INSCODE26:FIX OP-INF29:UVECTOR NUM-OPS30:FIX TEMP49 TEMP55 SHFT74:FIX FNUM75:FIX SIZ79:FIX CNT87:FIX ADR78:FIX EAC76>
664 <TYPE? CL10 <TYPE-CODE UNBOUND> - TAG14>
665 <GVAL 'CODE-LIST = CL10>
667 <TYPE? CV11 <TYPE-CODE UNBOUND> - TAG16>
668 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
670 <TYPE? MAXPTR13 <TYPE-CODE UNBOUND> - TAG18>
671 <GVAL 'CODE-COUNT = MAXPTR13>
673 <EMPL? CL10 + BOOL20 (TYPE LIST)>
674 <RESTL CL10 1 = CL10 (TYPE LIST)>
676 <SET PTR24 1 (TYPE FIX)>
677 <SET IN-CASE?31 %<> (TYPE FALSE)>
681 <SET AFLG28 'T (TYPE ATOM)>
682 <TYPE? CLABELS12 <TYPE-CODE FALSE> + PHRASE35>
683 <FRAME '
\1aCHECK-LABEL>
686 <CALL '
\1aCHECK-LABEL 2>
688 <NTHUU CV11 1 = INS25 (TYPE FIX)>
689 <LSH INS25 -24 = INSCODE26 (TYPE FIX)>
690 <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
691 <EMPUU? CV11 - PHRASE41 (TYPE UVECTOR)>
692 <EMPL? CL10 - PHRASE40 (TYPE LIST)>
693 <SET AFLG28 %<> (TYPE FALSE)>
696 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
697 <RESTL CL10 1 = CL10 (TYPE LIST)>
699 <ADD PTR24 1 = PTR24 (TYPE FIX)>
700 <TYPE? IN-CASE?31 <TYPE-CODE FALSE> + PHRASE43>
701 <SUB IN-CASE?31 1 = IN-CASE?31 (TYPE FIX)>
702 <LESS? IN-CASE?31 0 - PHRASE45 (TYPE FIX)>
703 <SET IN-CASE?31 %<> (TYPE FALSE)>
705 <ADD BYTEOFF9 2 = BYTEOFF9 (TYPE FIX)>
708 <FRAME '
\1aGET-INST-INFO>
710 <CALL '
\1aGET-INST-INFO 1 = OP-INF29>
711 <NTHUU OP-INF29 2 = TEMP49 (TYPE FIX)>
712 <LSH TEMP49 -24 = NUM-OPS30 (TYPE FIX)>
714 <GVAL 'SPECIAL-OPS = TEMP49>
715 <EMPUU? TEMP49 + PHRASE51>
716 <LOOP (INSCODE26 VALUE) (TEMP49 LENGTH VALUE)>
718 <NTHUU TEMP49 1 = TEMP55>
719 <VEQUAL? TEMP55 INSCODE26 + TAG52>
721 <RESTUU TEMP49 1 = TEMP49 (TYPE UVECTOR)>
722 <EMPUU? TEMP49 - TAG53>
725 <FRAME '
\1aSCAN-SPECIAL-CODE>
730 <CALL '
\1aSCAN-SPECIAL-CODE 2 = BYTEOFF9>
733 <GVAL 'BRANCH-INS = TEMP49>
734 <EMPUU? TEMP49 + PHRASE59>
735 <LOOP (INSCODE26 VALUE) (TEMP49 LENGTH VALUE)>
737 <NTHUU TEMP49 1 = TEMP55>
738 <VEQUAL? TEMP55 INSCODE26 + TAG60>
740 <RESTUU TEMP49 1 = TEMP49 (TYPE UVECTOR)>
741 <EMPUU? TEMP49 - TAG61>
744 <FRAME '
\1aPROCESS-BRANCH-1>
748 <SUB PTR24 1 = STACK (TYPE FIX)>
749 <CALL '
\1aPROCESS-BRANCH-1 3 = BYTEOFF9>
751 <GVAL 'CASE-INS = TEMP49>
752 <EMPUU? TEMP49 + PHRASE65>
753 <LOOP (INSCODE26 VALUE) (TEMP49 LENGTH VALUE)>
755 <NTHUU TEMP49 1 = TEMP55>
756 <VEQUAL? TEMP55 INSCODE26 + TAG66>
758 <RESTUU TEMP49 1 = TEMP49 (TYPE UVECTOR)>
759 <EMPUU? TEMP49 - TAG67>
762 <SET IN-CASE?31 0 (TYPE FIX)>
764 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
765 <VEQUAL? NUM-OPS30 0 + EXIT73 (TYPE FIX)>
766 <SET SHFT74 -24 (TYPE FIX)>
767 <SET FNUM75 1 (TYPE FIX)>
768 <SET SIZ79 1 (TYPE FIX)>
769 <SET TEMP49 %<> (TYPE FALSE)>
773 <SUB NUM-OPS30 1 = NUM-OPS30 (TYPE FIX)>
774 <LESS? NUM-OPS30 0 - PHRASE83 (TYPE FIX)>
775 <SUB SIZ79 1 = SIZ79 (TYPE FIX)>
777 <SET CNT87 -8 (TYPE FIX)>
781 <SUB SIZ79 1 = SIZ79 (TYPE FIX)>
782 <LESS? SIZ79 0 - PHRASE90 (TYPE FIX)>
783 <TYPE? IN-CASE?31 <TYPE-CODE FALSE> + PHRASE100>
784 <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE100>
785 <GRTR? NUM-OPS30 0 + PHRASE97 (TYPE FIX)>
786 <SET IN-CASE?31 TEMP49>
790 <VEQUAL? NUM-OPS30 1 - PHRASE100 (TYPE FIX)>
794 <SET TEMP49 %<> (TYPE FALSE)>
797 <ADD SHFT74 8 = SHFT74 (TYPE FIX)>
798 <GRTR? SHFT74 0 - PHRASE113 (TYPE FIX)>
799 <SET SHFT74 -24 (TYPE FIX)>
800 <ADD PTR24 1 = PTR24 (TYPE FIX)>
801 <VEQUAL? AFLG28 0 - BOOL107>
803 <PUSH 'ACCESS-BEYOND-END-OF-CODE!-ERRORS>
806 <NTHUU CV11 1 = INS25 (TYPE FIX)>
807 <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
808 <EMPUU? CV11 - PHRASE113 (TYPE UVECTOR)>
809 <EMPL? CL10 - PHRASE112 (TYPE LIST)>
810 <SET AFLG28 %<> (TYPE FALSE)>
813 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
814 <RESTL CL10 1 = CL10 (TYPE LIST)>
816 <ADD CNT87 8 = CNT87 (TYPE FIX)>
817 <LSH INS25 SHFT74 = TEMP55 (TYPE FIX)>
818 <AND TEMP55 #WORD *377* = ADR78>
820 <TYPE? TEMP49 <TYPE-CODE FALSE> + AGAIN88>
821 <LSH ADR78 CNT87 = TEMP55 (TYPE FIX)>
822 <OR TEMP49 TEMP55 = TEMP49>
826 <LESS? NUM-OPS30 0 + EXIT73 (TYPE FIX)>
827 <AND ADR78 #WORD *360* = EAC76>
828 <AND ADR78 #WORD *17* = CNT87>
829 <FRAME '
\1aGET-OP-INFO>
832 <CALL '
\1aGET-OP-INFO 2 = TEMP55>
833 <AND TEMP55 #WORD *7* = SIZ79>
834 <ADD FNUM75 1 = FNUM75 (TYPE FIX)>
835 <VEQUAL? TEMP55 32 + BOOL124 (TYPE FIX)>
836 <VEQUAL? TEMP55 33 - PHRASE123 (TYPE FIX)>
838 <FRAME '
\1aPROCESS-BRANCH-2>
842 <SUB PTR24 1 = STACK (TYPE FIX)>
846 <CALL '
\1aPROCESS-BRANCH-2 5 = BYTEOFF9>
847 <SET SIZ79 1 (TYPE FIX)>
850 <LESS? EAC76 64 - PHRASE126 (TYPE FIX)>
851 <SET SIZ79 1 (TYPE FIX)>
852 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
853 <TYPE? IN-CASE?31 <TYPE-CODE FALSE> + AGAIN81>
854 <VEQUAL? NUM-OPS30 0 - PHRASE130 (TYPE FIX)>
855 <SET IN-CASE?31 CNT87>
859 <VEQUAL? NUM-OPS30 1 - AGAIN81 (TYPE FIX)>
864 <VEQUAL? EAC76 64 - PHRASE136 (TYPE FIX)>
865 <SUB FNUM75 1 = FNUM75 (TYPE FIX)>
866 <ADD NUM-OPS30 1 = NUM-OPS30 (TYPE FIX)>
867 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
868 <SET SIZ79 1 (TYPE FIX)>
871 <VEQUAL? EAC76 80 + BOOL138 (TYPE FIX)>
872 <VEQUAL? EAC76 96 + BOOL138 (TYPE FIX)>
873 <VEQUAL? EAC76 112 - PHRASE137 (TYPE FIX)>
875 <SET SIZ79 1 (TYPE FIX)>
876 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
879 <VEQUAL? EAC76 128 + BOOL140 (TYPE FIX)>
880 <VEQUAL? EAC76 144 - PHRASE139 (TYPE FIX)>
882 <GVAL 'NAC-PC = TEMP55>
883 <EQUAL? TEMP55 CNT87 - PHRASE142>
885 <VEQUAL? EAC76 144 - PHRASE144 (TYPE FIX)>
887 <SET SIZ79 5 (TYPE FIX)>
890 <VEQUAL? SIZ79 2 + BOOL146 (TYPE FIX)>
891 <VEQUAL? SIZ79 5 - PHRASE145 (TYPE FIX)>
893 <SET SIZ79 5 (TYPE FIX)>
896 <VEQUAL? SIZ79 1 - PHRASE147 (TYPE FIX)>
898 <SET SIZ79 3 (TYPE FIX)>
901 <SET SIZ79 2 (TYPE FIX)>
903 <TYPE? IN-CASE?31 <TYPE-CODE FALSE> + PHRASE152>
904 <GRTR? NUM-OPS30 1 + PHRASE152 (TYPE FIX)>
905 <SET TEMP49 0 (TYPE FIX)>
907 <ADD BYTEOFF9 SIZ79 = BYTEOFF9 (TYPE FIX)>
910 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
911 <SET SIZ79 1 (TYPE FIX)>
914 <VEQUAL? EAC76 176 + BOOL160 (TYPE FIX)>
915 <VEQUAL? EAC76 160 - PHRASE159 (TYPE FIX)>
917 <SET SIZ79 2 (TYPE FIX)>
920 <VEQUAL? EAC76 208 + BOOL162 (TYPE FIX)>
921 <VEQUAL? EAC76 192 - PHRASE161 (TYPE FIX)>
923 <SET SIZ79 3 (TYPE FIX)>
926 <VEQUAL? EAC76 240 + BOOL164 (TYPE FIX)>
927 <VEQUAL? EAC76 224 - PHRASE163 (TYPE FIX)>
930 <SET SIZ79 5 (TYPE FIX)>
932 <ADD BYTEOFF9 SIZ79 = BYTEOFF9 (TYPE FIX)>
935 <VEQUAL? AFLG28 0 - BOOL165>
940 <EMPUU? CV11 - PHRASE167 (TYPE UVECTOR)>
941 <EMPL? CL10 - PHRASE169 (TYPE LIST)>
945 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
946 <RESTL CL10 1 = CL10 (TYPE LIST)>
948 <LESS? PTR24 MAXPTR13 + AGAIN33 (TYPE FIX)>
954 <GFCN
\1aSCAN-SPECIAL-CODE ("VALUE" FIX FIX FIX) INST4 BYTEOFF5>
957 <AND INST4 #WORD *177777* = OFFS6>
958 <LSH INST4 -24 = CODE7 (TYPE FIX)>
960 <VEQUAL? CODE7 87 - PHRASE11 (TYPE FIX)>
961 <VEQUAL? OFFS6 0 + PHRASE29 (TYPE FIX)>
962 <FRAME '
\1aGET-PATCH>
965 <CALL '
\1aGET-PATCH 1 = CODE7>
966 <NTHUV CODE7 1 = OFFS6 (TYPE UVECTOR)>
968 <EMPUU? OFFS6 + PHRASE29 (TYPE UVECTOR)>
969 <FRAME '
\1aSCAN-PASS>
975 <LENUU OFFS6 = CODE7 (TYPE FIX)>
977 <ADD CODE7 1 = STACK (TYPE FIX)>
979 <CALL '
\1aSCAN-PASS 5 = BYTEOFF5>
983 <VEQUAL? CODE7 90 - PHRASE20 (TYPE FIX)>
987 <CALL '
\1aGET-PTNS 1 = OFFS6>
988 <NTHUV OFFS6 4 = CODE7>
989 <TYPE? CODE7 <TYPE-CODE FALSE> + PHRASE29>
991 <NTHUV OFFS6 1 = OFFS6 (TYPE UVECTOR)>
992 <EMPUU? OFFS6 + PHRASE29 (TYPE UVECTOR)>
993 <FRAME '
\1aSCAN-PASS>
999 <LENUU OFFS6 = CODE7 (TYPE FIX)>
1001 <ADD CODE7 1 = STACK (TYPE FIX)>
1003 <CALL '
\1aSCAN-PASS 5 = BYTEOFF5>
1007 <VEQUAL? CODE7 89 - PHRASE26 (TYPE FIX)>
1008 <FRAME '
\1aSCAN-CALL>
1013 <CALL '
\1aSCAN-CALL 2 = BYTEOFF5>
1017 <VEQUAL? CODE7 91 - PHRASE28 (TYPE FIX)>
1018 <ADD BYTEOFF5 7 = BYTEOFF5 (TYPE FIX)>
1022 <VEQUAL? CODE7 119 - PHRASE29 (TYPE FIX)>
1024 <ADD BYTEOFF5 7 = BYTEOFF5 (TYPE FIX)>
1028 <END
\1aSCAN-SPECIAL-CODE>
1031 <GFCN
\1aSCAN-CALL ("VALUE" FIX FIX FIX) OFF4 BYTEOFF5>
1034 <GVAL 'CALL-TABLE = TEMP8>
1035 <NTHUV TEMP8 OFF4 = TEMP8>
1037 <FRAME '
\1aFIND-CALL-POINT>
1038 <NTHUV TEMP8 1 = STACK (TYPE ATOM)>
1039 <NTHUV TEMP8 2 = STACK (TYPE FIX)>
1041 <CALL '
\1aFIND-CALL-POINT 2 = CBOFF7>
1042 <TYPE? CBOFF7 <TYPE-CODE FALSE> + PHRASE10>
1043 <ADD BYTEOFF5 2 = TEMP8 (TYPE FIX)>
1044 <SUB TEMP8 CBOFF7 = TEMP8 (TYPE FIX)>
1046 <LESS? TEMP8 0 - TAG14 (TYPE FIX)>
1047 <SUB 0 TEMP8 = TEMP8 (TYPE FIX)>
1049 <GRTR? TEMP8 32767 - PHRASE13 (TYPE FIX)>
1051 <ADD BYTEOFF5 6 = BYTEOFF5 (TYPE FIX)>
1055 <ADD BYTEOFF5 3 = BYTEOFF5 (TYPE FIX)>
1059 <ADD BYTEOFF5 3 = BYTEOFF5 (TYPE FIX)>
1065 <GFCN
\1aOUTPUT-CALL ("VALUE" FIX FIX FIX) BYTEOFF4 OFF5>
1066 <TEMP TEMP10 REF6 CBOFF7>
1068 <GVAL 'CALL-TABLE = TEMP10>
1069 <NTHUV TEMP10 OFF5 = REF6>
1071 <FRAME '
\1aFIND-CALL-POINT>
1072 <NTHUV REF6 1 = STACK (TYPE ATOM)>
1073 <NTHUV REF6 2 = STACK (TYPE FIX)>
1074 <CALL '
\1aFIND-CALL-POINT 2 = CBOFF7>
1075 <TYPE? CBOFF7 <TYPE-CODE FALSE> + PHRASE12>
1076 <PUTUV REF6 3 -1 (TYPE FIX)>
1078 <ADD BYTEOFF4 3 = TEMP10 (TYPE FIX)>
1079 <SUB TEMP10 CBOFF7 = OFF5 (TYPE FIX)>
1080 <DEAD TEMP10 CBOFF7>
1082 <LESS? TEMP10 0 - TAG16 (TYPE FIX)>
1083 <SUB 0 TEMP10 = TEMP10 (TYPE FIX)>
1085 <GRTR? TEMP10 32767 - PHRASE15 (TYPE FIX)>
1087 <ADD OFF5 3 = OFF5 (TYPE FIX)>
1088 <FRAME '
\1aADD-BYTE-TO-FCODE>
1090 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1091 <FRAME '
\1aADD-BYTE-TO-FCODE>
1092 <GVAL 'AC-PC = TEMP10>
1093 <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
1094 <OR TEMP10 #WORD *340* = STACK>
1096 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1097 <FRAME '
\1aADD-BYTE-TO-FCODE>
1098 <SUB 0 OFF5 = OFF5 (TYPE FIX)>
1099 <AND OFF5 #WORD *377* = STACK>
1100 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1101 <FRAME '
\1aADD-BYTE-TO-FCODE>
1102 <LSH OFF5 -8 = TEMP10 (TYPE FIX)>
1103 <AND TEMP10 #WORD *377* = STACK>
1105 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1106 <FRAME '
\1aADD-BYTE-TO-FCODE>
1107 <LSH OFF5 -16 = TEMP10 (TYPE FIX)>
1108 <AND TEMP10 #WORD *377* = STACK>
1110 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1111 <FRAME '
\1aADD-BYTE-TO-FCODE>
1112 <LSH OFF5 -24 = TEMP10 (TYPE FIX)>
1114 <AND TEMP10 #WORD *377* = STACK>
1116 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1117 <ADD BYTEOFF4 6 = BYTEOFF4 (TYPE FIX)>
1121 <FRAME '
\1aADD-BYTE-TO-FCODE>
1123 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1124 <FRAME '
\1aADD-BYTE-TO-FCODE>
1125 <SUB 0 OFF5 = OFF5 (TYPE FIX)>
1126 <AND OFF5 #WORD *377* = STACK>
1127 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1128 <FRAME '
\1aADD-BYTE-TO-FCODE>
1129 <LSH OFF5 -8 = TEMP10 (TYPE FIX)>
1131 <AND TEMP10 #WORD *377* = STACK>
1133 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1134 <ADD BYTEOFF4 3 = BYTEOFF4 (TYPE FIX)>
1138 <FRAME '
\1aADD-BYTE-TO-FCODE>
1140 <CALL '
\1aADD-BYTE-TO-FCODE 1 = CBOFF7>
1141 <ADD BYTEOFF4 3 = TEMP10 (TYPE FIX)>
1142 <PUTUV REF6 4 TEMP10 (TYPE FIX)>
1148 <CALL '
\1a+ 2 = TEMP10>
1149 <PUTUV REF6 3 TEMP10>
1151 <FRAME '
\1aADD-BYTE-TO-FCODE>
1153 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1154 <FRAME '
\1aADD-BYTE-TO-FCODE>
1156 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1157 <ADD BYTEOFF4 3 = BYTEOFF4 (TYPE FIX)>
1160 <END
\1aOUTPUT-CALL>
1163 <GFCN
\1aGEN-SPECIAL-CODE ("VALUE" FIX FIX FIX) INST4 BYTEOFF5>
1166 <AND INST4 #WORD *177777* = OFFS6>
1167 <LSH INST4 -24 = CODE7 (TYPE FIX)>
1168 <VEQUAL? CODE7 87 - PHRASE11 (TYPE FIX)>
1169 <VEQUAL? OFFS6 0 + PHRASE30 (TYPE FIX)>
1170 <FRAME '
\1aGET-PATCH>
1173 <CALL '
\1aGET-PATCH 1 = CODE7>
1174 <NTHUV CODE7 1 = OFFS6 (TYPE UVECTOR)>
1176 <EMPUU? OFFS6 + PHRASE30 (TYPE UVECTOR)>
1177 <FRAME '
\1aOUTPUT-PASS>
1182 <LENUU OFFS6 = CODE7 (TYPE FIX)>
1184 <ADD CODE7 1 = STACK (TYPE FIX)>
1187 <CALL '
\1aOUTPUT-PASS 5 = BYTEOFF5>
1191 <VEQUAL? CODE7 90 - PHRASE20 (TYPE FIX)>
1192 <FRAME '
\1aGET-PTNS>
1195 <CALL '
\1aGET-PTNS 1 = OFFS6>
1196 <NTHUV OFFS6 4 = CODE7>
1197 <TYPE? CODE7 <TYPE-CODE FALSE> + PHRASE30>
1199 <NTHUV OFFS6 1 = OFFS6 (TYPE UVECTOR)>
1200 <EMPUU? OFFS6 + PHRASE30 (TYPE UVECTOR)>
1201 <FRAME '
\1aOUTPUT-PASS>
1206 <LENUU OFFS6 = CODE7 (TYPE FIX)>
1208 <ADD CODE7 1 = STACK (TYPE FIX)>
1211 <CALL '
\1aOUTPUT-PASS 5 = BYTEOFF5>
1215 <VEQUAL? CODE7 89 - PHRASE26 (TYPE FIX)>
1216 <FRAME '
\1aOUTPUT-CALL>
1221 <CALL '
\1aOUTPUT-CALL 2 = BYTEOFF5>
1225 <VEQUAL? CODE7 91 - PHRASE28 (TYPE FIX)>
1226 <FRAME '
\1aOUTPUT-PUSHLAB>
1230 <CALL '
\1aOUTPUT-PUSHLAB 2>
1231 <ADD BYTEOFF5 7 = BYTEOFF5 (TYPE FIX)>
1235 <VEQUAL? CODE7 119 - PHRASE30 (TYPE FIX)>
1237 <FRAME '
\1aOUTPUT-MOVELAB>
1243 <CALL '
\1aOUTPUT-MOVELAB 3>
1244 <ADD BYTEOFF5 7 = BYTEOFF5 (TYPE FIX)>
1248 <END
\1aGEN-SPECIAL-CODE>
1251 <GFCN
\1aOUTPUT-PUSHLAB ("VALUE" LABEL-REF FIX ANY) OFF4 BYTEOFF5>
1252 <TEMP TEMP8 LREF7 AINST6>
1254 <GVAL 'PUSH-LABEL-TABLE = TEMP8>
1255 <NTHUV TEMP8 OFF4 = LREF7>
1257 <FRAME '
\1aADD-BYTE-TO-FCODE>
1259 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1260 <FRAME '
\1aADD-BYTE-TO-FCODE>
1261 <GVAL 'AC-PC = TEMP8>
1262 <NTHUV TEMP8 2 = TEMP8 (TYPE FIX)>
1263 <OR TEMP8 #WORD *200* = TEMP8>
1264 <LSH TEMP8 24 = TEMP8 (TYPE FIX)>
1265 <LSH TEMP8 -24 = STACK (TYPE FIX)>
1267 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1268 <FRAME '
\1aADD-BYTE-TO-FCODE>
1270 <CALL '
\1aADD-BYTE-TO-FCODE 1 = AINST6>
1271 <FRAME '
\1aADD-BYTE-TO-FCODE>
1273 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1274 <FRAME '
\1aADD-BYTE-TO-FCODE>
1276 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1277 <FRAME '
\1aADD-BYTE-TO-FCODE>
1279 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1280 <FRAME '
\1aADD-BYTE-TO-FCODE>
1281 <GVAL 'AC-TP = TEMP8>
1282 <NTHUV TEMP8 2 = TEMP8 (TYPE FIX)>
1283 <OR TEMP8 #WORD *200* = TEMP8>
1284 <LSH TEMP8 24 = TEMP8 (TYPE FIX)>
1285 <LSH TEMP8 -24 = STACK (TYPE FIX)>
1287 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1288 <PUTUV LREF7 6 AINST6>
1292 <END
\1aOUTPUT-PUSHLAB>
1295 <GFCN
\1aOUTPUT-MOVELAB ("VALUE" LABEL-REF ANY FIX ANY) INST4 OFF5 BYTEOFF6>
1296 <TEMP TEMP9 LREF7 AINST8>
1298 <GVAL 'MOVE-LABEL-TABLE = TEMP9>
1299 <NTHUV TEMP9 OFF5 = LREF7>
1301 <FRAME '
\1aADD-BYTE-TO-FCODE>
1303 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1304 <FRAME '
\1aADD-BYTE-TO-FCODE>
1305 <GVAL 'AC-PC = TEMP9>
1306 <NTHUV TEMP9 2 = TEMP9 (TYPE FIX)>
1307 <OR TEMP9 #WORD *200* = TEMP9>
1308 <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
1309 <LSH TEMP9 -24 = STACK (TYPE FIX)>
1311 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1312 <FRAME '
\1aADD-BYTE-TO-FCODE>
1314 <CALL '
\1aADD-BYTE-TO-FCODE 1 = AINST8>
1315 <FRAME '
\1aADD-BYTE-TO-FCODE>
1317 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1318 <FRAME '
\1aADD-BYTE-TO-FCODE>
1320 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1321 <FRAME '
\1aADD-BYTE-TO-FCODE>
1323 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1324 <FRAME '
\1aADD-BYTE-TO-FCODE>
1325 <LSH INST4 -16 = TEMP9 (TYPE FIX)>
1327 <AND TEMP9 #WORD *377* = STACK>
1329 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1330 <PUTUV LREF7 6 AINST8>
1334 <END
\1aOUTPUT-MOVELAB>
1337 <GFCN
\1aINIT-LABEL-CHECK ("VALUE" FIX)>
1338 <TEMP TEMP5 LREF4:LABEL-REF>
1340 <GVAL 'LABEL-TABLE = TEMP5>
1341 <NTHL TEMP5 1 = LREF4 (TYPE LABEL-REF)>
1343 <GVAL 'LABEL-TABLE = TEMP5>
1344 <SETG 'LABEL-POINTER TEMP5>
1346 <NTHUV LREF4 4 = TEMP5 (TYPE FIX)>
1348 <SETG 'LABEL-OFFSET TEMP5>
1351 <END
\1aINIT-LABEL-CHECK>
1354 <GFCN
\1aCHECK-LABEL ("VALUE" <OR FALSE FIX> FIX FIX) BYTEOFF4 PTR5>
1355 <TEMP TEMP14 RPTR7:LIST>
1360 <GVAL 'LABEL-OFFSET = TEMP14>
1361 <VEQUAL? PTR5 TEMP14 + TAG15 (TYPE FIX)>
1365 <GVAL 'LABEL-POINTER = RPTR7>
1366 <NTHL RPTR7 1 = TEMP14 (TYPE LABEL-REF)>
1367 <PUTUV TEMP14 3 BYTEOFF4 (TYPE FIX)>
1369 <RESTL RPTR7 1 = RPTR7 (TYPE LIST)>
1370 <EMPL? RPTR7 - PHRASE17 (TYPE LIST)>
1371 <SETG 'LABEL-POINTER RPTR7>
1373 <SETG 'LABEL-OFFSET -1>
1376 <NTHL RPTR7 1 = TEMP14 (TYPE LABEL-REF)>
1377 <NTHUV TEMP14 4 = TEMP14 (TYPE FIX)>
1378 <SETG 'LABEL-OFFSET TEMP14>
1380 <SETG 'LABEL-POINTER RPTR7>
1383 <END
\1aCHECK-LABEL>
1386 <GFCN
\1aOUTPUT-PASS ("VALUE" FIX FIX "OPTIONAL" LIST CODEVEC FIX ANY) BYTEOFF9 CL10 CV11 MAXPTR12 CLABELS13>
1387 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
1397 <TEMP PTR23:FIX IN-CASE?34 AFLG27 INS26:FIX INSCODE24:FIX TEMP48 TEMP64:FIX TEMP65:FIX XREF31:XREF-INFO START-CASE35 TEMP58 OP-INF28:UVECTOR NUM-OPS29:FIX SHFT97:FIX FNUM98:FIX R-OR-L100:FIX SIZ102:FIX>
1399 <TYPE? CL10 <TYPE-CODE UNBOUND> - TAG14>
1400 <GVAL 'CODE-LIST = CL10>
1402 <TYPE? CV11 <TYPE-CODE UNBOUND> - TAG16>
1403 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1405 <TYPE? MAXPTR12 <TYPE-CODE UNBOUND> - TAG18>
1406 <GVAL 'CODE-COUNT = MAXPTR12>
1408 <EMPL? CL10 + BOOL20 (TYPE LIST)>
1409 <RESTL CL10 1 = CL10 (TYPE LIST)>
1411 <SET PTR23 1 (TYPE FIX)>
1412 <SET IN-CASE?34 %<> (TYPE FALSE)>
1416 <SET AFLG27 'T (TYPE ATOM)>
1417 <TYPE? CLABELS13 <TYPE-CODE FALSE> + PHRASE38>
1418 <FRAME '
\1aCHECK-LABEL>
1421 <CALL '
\1aCHECK-LABEL 2>
1423 <NTHUU CV11 1 = INS26 (TYPE FIX)>
1424 <LSH INS26 -24 = INSCODE24 (TYPE FIX)>
1425 <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
1426 <EMPUU? CV11 - PHRASE44 (TYPE UVECTOR)>
1427 <EMPL? CL10 - PHRASE43 (TYPE LIST)>
1428 <SET AFLG27 %<> (TYPE FALSE)>
1431 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1432 <RESTL CL10 1 = CL10 (TYPE LIST)>
1434 <ADD PTR23 1 = PTR23 (TYPE FIX)>
1435 <TYPE? IN-CASE?34 <TYPE-CODE FALSE> + PHRASE46>
1436 <ADD BYTEOFF9 2 = BYTEOFF9 (TYPE FIX)>
1437 <GVAL 'LABEL-TABLE = AFLG27>
1440 <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
1441 <GRTR? TEMP48 0 - RESTL50 (TYPE FIX)>
1442 <LOOP (AFLG27 VALUE) (TEMP48 VALUE)>
1445 <RESTL AFLG27 1 = AFLG27 (TYPE LIST)>
1446 <SUB TEMP48 1 = TEMP48 (TYPE FIX)>
1447 <GRTR? TEMP48 0 + RESTL49 (TYPE FIX)>
1449 <NTHL AFLG27 1 = AFLG27 (TYPE LABEL-REF)>
1450 <NTHUV AFLG27 3 = INSCODE24 (TYPE FIX)>
1451 <NTHUV AFLG27 2 = TEMP48 (TYPE LIST)>
1456 <EMPL? TEMP48 + MAPAP55>
1457 <NTHL TEMP48 1 = AFLG27>
1458 <NTHUV AFLG27 2 = TEMP64 (TYPE FIX)>
1459 <SUB PTR23 1 = TEMP65 (TYPE FIX)>
1460 <VEQUAL? TEMP64 TEMP65 - PHRASE63 (TYPE FIX)>
1461 <DEAD TEMP64 TEMP65>
1466 <RESTL TEMP48 1 = TEMP48 (TYPE LIST)>
1469 <PUTUV XREF31 6 START-CASE35 (TYPE FIX)>
1470 <GVAL 'FBYTE-OFFSET = TEMP48>
1471 <PUTUV XREF31 2 TEMP48>
1473 <SUB INSCODE24 START-CASE35 = INSCODE24 (TYPE FIX)>
1474 <FRAME '
\1aADD-BYTE-TO-FCODE>
1475 <AND INSCODE24 #WORD *377* = STACK>
1476 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1477 <FRAME '
\1aADD-BYTE-TO-FCODE>
1478 <LSH INSCODE24 -8 = TEMP58 (TYPE FIX)>
1480 <AND TEMP58 #WORD *377* = STACK>
1482 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1483 <SUB IN-CASE?34 1 = IN-CASE?34 (TYPE FIX)>
1484 <LESS? IN-CASE?34 0 - AGAIN36 (TYPE FIX)>
1485 <SET IN-CASE?34 %<> (TYPE FALSE)>
1488 <FRAME '
\1aGET-INST-INFO>
1490 <CALL '
\1aGET-INST-INFO 1 = OP-INF28>
1491 <NTHUU OP-INF28 2 = TEMP58 (TYPE FIX)>
1492 <LSH TEMP58 -24 = NUM-OPS29 (TYPE FIX)>
1494 <GVAL 'SPECIAL-OPS = TEMP58>
1495 <EMPUU? TEMP58 + PHRASE74>
1496 <LOOP (INSCODE24 VALUE) (TEMP58 LENGTH VALUE)>
1498 <NTHUU TEMP58 1 = TEMP48>
1499 <VEQUAL? TEMP48 INSCODE24 + TAG75>
1501 <RESTUU TEMP58 1 = TEMP58 (TYPE UVECTOR)>
1502 <EMPUU? TEMP58 - TAG76>
1505 <FRAME '
\1aGEN-SPECIAL-CODE>
1510 <CALL '
\1aGEN-SPECIAL-CODE 2 = BYTEOFF9>
1513 <GVAL 'CASE-INS = TEMP58>
1514 <EMPUU? TEMP58 + PHRASE81>
1515 <LOOP (INSCODE24 VALUE) (TEMP58 LENGTH VALUE)>
1517 <NTHUU TEMP58 1 = TEMP48>
1518 <VEQUAL? TEMP48 INSCODE24 + TAG82>
1520 <RESTUU TEMP58 1 = TEMP58 (TYPE UVECTOR)>
1521 <EMPUU? TEMP58 - TAG83>
1524 <SET IN-CASE?34 0 (TYPE FIX)>
1526 <GVAL 'BRANCH-INS = TEMP58>
1527 <EMPUU? TEMP58 + PHRASE86>
1528 <LOOP (INSCODE24 VALUE) (TEMP58 LENGTH VALUE)>
1530 <NTHUU TEMP58 1 = TEMP48>
1531 <VEQUAL? TEMP48 INSCODE24 + TAG87>
1533 <RESTUU TEMP58 1 = TEMP58 (TYPE UVECTOR)>
1534 <EMPUU? TEMP58 - TAG88>
1537 <FRAME '
\1aAGEN-BRANCH-1>
1541 <SUB PTR23 1 = STACK (TYPE FIX)>
1543 <CALL '
\1aAGEN-BRANCH-1 4 = BYTEOFF9>
1545 <FRAME '
\1aADD-BYTE-TO-FCODE>
1547 <CALL '
\1aADD-BYTE-TO-FCODE 1 = TEMP58>
1548 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1549 <VEQUAL? NUM-OPS29 0 + EXIT96 (TYPE FIX)>
1550 <SET SHFT97 -24 (TYPE FIX)>
1551 <SET FNUM98 1 (TYPE FIX)>
1555 <SUB NUM-OPS29 1 = NUM-OPS29 (TYPE FIX)>
1556 <LESS? NUM-OPS29 0 + EXIT96 (TYPE FIX)>
1557 <ADD SHFT97 8 = SHFT97 (TYPE FIX)>
1558 <GRTR? SHFT97 0 - PHRASE118 (TYPE FIX)>
1559 <SET SHFT97 -24 (TYPE FIX)>
1560 <ADD PTR23 1 = PTR23 (TYPE FIX)>
1561 <VEQUAL? AFLG27 0 - BOOL112>
1563 <PUSH 'ACCESS-BEYOND-END-OF-CODE!-ERRORS>
1566 <NTHUU CV11 1 = INS26 (TYPE FIX)>
1567 <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
1568 <EMPUU? CV11 - PHRASE118 (TYPE UVECTOR)>
1569 <EMPL? CL10 - PHRASE117 (TYPE LIST)>
1570 <SET AFLG27 %<> (TYPE FALSE)>
1573 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1574 <RESTL CL10 1 = CL10 (TYPE LIST)>
1576 <LSH INS26 SHFT97 = TEMP48 (TYPE FIX)>
1577 <AND TEMP48 #WORD *377* = TEMP65>
1579 <AND TEMP65 #WORD *360* = TEMP64>
1580 <AND TEMP65 #WORD *17* = R-OR-L100>
1581 <FRAME '
\1aGET-OP-INFO>
1584 <CALL '
\1aGET-OP-INFO 2 = TEMP48>
1585 <AND TEMP48 #WORD *7* = SIZ102>
1586 <ADD FNUM98 1 = FNUM98 (TYPE FIX)>
1587 <VEQUAL? TEMP48 32 + BOOL122 (TYPE FIX)>
1588 <VEQUAL? TEMP48 33 - PHRASE121 (TYPE FIX)>
1590 <FRAME '
\1aAGEN-BRANCH-2>
1594 <SUB PTR23 1 = STACK (TYPE FIX)>
1599 <CALL '
\1aAGEN-BRANCH-2 6 = BYTEOFF9>
1602 <LESS? TEMP64 64 - PHRASE124 (TYPE FIX)>
1603 <FRAME '
\1aADD-BYTE-TO-FCODE>
1605 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1606 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1607 <TYPE? IN-CASE?34 <TYPE-CODE FALSE> + AGAIN103>
1608 <VEQUAL? NUM-OPS29 0 - PHRASE129 (TYPE FIX)>
1609 <SET IN-CASE?34 TEMP65>
1613 <VEQUAL? NUM-OPS29 1 - AGAIN103 (TYPE FIX)>
1616 <VEQUAL? TEMP64 64 - PHRASE135 (TYPE FIX)>
1617 <SUB FNUM98 1 = FNUM98 (TYPE FIX)>
1618 <ADD NUM-OPS29 1 = NUM-OPS29 (TYPE FIX)>
1619 <FRAME '
\1aADD-BYTE-TO-FCODE>
1622 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1623 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1626 <VEQUAL? TEMP64 80 + BOOL138 (TYPE FIX)>
1627 <VEQUAL? TEMP64 96 + BOOL138 (TYPE FIX)>
1628 <VEQUAL? TEMP64 112 - PHRASE137 (TYPE FIX)>
1630 <FRAME '
\1aADD-BYTE-TO-FCODE>
1633 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1634 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1637 <VEQUAL? TEMP64 128 + BOOL141 (TYPE FIX)>
1638 <VEQUAL? TEMP64 144 - PHRASE140 (TYPE FIX)>
1640 <GVAL 'NAC-PC = TEMP48>
1641 <EQUAL? TEMP48 R-OR-L100 - PHRASE143>
1643 <FRAME '
\1aADD-BYTE-TO-FCODE>
1646 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1647 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1648 <VEQUAL? TEMP64 144 - PHRASE146 (TYPE FIX)>
1650 <SET SIZ102 4 (TYPE FIX)>
1653 <VEQUAL? SIZ102 2 + BOOL148 (TYPE FIX)>
1654 <VEQUAL? SIZ102 5 - PHRASE147 (TYPE FIX)>
1656 <SET SIZ102 4 (TYPE FIX)>
1659 <VEQUAL? SIZ102 1 - PHRASE149 (TYPE FIX)>
1661 <SET SIZ102 2 (TYPE FIX)>
1664 <SET SIZ102 1 (TYPE FIX)>
1666 <SET R-OR-L100 -8 (TYPE FIX)>
1667 <SET TEMP48 0 (TYPE FIX)>
1671 <SUB SIZ102 1 = SIZ102 (TYPE FIX)>
1672 <LESS? SIZ102 0 - PHRASE158 (TYPE FIX)>
1673 <TYPE? IN-CASE?34 <TYPE-CODE FALSE> + AGAIN103>
1674 <GRTR? NUM-OPS29 0 + PHRASE164 (TYPE FIX)>
1675 <SET IN-CASE?34 TEMP48>
1679 <VEQUAL? NUM-OPS29 1 - AGAIN103 (TYPE FIX)>
1684 <ADD SHFT97 8 = SHFT97 (TYPE FIX)>
1685 <GRTR? SHFT97 0 - PHRASE180 (TYPE FIX)>
1686 <SET SHFT97 -24 (TYPE FIX)>
1687 <ADD PTR23 1 = PTR23 (TYPE FIX)>
1688 <VEQUAL? AFLG27 0 - BOOL174>
1690 <PUSH 'ACCESS-BEYOND-END-OF-CODE!-ERRORS>
1693 <NTHUU CV11 1 = INS26 (TYPE FIX)>
1694 <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
1695 <EMPUU? CV11 - PHRASE180 (TYPE UVECTOR)>
1696 <EMPL? CL10 - PHRASE179 (TYPE LIST)>
1697 <SET AFLG27 %<> (TYPE FALSE)>
1700 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1701 <RESTL CL10 1 = CL10 (TYPE LIST)>
1703 <ADD R-OR-L100 8 = R-OR-L100 (TYPE FIX)>
1704 <LSH INS26 SHFT97 = TEMP64 (TYPE FIX)>
1705 <AND TEMP64 #WORD *377* = TEMP65>
1707 <LSH TEMP65 R-OR-L100 = TEMP64 (TYPE FIX)>
1708 <OR TEMP48 TEMP64 = TEMP48>
1710 <FRAME '
\1aADD-BYTE-TO-FCODE>
1713 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1714 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1717 <FRAME '
\1aADD-BYTE-TO-FCODE>
1720 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1721 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1724 <FRAME '
\1aADD-BYTE-TO-FCODE>
1727 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1728 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1729 <VEQUAL? TEMP64 176 + BOOL188 (TYPE FIX)>
1730 <VEQUAL? TEMP64 160 - PHRASE187 (TYPE FIX)>
1732 <SET SIZ102 1 (TYPE FIX)>
1735 <VEQUAL? TEMP64 208 + BOOL190 (TYPE FIX)>
1736 <VEQUAL? TEMP64 192 - PHRASE189 (TYPE FIX)>
1738 <SET SIZ102 2 (TYPE FIX)>
1741 <VEQUAL? TEMP64 240 + BOOL192 (TYPE FIX)>
1742 <VEQUAL? TEMP64 224 - PHRASE191 (TYPE FIX)>
1745 <SET SIZ102 4 (TYPE FIX)>
1750 <SUB SIZ102 1 = SIZ102 (TYPE FIX)>
1751 <LESS? SIZ102 0 + AGAIN103 (TYPE FIX)>
1752 <ADD SHFT97 8 = SHFT97 (TYPE FIX)>
1753 <GRTR? SHFT97 0 - PHRASE209 (TYPE FIX)>
1754 <SET SHFT97 -24 (TYPE FIX)>
1755 <ADD PTR23 1 = PTR23 (TYPE FIX)>
1756 <VEQUAL? AFLG27 0 - BOOL203>
1758 <PUSH 'ACCESS-BEYOND-END-OF-CODE!-ERRORS>
1761 <NTHUU CV11 1 = INS26 (TYPE FIX)>
1762 <RESTUU CV11 1 = CV11 (TYPE UVECTOR)>
1763 <EMPUU? CV11 - PHRASE209 (TYPE UVECTOR)>
1764 <EMPL? CL10 - PHRASE208 (TYPE LIST)>
1765 <SET AFLG27 %<> (TYPE FALSE)>
1768 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1769 <RESTL CL10 1 = CL10 (TYPE LIST)>
1771 <LSH INS26 SHFT97 = TEMP65 (TYPE FIX)>
1772 <AND TEMP65 #WORD *377* = TEMP65>
1773 <FRAME '
\1aADD-BYTE-TO-FCODE>
1776 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1777 <ADD BYTEOFF9 1 = BYTEOFF9 (TYPE FIX)>
1780 <TYPE? IN-CASE?34 <TYPE-CODE FALSE> + PHRASE212>
1781 <SET START-CASE35 BYTEOFF9>
1783 <VEQUAL? AFLG27 0 + EXIT21>
1785 <EMPUU? CV11 - PHRASE215 (TYPE UVECTOR)>
1786 <EMPL? CL10 + EXIT21 (TYPE LIST)>
1787 <NTHL CL10 1 = CV11 (TYPE UVECTOR)>
1788 <RESTL CL10 1 = CL10 (TYPE LIST)>
1790 <LESS? PTR23 MAXPTR12 + AGAIN36 (TYPE FIX)>
1792 <TYPE? CLABELS13 <TYPE-CODE FALSE> + PHRASE221>
1794 <FRAME '
\1aFORCE-OUT-FCODE>
1795 <CALL '
\1aFORCE-OUT-FCODE 0 = TEMP48>
1796 <ADD BYTEOFF9 TEMP48 = TEMP65 (TYPE FIX)>
1797 <DEAD BYTEOFF9 TEMP48>
1803 <END
\1aOUTPUT-PASS>
1806 <GFCN
\1aSWAP-MODE ("VALUE" FIX FIX) MODEA4>
1807 <TEMP LOW5:FIX HIGH6:FIX>
1809 <AND MODEA4 #WORD *7* = LOW5>
1810 <GETBITS MODEA4 3 3 = HIGH6>
1812 <PUTBITS HIGH6 3 3 LOW5 = LOW5>
1819 <GFCN
\1aGENEA ("VALUE" FIX FIX FIX FIX FIX) EA4 BYTEOFF5 DISP6 SZ7>
1820 <TEMP RES10 TEMP15 TAB11:UVECTOR WD8:FIX>
1823 <GVAL 'ADDRESS-IMM = TEMP15>
1824 <EQUAL? TEMP15 EA4 - PHRASE13>
1826 <GVAL 'LENGTH-LONG = TEMP15>
1827 <EQUAL? TEMP15 SZ7 - PHRASE13>
1829 <GVAL 'CONSTANT-TABLE = TAB11>
1830 <ADD DISP6 1 = TEMP15 (TYPE FIX)>
1831 <NTHUU TAB11 TEMP15 = WD8 (TYPE FIX)>
1833 <VEQUAL? WD8 0 - PHRASE17 (TYPE FIX)>
1834 <NTHUU TAB11 DISP6 = WD8 (TYPE FIX)>
1835 <ADD DISP6 1 = TEMP15 (TYPE FIX)>
1837 <PUTUU TAB11 TEMP15 BYTEOFF5>
1839 <FRAME '
\1aADD-WORD-TO-FCODE>
1840 <GETBITS WD8 16 16 = STACK>
1841 <CALL '
\1aADD-WORD-TO-FCODE 1>
1842 <FRAME '
\1aADD-WORD-TO-FCODE>
1845 <CALL '
\1aADD-WORD-TO-FCODE 1>
1846 <ADD BYTEOFF5 4 = BYTEOFF5 (TYPE FIX)>
1849 <GVAL 'ADDRESS-PCDISP = RES10>
1850 <FRAME '
\1aADD-WORD-TO-FCODE>
1851 <SUB WD8 BYTEOFF5 = STACK (TYPE FIX)>
1853 <CALL '
\1aADD-WORD-TO-FCODE 1>
1854 <ADD BYTEOFF5 2 = BYTEOFF5 (TYPE FIX)>
1857 <GETBITS EA4 3 3 = WD8>
1859 <GRTR? WD8 4 - PHRASE26 (TYPE FIX)>
1861 <ADD BYTEOFF5 2 = BYTEOFF5 (TYPE FIX)>
1862 <FRAME '
\1aADD-WORD-TO-FCODE>
1865 <CALL '
\1aADD-WORD-TO-FCODE 1>
1867 <PUTBITS RES10 16 16 BYTEOFF5 = TEMP15>
1868 <DEAD RES10 BYTEOFF5>
1874 <GFCN
\1aEXTEND ("VALUE" FIX FIX) X4>
1877 <GETBITS X4 1 15 = TEMP7>
1878 <VEQUAL? TEMP7 1 - PHRASE6 (TYPE FIX)>
1880 <LSH -1 16 = TEMP7 (TYPE FIX)>
1881 <OR X4 TEMP7 = TEMP7>
1891 <GFCN
\1aEXTEND-BYTE ("VALUE" FIX FIX) X4>
1894 <GETBITS X4 1 7 = TEMP7>
1895 <VEQUAL? TEMP7 1 - PHRASE6 (TYPE FIX)>
1897 <LSH -1 8 = TEMP7 (TYPE FIX)>
1898 <OR X4 TEMP7 = TEMP7>
1905 <END
\1aEXTEND-BYTE>
1908 <GFCN
\1aFORCE-OUT-FCODE ("VALUE" FIX)>
1909 <TEMP SHFT4:FIX I8:FIX>
1911 <GVAL 'FSHIFT = SHFT4>
1912 <SET I8 0 (TYPE FIX)>
1916 <SUB SHFT4 8 = SHFT4 (TYPE FIX)>
1917 <GRTR? SHFT4 0 + PHRASE11 (TYPE FIX)>
1921 <FRAME '
\1aADD-BYTE-TO-FCODE>
1923 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1924 <ADD I8 1 = I8 (TYPE FIX)>
1926 <END
\1aFORCE-OUT-FCODE>
1929 <GFCN
\1aINIT-UNRESOLVED-CALLS ("VALUE" <LIST [REST UNRESOLVED-CALL]>)>
1932 <SETG 'UNRESOLVED-CALLS-TABLE ()>
1934 <END
\1aINIT-UNRESOLVED-CALLS>
1937 <GFCN
\1aCHECK-UNRESOLVED-CALLS ("VALUE" FIX FIX FIX) EBYTEOFF4 SBYTEOFF5>
1938 <TEMP TEMP17:LIST UCALL18:UNRESOLVED-CALL TEMP24 TEM20:FIX>
1940 <GVAL 'UNRESOLVED-CALLS-TABLE = TEMP17>
1944 <EMPL? TEMP17 + MAPAP10>
1945 <NTHL TEMP17 1 = UCALL18>
1946 <NTHUV UCALL18 4 = TEMP24 (TYPE FIX)>
1947 <SUB EBYTEOFF4 TEMP24 = TEMP24 (TYPE FIX)>
1948 <GRTR? TEMP24 32767 - PHRASE22 (TYPE FIX)>
1950 <NTHUV UCALL18 4 = TEMP24 (TYPE FIX)>
1951 <SUB SBYTEOFF5 TEMP24 = TEM20 (TYPE FIX)>
1953 <GRTR? TEM20 32767 - PHRASE26 (TYPE FIX)>
1955 <PUSH 'CANT-JUMP-FAR-ENOUGH>
1959 <PUSH 'CHECK-UNRESOLVED-CALLS>
1962 <FRAME '
\1aPUT-FCODE>
1963 <NTHUV UCALL18 3 = STACK (TYPE FIX)>
1964 <AND TEM20 #WORD *377* = STACK>
1965 <CALL '
\1aPUT-FCODE 2>
1966 <FRAME '
\1aPUT-FCODE>
1967 <NTHUV UCALL18 3 = TEMP24 (TYPE FIX)>
1968 <ADD TEMP24 1 = STACK (TYPE FIX)>
1970 <LSH TEM20 -8 = TEMP24 (TYPE FIX)>
1972 <AND TEMP24 #WORD *377* = STACK>
1974 <CALL '
\1aPUT-FCODE 2>
1975 <ADD SBYTEOFF5 3 = TEMP24 (TYPE FIX)>
1976 <PUTUV UCALL18 4 TEMP24 (TYPE FIX)>
1978 <FRAME '
\1aADD-BYTE-TO-FCODE>
1980 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1981 <FRAME '
\1aADD-BYTE-TO-FCODE>
1983 <CALL '
\1aADD-BYTE-TO-FCODE 1 = TEMP24>
1984 <FRAME '
\1aADD-BYTE-TO-FCODE>
1986 <CALL '
\1aADD-BYTE-TO-FCODE 1>
1987 <PUTUV UCALL18 3 TEMP24>
1988 <DEAD UCALL18 TEMP24>
1989 <ADD SBYTEOFF5 3 = SBYTEOFF5 (TYPE FIX)>
1991 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
1996 <END
\1aCHECK-UNRESOLVED-CALLS>
1999 <GFCN
\1aADD-UNRESOLVED-CALLS ("VALUE" <LIST [REST UNRESOLVED-CALL]>)>
2000 <TEMP TAB4:LIST TEMP16:VECTOR UCALL17 TEMP19 TEMP28>
2002 <GVAL 'UNRESOLVED-CALLS-TABLE = TAB4>
2003 <GVAL 'CALL-TABLE = TEMP16>
2007 <EMPUV? TEMP16 + MAPAP9>
2008 <NTHUV TEMP16 1 = UCALL17>
2009 <TYPE? UCALL17 <TYPE-CODE FALSE> + MAPAP9>
2010 <NTHUV UCALL17 3 = TEMP19 (TYPE FIX)>
2011 <GRTR? TEMP19 0 - PHRASE26 (TYPE FIX)>
2013 <EMPL? TAB4 - PHRASE25 (TYPE LIST)>
2014 <CONS UCALL17 () = TAB4>
2019 <LOOP (TEMP19 VALUE)>
2021 <RESTL TEMP19 1 = TEMP28 (TYPE LIST)>
2022 <EMPL? TEMP28 + TAG29>
2027 <CONS UCALL17 () = TEMP28>
2029 <PUTREST TEMP19 TEMP28>
2030 <DEAD TEMP19 TEMP28>
2032 <RESTUV TEMP16 1 = TEMP16 (TYPE VECTOR)>
2035 <SETG 'UNRESOLVED-CALLS-TABLE TAB4>
2038 <END
\1aADD-UNRESOLVED-CALLS>
2041 <GFCN
\1aFIXUP-UNRESOLVED-CALLS ("VALUE" ATOM CALL-ENTRY) CE4>
2042 <TEMP NAME5:ATOM PTR9:LIST PPTR10:LIST UCALL11 TEMP19 OFF12>
2044 <NTHUV CE4 1 = NAME5 (TYPE ATOM)>
2045 <GVAL 'UNRESOLVED-CALLS-TABLE = PTR9>
2050 <EMPL? PTR9 - PHRASE15 (TYPE LIST)>
2053 <NTHL PTR9 1 = UCALL11>
2054 <FRAME '
\1aSAME-NAME?>
2055 <NTHUV UCALL11 1 = STACK (TYPE ATOM)>
2057 <CALL '
\1aSAME-NAME? 2 = TEMP19>
2058 <TYPE? TEMP19 <TYPE-CODE FALSE> + PHRASE17>
2060 <FRAME '
\1aFIND-ENTRY-LOC>
2062 <NTHUV UCALL11 2 = STACK (TYPE FIX)>
2063 <CALL '
\1aFIND-ENTRY-LOC 2 = OFF12>
2064 <TYPE? OFF12 <TYPE-CODE FALSE> - BOOL20>
2067 <PUSH 'FIXUP-UNRESOLVED-CALLS>
2070 <NTHUV UCALL11 4 = TEMP19 (TYPE FIX)>
2071 <SUB OFF12 TEMP19 = OFF12 (TYPE FIX)>
2074 <LESS? TEMP19 0 - TAG24 (TYPE FIX)>
2075 <SUB 0 TEMP19 = TEMP19 (TYPE FIX)>
2077 <GRTR? TEMP19 32767 - BOOL23 (TYPE FIX)>
2081 <PUSH 'FIXUP-UNRESOLVED-CALLS>
2084 <FRAME '
\1aPUT-FCODE>
2085 <NTHUV UCALL11 3 = STACK (TYPE FIX)>
2086 <AND OFF12 #WORD *377* = STACK>
2087 <CALL '
\1aPUT-FCODE 2>
2088 <FRAME '
\1aPUT-FCODE>
2089 <NTHUV UCALL11 3 = TEMP19 (TYPE FIX)>
2091 <ADD TEMP19 1 = STACK (TYPE FIX)>
2093 <LSH OFF12 -8 = TEMP19 (TYPE FIX)>
2095 <AND TEMP19 #WORD *377* = STACK>
2097 <CALL '
\1aPUT-FCODE 2>
2098 <VEQUAL? PTR9 PPTR10 - PHRASE29>
2099 <RESTL PTR9 1 = TEMP19 (TYPE LIST)>
2100 <SETG 'UNRESOLVED-CALLS-TABLE TEMP19>
2102 <RESTL PTR9 1 = PPTR10 (TYPE LIST)>
2105 <RESTL PTR9 1 = TEMP19 (TYPE LIST)>
2106 <PUTREST PPTR10 TEMP19>
2112 <RESTL PTR9 1 = PTR9 (TYPE LIST)>
2114 <END
\1aFIXUP-UNRESOLVED-CALLS>