4 <ENTRY GEN CODE-GEN SEQ-GEN SEGMENT-STACK GOOD-TUPLE NO-KILL DELAY-KILL BASEF LADDR TRUE-FALSE SUBR-GEN BIND-CODE NPRUNE ARG? OPT? COND-GEN OR-GEN AND-GEN ASSIGNED?-GEN BIND-B ACT-B AUX1-B AUX2-B SMSUBR-CALL CALL-GEN T-NAME GASSIGNED?-GEN INTERFERE? INTERF-CHANGE SEGLABEL SEGCALLED COUNTMP SET-GEN PSEQ-GEN>
6 <USE "CHKDCL" "COMPDEC" "MIMGEN" "STRGEN" "MAPGEN" "MMQGEN" "BUILDL" "BITSGEN" "LNQGEN" "CARGEN" "NOTGEN" "ALLR" "SUBRTY" "NEWREP" "ADVMESS" "CASECOMP">
8 <SETG THE-UNBOUND <CHTYPE 0 T$UNBOUND>>
10 " This file contains the major general codde generators. These include
11 variable access functions (LVAL, SETG etc.), FSUBRs (COND, AND, REPEAT)
12 and a few assorted others."
14 " Main generator, dispatches to specific code generators. "
17 <GFCN
\1aGEN ("VALUE" ANY NODE "OPTIONAL" ANY) NOD6 WHERE7>
18 <OPT-DISPATCH 1 %<> OPT4 OPT5>
24 <FRAME '
\1aGEN-DISPATCH>
28 <CALL '
\1aGEN-DISPATCH 2 = TEMP8>
29 <GEN-ASSIGNED? 'NPRUNE + BOOL10>
30 <PUTUV NOD6 5 () (TYPE LIST)>
36 " Generate a sequence of nodes flushing all values except the ladt."
39 <GFCN
\1aSEQ-GEN ("VALUE" ANY <LIST [REST NODE]> ANY "OPTIONAL" ANY ANY ANY) L8 WHERE9 INPROG10 SINPROG11 INCODE-GEN12>
40 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
48 <TEMP (WSET14 %<>) TEMP21:LIST N26:LIST ND27 TEMP32 NX28>
50 <SET TEMP21 L8 (TYPE LIST)>
55 <EMPL? TEMP21 + MAPAP19>
57 <NTHL N26 1 = ND27 (TYPE NODE)>
58 <RESTL N26 1 = TEMP32 (TYPE LIST)>
59 <EMPL? TEMP32 + PHRASE31 (TYPE LIST)>
61 <RESTL N26 1 = TEMP32 (TYPE LIST)>
62 <NTHL TEMP32 1 = NX28 (TYPE NODE)>
64 <NTHUV NX28 1 = TEMP32 (TYPE FIX)>
65 <VEQUAL? TEMP32 90 - PHRASE34 (TYPE FIX)>
67 <NTHUV NX28 5 = NX28 (TYPE LIST)>
68 <EMPL? NX28 + PHRASE34>
69 <RESTL NX28 1 = TEMP32 (TYPE LIST)>
70 <EMPL? TEMP32 + PHRASE34>
72 <NTHL NX28 1 = TEMP32 (TYPE NODE)>
74 <NTHUV TEMP32 4 = TEMP32>
75 <EQUAL? TEMP32 '`ENDIF - PHRASE34>
81 <CALL '
\1aGEN 2 = ND27>
82 <VEQUAL? WSET14 0 - PHRASE38>
83 <EQUAL? WHERE9 'FLUSHED + PHRASE38>
84 <GVAL 'NO-DATUM = TEMP32>
85 <EQUAL? TEMP32 ND27 + PHRASE38>
87 <GVAL 'POP-STACK = TEMP32>
88 <EQUAL? TEMP32 WHERE9 + PHRASE38>
90 <FRAME '
\1aFIXUP-TEMP>
95 <CALL '
\1aFIXUP-TEMP 2 = WHERE9>
96 <SET WSET14 'T (TYPE ATOM)>
98 <RESTL N26 1 = TEMP32 (TYPE LIST)>
100 <RESTL TEMP32 1 = TEMP32 (TYPE LIST)>
101 <EMPL? TEMP32 + PHRASE53 (TYPE LIST)>
103 <FRAME '
\1aDEALLOCATE-TEMP>
105 <CALL '
\1aDEALLOCATE-TEMP 1>
108 <LENUV ND27 = TEMP32 (TYPE FIX)>
109 <LESS? TEMP32 8 + BOOL47 (TYPE FIX)>
111 <NTHUV ND27 8 = TEMP32>
112 <TYPE? TEMP32 <TYPE-CODE FALSE> - BOOL46>
117 <PUSH 'DONT-FLUSH-ME>
118 <CALL '
\1aGETPROP 2 = TEMP32>
119 <TYPE? TEMP32 <TYPE-CODE FALSE> - BOOL46>
121 <GVAL 'DONT-FLUSH-ME = TEMP32>
122 <TYPE? TEMP32 <TYPE-CODE FALSE> + PHRASE53>
132 <NTHUV ND27 1 = TEMP32 (TYPE FIX)>
133 <VEQUAL? TEMP32 90 - PHRASE50 (TYPE FIX)>
135 <NTHUV ND27 5 = NX28 (TYPE LIST)>
136 <EMPL? NX28 + PHRASE50>
137 <RESTL NX28 1 = TEMP32 (TYPE LIST)>
138 <EMPL? TEMP32 + PHRASE50>
140 <NTHL NX28 1 = TEMP32 (TYPE NODE)>
142 <NTHUV TEMP32 4 = TEMP32>
143 <EQUAL? TEMP32 '`ENDIF - PHRASE50>
157 <CALL '
\1aGEN 2 = WHERE9>
159 <RESTL TEMP21 1 = TEMP21 (TYPE LIST)>
165 " The main code generation entry (called from CDRIVE). Sets up initial
166 stack model, calls to generate code for the bindings and generates code for
167 the function's body."
170 <GFCN
\1aCODE-GEN ("VALUE" LIST NODE ANY) BASEF4 EXTRA-CODE5>
171 <TEMP TEMP3:LBIND TEMP27 TEMP28 K6 ATAG10:ATOM RTAG11:ATOM BNDTMP23:TEMP>
173 <GETS 'BIND = TEMP3 (TYPE LBIND)>
174 <BBIND 'BASEF 'NODE %<> BASEF4>
177 <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
178 <NTHR TEMP28 1 = TEMP27 (RECORD-TYPE LBIND)>
180 <NTHUV TEMP27 5 = K6 (TYPE LIST)>
182 <BBIND 'NO-KILL 'LIST 'FIX ()>
183 <BBIND 'KILL-LIST 'LIST 'FIX ()>
186 <CALL '
\1aMAKE-TAG 1 = ATAG10>
189 <CALL '
\1aMAKE-TAG 1 = RTAG11>
190 <BBIND 'CODE-START 'LIST 'FIX EXTRA-CODE5>
192 <NTHR 'CODE-START 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
193 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
194 <BBIND 'CODE-PTR 'LIST 'FIX TEMP27>
196 <BBIND 'EVERY-TEMP 'LIST 'FIX ()>
197 <BBIND 'ARGS-NEXT 'LIST 'FIX>
198 <BBIND 'TMPS 'FORM 'FIX>
199 <BBIND 'TMPS-NEXT 'LIST 'FIX>
200 <BBIND 'STK 'FIX 'FIX 0>
201 <BBIND 'FREE-TEMPS <LIST [REST TEMP]> 'FIX ()>
202 <BBIND 'ALL-TEMPS-LIST 'LIST 'FIX ()>
203 <BBIND 'TMP-DEST 'ATOM 'FIX>
204 <BBIND 'SPECD 'ANY 'FIX>
205 <BBIND 'STKTMP 'ANY 'FIX>
206 <BBIND 'STK-CHARS7 'FIX 'FIX 0>
207 <BBIND 'STK-CHARS8 'FIX 'FIX 0>
209 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
210 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
211 <NTHUV TEMP27 4 = STACK>
213 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
214 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
215 <NTHUV TEMP27 9 = STACK>
217 <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
218 <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
219 <NTHUV TEMP28 12 = TEMP27>
221 <TYPE? TEMP27 <TYPE-CODE FALSE> - BOOL40>
223 <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
224 <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
225 <NTHUV TEMP28 10 = STACK (TYPE LIST)>
227 <CALL '
\1aACTIV? 1 = TEMP27>
228 <VEQUAL? TEMP27 0 - BOOL40>
230 <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
231 <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
232 <NTHUV TEMP28 4 = STACK>
235 <CALL '
\1aGETPROP 2 = TEMP27>
236 <TYPE? TEMP27 <TYPE-CODE FALSE> - BOOL40>
238 <NTHR 'BASEF 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
239 <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
242 <CALL '
\1aGETPROP 2 = TEMP27>
247 <FRAME '
\1aMIM-TEMPS-HOLD>
248 <CALL '
\1aMIM-TEMPS-HOLD 0>
249 <FRAME '
\1aBIND-CODE>
250 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
251 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
256 <CALL '
\1aGEN-TEMP 1 = BNDTMP23>
258 <CALL '
\1aBIND-CODE 3 = TEMP27>
259 <NTHR 'SPECD 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
260 <PUTR TEMP28 1 TEMP27 (RECORD-TYPE LBIND)>
262 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
263 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
264 <NTHUV TEMP27 19 = TEMP27>
265 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE60>
271 <FRAME '
\1aLABEL-TAG>
273 <CALL '
\1aLABEL-TAG 1>
274 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
275 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
276 <PUTUV TEMP27 14 'DONT-CARE>
278 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
279 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
280 <PUTUV TEMP27 15 'DONT-CARE>
282 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
283 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
284 <PUTUV TEMP27 16 ATAG10>
286 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
287 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
288 <PUTUV TEMP27 17 RTAG11>
297 <CALL '
\1aSEQ-GEN 5 = K6>
298 <GVAL 'NO-DATUM = TEMP27>
299 <EQUAL? K6 TEMP27 - PHRASE75>
301 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
302 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
303 <NTHUV TEMP27 15 = K6>
306 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
307 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
308 <NTHUV TEMP27 15 = TEMP27>
309 <EQUAL? TEMP27 K6 + PHRASE79>
314 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
315 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
316 <NTHUV TEMP27 15 = STACK>
318 <CALL '
\1aMOVE-ARG 2 = K6>
320 <FRAME '
\1aLABEL-TAG>
323 <CALL '
\1aLABEL-TAG 1>
324 <NTHR 'TMP-DEST 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
325 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
326 <TYPE? TEMP27 <TYPE-CODE UNBOUND> + PHRASE87>
328 <NTHR 'TMPS-NEXT 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
329 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
330 <NTHR 'TMP-DEST 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
331 <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
332 <CONS TEMP28 () = TEMP28>
333 <CONS '= TEMP28 = TEMP28>
334 <PUTREST TEMP27 TEMP28>
337 <FRAME '
\1aFREE-TEMP>
340 <CALL '
\1aFREE-TEMP 2>
341 <NTHR 'SPECD 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
342 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
343 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE94>
349 <FRAME '
\1aFREE-TEMP>
352 <CALL '
\1aFREE-TEMP 1>
354 <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
355 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
356 <VEQUAL? TEMP27 0 + PHRASE100 (TYPE FIX)>
358 <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
359 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
360 <NTHR 'STK 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
361 <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
362 <ADD TEMP27 TEMP28 = TEMP27 (TYPE FIX)>
364 <NTHR 'STK-CHARS8 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
365 <PUTR TEMP28 1 TEMP27 (RECORD-TYPE LBIND)>
367 <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
368 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
369 <NTHR 'STK 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
370 <NTHR TEMP28 1 = TEMP28 (RECORD-TYPE LBIND)>
371 <ADD TEMP27 TEMP28 = TEMP27 (TYPE FIX)>
373 <NTHR 'STK-CHARS7 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
374 <PUTR TEMP28 1 TEMP27 (RECORD-TYPE LBIND)>
376 <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
377 <PUTR TEMP27 1 0 (RECORD-TYPE LBIND)>
380 <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
381 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
382 <TYPE? TEMP27 <TYPE-CODE UNBOUND> + PHRASE120>
384 <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
385 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
386 <VEQUAL? TEMP27 0 + PHRASE122 (TYPE FIX)>
390 <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
391 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
393 <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
394 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
397 <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
398 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
400 <CONS 'FIX () = TEMP27>
401 <CONS '`TYPE TEMP27 = STACK>
406 <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
407 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
408 <VEQUAL? TEMP27 0 + PHRASE134 (TYPE FIX)>
416 <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
417 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
419 <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
420 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
423 <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
424 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
437 <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
438 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
440 <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
441 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
444 <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
445 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
455 <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
456 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
459 <FRAME '
\1aFREE-TEMP>
460 <NTHR 'STKTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
461 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
463 <CALL '
\1aFREE-TEMP 1>
466 <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
467 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
468 <VEQUAL? TEMP27 0 + PHRASE163 (TYPE FIX)>
472 <NTHR 'STK 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
473 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
474 <SUB 0 TEMP27 = STACK (TYPE FIX)>
479 <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
480 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
481 <VEQUAL? TEMP27 0 + PHRASE171 (TYPE FIX)>
489 <NTHR 'STK-CHARS7 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
490 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
491 <SUB 0 TEMP27 = STACK (TYPE FIX)>
504 <NTHR 'STK-CHARS8 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
505 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
506 <SUB 0 TEMP27 = STACK (TYPE FIX)>
514 <FRAME '
\1aMIM-RETURN>
517 <CALL '
\1aMIM-RETURN 1>
518 <FRAME '
\1aTYPIFY-TEMPS>
519 <NTHR 'EVERY-TEMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
520 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
522 <CALL '
\1aTYPIFY-TEMPS 1>
525 <NTHR 'BASEF 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
526 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
527 <NTHUV TEMP27 4 = TEMP27>
528 <CHTYPE TEMP27 <TYPE-CODE FCN-ATOM> = STACK>
531 <NTHR 'CODE-START 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
532 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
539 " Generate code for setting up and binding agruments."
542 <GFCN
\1aBIND-CODE ("VALUE" ANY NODE "OPTIONAL" ANY ANY) NOD7 FORPROG8 BNDTMP9>
543 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
549 <TEMP BST10:LIST TEMP3:LBIND (LARG12 %<>) (ANY-ARG13 %<>) (ANY-SPEC14 %<>) (OPTS?15 %<>) (OL16 ()) (TUP?18 %<>) TEMP28 TEMP27 SYM32 TEMP36 TEMP41>
551 <NTHUV NOD7 10 = BST10 (TYPE LIST)>
552 <GETS 'BIND = TEMP3 (TYPE LBIND)>
553 <BBIND 'NPRUNE 'ANY 'FIX 'T>
554 <BBIND 'T-NAME 'ANY 'FIX>
555 <TYPE? FORPROG8 <TYPE-CODE FALSE> - PHRASE81>
556 <SET OL16 () (TYPE LIST)>
557 <SET TEMP28 () (TYPE LIST)>
558 <SET TEMP27 BST10 (TYPE LIST)>
562 <EMPL? TEMP27 + MAPAP25>
563 <NTHL TEMP27 1 = SYM32>
566 <CALL '
\1aOPT? 1 = TEMP36>
567 <VEQUAL? TEMP36 0 + PHRASE34>
571 <CALL '
\1aMAKE-TAG 1 = TEMP36>
574 <NTHUV SYM32 4 = TEMP41 (TYPE FIX)>
576 <VEQUAL? TEMP41 4 - MAP23 (TYPE FIX)>
578 <NTHUV NOD7 20 = TUP?18 (TYPE FIX)>
581 <CONS TEMP36 () = TEMP36 (TYPE LIST)>
583 <SET OL16 TEMP36 (TYPE LIST)>
586 <PUTREST TEMP28 TEMP36>
589 <SET TEMP28 TEMP36 (TYPE LIST)>
592 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
595 <EMPL? OL16 + PHRASE46 (TYPE LIST)>
597 <LOOP (TEMP27 VALUE)>
599 <RESTL TEMP27 1 = TEMP36 (TYPE LIST)>
600 <EMPL? TEMP36 + TAG48>
607 <CALL '
\1aMAKE-TAG 1 = TEMP36>
608 <CONS TEMP36 () = TEMP36>
609 <PUTREST TEMP27 TEMP36>
612 <PUSH '`OPT-DISPATCH>
613 <NTHUV NOD7 21 = STACK (TYPE FIX)>
616 <SET TEMP41 3 (TYPE FIX)>
618 <LOOP (TEMP36 VALUE) (TEMP41 VALUE)>
621 <EMPL? TEMP36 + TAG50>
622 <NTHL TEMP36 1 = STACK>
623 <RESTL TEMP36 1 = TEMP36 (TYPE LIST)>
624 <ADD TEMP41 1 = TEMP41 (TYPE FIX)>
627 <CALL '
\1aIEMIT TEMP41>
630 <SET TEMP41 BST10 (TYPE LIST)>
634 <EMPL? TEMP41 + MAPAP57>
635 <NTHL TEMP41 1 = SYM32>
638 <NTHUV SYM32 2 = STACK (TYPE ATOM)>
640 <NTHUV SYM32 7 = STACK>
641 <CALL '
\1aGEN-TEMP 4 = TUP?18>
642 <PUTUV SYM32 10 TUP?18>
646 <CALL '
\1aOPT? 1 = TUP?18>
647 <VEQUAL? TUP?18 0 + PHRASE78>
649 <FRAME '
\1aLABEL-TAG>
650 <NTHL OL16 1 = STACK>
651 <CALL '
\1aLABEL-TAG 1>
652 <RESTL OL16 1 = OL16 (TYPE LIST)>
653 <NTHUV SYM32 3 = TUP?18>
654 <TYPE? TUP?18 <TYPE-CODE FALSE> - PHRASE71>
656 <NTHUV SYM32 4 = TUP?18 (TYPE FIX)>
657 <VEQUAL? TUP?18 9 + PHRASE71 (TYPE FIX)>
659 <NTHUV SYM32 4 = TUP?18 (TYPE FIX)>
660 <VEQUAL? TUP?18 8 + PHRASE71 (TYPE FIX)>
662 <NTHUV SYM32 9 = TUP?18 (TYPE NODE)>
663 <NTHUV TUP?18 1 = TUP?18 (TYPE FIX)>
664 <VEQUAL? TUP?18 2 + BOOL73 (TYPE FIX)>
665 <VEQUAL? TUP?18 10 - PHRASE71 (TYPE FIX)>
669 <NTHUV SYM32 9 = STACK (TYPE NODE)>
671 <GVAL 'POP-STACK = STACK>
676 <GVAL 'THE-UNBOUND = STACK>
679 <RESTL OL16 1 = TUP?18 (TYPE LIST)>
680 <EMPL? TUP?18 - PHRASE78 (TYPE LIST)>
682 <FRAME '
\1aLABEL-TAG>
683 <NTHL OL16 1 = STACK>
684 <CALL '
\1aLABEL-TAG 1>
686 <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
689 <NTHUV NOD7 1 = TUP?18 (TYPE FIX)>
690 <VEQUAL? TUP?18 1 - PHRASE81 (TYPE FIX)>
692 <FRAME '
\1aMIM-TEMPS-EMIT>
693 <CALL '
\1aMIM-TEMPS-EMIT 0>
695 <SET TUP?18 BST10 (TYPE LIST)>
700 <EMPL? TUP?18 + MAPAP89>
702 <NTHL BST10 1 = OL16 (TYPE SYMTAB)>
705 <CALL '
\1aARG? 1 = TEMP28>
708 <CALL '
\1aOPT? 1 = TEMP27>
709 <NTHUV OL16 15 = TEMP36>
710 <TYPE? TEMP36 <TYPE-CODE FALSE> - PHRASE105>
712 <NTHUV OL16 3 = TEMP36>
713 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE103>
715 <FRAME '
\1aCOMPILE-NOTE>
716 <PUSH "Special variable never used: ">
717 <NTHUV OL16 2 = STACK (TYPE ATOM)>
718 <CALL '
\1aCOMPILE-NOTE 2>
721 <FRAME '
\1aCOMPILE-WARNING>
722 <PUSH "Variable never used: ">
723 <NTHUV OL16 2 = STACK (TYPE ATOM)>
724 <CALL '
\1aCOMPILE-WARNING 2>
726 <VEQUAL? LARG12 0 - PHRASE108>
727 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE108>
728 <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE108>
729 <VEQUAL? ANY-SPEC14 0 + PHRASE111>
730 <VEQUAL? ANY-ARG13 0 + PHRASE111>
731 <FRAME '
\1aGEN-FIX-BIND>
732 <CALL '
\1aGEN-FIX-BIND 0>
734 <SET LARG12 'T (TYPE ATOM)>
736 <NTHUV OL16 10 = TEMP36>
737 <TYPE? TEMP36 <TYPE-CODE TEMP> + PHRASE115>
741 <NTHUV OL16 2 = STACK (TYPE ATOM)>
743 <NTHUV OL16 7 = STACK>
744 <CALL '
\1aGEN-TEMP 4 = TEMP36>
745 <PUTUV OL16 10 TEMP36>
748 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE118>
749 <VEQUAL? OPTS?15 0 - PHRASE118>
750 <SET OPTS?15 'T (TYPE ATOM)>
752 <TYPE? BNDTMP9 <TYPE-CODE UNBOUND> + PHRASE121>
753 <NTHUV OL16 3 = TEMP36>
754 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE121>
756 <VEQUAL? ANY-SPEC14 0 - PHRASE121>
757 <SET ANY-SPEC14 'T (TYPE ATOM)>
761 <CALL '
\1aUSE-TEMP 2>
762 <FRAME '
\1aGET-BINDING>
764 <CALL '
\1aGET-BINDING 1>
766 <NTHUV OL16 10 = SYM32 (TYPE TEMP)>
767 <NTHUV OL16 12 = TEMP36>
768 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE126>
770 <SET TEMP36 'ANY (TYPE ATOM)>
773 <NTHUV OL16 18 = TEMP36>
775 <PUTUV SYM32 6 TEMP36>
777 <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL130>
778 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE129>
780 <GEN-LVAL 'ARGS-NEXT = TEMP36>
781 <NTHUV SYM32 1 = TEMP41 (TYPE ATOM)>
782 <CONS TEMP41 () = TEMP41>
783 <GEN-SET 'ARGS-NEXT TEMP41>
784 <PUTREST TEMP36 TEMP41>
787 <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL138>
788 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE137>
790 <SET ANY-ARG13 'T (TYPE ATOM)>
792 <NTHUV SYM32 1 = TEMP36 (TYPE ATOM)>
793 <NTHR 'T-NAME 2 = TEMP41 (RECORD-TYPE ATOM) (TYPE LBIND)>
794 <PUTR TEMP41 1 TEMP36 (RECORD-TYPE LBIND)>
796 <FRAME '
\1aBIND-GENERATE>
799 <CALL '
\1aBIND-GENERATE 2 = TEMP36>
800 <TYPE? TEMP36 <TYPE-CODE FALSE> + PHRASE142>
802 <TYPE? TEMP28 <TYPE-CODE FALSE> - PHRASE142>
804 <TYPE? TEMP27 <TYPE-CODE FALSE> - PHRASE142>
806 <NTHUV OL16 3 = TEMP36>
807 <TYPE? TEMP36 <TYPE-CODE FALSE> - PHRASE142>
809 <GEN-LVAL 'TMPS-NEXT = TEMP36>
810 <NTHR 'T-NAME 2 = TEMP41 (RECORD-TYPE ATOM) (TYPE LBIND)>
811 <NTHR TEMP41 1 = TEMP41 (RECORD-TYPE LBIND)>
812 <CONS TEMP41 () = TEMP41>
813 <GEN-SET 'TMPS-NEXT TEMP41>
814 <PUTREST TEMP36 TEMP41>
819 <NTHUV OL16 18 = STACK>
821 <CALL '
\1aISTYPE? 1 = STACK>
822 <CALL '
\1aUSE-TEMP 2>
823 <PUTUV SYM32 2 1 (TYPE FIX)>
826 <VEQUAL? LARG12 0 - PHRASE154>
827 <RESTL BST10 1 = TEMP36 (TYPE LIST)>
829 <EMPL? TEMP36 - PHRASE154 (TYPE LIST)>
831 <VEQUAL? ANY-SPEC14 0 + PHRASE157>
832 <VEQUAL? ANY-ARG13 0 + PHRASE157>
833 <FRAME '
\1aGEN-FIX-BIND>
834 <CALL '
\1aGEN-FIX-BIND 0>
836 <SET LARG12 'T (TYPE ATOM)>
838 <RESTL TUP?18 1 = TUP?18 (TYPE LIST)>
841 <NTHUV NOD7 12 = TUP?18>
842 <TYPE? TUP?18 <TYPE-CODE FALSE> + PHRASE161>
848 <TYPE? BNDTMP9 <TYPE-CODE UNBOUND> + PHRASE164>
849 <VEQUAL? ANY-SPEC14 0 - PHRASE164>
854 <CALL '
\1aPUTPROP 2 = TUP?18>
855 <TYPE? TUP?18 <TYPE-CODE FALSE> + PHRASE164>
860 <CALL '
\1aUSE-TEMP 2>
861 <FRAME '
\1aGET-BINDING>
863 <CALL '
\1aGET-BINDING 1>
865 <SET TUP?18 ANY-SPEC14>
867 <VEQUAL? TUP?18 0 + PHRASE170>
876 <END
\1aBIND-CODE>
\r\r
877 " Generate \"BIND\" binding code."
880 <GFCN
\1aBIND-B ("VALUE" ATOM SYMTAB) SYM4>
883 <NTHUV SYM4 3 = TEMP9>
884 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
886 <FRAME '
\1aPREV-FRAME>
889 <CALL '
\1aGEN-TEMP 1 = STACK>
890 <CALL '
\1aPREV-FRAME 1 = FTMP6>
891 <FRAME '
\1aSPECIAL-BINDING>
896 <CALL '
\1aSPECIAL-BINDING 3>
897 <GEN-LVAL 'STK = TEMP9>
898 <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
901 <FRAME '
\1aFREE-TEMP>
904 <CALL '
\1aFREE-TEMP 1>
907 <FRAME '
\1aPREV-FRAME>
908 <NTHUV SYM4 10 = STACK>
909 <CALL '
\1aPREV-FRAME 1>
911 <NTHUV SYM4 10 = STACK (TYPE TEMP)>
913 <CALL '
\1aUSE-TEMP 1>
916 " Do code generation for normal arguments."
919 <GFCN
\1aNORM-B ("VALUE" ATOM SYMTAB) SYM4>
922 <NTHUV SYM4 3 = TEMP7>
923 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
925 <FRAME '
\1aSPECIAL-BINDING>
928 <NTHUV SYM4 10 = STACK>
930 <CALL '
\1aSPECIAL-BINDING 3>
931 <GEN-LVAL 'STK = TEMP7>
932 <ADD TEMP7 9 = TEMP7 (TYPE FIX)>
938 " Initialized optional argument binder."
941 <GFCN
\1aOPT1-B ("VALUE" <OR ATOM FALSE> SYMTAB) SYM4>
944 <NTHUV SYM4 3 = TEMP10>
945 <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG13>
947 <NTHUV SYM4 9 = TEMP10 (TYPE NODE)>
948 <NTHUV TEMP10 1 = TEMP10 (TYPE FIX)>
949 <VEQUAL? TEMP10 2 - TAG12 (TYPE FIX)>
952 <VEQUAL? TEMP10 10 - TAG13 (TYPE FIX)>
958 <NTHUV SYM4 9 = STACK (TYPE NODE)>
960 <CALL '
\1aOPTBIND 2 = TEMP10>
964 " Uninitialized optional argument binder."
967 <GFCN
\1aOPT2-B ("VALUE" ATOM SYMTAB) SYM4>
970 <NTHUV SYM4 3 = TEMP7>
971 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE6>
980 " Create a binding for either intitialized or unitialized optional."
983 <GFCN
\1aOPTBIND ("VALUE" ATOM SYMTAB "OPTIONAL" NODE) SYM6 DVAL7>
984 <OPT-DISPATCH 1 %<> OPT4 OPT5>
988 <TEMP GIVE8:ATOM DEF9 TMP11:TEMP>
991 <CALL '
\1aMAKE-TAG 0 = GIVE8>
993 <CALL '
\1aMAKE-TAG 0>
994 <NTHUV SYM6 3 = DEF9>
995 <TYPE? DVAL7 <TYPE-CODE UNBOUND> - BOOL18>
996 <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE17>
998 <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE20>
1001 <CALL '
\1aGEN-TEMP 1 = TMP11>
1008 <FRAME '
\1aTEST-ARG>
1009 <NTHUV SYM6 10 = STACK (TYPE TEMP)>
1011 <CALL '
\1aTEST-ARG 2>
1012 <TYPE? DVAL7 <TYPE-CODE UNBOUND> + PHRASE25>
1016 <NTHUV SYM6 10 = STACK>
1019 <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE28>
1025 <FRAME '
\1aFREE-TEMP>
1026 <NTHUV SYM6 10 = STACK>
1028 <CALL '
\1aFREE-TEMP 2>
1030 <FRAME '
\1aLABEL-TAG>
1033 <CALL '
\1aLABEL-TAG 1>
1035 <TYPE? DEF9 <TYPE-CODE FALSE> + PHRASE33>
1037 <FRAME '
\1aSPECIAL-BINDING>
1040 <NTHUV SYM6 10 = STACK>
1042 <CALL '
\1aSPECIAL-BINDING 3>
1043 <GEN-LVAL 'STK = DEF9>
1044 <ADD DEF9 9 = DEF9 (TYPE FIX)>
1052 <FRAME '
\1aMAKE-TAG>
1053 <CALL '
\1aMAKE-TAG 0 = DEF9>
1056 <FRAME '
\1aGEN-FIX-BIND>
1057 <CALL '
\1aGEN-FIX-BIND 0>
1058 <FRAME '
\1aLABEL-TAG>
1061 <CALL '
\1aLABEL-TAG 1>
1062 <FRAME '
\1aFREE-TEMP>
1065 <CALL '
\1aFREE-TEMP 1>
1069 " Do a binding for a named activation."
1072 <GFCN
\1aACT-B ("VALUE" ATOM SYMTAB) SYM4>
1075 <NTHUV SYM4 3 = TEMP9>
1076 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
1078 <FRAME '
\1aCURRENT-FRAME>
1079 <CALL '
\1aCURRENT-FRAME 0 = FTMP6>
1080 <FRAME '
\1aSPECIAL-BINDING>
1085 <CALL '
\1aSPECIAL-BINDING 3>
1086 <GEN-LVAL 'STK = TEMP9>
1087 <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
1088 <GEN-SET 'STK TEMP9>
1090 <FRAME '
\1aFREE-TEMP>
1093 <CALL '
\1aFREE-TEMP 1>
1094 <GEN-LVAL 'BASEF = TEMP9>
1099 <GEN-LVAL 'BASEF = TEMP9>
1100 <NTHUV TEMP9 12 = TEMP9>
1101 <TYPE? TEMP9 <TYPE-CODE FALSE> - BOOL20>
1104 <GEN-LVAL 'BASEF = TEMP9>
1105 <NTHUV TEMP9 10 = STACK (TYPE LIST)>
1107 <CALL '
\1aACTIV? 1 = TEMP9>
1108 <VEQUAL? TEMP9 0 + PHRASE19>
1111 <GEN-LVAL 'BASEF = TEMP9>
1114 <FRAME '
\1aCURRENT-FRAME>
1115 <NTHUV SYM4 10 = STACK>
1116 <CALL '
\1aCURRENT-FRAME 1>
1117 <FRAME '
\1aUSE-TEMP>
1118 <NTHUV SYM4 10 = STACK (TYPE TEMP)>
1120 <CALL '
\1aUSE-TEMP 1>
1124 " Bind an \"AUX\" variable."
1127 <GFCN
\1aAUX1-B ("VALUE" ATOM SYMTAB "OPTIONAL" ANY) SYM6 FORCE-INIT7>
1128 <OPT-DISPATCH 1 %<> OPT4 OPT5>
1132 <TEMP TMP8 NOD12:NODE TY9 PT10>
1134 <NTHUV SYM6 10 = TMP8>
1135 <NTHUV SYM6 9 = NOD12 (TYPE NODE)>
1137 <NTHUV SYM6 18 = STACK>
1138 <CALL '
\1aISTYPE? 1 = TY9>
1139 <TYPE? TY9 <TYPE-CODE FALSE> + BOOL14>
1140 <FRAME '
\1aTYPEPRIM>
1142 <CALL '
\1aTYPEPRIM 1 = PT10>
1143 <EQUAL? PT10 'FIX + BOOL16>
1144 <EQUAL? PT10 'WORD + BOOL16>
1145 <EQUAL? PT10 'LIST - BOOL14>
1148 <NTHUV SYM6 12 = PT10>
1149 <TYPE? PT10 <TYPE-CODE FALSE> + PHRASE19>
1152 <SET TY9 %<> (TYPE FALSE)>
1154 <NTHUV SYM6 3 = PT10>
1155 <TYPE? PT10 <TYPE-CODE FALSE> + PHRASE21>
1157 <FRAME '
\1aSPECIAL-BINDING>
1164 <CALL '
\1aGEN 1 = TMP8>
1166 <CALL '
\1aSPECIAL-BINDING 3>
1167 <GEN-LVAL 'STK = PT10>
1168 <ADD PT10 9 = PT10 (TYPE FIX)>
1171 <FRAME '
\1aFREE-TEMP>
1174 <CALL '
\1aFREE-TEMP 1>
1177 <TYPE? FORCE-INIT7 <TYPE-CODE FALSE> - PHRASE29>
1179 <NTHUV NOD12 1 = PT10 (TYPE FIX)>
1180 <VEQUAL? PT10 2 - PHRASE29 (TYPE FIX)>
1182 <FRAME '
\1aUSE-TEMP>
1185 <CALL '
\1aUSE-TEMP 2>
1186 <TYPE? TY9 <TYPE-CODE FALSE> + PHRASE33>
1187 <NTHUV TMP8 1 = STACK (TYPE ATOM)>
1191 <UBLOCK <TYPE-CODE VECTOR> 2 = PT10>
1192 <CHTYPE PT10 <TYPE-CODE ADECL> = PT10>
1195 <NTHUV TMP8 1 = PT10 (TYPE ATOM)>
1198 <CONS PT10 () = PT10>
1200 <NTHUV NOD12 4 = STACK>
1202 <CALL '
\1aATOMCHK 1 = TMP8>
1203 <CONS TMP8 () = TMP8>
1206 <GEN-SET 'T-NAME PT10>
1210 <TYPE? TY9 <TYPE-CODE FALSE> + PHRASE42>
1211 <NTHUV TMP8 1 = STACK (TYPE ATOM)>
1215 <UBLOCK <TYPE-CODE VECTOR> 2 = PT10>
1216 <CHTYPE PT10 <TYPE-CODE ADECL> = PT10>
1217 <GEN-SET 'T-NAME PT10>
1223 <NTHUV SYM6 10 = STACK>
1228 " Do a binding for an uninitialized \"AUX\" "
1231 <GFCN
\1aAUX2-B ("VALUE" <OR ATOM !<FALSE> FIX> SYMTAB ANY) SYM4 FP5>
1234 <NTHUV SYM4 3 = TEMP9>
1235 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
1237 <FRAME '
\1aSPECIAL-BINDING>
1241 <CALL '
\1aSPECIAL-BINDING 2>
1242 <GEN-LVAL 'STK = TEMP9>
1243 <ADD TEMP9 9 = TEMP9 (TYPE FIX)>
1244 <GEN-SET 'STK TEMP9>
1248 <TYPE? FP5 <TYPE-CODE FALSE> + PHRASE15>
1250 <NTHUV SYM4 12 = TEMP9>
1251 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE15>
1256 <GVAL 'THE-UNBOUND = STACK>
1258 <CALL '
\1aSET-SYM 3>
1261 <NTHUV SYM4 12 = TEMP9>
1262 <TYPE? TEMP9 <TYPE-CODE FALSE> - PHRASE19>
1263 <NTHUV SYM4 10 = TEMP9 (TYPE TEMP)>
1266 <PUTUV TEMP9 2 0 (TYPE FIX)>
1268 <SET TEMP9 %<> (TYPE FALSE)>
1273 " Do a \"TUPLE\" binding."
1276 <GFCN
\1aTUPL-B ("VALUE" ATOM SYMTAB) SYM4>
1277 <TEMP TMP1-5 TEMP10>
1279 <NTHUV SYM4 10 = TMP1-5>
1280 <FRAME '
\1aGET-ARG-TUPLE>
1282 <CALL '
\1aGET-ARG-TUPLE 1>
1283 <NTHUV SYM4 3 = TEMP10>
1284 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE9>
1286 <FRAME '
\1aSPECIAL-BINDING>
1292 <CALL '
\1aSPECIAL-BINDING 3>
1293 <GEN-LVAL 'STK = TEMP10>
1294 <ADD TEMP10 9 = TEMP10 (TYPE FIX)>
1295 <GEN-SET 'STK TEMP10>
1300 " Dispatch table for binding generation code."
1303 <GFCN
\1aBIND-GENERATE ("VALUE" <OR ATOM FALSE FIX> SYMTAB ANY) SYM4 FORPROG5>
1306 <NTHUV SYM4 4 = COD6 (TYPE FIX)>
1307 <DISPATCH COD6 1 CASE9 CASE10 CASE11 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASE18 CASE19 CASE20 CASE21>
1314 <CALL '
\1aACT-B 1 = COD6>
1323 <CALL '
\1aAUX1-B 2 = COD6>
1332 <CALL '
\1aAUX2-B 2 = COD6>
1339 <CALL '
\1aTUPL-B 1 = COD6>
1346 <CALL '
\1aNORM-B 1 = COD6>
1353 <CALL '
\1aOPT1-B 1 = COD6>
1360 <CALL '
\1aOPT1-B 1 = COD6>
1367 <CALL '
\1aOPT2-B 1 = COD6>
1374 <CALL '
\1aOPT2-B 1 = COD6>
1381 <CALL '
\1aNORM-B 1 = COD6>
1388 <CALL '
\1aBIND-B 1 = COD6>
1395 <CALL '
\1aNORM-B 1 = COD6>
1402 <CALL '
\1aNORM-B 1 = COD6>
1405 <END
\1aBIND-GENERATE>
1406 " Appliacation of a form could still be an NTH."
1409 <GFCN
\1aFORM-F-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
1410 <TEMP K6:LIST TEMP11 TY7>
1412 <NTHUV NOD4 5 = K6 (TYPE LIST)>
1414 <NTHL K6 1 = TEMP11 (TYPE NODE)>
1415 <NTHUV TEMP11 3 = TY7>
1418 <CALL '
\1aISTYPE? 1 = TEMP11>
1419 <VEQUAL? TEMP11 'FIX - PHRASE9>
1421 <PUTUV NOD4 4 'INTH>
1422 <NTHUV NOD4 9 = TEMP11>
1423 <PUTUV NOD4 1 TEMP11>
1425 <GVAL 'NTH = TEMP11>
1426 <PUTUV NOD4 9 TEMP11>
1428 <NTHUV NOD4 1 = TEMP11 (TYPE FIX)>
1429 <VEQUAL? TEMP11 79 + BOOL14 (TYPE FIX)>
1431 <NTHUV NOD4 1 = TEMP11 (TYPE FIX)>
1432 <VEQUAL? TEMP11 27 - PHRASE13 (TYPE FIX)>
1435 <NTHL K6 1 = TEMP11>
1436 <CONS TEMP11 () = TEMP11>
1437 <RESTL K6 1 = TY7 (TYPE LIST)>
1440 <CONS TY7 TEMP11 = K6>
1443 <PUTUV NOD4 5 K6 (TYPE LIST)>
1450 <CALL '
\1aGEN 2 = TEMP11>
1454 <TYPE? TY7 <TYPE-CODE FALSE> + PHRASE17>
1456 <FRAME '
\1aFORM-GEN>
1461 <CALL '
\1aFORM-GEN 2 = TEMP11>
1465 <FRAME '
\1aCOMPILE-ERROR>
1466 <PUSH "Non-applicabe object type ">
1467 <NTHUV NOD4 4 = STACK>
1470 <CALL '
\1aCOMPILE-ERROR 3 = TEMP11>
1474 " Generate a call to EVAL for uncompilable FORM."
1477 <GFCN
\1aFORM-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
1480 <EQUAL? WHERE5 'DONT-CARE - PHRASE7>
1481 <FRAME '
\1aGEN-TEMP>
1482 <CALL '
\1aGEN-TEMP 0 = WHERE5>
1484 <FRAME '
\1aSTART-FRAME>
1486 <CALL '
\1aSTART-FRAME 1>
1488 <FRAME '
\1aREFERENCE>
1489 <NTHUV NOD4 4 = STACK>
1491 <CALL '
\1aREFERENCE 1 = STACK>
1493 <FRAME '
\1aMSUBR-CALL>
1497 <CALL '
\1aMSUBR-CALL 3>
1501 " Generate code for LIST/VECTOR etc. evaluation."
1503 <GDECL (COPIERS) <UVECTOR [REST ATOM]>>
1506 <GFCN
\1aCOPY-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
1507 <TEMP (I6:FIX 0) ARGS7:LIST TEMP3:LBIND TEMP18 INAME10 SEGTMP11 TEMP22 STACK?16 TEMP35 N37:NODE>
1509 <NTHUV NOD4 5 = ARGS7 (TYPE LIST)>
1510 <GETS 'BIND = TEMP3 (TYPE LBIND)>
1511 <FRAME '
\1aMAKE-TAG>
1512 <CALL '
\1aMAKE-TAG 0 = TEMP18>
1513 <BBIND 'SEGLABEL 'ANY 'FIX TEMP18>
1515 <NTHUV NOD4 4 = INAME10>
1516 <BBIND 'COUNTMP 'ANY 'FIX>
1517 <BBIND 'SEGCALLED 'ANY 'FIX %<>>
1518 <NTHUV NOD4 2 = TEMP18>
1519 <TYPE? TEMP18 <TYPE-CODE NODE> - TAG25>
1520 <NTHUV TEMP18 1 = TEMP22 (TYPE FIX)>
1521 <VEQUAL? TEMP22 98 - TAG23 (TYPE FIX)>
1523 <SET TEMP18 'T (TYPE ATOM)>
1526 <NTHUV TEMP18 1 = TEMP22 (TYPE FIX)>
1527 <VEQUAL? TEMP22 37 - TAG25 (TYPE FIX)>
1529 <NTHUV TEMP18 2 = TEMP18>
1530 <TYPE? TEMP18 <TYPE-CODE NODE> - TAG25>
1531 <NTHUV TEMP18 1 = TEMP22 (TYPE FIX)>
1533 <VEQUAL? TEMP22 98 - TAG25 (TYPE FIX)>
1535 <SET TEMP18 'T (TYPE ATOM)>
1538 <EQUAL? INAME10 'TUPLE - TAG26>
1539 <SET TEMP18 'T (TYPE ATOM)>
1542 <SET TEMP18 %<> (TYPE FALSE)>
1544 <SET STACK?16 TEMP18>
1546 <SET TEMP35 0 (TYPE FIX)>
1547 <SET TEMP18 ARGS7 (TYPE LIST)>
1551 <EMPL? TEMP18 + MAPAP32>
1552 <NTHL TEMP18 1 = N37>
1553 <NTHUV N37 1 = TEMP22 (TYPE FIX)>
1555 <VEQUAL? TEMP22 3 - PHRASE39 (TYPE FIX)>
1557 <SET TEMP22 0 (TYPE FIX)>
1560 <SET TEMP22 1 (TYPE FIX)>
1562 <ADD TEMP35 TEMP22 = TEMP35>
1564 <RESTL TEMP18 1 = TEMP18 (TYPE LIST)>
1572 <EMPL? ARGS7 + EXIT44 (TYPE LIST)>
1573 <NTHL ARGS7 1 = N37 (TYPE NODE)>
1574 <NTHUV N37 1 = TEMP35 (TYPE FIX)>
1575 <VEQUAL? TEMP35 3 - PHRASE50 (TYPE FIX)>
1577 <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> - PHRASE52>
1578 <FRAME '
\1aGEN-TEMP>
1580 <CALL '
\1aGEN-TEMP 1 = SEGTMP11>
1581 <FRAME '
\1aGEN-TEMP>
1583 <CALL '
\1aGEN-TEMP 1 = TEMP35>
1584 <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1585 <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
1586 <DEAD TEMP22 TEMP35>
1587 <FRAME '
\1aSET-TEMP>
1588 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1589 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1593 <CALL '
\1aSET-TEMP 3>
1596 <NTHUV N37 5 = TEMP35 (TYPE LIST)>
1598 <NTHL TEMP35 1 = N37 (TYPE NODE)>
1602 <CALL '
\1aGEN 2 = TEMP18>
1603 <FRAME '
\1aSTRUCTYP-SEG>
1604 <NTHUV N37 3 = STACK>
1605 <CALL '
\1aSTRUCTYP-SEG 1 = TEMP22>
1606 <NTHUV NOD4 4 = TEMP35>
1607 <EQUAL? TEMP35 'LIST - PHRASE63>
1609 <RESTL ARGS7 1 = TEMP35 (TYPE LIST)>
1610 <EMPL? TEMP35 - PHRASE63 (TYPE LIST)>
1612 <TYPE? TEMP22 <TYPE-CODE FALSE> + BOOL65>
1613 <EQUAL? TEMP22 'LIST - PHRASE63>
1615 <GVAL 'NO-DATUM = TEMP35>
1616 <EQUAL? TEMP35 TEMP18 + PHRASE63>
1618 <EQUAL? WHERE5 'DONT-CARE - PHRASE67>
1619 <FRAME '
\1aGEN-TEMP>
1621 <CALL '
\1aGEN-TEMP 1 = WHERE5>
1624 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE69>
1625 <FRAME '
\1aUSE-TEMP>
1628 <CALL '
\1aUSE-TEMP 2>
1630 <FRAME '
\1aSEGMENT-LIST>
1632 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1633 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1638 <NTHR 'SEGLABEL 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1639 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1643 <CALL '
\1aSEGMENT-LIST 6>
1644 <FRAME '
\1aFREE-TEMP>
1647 <CALL '
\1aFREE-TEMP 1>
1648 <FRAME '
\1aFREE-TEMP>
1649 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1650 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1652 <CALL '
\1aFREE-TEMP 1>
1655 <GVAL 'NO-DATUM = TEMP35>
1656 <EQUAL? TEMP35 TEMP18 + PHRASE80>
1657 <DEAD TEMP35 TEMP18>
1658 <EQUAL? TEMP22 'MULTI + PHRASE80>
1659 <FRAME '
\1aSEGMENT-STACK>
1661 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1662 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1667 <NTHUV N37 3 = STACK>
1669 <CALL '
\1aISTYPE? 1 = STACK>
1670 <NTHR 'SEGLABEL 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1671 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1673 <CALL '
\1aSEGMENT-STACK 5>
1674 <FRAME '
\1aMAKE-TAG>
1675 <CALL '
\1aMAKE-TAG 0 = TEMP35>
1676 <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1677 <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
1678 <DEAD TEMP22 TEMP35>
1681 <NTHR 'SEGCALLED 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1682 <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1683 <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE100>
1685 <FRAME '
\1aLABEL-TAG>
1686 <NTHR 'SEGLABEL 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1687 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1689 <CALL '
\1aLABEL-TAG 1>
1690 <FRAME '
\1aMAKE-TAG>
1691 <CALL '
\1aMAKE-TAG 0 = TEMP35>
1692 <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1693 <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
1694 <DEAD TEMP22 TEMP35>
1698 <NTHL ARGS7 1 = STACK (TYPE NODE)>
1699 <GVAL 'POP-STACK = STACK>
1702 <RESTL ARGS7 1 = ARGS7 (TYPE LIST)>
1705 <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE106>
1706 <FRAME '
\1aFREE-TEMP>
1708 <CALL '
\1aFREE-TEMP 1>
1709 <TYPE? STACK?16 <TYPE-CODE FALSE> - PHRASE106>
1710 <FRAME '
\1aFREE-TEMP>
1711 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1712 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1714 <CALL '
\1aFREE-TEMP 1>
1716 <EQUAL? WHERE5 'DONT-CARE - PHRASE111>
1717 <FRAME '
\1aGEN-TEMP>
1719 <CALL '
\1aGEN-TEMP 1 = WHERE5>
1722 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE113>
1723 <FRAME '
\1aUSE-TEMP>
1726 <CALL '
\1aUSE-TEMP 2>
1728 <EQUAL? INAME10 'VECTOR - PHRASE116>
1729 <FRAME '
\1aGEN-VECTOR>
1730 <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE119>
1731 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1732 <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1741 <CALL '
\1aGEN-VECTOR 3>
1744 <EQUAL? INAME10 'LIST - PHRASE123>
1745 <FRAME '
\1aGEN-LIST>
1746 <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE126>
1747 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1748 <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1756 <CALL '
\1aGEN-LIST 2>
1759 <EQUAL? INAME10 'UVECTOR - PHRASE130>
1760 <FRAME '
\1aGEN-UVECTOR>
1761 <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE133>
1762 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1763 <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1772 <CALL '
\1aGEN-UVECTOR 3>
1775 <EQUAL? INAME10 'TUPLE - PHRASE137>
1776 <FRAME '
\1aGEN-TUPLE>
1777 <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE140>
1778 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1779 <NTHR TEMP35 1 = TEMP35 (RECORD-TYPE LBIND)>
1787 <CALL '
\1aGEN-TUPLE 2>
1791 <PUSH "NOT READY YET">
1794 <TYPE? STACK?16 <TYPE-CODE FALSE> + PHRASE192>
1796 <TYPE? SEGTMP11 <TYPE-CODE UNBOUND> + PHRASE149>
1798 <EQUAL? INAME10 'UVECTOR + PHRASE151>
1802 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1803 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1807 <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1808 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
1809 <NTHUV TEMP22 2 = TEMP22 (TYPE FIX)>
1810 <GRTR? TEMP22 1 + TAG159 (TYPE FIX)>
1812 <SET TEMP35 %<> (TYPE FALSE)>
1815 <FRAME '
\1aFREE-TEMP>
1816 <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1817 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
1820 <CALL '
\1aFREE-TEMP 2>
1821 <FRAME '
\1aGEN-TEMP>
1823 <CALL '
\1aGEN-TEMP 1 = TEMP35>
1824 <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1825 <PUTR TEMP22 1 TEMP35 (RECORD-TYPE LBIND)>
1832 <FRAME '
\1aFREE-TEMP>
1833 <NTHR 'COUNTMP 2 = TEMP35 (RECORD-TYPE ATOM) (TYPE LBIND)>
1834 <NTHR TEMP35 1 = STACK (RECORD-TYPE LBIND)>
1837 <CALL '
\1aFREE-TEMP 2>
1838 <GEN-ASSIGNED? 'STKTMP - PHRASE172>
1841 <GEN-LVAL 'STKTMP = STACK>
1842 <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
1843 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
1846 <GEN-LVAL 'STKTMP = STACK>
1853 <NTHR 'COUNTMP 2 = TEMP18 (RECORD-TYPE ATOM) (TYPE LBIND)>
1854 <NTHR TEMP18 1 = STACK (RECORD-TYPE LBIND)>
1857 <FRAME '
\1aGEN-TEMP>
1859 <CALL '
\1aGEN-TEMP 1 = TEMP18>
1860 <GEN-SET 'STKTMP TEMP18>
1865 <GEN-LVAL 'STK = TEMP18>
1866 <ADD TEMP18 2 = TEMP18 (TYPE FIX)>
1867 <GEN-SET 'STK TEMP18>
1871 <GEN-LVAL 'STK = TEMP18>
1872 <EQUAL? INAME10 'UVECTOR + PHRASE198>
1874 <LSH I6 1 = I6 (TYPE FIX)>
1876 <ADD TEMP18 I6 = TEMP18 (TYPE FIX)>
1878 <ADD TEMP18 2 = TEMP18 (TYPE FIX)>
1879 <GEN-SET 'STK TEMP18>
1888 "Generate code for a call to a SUBR."
1891 <GFCN
\1aSUBR-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
1895 <TYPE? N6 <TYPE-CODE NODE> - PHRASE9>
1896 <NTHUV N6 1 = N6 (TYPE FIX)>
1897 <VEQUAL? N6 3 - PHRASE9 (TYPE FIX)>
1899 <FRAME '
\1aSTRUCTYP-SEG>
1900 <NTHUV NOD4 3 = STACK>
1901 <CALL '
\1aSTRUCTYP-SEG 1 = N6>
1902 <EQUAL? N6 'MULTI + BOOL12>
1903 <TYPE? N6 <TYPE-CODE FALSE> - PHRASE9>
1906 <GEN-SET 'SEGCALLED 'T>
1907 <FRAME '
\1aCOMP-SUBR-CALL>
1909 <NTHUV NOD4 5 = STACK (TYPE LIST)>
1913 <GEN-LVAL 'COUNTMP = STACK>
1914 <GEN-LVAL 'SEGLABEL = STACK>
1915 <CALL '
\1aCOMP-SUBR-CALL 5 = N6>
1919 <FRAME '
\1aCOMP-SUBR-CALL>
1921 <NTHUV NOD4 5 = STACK (TYPE LIST)>
1927 <CALL '
\1aCOMP-SUBR-CALL 5 = N6>
1931 " Compile call to a SUBR that doesn't compile or PUSHJ."
1934 <GFCN
\1aCOMP-SUBR-CALL ("VALUE" ANY NODE <LIST [REST NODE]> ANY ANY ANY) N4 OBJ5 W6 PARENT-COUNT7 PARENT-LABEL8>
1935 <TEMP (I9:FIX 0) SEGTMP10 TEMP3:LBIND TEMP20 SUBR14 (SLNT17 0) TEMP26 TEMP42 N44:NODE TEMP52>
1937 <GETS 'BIND = TEMP3 (TYPE LBIND)>
1938 <BBIND 'COUNTMP 'ANY 'FIX>
1939 <FRAME '
\1aMAKE-TAG>
1940 <CALL '
\1aMAKE-TAG 0 = TEMP20>
1941 <BBIND 'SEGLABEL 'ANY 'FIX TEMP20>
1943 <NTHUV N4 4 = SUBR14>
1944 <BBIND 'SEGCALLED 'ANY 'FIX %<>>
1945 <NTHUV N4 2 = TEMP20>
1946 <TYPE? TEMP20 <TYPE-CODE NODE> + TAG23>
1947 <SET TEMP20 %<> (TYPE FALSE)>
1950 <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
1951 <VEQUAL? TEMP26 98 - TAG27 (TYPE FIX)>
1953 <SET TEMP20 'T (TYPE ATOM)>
1956 <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
1957 <VEQUAL? TEMP26 37 + TAG29 (TYPE FIX)>
1959 <SET TEMP20 %<> (TYPE FALSE)>
1962 <NTHUV TEMP20 2 = TEMP20>
1963 <TYPE? TEMP20 <TYPE-CODE NODE> + TAG30>
1964 <SET TEMP20 %<> (TYPE FALSE)>
1967 <NTHUV TEMP20 1 = TEMP26 (TYPE FIX)>
1969 <VEQUAL? TEMP26 98 - TAG32 (TYPE FIX)>
1971 <SET TEMP20 'T (TYPE ATOM)>
1974 <SET TEMP20 %<> (TYPE FALSE)>
1976 <SET TEMP42 0 (TYPE FIX)>
1977 <SET TEMP26 OBJ5 (TYPE LIST)>
1981 <EMPL? TEMP26 + MAPAP38>
1982 <NTHL TEMP26 1 = N44>
1983 <NTHUV N44 1 = I9 (TYPE FIX)>
1984 <VEQUAL? I9 3 - PHRASE46 (TYPE FIX)>
1986 <SET SLNT17 %<> (TYPE FALSE)>
1987 <SET I9 0 (TYPE FIX)>
1990 <EQUAL? SUBR14 'STRING - PHRASE50>
1991 <TYPE? SLNT17 <TYPE-CODE FIX> - PHRASE50>
1992 <NTHUV N44 1 = TEMP52 (TYPE FIX)>
1993 <VEQUAL? TEMP52 2 - PHRASE50 (TYPE FIX)>
1995 <NTHUV N44 4 = TEMP52>
1997 <LENUS TEMP52 = TEMP52 (TYPE FIX)>
1998 <ADD TEMP52 SLNT17 = SLNT17 (TYPE FIX)>
2002 <SET SLNT17 %<> (TYPE FALSE)>
2004 <SET I9 1 (TYPE FIX)>
2006 <ADD TEMP42 I9 = TEMP42>
2008 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
2013 <SET TEMP26 [LIST VECTOR UVECTOR TUPLE BYTES STRING] (TYPE VECTOR)>
2014 <TYPE? SUBR14 <TYPE-CODE ATOM> - TAG56>
2015 <LOOP (SUBR14 VALUE) (TEMP26 LENGTH VALUE)>
2017 <NTHUV TEMP26 1 = TEMP42>
2018 <VEQUAL? TEMP42 SUBR14 + PHRASE63>
2020 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
2021 <EMPUV? TEMP26 - TAG57>
2023 <TYPE? PARENT-COUNT7 <TYPE-CODE FALSE> + PHRASE60>
2029 <CALL '
\1aFORM 2 = STACK>
2033 <FRAME '
\1aSTART-FRAME>
2035 <CALL '
\1aSTART-FRAME 1>
2037 <SET TEMP26 OBJ5 (TYPE LIST)>
2042 <EMPL? TEMP26 + MAPAP69>
2043 <NTHL TEMP26 1 = N44>
2044 <NTHUV N44 1 = TEMP52 (TYPE FIX)>
2045 <VEQUAL? TEMP52 3 - PHRASE74 (TYPE FIX)>
2047 <TYPE? SEGTMP10 <TYPE-CODE UNBOUND> - PHRASE76>
2048 <FRAME '
\1aGEN-TEMP>
2050 <CALL '
\1aGEN-TEMP 1 = SEGTMP10>
2051 <FRAME '
\1aGEN-TEMP>
2053 <CALL '
\1aGEN-TEMP 1 = TEMP52>
2054 <NTHR 'COUNTMP 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
2055 <PUTR TEMP42 1 TEMP52 (RECORD-TYPE LBIND)>
2056 <DEAD TEMP42 TEMP52>
2057 <FRAME '
\1aSET-TEMP>
2058 <NTHR 'COUNTMP 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2059 <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
2063 <CALL '
\1aSET-TEMP 3>
2066 <NTHUV N44 5 = TEMP52 (TYPE LIST)>
2068 <NTHL TEMP52 1 = N44 (TYPE NODE)>
2072 <CALL '
\1aGEN 2 = TEMP42>
2073 <GVAL 'NO-DATUM = TEMP52>
2074 <EQUAL? TEMP52 TEMP42 + PHRASE87>
2075 <DEAD TEMP52 TEMP42>
2076 <FRAME '
\1aSTRUCTYP-SEG>
2077 <NTHUV N44 3 = STACK>
2078 <CALL '
\1aSTRUCTYP-SEG 1 = TEMP52>
2079 <EQUAL? TEMP52 'MULTI + PHRASE87>
2081 <FRAME '
\1aSEGMENT-STACK>
2083 <NTHR 'COUNTMP 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2084 <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
2086 <FRAME '
\1aSTRUCTYP>
2087 <NTHUV N44 3 = STACK>
2088 <CALL '
\1aSTRUCTYP 1 = STACK>
2090 <NTHUV N44 3 = STACK>
2092 <CALL '
\1aISTYPE? 1 = STACK>
2093 <NTHR 'SEGLABEL 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2094 <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
2096 <CALL '
\1aSEGMENT-STACK 5>
2099 <NTHR 'SEGCALLED 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2100 <NTHR TEMP52 1 = TEMP52 (RECORD-TYPE LBIND)>
2101 <TYPE? TEMP52 <TYPE-CODE FALSE> + PHRASE97>
2103 <FRAME '
\1aLABEL-TAG>
2104 <NTHR 'SEGLABEL 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
2105 <NTHR TEMP52 1 = STACK (RECORD-TYPE LBIND)>
2107 <CALL '
\1aLABEL-TAG 1>
2109 <FRAME '
\1aMAKE-TAG>
2110 <CALL '
\1aMAKE-TAG 0 = TEMP52>
2111 <NTHR 'SEGLABEL 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
2112 <PUTR TEMP42 1 TEMP52 (RECORD-TYPE LBIND)>
2113 <DEAD TEMP42 TEMP52>
2119 <GVAL 'POP-STACK = STACK>
2122 <RESTL TEMP26 1 = TEMP26 (TYPE LIST)>
2125 <TYPE? SEGTMP10 <TYPE-CODE UNBOUND> + PHRASE112>
2126 <FRAME '
\1aFREE-TEMP>
2129 <CALL '
\1aFREE-TEMP 1>
2130 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE112>
2131 <FRAME '
\1aFREE-TEMP>
2132 <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2133 <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
2136 <CALL '
\1aFREE-TEMP 2>
2138 <EQUAL? W6 'DONT-CARE - PHRASE117>
2139 <FRAME '
\1aGEN-TEMP>
2140 <NTHUV N4 3 = STACK>
2142 <CALL '
\1aGEN-TEMP 1 = W6>
2145 <TYPE? W6 <TYPE-CODE TEMP> - PHRASE119>
2146 <FRAME '
\1aUSE-TEMP>
2148 <NTHUV N4 3 = STACK>
2150 <CALL '
\1aUSE-TEMP 2>
2152 <TYPE? PARENT-COUNT7 <TYPE-CODE FALSE> + PHRASE122>
2153 <FRAME '
\1aSEG-SUBR-CALL>
2156 <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2157 <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
2158 <TYPE? TEMP26 <TYPE-CODE UNBOUND> + PHRASE125>
2160 <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2161 <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
2170 <PUSH PARENT-COUNT7>
2171 <DEAD PARENT-COUNT7>
2172 <PUSH PARENT-LABEL8>
2173 <DEAD PARENT-LABEL8>
2174 <CALL '
\1aSEG-SUBR-CALL 5>
2177 <FRAME '
\1aSMSUBR-CALL>
2180 <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2181 <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
2182 <TYPE? TEMP26 <TYPE-CODE UNBOUND> + PHRASE132>
2184 <NTHR 'COUNTMP 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
2185 <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
2198 <CALL '
\1aSMSUBR-CALL 5>
2205 <END
\1aCOMP-SUBR-CALL>
2209 <GFCN
\1aSEGMENT-STACK ("VALUE" <LIST ANY> ANY ANY ANY ANY "OPTIONAL" ANY) SEGTMP6 COUNTMP7 SEGTYP8 SEGTYP2-9 TG1-10>
2210 <OPT-DISPATCH 4 %<> OPT4 OPT5>
2214 <TEMP TG2-11 TEMP20:LIST TEMP21:ATOM>
2216 <TYPE? TG1-10 <TYPE-CODE UNBOUND> - TAG13>
2217 <FRAME '
\1aMAKE-TAG>
2218 <CALL '
\1aMAKE-TAG 0 = TG1-10>
2220 <FRAME '
\1aMAKE-TAG>
2221 <CALL '
\1aMAKE-TAG 0 = TG2-11>
2222 <TYPE? SEGTYP8 <TYPE-CODE FALSE> - PHRASE18>
2225 <CONS 'LENGTH () = TEMP20>
2226 <CONS 'VALUE TEMP20 = TEMP20>
2227 <CONS 'TYPE TEMP20 = TEMP20>
2228 <NTHUV SEGTMP6 1 = TEMP21 (TYPE ATOM)>
2229 <CONS TEMP21 TEMP20 = STACK>
2230 <DEAD TEMP21 TEMP20>
2231 <CONS 'VALUE () = TEMP20>
2232 <NTHUV COUNTMP7 1 = TEMP21 (TYPE ATOM)>
2233 <CONS TEMP21 TEMP20 = STACK>
2234 <DEAD TEMP21 TEMP20>
2238 <EQUAL? SEGTYP8 'LIST - PHRASE22>
2241 <CONS 'VALUE () = TEMP20>
2242 <NTHUV SEGTMP6 1 = TEMP21 (TYPE ATOM)>
2243 <CONS TEMP21 TEMP20 = STACK>
2244 <DEAD TEMP21 TEMP20>
2245 <CONS 'VALUE () = TEMP20>
2246 <NTHUV COUNTMP7 1 = TEMP21 (TYPE ATOM)>
2247 <CONS TEMP21 TEMP20 = STACK>
2248 <DEAD TEMP21 TEMP20>
2254 <CONS 'LENGTH () = TEMP20>
2255 <CONS 'VALUE TEMP20 = TEMP20>
2256 <NTHUV SEGTMP6 1 = TEMP21 (TYPE ATOM)>
2257 <CONS TEMP21 TEMP20 = STACK>
2258 <DEAD TEMP21 TEMP20>
2259 <CONS 'VALUE () = TEMP20>
2260 <NTHUV COUNTMP7 1 = TEMP21 (TYPE ATOM)>
2261 <CONS TEMP21 TEMP20 = STACK>
2262 <DEAD TEMP21 TEMP20>
2265 <FRAME '
\1aLABEL-TAG>
2267 <CALL '
\1aLABEL-TAG 1>
2271 <TYPE? SEGTYP8 <TYPE-CODE FALSE> + PHRASE29>
2272 <FRAME '
\1aEMPTY-CHECK>
2278 <CALL '
\1aEMPTY-CHECK 5>
2288 <TYPE? SEGTYP8 <TYPE-CODE FALSE> + PHRASE34>
2292 <GVAL 'POP-STACK = STACK>
2305 <CALL '
\1aREST-DO 5>
2312 <GVAL 'POP-STACK = STACK>
2329 <CONS 'FIX () = TEMP20>
2330 <CONS '`TYPE TEMP20 = STACK>
2333 <FRAME '
\1aBRANCH-TAG>
2336 <CALL '
\1aBRANCH-TAG 1>
2337 <FRAME '
\1aLABEL-TAG>
2340 <CALL '
\1aLABEL-TAG 1 = TEMP20>
2343 <END
\1aSEGMENT-STACK>
2345 <GFCN
\1aSEGMENT-LIST ("VALUE" ANY ANY ANY ANY ANY "OPTIONAL" ANY ANY) SEGTMP7 COUNTMP8 LIST?9 W10 TGX11 RES12>
2346 <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
2352 <TEMP TG1-13 TG2-14 TG3-15 TG4-16 OTMP17:TEMP>
2354 <TYPE? TGX11 <TYPE-CODE UNBOUND> - TAG18>
2355 <FRAME '
\1aMAKE-TAG>
2356 <CALL '
\1aMAKE-TAG 0 = TGX11>
2358 <FRAME '
\1aMAKE-TAG>
2359 <CALL '
\1aMAKE-TAG 0 = TG1-13>
2360 <FRAME '
\1aMAKE-TAG>
2361 <CALL '
\1aMAKE-TAG 0 = TG2-14>
2362 <FRAME '
\1aMAKE-TAG>
2363 <CALL '
\1aMAKE-TAG 0 = TG3-15>
2364 <FRAME '
\1aMAKE-TAG>
2365 <CALL '
\1aMAKE-TAG 0 = TG4-16>
2366 <FRAME '
\1aGEN-TEMP>
2367 <CALL '
\1aGEN-TEMP 0 = OTMP17>
2368 <TYPE? LIST?9 <TYPE-CODE FALSE> - PHRASE27>
2389 <FRAME '
\1aSEGMENT-STACK>
2394 <CALL '
\1aSEGMENT-STACK 4>
2395 <FRAME '
\1aGEN-LIST>
2398 <CALL '
\1aGEN-LIST 2>
2399 <FRAME '
\1aBRANCH-TAG>
2401 <CALL '
\1aBRANCH-TAG 1>
2402 <FRAME '
\1aLABEL-TAG>
2405 <CALL '
\1aLABEL-TAG 1>
2406 <FRAME '
\1aSET-TEMP>
2409 <CALL '
\1aSET-TEMP 2>
2410 <FRAME '
\1aLABEL-TAG>
2413 <CALL '
\1aLABEL-TAG 1>
2418 <FRAME '
\1aLABEL-TAG>
2420 <CALL '
\1aLABEL-TAG 1>
2450 <FRAME '
\1aBRANCH-TAG>
2453 <CALL '
\1aBRANCH-TAG 1>
2454 <FRAME '
\1aLABEL-TAG>
2457 <CALL '
\1aLABEL-TAG 1>
2458 <FRAME '
\1aFREE-TEMP>
2461 <CALL '
\1aFREE-TEMP 1>
2462 <FRAME '
\1aMOVE-ARG>
2466 <CALL '
\1aMOVE-ARG 2>
2467 <TYPE? LIST?9 <TYPE-CODE FALSE> - PHRASE48>
2469 <FRAME '
\1aLABEL-TAG>
2472 <CALL '
\1aLABEL-TAG 1>
2476 <END
\1aSEGMENT-LIST>
\r\r
2477 <GDECL (SUBRS TEMPLATES) VECTOR>
2480 <GFCN
\1aSIDES ("VALUE" <OR ATOM FALSE> <LIST [REST NODE]>) L4>
2481 <TEMP TEMP14 TEMP11:LIST TEMP19>
2483 <SET TEMP14 %<> (TYPE FALSE)>
2484 <SET TEMP11 L4 (TYPE LIST)>
2489 <EMPL? TEMP11 + MAPAP9>
2490 <NTHL TEMP11 1 = TEMP14>
2491 <NTHUV TEMP14 1 = TEMP19 (TYPE FIX)>
2492 <VEQUAL? TEMP19 2 - PHRASE18 (TYPE FIX)>
2494 <SET TEMP14 %<> (TYPE FALSE)>
2497 <NTHUV TEMP14 1 = TEMP19 (TYPE FIX)>
2498 <VEQUAL? TEMP19 52 + TAG23 (TYPE FIX)>
2500 <NTHUV TEMP14 8 = TEMP14>
2501 <CHTYPE TEMP14 <TYPE-CODE LIST> = TEMP14>
2502 <EMPL? TEMP14 + TAG22>
2503 <LOOP (TEMP14 VALUE)>
2505 <NTHL TEMP14 1 = TEMP19>
2506 <TYPE? TEMP19 <TYPE-CODE ATOM> - TAG25>
2507 <VEQUAL? TEMP19 'ALL + TAG23>
2510 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
2511 <EMPL? TEMP14 - TAG24>
2513 <SET TEMP14 %<> (TYPE FALSE)>
2518 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
2524 " Generate code for a COND."
2527 <GFCN
\1aCOND-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 W9 NOTF10 BRANCH11 DIR12>
2528 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
2536 <TEMP RW14 COND16:ATOM (WSET18 %<>) KK19:LIST SDIR20 TEMP29 TEMP44 LAST42 BR46 PRED-TRUE48 K49 PR50 NO-SEQ51 LEAVE52 BRNCHED58 PRT59 BR2-56 PRT2-57 LOCN15>
2539 <FRAME '
\1aMAKE-TAG>
2541 <CALL '
\1aMAKE-TAG 1 = COND16>
2542 <NTHUV NOD8 5 = KK19 (TYPE LIST)>
2544 <TYPE? NOTF10 <TYPE-CODE FALSE> + TAG25>
2545 <TYPE? DIR12 <TYPE-CODE FALSE> - TAG24>
2547 <SET DIR12 'T (TYPE ATOM)>
2550 <SET DIR12 %<> (TYPE FALSE)>
2552 <GVAL 'POP-STACK = TEMP29>
2553 <EQUAL? TEMP29 W9 + BOOL28>
2555 <TYPE? W9 <TYPE-CODE TEMP> - PHRASE27>
2556 <NTHUV W9 5 = TEMP29>
2557 <TYPE? TEMP29 <TYPE-CODE FALSE> + PHRASE27>
2559 <NTHUV W9 5 = TEMP29>
2560 <EQUAL? TEMP29 'ANY + PHRASE27>
2563 <SET W9 'DONT-CARE (TYPE ATOM)>
2565 <SET TEMP29 KK19 (TYPE LIST)>
2570 <EMPL? TEMP29 + MAPAP35>
2572 <RESTL KK19 1 = TEMP44 (TYPE LIST)>
2573 <EMPL? TEMP44 - TAG43 (TYPE LIST)>
2575 <SET LAST42 'T (TYPE ATOM)>
2578 <SET LAST42 %<> (TYPE FALSE)>
2580 <NTHL KK19 1 = BR46 (TYPE NODE)>
2581 <SET PRED-TRUE48 %<> (TYPE FALSE)>
2582 <NTHUV BR46 5 = K49 (TYPE LIST)>
2583 <NTHUV BR46 4 = PR50 (TYPE NODE)>
2584 <SET NO-SEQ51 %<> (TYPE FALSE)>
2585 <SET LEAVE52 %<> (TYPE FALSE)>
2586 <SET BRNCHED58 %<> (TYPE FALSE)>
2587 <NTHUV PR50 3 = PRT59>
2588 <VEQUAL? LAST42 0 - PHRASE62>
2589 <FRAME '
\1aTYPE-OK?>
2592 <CALL '
\1aTYPE-OK? 2 = TEMP44>
2593 <TYPE? TEMP44 <TYPE-CODE FALSE> + PHRASE62>
2595 <FRAME '
\1aTYPE-OK?>
2596 <RESTL KK19 1 = TEMP44 (TYPE LIST)>
2597 <NTHL TEMP44 1 = BR2-56 (TYPE NODE)>
2599 <NTHUV BR2-56 4 = TEMP44 (TYPE NODE)>
2600 <NTHUV TEMP44 3 = PRT2-57>
2604 <CALL '
\1aTYPE-OK? 2 = TEMP44>
2605 <TYPE? TEMP44 <TYPE-CODE FALSE> - PHRASE62>
2607 <NTHUV BR2-56 5 = TEMP44 (TYPE LIST)>
2609 <EMPL? TEMP44 - BOOL67 (TYPE LIST)>
2610 <TYPE? PRT2-57 <TYPE-CODE FALSE> + BOOL66>
2613 <EMPL? TEMP44 + PHRASE62 (TYPE LIST)>
2614 <LOOP (TEMP44 VALUE)>
2616 <RESTL TEMP44 1 = PRT2-57 (TYPE LIST)>
2617 <EMPL? PRT2-57 + TAG71>
2618 <SET TEMP44 PRT2-57>
2622 <NTHL TEMP44 1 = PRT2-57>
2624 <NTHUV PRT2-57 3 = PRT2-57>
2625 <TYPE? PRT2-57 <TYPE-CODE FALSE> - PHRASE62>
2628 <FRAME '
\1aCOND-COMPLAIN>
2629 <PUSH "Predicate assumed true to avoid type mismatch">
2631 <CALL '
\1aCOND-COMPLAIN 2>
2632 <SET PRED-TRUE48 'T (TYPE ATOM)>
2634 <EMPL? K49 - PHRASE74 (TYPE LIST)>
2635 <FRAME '
\1aTYPE-OK?>
2638 <CALL '
\1aTYPE-OK? 2 = PRT2-57>
2639 <TYPE? PRT2-57 <TYPE-CODE FALSE> - TAG80>
2641 <SET PRED-TRUE48 'T (TYPE ATOM)>
2643 <VEQUAL? PRED-TRUE48 0 - BOOL77>
2644 <VEQUAL? LAST42 0 + PHRASE76>
2646 <VEQUAL? LAST42 0 - PHRASE82>
2647 <FRAME '
\1aCOND-COMPLAIN>
2648 <PUSH "NON REACHABLE COND CLAUSE(S) ">
2649 <RESTL KK19 1 = PRT2-57 (TYPE LIST)>
2651 <NTHL PRT2-57 1 = STACK (TYPE NODE)>
2653 <CALL '
\1aCOND-COMPLAIN 2>
2655 <VEQUAL? PRED-TRUE48 0 + PHRASE85>
2657 <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE85>
2661 <EQUAL? RW14 'FLUSHED - PHRASE89>
2662 <SET PRT2-57 'FLUSHED (TYPE ATOM)>
2669 <CALL '
\1aGEN 2 = LOCN15>
2670 <VEQUAL? WSET18 0 - PHRASE92>
2672 <GVAL 'NO-DATUM = PRT2-57>
2673 <EQUAL? PRT2-57 LOCN15 + PHRASE92>
2675 <EQUAL? RW14 'FLUSHED + PHRASE92>
2676 <FRAME '
\1aFIXUP-TEMP>
2681 <CALL '
\1aFIXUP-TEMP 2 = W9>
2683 <TYPE? DIR12 <TYPE-CODE FALSE> + MAPAP35>
2685 <FRAME '
\1aBRANCH-TAG>
2688 <CALL '
\1aBRANCH-TAG 1>
2691 <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE98>
2692 <VEQUAL? LAST42 0 + PHRASE98>
2694 <FRAME '
\1aPRED-BRANCH-GEN>
2701 <EQUAL? RW14 'FLUSHED - PHRASE102>
2702 <SET PRT2-57 'FLUSHED (TYPE ATOM)>
2705 <VEQUAL? WSET18 0 - BOOL104>
2707 <TYPE? W9 <TYPE-CODE TEMP> - PHRASE103>
2708 <NTHUV W9 2 = TEMP44 (TYPE FIX)>
2709 <VEQUAL? TEMP44 0 - PHRASE103 (TYPE FIX)>
2715 <FRAME '
\1aGEN-TEMP>
2717 <CALL '
\1aGEN-TEMP 1 = W9>
2724 <CALL '
\1aPRED-BRANCH-GEN 5>
2730 <EQUAL? RW14 'FLUSHED - PHRASE114>
2731 <SET PRT2-57 'FLUSHED (TYPE ATOM)>
2738 <CALL '
\1aGEN 2 = LOCN15>
2739 <VEQUAL? WSET18 0 - MAPAP35>
2741 <GVAL 'NO-DATUM = PRT2-57>
2742 <EQUAL? PRT2-57 LOCN15 + MAPAP35>
2744 <EQUAL? RW14 'FLUSHED + MAPAP35>
2745 <FRAME '
\1aFIXUP-TEMP>
2750 <CALL '
\1aFIXUP-TEMP 2 = W9>
2753 <TYPE? PRT59 <TYPE-CODE FALSE> - PHRASE120>
2754 <FRAME '
\1aCOND-COMPLAIN>
2755 <PUSH "Predicate assumed FALSE to satisfy type constraint ">
2757 <CALL '
\1aCOND-COMPLAIN 2>
2768 <CALL '
\1aISTYPE? 1 = PRT2-57>
2769 <VEQUAL? PRT2-57 'FALSE - PHRASE123>
2778 <EQUAL? RW14 'FLUSHED - PHRASE126>
2779 <FRAME '
\1aPRED-BRANCH-GEN>
2780 <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE129>
2781 <TYPE? SDIR20 <TYPE-CODE FALSE> + PHRASE129>
2782 <SET PRT2-57 BRANCH11>
2785 <SET PRT2-57 COND16>
2794 <CALL '
\1aPRED-BRANCH-GEN 5>
2797 <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE134>
2798 <TYPE? SDIR20 <TYPE-CODE FALSE> + PHRASE134>
2799 <FRAME '
\1aFREE-TEMP>
2800 <FRAME '
\1aPRED-BRANCH-GEN>
2807 <CALL '
\1aPRED-BRANCH-GEN 5 = STACK>
2808 <CALL '
\1aFREE-TEMP 1>
2811 <FRAME '
\1aPRED-BRANCH-GEN>
2816 <VEQUAL? WSET18 0 - BOOL142>
2818 <TYPE? W9 <TYPE-CODE TEMP> - PHRASE141>
2819 <NTHUV W9 2 = TEMP44 (TYPE FIX)>
2820 <VEQUAL? TEMP44 0 - PHRASE141 (TYPE FIX)>
2823 <SET WSET18 'T (TYPE ATOM)>
2827 <SET WSET18 'T (TYPE ATOM)>
2828 <FRAME '
\1aGEN-TEMP>
2830 <CALL '
\1aGEN-TEMP 1 = W9>
2836 <CALL '
\1aPRED-BRANCH-GEN 5 = LOCN15>
2837 <FRAME '
\1aDEALLOCATE-TEMP>
2839 <CALL '
\1aDEALLOCATE-TEMP 1>
2842 <FRAME '
\1aMAKE-TAG>
2844 <CALL '
\1aMAKE-TAG 1 = BR2-56>
2846 <LOOP (TEMP44 VALUE)>
2848 <RESTL TEMP44 1 = PRT2-57 (TYPE LIST)>
2849 <EMPL? PRT2-57 + TAG154>
2850 <SET TEMP44 PRT2-57>
2854 <NTHL TEMP44 1 = PRT2-57>
2856 <NTHUV PRT2-57 3 = TEMP44>
2860 <CALL '
\1aISTYPE? 1 = PRT2-57>
2861 <VEQUAL? PRT2-57 'FALSE + BOOL158>
2863 <TYPE? TEMP44 <TYPE-CODE FALSE> - BOOL158>
2865 <FRAME '
\1aCOND-COMPLAIN>
2866 <PUSH "Predicate assumed FALSE to satisfy type constraibnt">
2868 <CALL '
\1aCOND-COMPLAIN 2>
2873 <CALL '
\1aISTYPE? 1 = PRT2-57>
2874 <VEQUAL? PRT2-57 'FALSE - PHRASE156>
2876 <FRAME '
\1aCOND-COMPLAIN>
2877 <PUSH "COND PREDICATE ALWAYS FALSE">
2879 <CALL '
\1aCOND-COMPLAIN 2>
2881 <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE165>
2882 <VEQUAL? LAST42 0 + PHRASE165>
2883 <TYPE? DIR12 <TYPE-CODE FALSE> - PHRASE165>
2888 <CALL '
\1aGEN 2 = LOCN15>
2889 <VEQUAL? WSET18 0 - PHRASE169>
2890 <GVAL 'NO-DATUM = PRT2-57>
2891 <EQUAL? PRT2-57 LOCN15 + PHRASE169>
2893 <EQUAL? RW14 'FLUSHED + PHRASE169>
2894 <FRAME '
\1aFIXUP-TEMP>
2899 <CALL '
\1aFIXUP-TEMP 2 = W9>
2901 <SET WSET18 'T (TYPE ATOM)>
2903 <FRAME '
\1aBRANCH-TAG>
2905 <CALL '
\1aBRANCH-TAG 1>
2908 <VEQUAL? LAST42 0 + PHRASE175>
2909 <EQUAL? RW14 'FLUSHED + PHRASE175>
2914 <CALL '
\1aGEN 2 = LOCN15>
2915 <VEQUAL? WSET18 0 - PHRASE182>
2916 <GVAL 'NO-DATUM = PRT2-57>
2917 <EQUAL? PRT2-57 LOCN15 + PHRASE182>
2919 <FRAME '
\1aFIXUP-TEMP>
2924 <CALL '
\1aFIXUP-TEMP 2 = W9>
2926 <SET WSET18 'T (TYPE ATOM)>
2933 <CALL '
\1aGEN 2 = LOCN15>
2935 <EQUAL? PRT59 'NO-RETURN + PHRASE185>
2937 <FRAME '
\1aBRANCH-TAG>
2939 <CALL '
\1aBRANCH-TAG 1>
2941 <SET NO-SEQ51 'T (TYPE ATOM)>
2944 <FRAME '
\1aTYPE-OK?>
2948 <CALL '
\1aTYPE-OK? 2 = PRT2-57>
2949 <TYPE? PRT2-57 <TYPE-CODE FALSE> + PHRASE187>
2951 <VEQUAL? PRED-TRUE48 0 - PHRASE187>
2953 <VEQUAL? LAST42 0 + PHRASE191>
2954 <TYPE? DIR12 <TYPE-CODE FALSE> - PHRASE191>
2955 <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE191>
2956 <FRAME '
\1aPRED-BRANCH-GEN>
2961 <EQUAL? RW14 'FLUSHED - PHRASE195>
2962 <SET PRT2-57 'FLUSHED (TYPE ATOM)>
2965 <VEQUAL? WSET18 0 - BOOL197>
2967 <TYPE? W9 <TYPE-CODE TEMP> - PHRASE196>
2968 <NTHUV W9 2 = TEMP44 (TYPE FIX)>
2969 <VEQUAL? TEMP44 0 - PHRASE196 (TYPE FIX)>
2972 <SET WSET18 'T (TYPE ATOM)>
2976 <SET WSET18 'T (TYPE ATOM)>
2977 <FRAME '
\1aGEN-TEMP>
2979 <CALL '
\1aGEN-TEMP 1 = W9>
2985 <CALL '
\1aPRED-BRANCH-GEN 5 = LOCN15>
2986 <FRAME '
\1aDEALLOCATE-TEMP>
2988 <CALL '
\1aDEALLOCATE-TEMP 1>
2991 <VEQUAL? LAST42 0 + PHRASE205>
2992 <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE205>
2993 <FRAME '
\1aFREE-TEMP>
2994 <FRAME '
\1aPRED-BRANCH-GEN>
3000 <CALL '
\1aPRED-BRANCH-GEN 4 = STACK>
3001 <CALL '
\1aFREE-TEMP 1>
3004 <VEQUAL? LAST42 0 + PHRASE209>
3005 <EQUAL? RW14 'FLUSHED + PHRASE209>
3006 <FRAME '
\1aPRED-BRANCH-GEN>
3011 <EQUAL? RW14 'FLUSHED - PHRASE213>
3012 <SET PRT2-57 'FLUSHED (TYPE ATOM)>
3015 <VEQUAL? WSET18 0 - BOOL215>
3017 <TYPE? W9 <TYPE-CODE TEMP> - PHRASE214>
3018 <NTHUV W9 2 = TEMP44 (TYPE FIX)>
3019 <VEQUAL? TEMP44 0 - PHRASE214 (TYPE FIX)>
3022 <SET WSET18 'T (TYPE ATOM)>
3026 <SET WSET18 'T (TYPE ATOM)>
3027 <FRAME '
\1aGEN-TEMP>
3029 <CALL '
\1aGEN-TEMP 1 = W9>
3034 <CALL '
\1aPRED-BRANCH-GEN 4 = LOCN15>
3035 <FRAME '
\1aDEALLOCATE-TEMP>
3037 <CALL '
\1aDEALLOCATE-TEMP 1>
3040 <FRAME '
\1aPRED-BRANCH-GEN>
3046 <CALL '
\1aPRED-BRANCH-GEN 4>
3049 <CONS PR50 K49 = K49>
3051 <VEQUAL? LAST42 0 - PHRASE226>
3052 <SET LEAVE52 'T (TYPE ATOM)>
3053 <FRAME '
\1aCOND-COMPLAIN>
3054 <PUSH "NON REACHABLE COND CLAUSE(S)">
3055 <RESTL KK19 1 = PRT2-57 (TYPE LIST)>
3057 <NTHL PRT2-57 1 = STACK (TYPE NODE)>
3059 <CALL '
\1aCOND-COMPLAIN 2>
3061 <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE229>
3062 <VEQUAL? NO-SEQ51 0 - PHRASE281>
3063 <FRAME '
\1aTYPE-OK?>
3067 <RESTL PR50 1 = PRT2-57 (TYPE LIST)>
3068 <EMPL? PRT2-57 + TAG236>
3073 <NTHL PR50 1 = PR50>
3074 <NTHUV PR50 3 = STACK>
3076 <CALL '
\1aTYPE-OK? 2 = PRT2-57>
3077 <TYPE? PRT2-57 <TYPE-CODE FALSE> - TAG237>
3079 <SET PRED-TRUE48 'T (TYPE ATOM)>
3082 <SET PRED-TRUE48 %<> (TYPE FALSE)>
3083 <FRAME '
\1aTYPE-OK?>
3084 <NTHUV PR50 3 = STACK>
3087 <CALL '
\1aTYPE-OK? 2 = PRT2-57>
3088 <TYPE? PRT2-57 <TYPE-CODE FALSE> - PHRASE232>
3091 <TYPE? NOTF10 <TYPE-CODE FALSE> + PHRASE240>
3095 <CALL '
\1aSEQ-GEN 2>
3096 <EQUAL? RW14 'FLUSHED - PHRASE243>
3097 <GVAL 'NO-DATUM = LOCN15>
3100 <FRAME '
\1aMOVE-ARG>
3101 <FRAME '
\1aREFERENCE>
3102 <VEQUAL? PRED-TRUE48 0 - TAG247>
3103 <SET PRT2-57 'T (TYPE ATOM)>
3106 <SET PRT2-57 %<> (TYPE FALSE)>
3110 <CALL '
\1aREFERENCE 1 = STACK>
3112 <CALL '
\1aMOVE-ARG 2 = LOCN15>
3113 <VEQUAL? WSET18 0 - PHRASE260>
3114 <GVAL 'NO-DATUM = PRT2-57>
3115 <EQUAL? PRT2-57 LOCN15 + PHRASE260>
3117 <FRAME '
\1aFIXUP-TEMP>
3122 <CALL '
\1aFIXUP-TEMP 2 = W9>
3124 <SET WSET18 'T (TYPE ATOM)>
3129 <EQUAL? RW14 'FLUSHED + BOOL257>
3130 <EQUAL? SDIR20 PRED-TRUE48 + PHRASE256>
3132 <SET PRT2-57 'FLUSHED (TYPE ATOM)>
3139 <CALL '
\1aSEQ-GEN 2 = LOCN15>
3140 <VEQUAL? WSET18 0 - PHRASE260>
3141 <EQUAL? RW14 'FLUSHED + PHRASE260>
3142 <GVAL 'NO-DATUM = PRT2-57>
3143 <EQUAL? PRT2-57 LOCN15 + PHRASE260>
3145 <FRAME '
\1aFIXUP-TEMP>
3150 <CALL '
\1aFIXUP-TEMP 2 = W9>
3152 <SET WSET18 'T (TYPE ATOM)>
3154 <EQUAL? PRED-TRUE48 SDIR20 - PHRASE281>
3156 <SET BRNCHED58 'T (TYPE ATOM)>
3157 <FRAME '
\1aBRANCH-TAG>
3159 <CALL '
\1aBRANCH-TAG 1>
3162 <FRAME '
\1aPSEQ-GEN>
3164 <EQUAL? RW14 'FLUSHED - PHRASE269>
3165 <SET PRT2-57 'FLUSHED (TYPE ATOM)>
3175 <CALL '
\1aPSEQ-GEN 5 = LOCN15>
3176 <VEQUAL? WSET18 0 - PHRASE281>
3177 <GVAL 'NO-DATUM = PRT2-57>
3178 <EQUAL? PRT2-57 LOCN15 + PHRASE281>
3180 <EQUAL? RW14 'FLUSHED + PHRASE281>
3181 <FRAME '
\1aFIXUP-TEMP>
3186 <CALL '
\1aFIXUP-TEMP 2 = W9>
3188 <SET WSET18 'T (TYPE ATOM)>
3191 <VEQUAL? NO-SEQ51 0 - PHRASE281>
3192 <FRAME '
\1aPSEQ-GEN>
3194 <EQUAL? RW14 'FLUSHED - PHRASE278>
3195 <SET PRT2-57 'FLUSHED (TYPE ATOM)>
3205 <CALL '
\1aPSEQ-GEN 5 = LOCN15>
3206 <VEQUAL? WSET18 0 - PHRASE281>
3207 <GVAL 'NO-DATUM = PRT2-57>
3208 <EQUAL? PRT2-57 LOCN15 + PHRASE281>
3210 <EQUAL? RW14 'FLUSHED + PHRASE281>
3211 <FRAME '
\1aFIXUP-TEMP>
3216 <CALL '
\1aFIXUP-TEMP 2 = W9>
3218 <SET WSET18 'T (TYPE ATOM)>
3220 <VEQUAL? LAST42 0 - BOOL291>
3224 <LOOP (PRT2-57 VALUE)>
3226 <RESTL PRT2-57 1 = TEMP44 (TYPE LIST)>
3227 <EMPL? TEMP44 + TAG288>
3228 <SET PRT2-57 TEMP44>
3232 <NTHL PRT2-57 1 = TEMP44>
3234 <NTHUV TEMP44 3 = TEMP44>
3235 <EQUAL? TEMP44 'NO-RETURN + BOOL291>
3237 <VEQUAL? NO-SEQ51 0 - BOOL289>
3238 <FRAME '
\1aDEALLOCATE-TEMP>
3240 <CALL '
\1aDEALLOCATE-TEMP 1>
3242 <VEQUAL? BRNCHED58 0 - BOOL291>
3244 <VEQUAL? NO-SEQ51 0 - BOOL291>
3246 <FRAME '
\1aBRANCH-TAG>
3248 <CALL '
\1aBRANCH-TAG 1>
3250 <FRAME '
\1aLABEL-TAG>
3253 <CALL '
\1aLABEL-TAG 1>
3255 <GEN-ASSIGNED? 'NPRUNE + PHRASE295>
3256 <PUTUV BR46 5 () (TYPE LIST)>
3259 <VEQUAL? LEAVE52 0 - MAPAP35>
3261 <RESTL TEMP29 1 = TEMP29 (TYPE LIST)>
3264 <GEN-ASSIGNED? 'NPRUNE + PHRASE300>
3265 <PUTUV NOD8 5 () (TYPE LIST)>
3267 <FRAME '
\1aLABEL-TAG>
3270 <CALL '
\1aLABEL-TAG 1>
3271 <NTHUV NOD8 3 = WSET18>
3273 <EQUAL? WSET18 'NO-RETURN - PHRASE304>
3275 <GVAL 'NO-DATUM = RW14>
3279 <FRAME '
\1aMOVE-ARG>
3284 <CALL '
\1aMOVE-ARG 2 = RW14>
3289 <GFCN
\1aFIXUP-TEMP ("VALUE" ANY ANY ANY) W4 LOCN5>
3292 <TYPE? LOCN5 <TYPE-CODE TEMP> - PHRASE7>
3293 <NTHUV LOCN5 2 = TEMP9 (TYPE FIX)>
3294 <GRTR? TEMP9 1 + PHRASE7 (TYPE FIX)>
3299 <EQUAL? LOCN5 W4 - PHRASE12>
3304 <FRAME '
\1aMOVE-ARG>
3307 <FRAME '
\1aGEN-TEMP>
3309 <CALL '
\1aGEN-TEMP 1 = STACK>
3310 <CALL '
\1aMOVE-ARG 2 = TEMP9>
3315 <GFCN
\1aPSEQ-GEN ("VALUE" ANY <LIST [REST NODE]> ANY ANY ANY ANY) L4 W5 B6 D7 NF8>
3316 <TEMP (WSET9 %<>) TEMP17:LIST N22:LIST ND23 TEMP28 NX24>
3318 <SET TEMP17 L4 (TYPE LIST)>
3323 <EMPL? TEMP17 + MAPAP15>
3325 <NTHL N22 1 = ND23 (TYPE NODE)>
3326 <RESTL N22 1 = TEMP28 (TYPE LIST)>
3327 <EMPL? TEMP28 + PHRASE27 (TYPE LIST)>
3329 <RESTL N22 1 = TEMP28 (TYPE LIST)>
3330 <NTHL TEMP28 1 = NX24 (TYPE NODE)>
3332 <NTHUV NX24 1 = TEMP28 (TYPE FIX)>
3333 <VEQUAL? TEMP28 90 - PHRASE30 (TYPE FIX)>
3335 <NTHUV NX24 5 = NX24 (TYPE LIST)>
3336 <EMPL? NX24 + PHRASE30>
3337 <RESTL NX24 1 = TEMP28 (TYPE LIST)>
3338 <EMPL? TEMP28 + PHRASE30>
3340 <NTHL NX24 1 = TEMP28 (TYPE NODE)>
3342 <NTHUV TEMP28 4 = TEMP28>
3343 <EQUAL? TEMP28 '`ENDIF - PHRASE30>
3349 <CALL '
\1aGEN 2 = ND23>
3350 <VEQUAL? WSET9 0 - PHRASE34>
3351 <EQUAL? W5 'FLUSHED + PHRASE34>
3352 <GVAL 'NO-DATUM = TEMP28>
3353 <EQUAL? TEMP28 ND23 + PHRASE34>
3355 <GVAL 'POP-STACK = TEMP28>
3356 <EQUAL? TEMP28 W5 + PHRASE34>
3358 <FRAME '
\1aFIXUP-TEMP>
3363 <CALL '
\1aFIXUP-TEMP 2 = W5>
3364 <SET WSET9 'T (TYPE ATOM)>
3366 <RESTL N22 1 = TEMP28 (TYPE LIST)>
3368 <RESTL TEMP28 1 = TEMP28 (TYPE LIST)>
3369 <EMPL? TEMP28 + PHRASE53 (TYPE LIST)>
3371 <FRAME '
\1aDEALLOCATE-TEMP>
3373 <CALL '
\1aDEALLOCATE-TEMP 1>
3376 <LENUV ND23 = TEMP28 (TYPE FIX)>
3377 <LESS? TEMP28 8 + BOOL43 (TYPE FIX)>
3379 <NTHUV ND23 8 = TEMP28>
3380 <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL42>
3385 <PUSH 'DONT-FLUSH-ME>
3386 <CALL '
\1aGETPROP 2 = TEMP28>
3387 <TYPE? TEMP28 <TYPE-CODE FALSE> - BOOL42>
3389 <GVAL 'DONT-FLUSH-ME = TEMP28>
3390 <TYPE? TEMP28 <TYPE-CODE FALSE> + PHRASE53>
3400 <NTHUV ND23 1 = TEMP28 (TYPE FIX)>
3401 <VEQUAL? TEMP28 90 - PHRASE46 (TYPE FIX)>
3403 <NTHUV ND23 5 = NX24 (TYPE LIST)>
3404 <EMPL? NX24 + PHRASE46>
3405 <RESTL NX24 1 = TEMP28 (TYPE LIST)>
3406 <EMPL? TEMP28 + PHRASE46>
3408 <NTHL NX24 1 = TEMP28 (TYPE NODE)>
3410 <NTHUV TEMP28 4 = TEMP28>
3411 <EQUAL? TEMP28 '`ENDIF - PHRASE46>
3420 <TYPE? B6 <TYPE-CODE FALSE> + PHRASE51>
3421 <FRAME '
\1aPRED-BRANCH-GEN>
3429 <CALL '
\1aPRED-BRANCH-GEN 5 = W5>
3437 <CALL '
\1aGEN 2 = W5>
3439 <RESTL TEMP17 1 = TEMP17 (TYPE LIST)>
3446 <GFCN
\1aCOND-COMPLAIN ("VALUE" ATOM ANY NODE) MSG4 N1-5>
3449 <FRAME '
\1aCOMPILE-NOTE>
3454 <CALL '
\1aCOMPILE-NOTE 2 = TEMP7>
3457 <END
\1aCOND-COMPLAIN>
3458 " Generate code for OR use BOOL-GEN to do work."
3461 <GFCN
\1aOR-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NF10 BR11 DIR12>
3462 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
3472 <FRAME '
\1aBOOL-GEN>
3474 <NTHUV NOD8 5 = STACK (TYPE LIST)>
3485 <CALL '
\1aBOOL-GEN 7 = TEMP14>
3489 " Generate code for AND use BOOL-GEN to do work."
3492 <GFCN
\1aAND-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NF10 BR11 DIR12>
3493 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
3503 <FRAME '
\1aBOOL-GEN>
3505 <NTHUV NOD8 5 = STACK (TYPE LIST)>
3516 <CALL '
\1aBOOL-GEN 7 = TEMP14>
3521 <GFCN
\1aBOOL-GEN ("VALUE" ANY NODE <LIST [REST NODE]> ANY ANY ANY <OR ATOM FALSE> ANY) NOD4 PREDS5 RESULT6 W7 NOTF8 BRANCH9 DIR10>
3522 <TEMP RW11 BOOL12:ATOM FLUSH13 (WSET14 %<>) TEMP24 FLS15 SRES17 RTF16 LOCN18 BRN57:LIST BR58 LAST59 RT63 RTFL64 TEMP69 TY65>
3525 <FRAME '
\1aMAKE-TAG>
3527 <CALL '
\1aMAKE-TAG 1 = BOOL12>
3528 <EQUAL? RW11 'FLUSHED - TAG21>
3529 <SET FLUSH13 'T (TYPE ATOM)>
3532 <SET FLUSH13 %<> (TYPE FALSE)>
3534 <TYPE? BRANCH9 <TYPE-CODE FALSE> + TAG25>
3535 <SET TEMP24 %<> (TYPE FALSE)>
3538 <SET TEMP24 FLUSH13>
3542 <GVAL 'POP-STACK = TEMP24>
3543 <EQUAL? TEMP24 W7 + BOOL28>
3545 <TYPE? W7 <TYPE-CODE TEMP> - PHRASE27>
3546 <NTHUV W7 5 = TEMP24>
3547 <TYPE? TEMP24 <TYPE-CODE FALSE> + PHRASE27>
3549 <NTHUV W7 5 = TEMP24>
3550 <EQUAL? TEMP24 'ANY + PHRASE27>
3553 <SET W7 'DONT-CARE (TYPE ATOM)>
3555 <TYPE? NOTF8 <TYPE-CODE FALSE> + TAG33>
3556 <TYPE? RESULT6 <TYPE-CODE FALSE> - TAG32>
3558 <SET RESULT6 'T (TYPE ATOM)>
3561 <SET RESULT6 %<> (TYPE FALSE)>
3563 <SET SRES17 RESULT6>
3564 <VEQUAL? FLUSH13 0 + TAG35>
3565 <SET RTF16 %<> (TYPE FALSE)>
3568 <EQUAL? SRES17 DIR10 + TAG36>
3569 <SET RTF16 %<> (TYPE FALSE)>
3572 <FRAME '
\1aTYPE-OK?>
3573 <NTHUV NOD4 3 = STACK>
3575 <CALL '
\1aTYPE-OK? 2 = RTF16>
3577 <TYPE? DIR10 <TYPE-CODE FALSE> + TAG41>
3578 <TYPE? RESULT6 <TYPE-CODE FALSE> - TAG40>
3580 <SET RESULT6 'T (TYPE ATOM)>
3583 <SET RESULT6 %<> (TYPE FALSE)>
3585 <EMPL? PREDS5 - PHRASE43 (TYPE LIST)>
3586 <FRAME '
\1aMOVE-ARG>
3587 <FRAME '
\1aREFERENCE>
3589 <CALL '
\1aREFERENCE 1 = STACK>
3591 <CALL '
\1aMOVE-ARG 2>
3594 <SET TEMP24 PREDS5 (TYPE LIST)>
3598 <EMPL? TEMP24 + MAPAP51>
3600 <NTHL BRN57 1 = BR58 (TYPE NODE)>
3601 <RESTL BRN57 1 = LOCN18 (TYPE LIST)>
3602 <EMPL? LOCN18 - TAG60 (TYPE LIST)>
3604 <SET LAST59 'T (TYPE ATOM)>
3607 <SET LAST59 %<> (TYPE FALSE)>
3609 <NTHUV BR58 3 = RT63>
3610 <SET RTFL64 %<> (TYPE FALSE)>
3611 <TYPE? FLUSH13 <TYPE-CODE FALSE> + PHRASE78>
3612 <VEQUAL? LAST59 0 - PHRASE78>
3613 <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
3614 <RESTL TEMP69 1 = LOCN18 (TYPE LIST)>
3616 <EMPL? LOCN18 - PHRASE78 (TYPE LIST)>
3619 <RESTL BRN57 1 = LOCN18 (TYPE LIST)>
3620 <NTHL LOCN18 1 = LOCN18 (TYPE NODE)>
3621 <NTHUV LOCN18 3 = TY65>
3624 <CALL '
\1aISTYPE? 1 = LOCN18>
3625 <VEQUAL? LOCN18 'FALSE - BOOL71>
3627 <TYPE? SRES17 <TYPE-CODE FALSE> - BOOL71>
3628 <SET TY65 'FALSE (TYPE ATOM)>
3631 <TYPE? SRES17 <TYPE-CODE FALSE> + PHRASE78>
3632 <FRAME '
\1aTYPE-OK?>
3635 <CALL '
\1aTYPE-OK? 2 = LOCN18>
3636 <TYPE? LOCN18 <TYPE-CODE FALSE> - PHRASE78>
3639 <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
3640 <NTHL TEMP69 1 = TEMP69 (TYPE NODE)>
3641 <LENUV TEMP69 = TEMP69 (TYPE FIX)>
3642 <LESS? TEMP69 8 + BOOL75 (TYPE FIX)>
3644 <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
3645 <NTHL TEMP69 1 = TEMP69 (TYPE NODE)>
3646 <NTHUV TEMP69 8 = TEMP69>
3647 <TYPE? TEMP69 <TYPE-CODE FALSE> - PHRASE78>
3650 <EQUAL? TY65 'FALSE - PHRASE77>
3652 <SET RT63 'ATOM (TYPE ATOM)>
3655 <SET RT63 'FALSE (TYPE ATOM)>
3657 <FRAME '
\1aTYPE-OK?>
3660 <CALL '
\1aTYPE-OK? 2 = TEMP69>
3661 <TYPE? TEMP69 <TYPE-CODE FALSE> + PHRASE80>
3666 <CALL '
\1aISTYPE? 1 = TEMP69>
3667 <VEQUAL? TEMP69 'FALSE - TAG83>
3669 <SET RTFL64 'T (TYPE ATOM)>
3672 <TYPE? BRANCH9 <TYPE-CODE FALSE> - BOOL87>
3673 <TYPE? FLS15 <TYPE-CODE FALSE> + PHRASE86>
3674 <VEQUAL? LAST59 0 - PHRASE86>
3676 <VEQUAL? LAST59 0 + PHRASE90>
3678 <FRAME '
\1aPRED-BRANCH-GEN>
3683 <TYPE? FLUSH13 <TYPE-CODE FALSE> + PHRASE93>
3684 <SET TEMP69 'FLUSHED (TYPE ATOM)>
3687 <VEQUAL? WSET14 0 - BOOL95>
3689 <TYPE? W7 <TYPE-CODE TEMP> - PHRASE94>
3690 <NTHUV W7 2 = LOCN18 (TYPE FIX)>
3691 <VEQUAL? LOCN18 0 - PHRASE94 (TYPE FIX)>
3694 <SET WSET14 'T (TYPE ATOM)>
3698 <SET WSET14 'T (TYPE ATOM)>
3699 <FRAME '
\1aGEN-TEMP>
3701 <CALL '
\1aGEN-TEMP 1 = W7>
3707 <CALL '
\1aPRED-BRANCH-GEN 5>
3710 <FRAME '
\1aPRED-BRANCH-GEN>
3711 <TYPE? FLS15 <TYPE-CODE FALSE> + PHRASE104>
3715 <TYPE? RESULT6 <TYPE-CODE FALSE> + PHRASE105>
3719 <SET TEMP69 BRANCH9>
3726 <TYPE? FLUSH13 <TYPE-CODE FALSE> - BOOL109>
3727 <TYPE? RTF16 <TYPE-CODE FALSE> - PHRASE108>
3729 <SET TEMP69 'FLUSHED (TYPE ATOM)>
3732 <VEQUAL? WSET14 0 - BOOL111>
3734 <TYPE? W7 <TYPE-CODE TEMP> - PHRASE110>
3735 <NTHUV W7 2 = LOCN18 (TYPE FIX)>
3736 <VEQUAL? LOCN18 0 - PHRASE110 (TYPE FIX)>
3739 <SET WSET14 'T (TYPE ATOM)>
3743 <SET WSET14 'T (TYPE ATOM)>
3744 <FRAME '
\1aGEN-TEMP>
3746 <CALL '
\1aGEN-TEMP 1 = W7>
3752 <CALL '
\1aPRED-BRANCH-GEN 5 = LOCN18>
3753 <FRAME '
\1aDEALLOCATE-TEMP>
3756 <CALL '
\1aDEALLOCATE-TEMP 1>
3759 <VEQUAL? LAST59 0 + PHRASE118>
3765 <CALL '
\1aGEN 2 = LOCN18>
3766 <TYPE? FLUSH13 <TYPE-CODE FALSE> - PHRASE166>
3767 <GVAL 'NO-DATUM = TEMP69>
3768 <EQUAL? TEMP69 LOCN18 + PHRASE166>
3770 <VEQUAL? WSET14 0 - PHRASE166>
3771 <FRAME '
\1aFIXUP-TEMP>
3776 <CALL '
\1aFIXUP-TEMP 2 = W7>
3777 <SET WSET14 'T (TYPE ATOM)>
3780 <FRAME '
\1aPRED-BRANCH-GEN>
3785 <TYPE? FLUSH13 <TYPE-CODE FALSE> + PHRASE127>
3786 <SET TEMP69 'FLUSHED (TYPE ATOM)>
3789 <VEQUAL? WSET14 0 - BOOL129>
3791 <TYPE? W7 <TYPE-CODE TEMP> - PHRASE128>
3792 <NTHUV W7 2 = LOCN18 (TYPE FIX)>
3793 <VEQUAL? LOCN18 0 - PHRASE128 (TYPE FIX)>
3796 <SET WSET14 'T (TYPE ATOM)>
3800 <SET WSET14 'T (TYPE ATOM)>
3801 <FRAME '
\1aGEN-TEMP>
3803 <CALL '
\1aGEN-TEMP 1 = W7>
3809 <CALL '
\1aPRED-BRANCH-GEN 5 = LOCN18>
3810 <FRAME '
\1aDEALLOCATE-TEMP>
3813 <CALL '
\1aDEALLOCATE-TEMP 1>
3816 <TYPE? NOTF8 <TYPE-CODE FALSE> + PHRASE139>
3817 <VEQUAL? RTFL64 0 - TAG140>
3819 <SET RTFL64 'T (TYPE ATOM)>
3822 <SET RTFL64 %<> (TYPE FALSE)>
3829 <EQUAL? SRES17 TEMP69 - BOOL137>
3831 <VEQUAL? LAST59 0 + PHRASE136>
3833 <VEQUAL? LAST59 0 - PHRASE144>
3835 <FRAME '
\1aCOMPILE-NOTE>
3836 <PUSH "NON REACHABLE AND/OR CLAUSE">
3837 <RESTL BRN57 1 = TEMP69 (TYPE LIST)>
3839 <NTHL TEMP69 1 = STACK (TYPE NODE)>
3841 <CALL '
\1aCOMPILE-NOTE 2>
3843 <TYPE? BRANCH9 <TYPE-CODE FALSE> + PHRASE147>
3846 <EQUAL? DIR10 RTFL64 + PHRASE150>
3850 <SET TEMP69 'FLUSHED (TYPE ATOM)>
3854 <CALL '
\1aGEN 2 = LOCN18>
3855 <TYPE? FLUSH13 <TYPE-CODE FALSE> - PHRASE153>
3857 <GVAL 'NO-DATUM = TEMP69>
3858 <EQUAL? TEMP69 LOCN18 + PHRASE153>
3860 <VEQUAL? WSET14 0 - PHRASE153>
3862 <EQUAL? DIR10 RTFL64 + PHRASE153>
3863 <FRAME '
\1aFIXUP-TEMP>
3868 <CALL '
\1aFIXUP-TEMP 2 = W7>
3870 <EQUAL? DIR10 RTFL64 + MAPAP51>
3872 <NTHUV BR58 3 = TEMP69>
3874 <EQUAL? TEMP69 'NO-RETURN + MAPAP51>
3876 <FRAME '
\1aBRANCH-TAG>
3878 <CALL '
\1aBRANCH-TAG 1>
3885 <CALL '
\1aGEN 2 = LOCN18>
3886 <TYPE? FLUSH13 <TYPE-CODE FALSE> - MAPAP51>
3888 <GVAL 'NO-DATUM = TEMP69>
3889 <EQUAL? TEMP69 LOCN18 + MAPAP51>
3891 <VEQUAL? WSET14 0 - MAPAP51>
3893 <FRAME '
\1aFIXUP-TEMP>
3898 <CALL '
\1aFIXUP-TEMP 2 = W7>
3901 <LENUV BR58 = TEMP69 (TYPE FIX)>
3902 <LESS? TEMP69 8 + BOOL169 (TYPE FIX)>
3904 <NTHUV BR58 8 = TEMP69>
3905 <TYPE? TEMP69 <TYPE-CODE FALSE> + BOOL169>
3907 <VEQUAL? BRN57 PREDS5 - PHRASE168>
3910 <FRAME '
\1aCOMPILE-NOTE>
3911 <PUSH "PREDICATE ALWAYS ">
3912 <VEQUAL? RTFL64 0 + PHRASE173>
3914 <SET TEMP69 "FALSE" (TYPE STRING)>
3917 <SET TEMP69 "TRUE" (TYPE STRING)>
3922 <UBLOCK <TYPE-CODE STRING> 3 = STACK (TYPE STRING)>
3924 <CALL '
\1aCOMPILE-NOTE 2>
3932 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
3935 <GEN-ASSIGNED? 'NPRUNE + PHRASE177>
3936 <PUTUV NOD4 5 () (TYPE LIST)>
3938 <TYPE? BRANCH9 <TYPE-CODE FALSE> + BOOL181>
3940 <TYPE? RESULT6 <TYPE-CODE FALSE> + PHRASE180>
3943 <FRAME '
\1aLABEL-TAG>
3946 <CALL '
\1aLABEL-TAG 1>
3948 <NTHUV NOD4 3 = FLUSH13>
3950 <EQUAL? FLUSH13 'NO-RETURN - PHRASE184>
3952 <GVAL 'NO-DATUM = RW11>
3956 <FRAME '
\1aMOVE-ARG>
3961 <CALL '
\1aMOVE-ARG 2 = RW11>
3965 " Generate code for ASSIGNED?"
3968 <GFCN
\1aASSIGNED?-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY ANY) N9 W10 NF11 BR12 DIR13 SETF14>
3969 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
3979 <TEMP A15 SDIR16 FLS17 (GLOBAL20 'T) TEMP37>
3983 <EQUAL? W10 'FLUSHED - TAG21>
3984 <SET FLS17 'T (TYPE ATOM)>
3987 <SET FLS17 %<> (TYPE FALSE)>
3989 <EQUAL? W10 'DONT-CARE - PHRASE24>
3990 <FRAME '
\1aGEN-TEMP>
3992 <CALL '
\1aGEN-TEMP 1 = W10>
3994 <TYPE? NF11 <TYPE-CODE FALSE> + TAG29>
3996 <TYPE? DIR13 <TYPE-CODE FALSE> - TAG28>
3998 <SET DIR13 'T (TYPE ATOM)>
4001 <SET DIR13 %<> (TYPE FALSE)>
4003 <TYPE? SETF14 <TYPE-CODE FALSE> + PHRASE31>
4005 <FRAME '
\1aDEALLOCATE-TEMP>
4006 <FRAME '
\1aMOVE-ARG>
4007 <FRAME '
\1aREFERENCE>
4008 <TYPE? SDIR16 <TYPE-CODE FALSE> - TAG35>
4009 <SET TEMP37 'T (TYPE ATOM)>
4012 <SET TEMP37 %<> (TYPE FALSE)>
4016 <CALL '
\1aREFERENCE 1 = STACK>
4018 <CALL '
\1aMOVE-ARG 2 = STACK>
4019 <CALL '
\1aDEALLOCATE-TEMP 1>
4021 <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE39>
4022 <VEQUAL? FLS17 0 - PHRASE39>
4023 <TYPE? DIR13 <TYPE-CODE FALSE> - TAG41>
4025 <SET DIR13 'T (TYPE ATOM)>
4028 <SET DIR13 %<> (TYPE FALSE)>
4030 <TYPE? A15 <TYPE-CODE SYMTAB> - PHRASE45>
4031 <NTHUV A15 3 = TEMP37>
4032 <TYPE? TEMP37 <TYPE-CODE FALSE> - PHRASE45>
4037 <CALL '
\1aLADDR 1 = A15>
4038 <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE49>
4039 <VEQUAL? FLS17 0 + PHRASE49>
4041 <FRAME '
\1aGEN-TYPE?>
4047 <TYPE? DIR13 <TYPE-CODE FALSE> - TAG52>
4049 <SET TEMP37 'T (TYPE ATOM)>
4052 <SET TEMP37 %<> (TYPE FALSE)>
4056 <CALL '
\1aGEN-TYPE? 4>
4059 <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE54>
4060 <FRAME '
\1aGEN-TYPE?>
4064 <FRAME '
\1aMAKE-TAG>
4065 <CALL '
\1aMAKE-TAG 0 = FLS17>
4067 <TYPE? DIR13 <TYPE-CODE FALSE> - TAG57>
4069 <SET TEMP37 'T (TYPE ATOM)>
4072 <SET TEMP37 %<> (TYPE FALSE)>
4076 <CALL '
\1aGEN-TYPE? 4>
4077 <FRAME '
\1aMOVE-ARG>
4078 <FRAME '
\1aREFERENCE>
4081 <CALL '
\1aREFERENCE 1 = STACK>
4084 <CALL '
\1aMOVE-ARG 2 = W10>
4085 <FRAME '
\1aBRANCH-TAG>
4088 <CALL '
\1aBRANCH-TAG 1>
4089 <FRAME '
\1aLABEL-TAG>
4092 <CALL '
\1aLABEL-TAG 1>
4096 <FRAME '
\1aGEN-TYPE?>
4100 <FRAME '
\1aMAKE-TAG>
4101 <CALL '
\1aMAKE-TAG 0 = BR12>
4103 <TYPE? DIR13 <TYPE-CODE FALSE> - TAG67>
4105 <SET TEMP37 'T (TYPE ATOM)>
4108 <SET TEMP37 %<> (TYPE FALSE)>
4112 <CALL '
\1aGEN-TYPE? 4>
4113 <FRAME '
\1aTRUE-FALSE>
4120 <CALL '
\1aTRUE-FALSE 3 = TEMP37>
4124 <TYPE? A15 <TYPE-CODE SYMTAB> - PHRASE72>
4125 <NTHUV A15 4 = TEMP37 (TYPE FIX)>
4126 <VEQUAL? TEMP37 -1 + PHRASE74 (TYPE FIX)>
4128 <SET GLOBAL20 %<> (TYPE FALSE)>
4130 <NTHUV A15 2 = A15 (TYPE ATOM)>
4134 <NTHUV N9 5 = TEMP37 (TYPE LIST)>
4135 <NTHL TEMP37 1 = STACK (TYPE NODE)>
4137 <CALL '
\1aGEN 1 = A15>
4139 <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE80>
4140 <VEQUAL? FLS17 0 + PHRASE80>
4150 <CALL '
\1aASS-GEN 4>
4151 <FRAME '
\1aFREE-TEMP>
4154 <CALL '
\1aFREE-TEMP 1>
4157 <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE84>
4160 <FRAME '
\1aMAKE-TAG>
4161 <CALL '
\1aMAKE-TAG 0 = FLS17>
4167 <CALL '
\1aASS-GEN 4>
4168 <FRAME '
\1aMOVE-ARG>
4169 <FRAME '
\1aREFERENCE>
4172 <CALL '
\1aREFERENCE 1 = STACK>
4175 <CALL '
\1aMOVE-ARG 2 = W10>
4176 <FRAME '
\1aBRANCH-TAG>
4179 <CALL '
\1aBRANCH-TAG 1>
4180 <FRAME '
\1aLABEL-TAG>
4183 <CALL '
\1aLABEL-TAG 1>
4184 <FRAME '
\1aFREE-TEMP>
4187 <CALL '
\1aFREE-TEMP 1>
4193 <FRAME '
\1aMAKE-TAG>
4194 <CALL '
\1aMAKE-TAG 0 = BR12>
4200 <CALL '
\1aASS-GEN 4>
4201 <FRAME '
\1aFREE-TEMP>
4204 <CALL '
\1aFREE-TEMP 1>
4205 <FRAME '
\1aTRUE-FALSE>
4212 <CALL '
\1aTRUE-FALSE 3 = TEMP37>
4215 <END
\1aASSIGNED?-GEN>
4217 <GFCN
\1aGASSIGNED?-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY ANY) N9 W10 NF11 BR12 DIR13 SETF14>
4218 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
4228 <TEMP A15 SDIR16 NM17 FLS18>
4232 <EQUAL? W10 'FLUSHED - TAG21>
4233 <SET FLS18 'T (TYPE ATOM)>
4236 <SET FLS18 %<> (TYPE FALSE)>
4238 <EQUAL? W10 'DONT-CARE - PHRASE24>
4239 <FRAME '
\1aGEN-TEMP>
4241 <CALL '
\1aGEN-TEMP 1 = W10>
4243 <TYPE? NF11 <TYPE-CODE FALSE> + TAG29>
4245 <TYPE? DIR13 <TYPE-CODE FALSE> - TAG28>
4247 <SET DIR13 'T (TYPE ATOM)>
4250 <SET DIR13 %<> (TYPE FALSE)>
4252 <TYPE? SETF14 <TYPE-CODE FALSE> + PHRASE31>
4254 <FRAME '
\1aDEALLOCATE-TEMP>
4255 <FRAME '
\1aMOVE-ARG>
4256 <FRAME '
\1aREFERENCE>
4257 <TYPE? SDIR16 <TYPE-CODE FALSE> - TAG35>
4258 <SET A15 'T (TYPE ATOM)>
4261 <SET A15 %<> (TYPE FALSE)>
4265 <CALL '
\1aREFERENCE 1 = STACK>
4267 <CALL '
\1aMOVE-ARG 2 = STACK>
4268 <CALL '
\1aDEALLOCATE-TEMP 1>
4270 <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE39>
4271 <VEQUAL? FLS18 0 - PHRASE39>
4272 <TYPE? DIR13 <TYPE-CODE FALSE> - TAG41>
4274 <SET DIR13 'T (TYPE ATOM)>
4277 <SET DIR13 %<> (TYPE FALSE)>
4280 <NTHUV N9 5 = A15 (TYPE LIST)>
4281 <NTHL A15 1 = STACK (TYPE NODE)>
4283 <CALL '
\1aGEN 1 = A15>
4284 <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE46>
4285 <VEQUAL? FLS18 0 + PHRASE46>
4287 <FRAME '
\1aGEN-GASS>
4296 <CALL '
\1aGEN-GASS 4>
4299 <TYPE? BR12 <TYPE-CODE FALSE> + PHRASE49>
4300 <FRAME '
\1aGEN-GASS>
4303 <FRAME '
\1aMAKE-TAG>
4304 <CALL '
\1aMAKE-TAG 0 = A15>
4310 <CALL '
\1aGEN-GASS 4>
4311 <FRAME '
\1aMOVE-ARG>
4312 <FRAME '
\1aREFERENCE>
4315 <CALL '
\1aREFERENCE 1 = STACK>
4318 <CALL '
\1aMOVE-ARG 2 = W10>
4319 <FRAME '
\1aBRANCH-TAG>
4322 <CALL '
\1aBRANCH-TAG 1>
4323 <FRAME '
\1aLABEL-TAG>
4326 <CALL '
\1aLABEL-TAG 1>
4330 <FRAME '
\1aGEN-GASS>
4333 <FRAME '
\1aMAKE-TAG>
4334 <CALL '
\1aMAKE-TAG 0 = BR12>
4340 <CALL '
\1aGEN-GASS 4>
4341 <FRAME '
\1aTRUE-FALSE>
4348 <CALL '
\1aTRUE-FALSE 3 = A15>
4351 <END
\1aGASSIGNED?-GEN>
4353 <GFCN
\1aTRUE-FALSE ("VALUE" ANY NODE ATOM ANY "OPTIONAL" ANY) N6 B7 W8 THIS9>
4354 <OPT-DISPATCH 3 %<> OPT4 OPT5>
4358 <TEMP RW10 B2-11:ATOM TEMP21>
4361 <FRAME '
\1aMAKE-TAG>
4362 <CALL '
\1aMAKE-TAG 0 = B2-11>
4363 <FRAME '
\1aMOVE-ARG>
4364 <FRAME '
\1aREFERENCE>
4366 <CALL '
\1aREFERENCE 1 = STACK>
4368 <CALL '
\1aMOVE-ARG 2>
4369 <FRAME '
\1aBRANCH-TAG>
4371 <CALL '
\1aBRANCH-TAG 1>
4372 <FRAME '
\1aLABEL-TAG>
4375 <CALL '
\1aLABEL-TAG 1>
4376 <FRAME '
\1aMOVE-ARG>
4377 <FRAME '
\1aREFERENCE>
4378 <TYPE? THIS9 <TYPE-CODE FALSE> - TAG19>
4380 <SET TEMP21 'T (TYPE ATOM)>
4383 <SET TEMP21 %<> (TYPE FALSE)>
4387 <CALL '
\1aREFERENCE 1 = STACK>
4389 <CALL '
\1aMOVE-ARG 2>
4390 <FRAME '
\1aLABEL-TAG>
4393 <CALL '
\1aLABEL-TAG 1>
4394 <FRAME '
\1aDEALLOCATE-TEMP>
4396 <CALL '
\1aDEALLOCATE-TEMP 1>
4397 <FRAME '
\1aMOVE-ARG>
4402 <CALL '
\1aMOVE-ARG 2 = TEMP21>
4406 " Generate code for LVAL."
4409 <GFCN
\1aLVAL-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
4410 <TEMP SYM6 (ADDR8 %<>) TT7 TEMP35 LL63:LIST>
4412 <NTHUV NOD4 4 = SYM6 (TYPE SYMTAB)>
4413 <NTHUV NOD4 7 = TT7 (TYPE LIST)>
4414 <EMPL? TT7 + PHRASE13>
4415 <RESTL TT7 1 = ADDR8 (TYPE LIST)>
4416 <EMPL? ADDR8 + PHRASE13>
4417 <RESTL ADDR8 1 = ADDR8 (TYPE LIST)>
4418 <EMPL? ADDR8 - PHRASE13>
4420 <RESTL TT7 1 = ADDR8 (TYPE LIST)>
4422 <NTHL ADDR8 1 = TT7>
4426 <SET TT7 'T (TYPE ATOM)>
4428 <NTHUV NOD4 3 = ADDR8>
4429 <EQUAL? ADDR8 'NO-RETURN - PHRASE17>
4431 <FRAME '
\1aCOMPILE-ERROR>
4432 <PUSH "Variable referenced before initialization: ">
4433 <NTHUV SYM6 2 = STACK (TYPE ATOM)>
4436 <CALL '
\1aCOMPILE-ERROR 3>
4438 <FRAME '
\1aMOVE-ARG>
4439 <NTHUV SYM6 3 = ADDR8>
4440 <TYPE? ADDR8 <TYPE-CODE FALSE> + PHRASE21>
4442 <NTHUV SYM6 4 = ADDR8 (TYPE FIX)>
4443 <VEQUAL? ADDR8 -1 + PHRASE21 (TYPE FIX)>
4445 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE26>
4449 <GVAL 'POP-STACK = ADDR8>
4450 <EQUAL? ADDR8 WHERE5 - PHRASE27>
4455 <FRAME '
\1aGEN-TEMP>
4457 <CALL '
\1aGEN-TEMP 1 = ADDR8>
4459 <TYPE? ADDR8 <TYPE-CODE TEMP> - PHRASE31>
4460 <FRAME '
\1aUSE-TEMP>
4462 <NTHUV SYM6 7 = STACK>
4463 <CALL '
\1aUSE-TEMP 2>
4465 <FRAME '
\1aGET-VALUE-X>
4466 <NTHUV SYM6 2 = STACK (TYPE ATOM)>
4469 <CALL '
\1aGET-VALUE-X 2>
4472 <NTHUV SYM6 3 = TEMP35>
4473 <TYPE? TEMP35 <TYPE-CODE FALSE> + PHRASE34>
4475 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE37>
4479 <FRAME '
\1aGEN-TEMP>
4481 <CALL '
\1aGEN-TEMP 1 = ADDR8>
4483 <FRAME '
\1aUSE-TEMP>
4485 <CALL '
\1aUSE-TEMP 1>
4486 <FRAME '
\1aSTART-FRAME>
4488 <CALL '
\1aSTART-FRAME 1>
4489 <FRAME '
\1aPUSH-CONSTANT>
4490 <NTHUV SYM6 2 = STACK (TYPE ATOM)>
4492 <CALL '
\1aPUSH-CONSTANT 1>
4493 <FRAME '
\1aMSUBR-CALL>
4497 <CALL '
\1aMSUBR-CALL 3>
4502 <CALL '
\1aLADDR 1 = ADDR8>
4503 <TYPE? ADDR8 <TYPE-CODE TEMP> - PHRASE70>
4504 <GVAL 'DEATH = TEMP35>
4505 <TYPE? TEMP35 <TYPE-CODE FALSE> + MAPAP54>
4507 <TYPE? TT7 <TYPE-CODE FALSE> - MAPAP54>
4509 <NTHUV SYM6 3 = TEMP35>
4510 <TYPE? TEMP35 <TYPE-CODE FALSE> - MAPAP54>
4512 <GEN-LVAL 'NO-KILL = TT7>
4516 <EMPL? TT7 + PHRASE70>
4518 <NTHL LL63 1 = TEMP35>
4519 <EQUAL? TEMP35 SYM6 - BOOL64>
4521 <RESTL LL63 1 = TEMP35 (TYPE LIST)>
4527 <RESTL TT7 1 = TT7 (TYPE LIST)>
4530 <NTHUV ADDR8 2 = SYM6 (TYPE FIX)>
4531 <VEQUAL? SYM6 0 - PHRASE66 (TYPE FIX)>
4532 <FRAME '
\1aUSE-TEMP>
4534 <CALL '
\1aUSE-TEMP 1>
4537 <ADD SYM6 1 = SYM6 (TYPE FIX)>
4538 <PUTUV ADDR8 2 SYM6 (TYPE FIX)>
4545 <CALL '
\1aMOVE-ARG 2 = TT7>
4550 <GFCN
\1aDELAY-KILL ("VALUE" ATOM <LIST [REST !<LIST SYMTAB <OR ATOM FALSE>>]> <LIST [REST !<LIST SYMTAB <OR ATOM FALSE>>]>) L1-4 L2-5>
4556 <VEQUAL? L1-4 L2-5 + BOOL15>
4557 <GVAL 'DEATH = TEMP16>
4558 <TYPE? TEMP16 <TYPE-CODE FALSE> - PHRASE14>
4563 <NTHL L1-4 1 = TT6 (TYPE LIST)>
4564 <RESTL TT6 1 = TEMP16 (TYPE LIST)>
4565 <NTHL TEMP16 1 = TEMP16>
4566 <TYPE? TEMP16 <TYPE-CODE FALSE> + PHRASE18>
4568 <NTHL TT6 1 = TEMP16 (TYPE SYMTAB)>
4570 <NTHUV TEMP16 10 = TT6>
4572 <FRAME '
\1aFREE-TEMP>
4575 <CALL '
\1aFREE-TEMP 1>
4577 <RESTL L1-4 1 = L1-4 (TYPE LIST)>
4580 " Generate LVAL for free variable."
4583 <GFCN
\1aFLVAL-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
4586 <EQUAL? WHERE5 'DONT-CARE - PHRASE9>
4587 <FRAME '
\1aGEN-TEMP>
4589 <CALL '
\1aGEN-TEMP 1 = TMP6>
4594 <TYPE? TMP6 <TYPE-CODE TEMP> - PHRASE13>
4595 <FRAME '
\1aUSE-TEMP>
4597 <CALL '
\1aUSE-TEMP 1>
4599 <NTHUV NOD4 4 = T1-7>
4600 <TYPE? T1-7 <TYPE-CODE SYMTAB> - PHRASE16>
4601 <NTHUV T1-7 2 = T1-7 (TYPE ATOM)>
4604 <NTHUV NOD4 5 = T1-7 (TYPE LIST)>
4605 <NTHL T1-7 1 = T1-7 (TYPE NODE)>
4606 <NTHUV T1-7 1 = T1-7 (TYPE FIX)>
4607 <VEQUAL? T1-7 2 - PHRASE17 (TYPE FIX)>
4609 <NTHUV NOD4 5 = T1-7 (TYPE LIST)>
4611 <NTHL T1-7 1 = T1-7 (TYPE NODE)>
4612 <NTHUV T1-7 4 = T1-7>
4616 <NTHUV NOD4 5 = T1-7 (TYPE LIST)>
4618 <NTHL T1-7 1 = STACK (TYPE NODE)>
4620 <CALL '
\1aGEN 1 = T1-7>
4622 <FRAME '
\1aGET-VALUE-X>
4626 <CALL '
\1aGET-VALUE-X 3>
4627 <FRAME '
\1aFREE-TEMP>
4630 <CALL '
\1aFREE-TEMP 1>
4631 <FRAME '
\1aMOVE-ARG>
4636 <CALL '
\1aMOVE-ARG 2 = T1-7>
4641 <GFCN
\1aFSET-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
4642 <TEMP (TEM7 %<>) TEMP11 TEMP12 T1-8>
4644 <NTHUV NOD4 9 = TEMP11>
4645 <GVAL 'SET = TEMP12>
4646 <EQUAL? TEMP11 TEMP12 - PHRASE10>
4647 <DEAD TEMP11 TEMP12>
4648 <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
4649 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
4650 <NTHL TEMP12 1 = TEM7 (TYPE NODE)>
4653 <NTHUV NOD4 4 = TEMP11>
4654 <TYPE? TEMP11 <TYPE-CODE SYMTAB> - PHRASE14>
4655 <NTHUV TEMP11 2 = TEMP11 (TYPE ATOM)>
4658 <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
4660 <NTHL TEMP12 1 = T1-8 (TYPE NODE)>
4662 <NTHUV T1-8 1 = TEMP12 (TYPE FIX)>
4663 <VEQUAL? TEMP12 2 - PHRASE15 (TYPE FIX)>
4665 <NTHUV T1-8 4 = TEMP11>
4672 <CALL '
\1aGEN 1 = TEMP11>
4673 <TYPE? TEM7 <TYPE-CODE FALSE> + PHRASE19>
4674 <FRAME '
\1aINTERF-CHANGE>
4678 <CALL '
\1aINTERF-CHANGE 2 = TEMP11>
4680 <TYPE? TEM7 <TYPE-CODE FALSE> + PHRASE22>
4684 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE25>
4688 <SET TEMP12 'DONT-CARE (TYPE ATOM)>
4692 <CALL '
\1aGEN 2 = T1-8>
4695 <GVAL 'THE-UNBOUND = T1-8>
4697 <FRAME '
\1aSET-VALUE>
4702 <CALL '
\1aSET-VALUE 3 = T1-8>
4703 <FRAME '
\1aFREE-TEMP>
4705 <CALL '
\1aFREE-TEMP 1>
4706 <FRAME '
\1aMOVE-ARG>
4707 <GVAL 'THE-UNBOUND = TEMP12>
4708 <EQUAL? TEMP12 T1-8 - PHRASE32>
4721 <CALL '
\1aMOVE-ARG 2 = TEMP12>
4725 " Generate code for an internal SET."
4728 <GFCN
\1aSET-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NOTF10 BRANCH11 DIR12>
4729 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
4737 <TEMP (SYM13 %<>) TEMP20 NM19 TEMP38>
4739 <NTHUV NOD8 4 = SYM13 (TYPE SYMTAB)>
4740 <NTHUV NOD8 9 = TEMP20>
4741 <NTHUV TEMP20 2 = NM19>
4743 <NTHUV SYM13 3 = TEMP20>
4744 <TYPE? TEMP20 <TYPE-CODE FALSE> + PHRASE22>
4746 <NTHUV SYM13 4 = TEMP20 (TYPE FIX)>
4747 <VEQUAL? TEMP20 -1 + PHRASE22 (TYPE FIX)>
4749 <EQUAL? NM19 'SET - PHRASE27>
4752 <NTHUV NOD8 5 = TEMP20 (TYPE LIST)>
4754 <RESTL TEMP20 1 = TEMP20 (TYPE LIST)>
4755 <NTHL TEMP20 1 = STACK (TYPE NODE)>
4757 <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE30>
4761 <SET TEMP20 'DONT-CARE (TYPE ATOM)>
4765 <CALL '
\1aGEN 2 = TEMP20>
4766 <FRAME '
\1aSET-VALUE>
4767 <NTHUV SYM13 2 = STACK (TYPE ATOM)>
4770 <CALL '
\1aSET-VALUE 2>
4773 <FRAME '
\1aSET-VALUE>
4774 <NTHUV SYM13 2 = STACK (TYPE ATOM)>
4775 <GVAL 'THE-UNBOUND = STACK>
4776 <CALL '
\1aSET-VALUE 2>
4777 <NTHUV SYM13 2 = TEMP20 (TYPE ATOM)>
4780 <FRAME '
\1aMOVE-ARG>
4785 <CALL '
\1aMOVE-ARG 2 = TEMP20>
4789 <NTHUV SYM13 3 = TEMP38>
4790 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE36>
4792 <EQUAL? NM19 'UNASSIGN - PHRASE36>
4793 <FRAME '
\1aSTART-FRAME>
4795 <CALL '
\1aSTART-FRAME 1>
4796 <FRAME '
\1aPUSH-CONSTANT>
4797 <NTHUV SYM13 2 = STACK (TYPE ATOM)>
4799 <CALL '
\1aPUSH-CONSTANT 1>
4800 <EQUAL? WHERE9 'DONT-CARE - PHRASE42>
4801 <FRAME '
\1aGEN-TEMP>
4802 <NTHUV NOD8 3 = STACK>
4804 <CALL '
\1aGEN-TEMP 1 = WHERE9>
4807 <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE44>
4808 <FRAME '
\1aUSE-TEMP>
4810 <NTHUV NOD8 3 = STACK>
4812 <CALL '
\1aUSE-TEMP 2>
4814 <FRAME '
\1aMSUBR-CALL>
4818 <CALL '
\1aMSUBR-CALL 3>
4819 <EQUAL? WHERE9 'FLUSHED - PHRASE48>
4820 <GVAL 'NO-DATUM = TEMP20>
4827 <NTHUV SYM13 3 = TEMP38>
4828 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE50>
4830 <FRAME '
\1aSTART-FRAME>
4832 <CALL '
\1aSTART-FRAME 1>
4833 <FRAME '
\1aPUSH-CONSTANT>
4834 <NTHUV SYM13 2 = STACK (TYPE ATOM)>
4836 <CALL '
\1aPUSH-CONSTANT 1>
4838 <NTHUV NOD8 5 = TEMP38 (TYPE LIST)>
4839 <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
4840 <NTHL TEMP38 1 = STACK (TYPE NODE)>
4842 <GVAL 'POP-STACK = STACK>
4844 <EQUAL? WHERE9 'DONT-CARE - PHRASE55>
4845 <FRAME '
\1aGEN-TEMP>
4846 <NTHUV NOD8 3 = STACK>
4848 <CALL '
\1aGEN-TEMP 1 = WHERE9>
4851 <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE57>
4852 <FRAME '
\1aUSE-TEMP>
4854 <NTHUV NOD8 3 = STACK>
4856 <CALL '
\1aUSE-TEMP 2>
4858 <FRAME '
\1aMSUBR-CALL>
4862 <CALL '
\1aMSUBR-CALL 3>
4863 <EQUAL? WHERE9 'FLUSHED - PHRASE61>
4864 <GVAL 'NO-DATUM = TEMP20>
4873 <CALL '
\1aLADDR 1 = TEMP20>
4874 <NTHUV TEMP20 4 = TEMP38>
4875 <TYPE? TEMP38 <TYPE-CODE FALSE> - PHRASE66>
4878 <NTHUV SYM13 7 = STACK>
4880 <CALL '
\1aISTYPE? 1 = TEMP38>
4881 <TYPE? TEMP38 <TYPE-CODE FALSE> + PHRASE66>
4882 <FRAME '
\1aTYPEPRIM>
4884 <CALL '
\1aTYPEPRIM 1 = SYM13>
4885 <EQUAL? SYM13 'FIX + BOOL72>
4886 <EQUAL? SYM13 'WORD + BOOL72>
4887 <EQUAL? SYM13 'LIST - PHRASE66>
4890 <FRAME '
\1aDEALLOCATE-TEMP>
4891 <FRAME '
\1aUSE-TEMP>
4895 <CALL '
\1aUSE-TEMP 2 = STACK>
4896 <CALL '
\1aDEALLOCATE-TEMP 1>
4898 <EQUAL? NM19 'SET - PHRASE77>
4900 <TYPE? BRANCH11 <TYPE-CODE FALSE> + PHRASE79>
4901 <TYPE? NOTF10 <TYPE-CODE FALSE> + TAG83>
4903 <TYPE? DIR12 <TYPE-CODE FALSE> - TAG82>
4905 <SET DIR12 'T (TYPE ATOM)>
4908 <SET DIR12 %<> (TYPE FALSE)>
4910 <FRAME '
\1aPRED-BRANCH-GEN>
4913 <NTHUV NOD8 5 = TEMP38 (TYPE LIST)>
4915 <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
4916 <NTHL TEMP38 1 = STACK (TYPE NODE)>
4923 <CALL '
\1aPRED-BRANCH-GEN 6>
4927 <NTHUV NOD8 5 = TEMP38 (TYPE LIST)>
4929 <RESTL TEMP38 1 = TEMP38 (TYPE LIST)>
4930 <NTHL TEMP38 1 = STACK (TYPE NODE)>
4934 <CALL '
\1aGEN 2 = TEMP20>
4937 <FRAME '
\1aMOVE-ARG>
4938 <GVAL 'THE-UNBOUND = STACK>
4940 <CALL '
\1aMOVE-ARG 2>
4942 <TYPE? TEMP20 <TYPE-CODE TEMP> - PHRASE90>
4943 <NTHUV TEMP20 2 = SYM13 (TYPE FIX)>
4944 <VEQUAL? SYM13 0 - PHRASE92 (TYPE FIX)>
4945 <SET SYM13 1 (TYPE FIX)>
4947 <ADD SYM13 1 = TEMP38 (TYPE FIX)>
4949 <PUTUV TEMP20 2 TEMP38 (TYPE FIX)>
4952 <FRAME '
\1aMOVE-ARG>
4957 <CALL '
\1aMOVE-ARG 2 = TEMP20>
4960 <END
\1aSET-GEN>
\r\r
4962 <GFCN
\1aARG? ("VALUE" <OR ATOM !<FALSE>> SYMTAB) SYM4>
4965 <GVAL 'ARGTBL = TEMP5>
4966 <NTHUV SYM4 4 = TEMP6 (TYPE FIX)>
4968 <NTHUU TEMP5 TEMP6 = TEMP5 (TYPE FIX)>
4970 <VEQUAL? TEMP5 1 - TAG8 (TYPE FIX)>
4977 <GFCN
\1aOPT? ("VALUE" <OR ATOM !<FALSE>> SYMTAB) SYM4>
4980 <GVAL 'OPTBL = TEMP5>
4981 <NTHUV SYM4 4 = TEMP6 (TYPE FIX)>
4983 <NTHUU TEMP5 TEMP6 = TEMP5 (TYPE FIX)>
4985 <VEQUAL? TEMP5 1 - TAG8 (TYPE FIX)>
4991 <SETG OPTBL ![0 0 0 0 0 1 1 1 1 0 0 0 0!]>
4993 <SETG ARGTBL ![0 0 0 0 1 0 0 0 0 1 0 1 1!]>
4995 <GDECL (OPTBL ARGTBL) <UVECTOR [REST FIX]>>
4997 " Compute the address of a local variable using the stack model."
5000 <GFCN
\1aLADDR ("VALUE" ANY SYMTAB) S4>
5003 <NTHUV S4 10 = TEMP5>
5008 " Generate obscure stuff."
5011 <GFCN
\1aDEFAULT-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
5014 <FRAME '
\1aMOVE-ARG>
5015 <FRAME '
\1aREFERENCE>
5016 <NTHUV NOD4 4 = STACK>
5018 <CALL '
\1aREFERENCE 1 = STACK>
5021 <CALL '
\1aMOVE-ARG 2 = TEMP8>
5024 <END
\1aDEFAULT-GEN>
5025 " Do GVAL using direct locative reference."
5028 <GFCN
\1aGVAL-GEN ("VALUE" ANY NODE ANY) N4 W5>
5029 <TEMP RT6 TYP7 TEMP10>
5034 <CALL '
\1aISTYPE? 1 = TYP7>
5035 <FRAME '
\1aGEN-GVAL>
5036 <NTHUV N4 5 = TEMP10 (TYPE LIST)>
5038 <NTHL TEMP10 1 = TEMP10 (TYPE NODE)>
5039 <NTHUV TEMP10 4 = STACK>
5041 <EQUAL? W5 'DONT-CARE - PHRASE12>
5042 <FRAME '
\1aGEN-TEMP>
5045 <CALL '
\1aGEN-TEMP 1 = W5>
5049 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE14>
5050 <FRAME '
\1aUSE-TEMP>
5054 <CALL '
\1aUSE-TEMP 2>
5064 <CALL '
\1aGEN-GVAL 3>
5069 " Do SETG using direct locative reference."
5072 <GFCN
\1aSETG-GEN ("VALUE" ANY NODE ANY) N4 W5>
5073 <TEMP TEMP8 TEM6 TEMP12:FIX>
5076 <NTHUV N4 5 = TEMP8 (TYPE LIST)>
5077 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
5078 <NTHL TEMP8 1 = STACK (TYPE NODE)>
5080 <CALL '
\1aGEN 1 = TEM6>
5081 <FRAME '
\1aGEN-SETG>
5082 <NTHUV N4 5 = TEMP8 (TYPE LIST)>
5083 <NTHL TEMP8 1 = TEMP8 (TYPE NODE)>
5084 <NTHUV TEMP8 4 = STACK>
5087 <NTHUV N4 5 = TEMP8 (TYPE LIST)>
5088 <SET TEMP12 3 (TYPE FIX)>
5089 <LOOP (TEMP8 VALUE) (TEMP12 VALUE)>
5091 <EMPL? TEMP8 + PHRASE11>
5092 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
5093 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
5094 <GRTR? TEMP12 0 + TAG13 (TYPE FIX)>
5095 <EMPL? TEMP8 - PHRASE11>
5098 <NTHUV N4 5 = TEMP8 (TYPE LIST)>
5100 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
5101 <RESTL TEMP8 1 = TEMP8 (TYPE LIST)>
5102 <NTHL TEMP8 1 = STACK (TYPE NODE)>
5105 <CALL '
\1aGEN 2 = TEMP8>
5108 <SET TEMP8 %<> (TYPE FALSE)>
5113 <CALL '
\1aGEN-SETG 4>
5114 <FRAME '
\1aMOVE-ARG>
5119 <CALL '
\1aMOVE-ARG 2 = TEMP8>
5123 " Generate GVAL calls."
5126 <GFCN
\1aFGVAL-GEN ("VALUE" ANY NODE ANY) N4 W5>
5129 <FRAME '
\1aGEN-GVAL>
5131 <NTHUV N4 5 = TEMP9 (TYPE LIST)>
5132 <NTHL TEMP9 1 = STACK (TYPE NODE)>
5134 <CALL '
\1aGEN 1 = TEM6>
5136 <EQUAL? W5 'DONT-CARE - PHRASE11>
5137 <FRAME '
\1aGEN-TEMP>
5138 <NTHUV N4 3 = STACK>
5140 <CALL '
\1aGEN-TEMP 1 = W5>
5144 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE13>
5145 <FRAME '
\1aUSE-TEMP>
5147 <NTHUV N4 3 = STACK>
5149 <CALL '
\1aUSE-TEMP 2>
5157 <CALL '
\1aGEN-GVAL 2>
5158 <FRAME '
\1aFREE-TEMP>
5161 <CALL '
\1aFREE-TEMP 1>
5166 " Generate a SETG call."
5169 <GFCN
\1aFSETG-GEN ("VALUE" ANY NODE ANY) NOD4 W5>
5170 <TEMP TEMP9 ATM7 TEM6 TEMP18:FIX>
5173 <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5174 <NTHL TEMP9 1 = STACK (TYPE NODE)>
5176 <CALL '
\1aGEN 1 = ATM7>
5177 <FRAME '
\1aINTERF-CHANGE>
5180 <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5181 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5182 <NTHL TEMP9 1 = STACK (TYPE NODE)>
5184 <CALL '
\1aINTERF-CHANGE 2 = ATM7>
5186 <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5187 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5188 <NTHL TEMP9 1 = STACK (TYPE NODE)>
5190 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE13>
5194 <SET TEMP9 'DONT-CARE (TYPE ATOM)>
5198 <CALL '
\1aGEN 2 = TEM6>
5199 <FRAME '
\1aGEN-SETG>
5202 <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5203 <SET TEMP18 3 (TYPE FIX)>
5204 <LOOP (TEMP9 VALUE) (TEMP18 VALUE)>
5206 <EMPL? TEMP9 + PHRASE17>
5207 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5208 <SUB TEMP18 1 = TEMP18 (TYPE FIX)>
5209 <GRTR? TEMP18 0 + TAG19 (TYPE FIX)>
5210 <EMPL? TEMP9 - PHRASE17>
5213 <NTHUV NOD4 5 = TEMP9 (TYPE LIST)>
5215 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5216 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
5217 <NTHL TEMP9 1 = STACK (TYPE NODE)>
5220 <CALL '
\1aGEN 2 = TEMP9>
5223 <SET TEMP9 %<> (TYPE FALSE)>
5228 <CALL '
\1aGEN-SETG 4>
5229 <FRAME '
\1aFREE-TEMP>
5232 <CALL '
\1aFREE-TEMP 1>
5233 <FRAME '
\1aMOVE-ARG>
5238 <CALL '
\1aMOVE-ARG 2 = TEMP9>
5243 <GFCN
\1aCHTYPE-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
5244 <TEMP TYP6 TEMP12 N7:NODE N2-8 TEMP19 TEMP20 TT10>
5247 <NTHUV NOD4 3 = STACK>
5248 <CALL '
\1aISTYPE? 1 = TYP6>
5249 <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
5250 <NTHL TEMP12 1 = N7 (TYPE NODE)>
5252 <TYPE? TYP6 <TYPE-CODE FALSE> + PHRASE14>
5253 <NTHUV NOD4 2 = TEMP12>
5254 <TYPE? TEMP12 <TYPE-CODE NODE> - PHRASE14>
5256 <NTHUV NOD4 2 = TEMP12 (TYPE NODE)>
5257 <NTHUV TEMP12 1 = TEMP12 (TYPE FIX)>
5258 <GVAL 'CHTYPE-FOR-FREE = TEMP19>
5259 <EMPUV? TEMP19 + PHRASE14>
5260 <LOOP (TEMP12 VALUE) (TEMP19 LENGTH VALUE)>
5262 <NTHUV TEMP19 1 = TEMP20>
5263 <VEQUAL? TEMP20 TEMP12 + TAG16>
5265 <RESTUV TEMP19 1 = TEMP19 (TYPE VECTOR)>
5266 <EMPUV? TEMP19 - TAG17>
5269 <GVAL 'POP-STACK = TEMP19>
5270 <EQUAL? TEMP19 WHERE5 + BOOL21>
5272 <EQUAL? WHERE5 'DONT-CARE - PHRASE14>
5279 <CALL '
\1aGEN 2 = TEMP19>
5286 <CALL '
\1aGEN 1 = TEMP19>
5287 <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
5288 <EMPL? TEMP12 + PHRASE26>
5289 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
5290 <EMPL? TEMP12 + PHRASE26>
5292 <NTHUV NOD4 5 = TEMP12 (TYPE LIST)>
5294 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
5295 <NTHL TEMP12 1 = N2-8 (TYPE NODE)>
5297 <NTHUV N2-8 1 = TEMP12 (TYPE FIX)>
5298 <VEQUAL? TEMP12 2 + PHRASE26 (TYPE FIX)>
5300 <FRAME '
\1aINTERF-CHANGE>
5304 <CALL '
\1aINTERF-CHANGE 2 = TEMP19>
5306 <NTHUV N2-8 5 = TEMP12 (TYPE LIST)>
5307 <NTHL TEMP12 1 = STACK (TYPE NODE)>
5309 <CALL '
\1aGEN 1 = TT10>
5311 <EQUAL? WHERE5 'DONT-CARE - PHRASE31>
5312 <TYPE? TEMP19 <TYPE-CODE TEMP> - PHRASE33>
5313 <NTHUV TEMP19 2 = TEMP12 (TYPE FIX)>
5314 <GRTR? TEMP12 1 + PHRASE33 (TYPE FIX)>
5316 <FRAME '
\1aDEALLOCATE-TEMP>
5319 <CALL '
\1aDEALLOCATE-TEMP 1>
5320 <FRAME '
\1aUSE-TEMP>
5323 <CALL '
\1aUSE-TEMP 2>
5326 <FRAME '
\1aGEN-TEMP>
5328 <TYPE? TEMP12 <TYPE-CODE FALSE> - PHRASE42>
5329 <SET TEMP12 'ANY (TYPE ATOM)>
5333 <CALL '
\1aGEN-TEMP 1 = WHERE5>
5336 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE43>
5337 <FRAME '
\1aUSE-TEMP>
5340 <CALL '
\1aUSE-TEMP 2>
5342 <TYPE? N2-8 <TYPE-CODE UNBOUND> + PHRASE46>
5343 <NTHUV N2-8 1 = TEMP12 (TYPE FIX)>
5345 <VEQUAL? TEMP12 2 + PHRASE46 (TYPE FIX)>
5347 <TYPE? TT10 <TYPE-CODE TEMP> + PHRASE49>
5348 <FRAME '
\1aMOVE-ARG>
5351 <FRAME '
\1aGEN-TEMP>
5353 <CALL '
\1aGEN-TEMP 1 = STACK>
5354 <CALL '
\1aMOVE-ARG 2 = TT10>
5356 <FRAME '
\1aGEN-CHTYPE>
5360 <NTHUV TT10 1 = STACK (TYPE ATOM)>
5361 <CALL '
\1aFORM 2 = STACK>
5363 <CALL '
\1aGEN-CHTYPE 3>
5364 <FRAME '
\1aFREE-TEMP>
5367 <CALL '
\1aFREE-TEMP 1>
5370 <FRAME '
\1aGEN-CHTYPE>
5375 <CALL '
\1aGEN-CHTYPE 3>
5377 <EQUAL? TEMP19 WHERE5 + PHRASE58>
5378 <FRAME '
\1aFREE-TEMP>
5381 <CALL '
\1aFREE-TEMP 1>
5386 <GDECL (CHTYPE-FOR-FREE) <VECTOR [REST FIX]>>
5388 <SETG CHTYPE-FOR-FREE [,NTH-CODE ,ARITH-CODE ,0-TST-CODE ,1?-CODE ,TEST-CODE ,LNTH-CODE ,MT-CODE ,REST-CODE ,MOD-CODE ,BITS-CODE ,BITL-CODE ,ROT-CODE ,LSH-CODE ,BIT-TEST-CODE]>
5390 " Generate do-nothing piece of code."
5393 <GFCN
\1aID-GEN ("VALUE" ANY NODE ANY) N4 W5>
5397 <NTHUV N4 5 = TEMP7 (TYPE LIST)>
5399 <NTHL TEMP7 1 = STACK (TYPE NODE)>
5403 <CALL '
\1aGEN 2 = TEMP7>
5407 " Generate call to READ etc. with eof condition."
5410 <GFCN
\1aREAD2-GEN ("VALUE" ANY NODE ANY) N4 W5>
5411 <TEMP (I6 0) TEMP14:FIX TMP9 TEMP30 OB31:NODE SPOB7:NODE>
5413 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE12>
5414 <NTHUV W5 2 = TEMP14 (TYPE FIX)>
5415 <LESS? TEMP14 1 - PHRASE12 (TYPE FIX)>
5420 <FRAME '
\1aGEN-TEMP>
5422 <CALL '
\1aGEN-TEMP 1 = TMP9>
5424 <FRAME '
\1aSTART-FRAME>
5425 <NTHUV N4 4 = STACK>
5426 <CALL '
\1aSTART-FRAME 1>
5427 <NTHUV N4 5 = TEMP30 (TYPE LIST)>
5431 <EMPL? TEMP30 + MAPAP24>
5432 <NTHL TEMP30 1 = OB31>
5433 <NTHUV OB31 1 = TEMP14 (TYPE FIX)>
5434 <VEQUAL? TEMP14 55 - PHRASE33 (TYPE FIX)>
5438 <FRAME '
\1aCURRENT-FRAME>
5439 <GVAL 'POP-STACK = STACK>
5440 <CALL '
\1aCURRENT-FRAME 1>
5446 <GVAL 'POP-STACK = STACK>
5449 <ADD I6 1 = I6 (TYPE FIX)>
5450 <RESTL TEMP30 1 = TEMP30 (TYPE LIST)>
5453 <FRAME '
\1aUSE-TEMP>
5455 <CALL '
\1aUSE-TEMP 1>
5456 <FRAME '
\1aMSUBR-CALL>
5457 <NTHUV N4 4 = STACK>
5462 <CALL '
\1aMSUBR-CALL 3>
5464 <FRAME '
\1aCURRENT-FRAME>
5465 <CALL '
\1aCURRENT-FRAME 0 = TEMP30>
5469 <FRAME '
\1aMAKE-TAG>
5470 <CALL '
\1aMAKE-TAG 0 = I6>
5472 <CALL '
\1aGEN-==? 4>
5473 <FRAME '
\1aFREE-TEMP>
5476 <CALL '
\1aFREE-TEMP 1>
5477 <FRAME '
\1aDEALLOCATE-TEMP>
5479 <CALL '
\1aDEALLOCATE-TEMP 1>
5485 <FRAME '
\1aLABEL-TAG>
5488 <CALL '
\1aLABEL-TAG 1>
5489 <FRAME '
\1aMOVE-ARG>
5494 <CALL '
\1aMOVE-ARG 2 = TEMP30>
5499 <GFCN
\1aGET-GEN ("VALUE" ANY ANY ANY) N4 W5>
5508 <CALL '
\1aGETGET 3 = TEMP7>
5513 <GFCN
\1aGET2-GEN ("VALUE" ANY ANY ANY) N4 W5>
5522 <CALL '
\1aGETGET 3 = TEMP7>
5526 <GDECL (GETTERS) UVECTOR>
5529 <GFCN
\1aGETGET ("VALUE" ANY NODE ANY ANY) N4 W5 REV6>
5530 <TEMP K7:LIST BR8 TEMP16 TMP9>
5532 <NTHUV N4 5 = K7 (TYPE LIST)>
5533 <FRAME '
\1aMAKE-TAG>
5534 <CALL '
\1aMAKE-TAG 0>
5535 <LENL K7 = BR8 (TYPE FIX)>
5536 <FRAME '
\1aSTART-FRAME>
5537 <NTHUV N4 4 = STACK>
5538 <CALL '
\1aSTART-FRAME 1>
5540 <NTHL K7 1 = STACK (TYPE NODE)>
5541 <GVAL 'POP-STACK = STACK>
5544 <RESTL K7 1 = TEMP16 (TYPE LIST)>
5545 <NTHL TEMP16 1 = STACK (TYPE NODE)>
5547 <GVAL 'POP-STACK = STACK>
5549 <VEQUAL? BR8 3 - PHRASE18 (TYPE FIX)>
5550 <FRAME '
\1aCURRENT-FRAME>
5551 <GVAL 'POP-STACK = STACK>
5552 <CALL '
\1aCURRENT-FRAME 1>
5554 <FRAME '
\1aMSUBR-CALL>
5555 <NTHUV N4 4 = STACK>
5558 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE22>
5559 <LESS? BR8 3 + BOOL24 (TYPE FIX)>
5560 <NTHUV W5 2 = TEMP16 (TYPE FIX)>
5561 <LESS? TEMP16 1 - PHRASE22 (TYPE FIX)>
5564 <FRAME '
\1aUSE-TEMP>
5567 <CALL '
\1aUSE-TEMP 1 = TEMP16>
5570 <FRAME '
\1aGEN-TEMP>
5571 <CALL '
\1aGEN-TEMP 0 = TMP9>
5576 <CALL '
\1aMSUBR-CALL 3>
5577 <VEQUAL? BR8 3 - PHRASE31 (TYPE FIX)>
5580 <FRAME '
\1aCURRENT-FRAME>
5581 <CALL '
\1aCURRENT-FRAME 0 = TEMP16>
5585 <FRAME '
\1aMAKE-TAG>
5586 <CALL '
\1aMAKE-TAG 0 = BR8>
5588 <CALL '
\1aGEN-==? 4>
5589 <FRAME '
\1aFREE-TEMP>
5592 <CALL '
\1aFREE-TEMP 1>
5593 <TYPE? REV6 <TYPE-CODE FALSE> + PHRASE37>
5595 <FRAME '
\1aSTART-FRAME>
5597 <CALL '
\1aSTART-FRAME 1>
5599 <RESTL K7 1 = TEMP16 (TYPE LIST)>
5601 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
5602 <NTHL TEMP16 1 = STACK (TYPE NODE)>
5604 <GVAL 'POP-STACK = STACK>
5606 <FRAME '
\1aDEALLOCATE-TEMP>
5607 <FRAME '
\1aMSUBR-CALL>
5611 <CALL '
\1aMSUBR-CALL 3 = STACK>
5612 <CALL '
\1aDEALLOCATE-TEMP 1>
5615 <FRAME '
\1aDEALLOCATE-TEMP>
5617 <RESTL K7 1 = TEMP16 (TYPE LIST)>
5619 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
5620 <NTHL TEMP16 1 = STACK (TYPE NODE)>
5623 <CALL '
\1aGEN 2 = STACK>
5624 <CALL '
\1aDEALLOCATE-TEMP 1>
5626 <FRAME '
\1aLABEL-TAG>
5629 <CALL '
\1aLABEL-TAG 1>
5631 <FRAME '
\1aMOVE-ARG>
5636 <CALL '
\1aMOVE-ARG 2 = TEMP16>
5640 '<SETG GETTERS [,GET ,GETL ,GETPROP ,GETPL]>
5642 <SETG STACK-INS [`CALL `UBLOCK `LIST `SYSCALL]>
5644 <GDECL (STACK-INS) <VECTOR [REST ATOM]>>
5647 <GFCN
\1aCALL-GEN ("VALUE" ANY NODE ANY "OPTIONAL" ANY ANY ANY) NOD8 WHERE9 NOTF10 B11 D12>
5648 <OPT-DISPATCH 2 %<> OPT4 OPT5 OPT6 OPT7>
5656 <TEMP K13:LIST TEMP23 INS14 (ON-STACK17 %<>) COUNTMP18 SEGTMP19 INS1-21 (REC?22 %<>) TEMP33 TEMP66 TEMP79 N81 TEMP85>
5658 <NTHUV NOD8 5 = K13 (TYPE LIST)>
5659 <NTHL K13 1 = TEMP23 (TYPE NODE)>
5660 <NTHUV TEMP23 4 = INS14>
5662 <TYPE? NOTF10 <TYPE-CODE FALSE> + TAG27>
5664 <TYPE? D12 <TYPE-CODE FALSE> - TAG26>
5666 <SET D12 'T (TYPE ATOM)>
5669 <SET D12 %<> (TYPE FALSE)>
5671 <GVAL 'STACK-INS = TEMP23>
5672 <TYPE? INS14 <TYPE-CODE ATOM> - PHRASE52>
5673 <EMPUV? TEMP23 + PHRASE52>
5674 <LOOP (INS14 VALUE) (TEMP23 LENGTH VALUE)>
5676 <NTHUV TEMP23 1 = TEMP33>
5677 <VEQUAL? TEMP33 INS14 + TAG30>
5679 <RESTUV TEMP23 1 = TEMP23 (TYPE VECTOR)>
5680 <EMPUV? TEMP23 - TAG31>
5683 <SET ON-STACK17 'T (TYPE ATOM)>
5684 <EQUAL? INS14 '`CALL + BOOL36>
5685 <EQUAL? INS14 '`SCALL - PHRASE35>
5687 <RESTL K13 1 = TEMP23 (TYPE LIST)>
5688 <NTHL TEMP23 1 = INS1-21 (TYPE NODE)>
5690 <NTHUV INS1-21 1 = TEMP23 (TYPE FIX)>
5691 <VEQUAL? TEMP23 2 - PHRASE38 (TYPE FIX)>
5693 <NTHUV INS1-21 4 = TEMP23>
5694 <TYPE? TEMP23 <TYPE-CODE ATOM> - PHRASE38>
5697 <EQUAL? INS14 '`CALL - PHRASE42>
5698 <SET TEMP23 '`FRAME (TYPE ATOM)>
5701 <SET TEMP23 '`SFRAME (TYPE ATOM)>
5707 <NTHUV INS1-21 4 = TEMP23 (TYPE ATOM)>
5709 <CHTYPE TEMP23 <TYPE-CODE FCN-ATOM> = INS1-21>
5712 <CALL '
\1aFORM 2 = STACK>
5718 <CALL '
\1aFORM 2 = INS1-21>
5722 <EQUAL? INS14 '`CALL - PHRASE49>
5723 <SET TEMP23 '`FRAME (TYPE ATOM)>
5726 <SET TEMP23 '`SFRAME (TYPE ATOM)>
5734 <CALL '
\1aGEN 1 = INS1-21>
5736 <RESTL K13 1 = K13 (TYPE LIST)>
5739 <EQUAL? INS14 '`SYSCALL - PHRASE52>
5741 <RESTL K13 1 = TEMP23 (TYPE LIST)>
5742 <NTHL TEMP23 1 = STACK (TYPE NODE)>
5744 <CALL '
\1aGEN 1 = INS1-21>
5745 <RESTL K13 1 = K13 (TYPE LIST)>
5749 <PUSH '`RECORD-TYPE>
5750 <CALL '
\1aGETPROP 2 = TEMP23>
5751 <TYPE? TEMP23 <TYPE-CODE FALSE> + PHRASE55>
5753 <SET REC?22 'T (TYPE ATOM)>
5755 <SET TEMP23 0 (TYPE FIX)>
5756 <RESTL K13 1 = TEMP66 (TYPE LIST)>
5760 <EMPL? TEMP66 + MAPAP61>
5761 <NTHL TEMP66 1 = TEMP33>
5762 <NTHUV TEMP33 1 = TEMP33 (TYPE FIX)>
5763 <VEQUAL? TEMP33 3 - PHRASE69 (TYPE FIX)>
5765 <SET TEMP33 0 (TYPE FIX)>
5768 <SET TEMP33 1 (TYPE FIX)>
5770 <ADD TEMP23 TEMP33 = TEMP23>
5772 <RESTL TEMP66 1 = TEMP66 (TYPE LIST)>
5777 <SET TEMP33 () (TYPE LIST)>
5778 <SET TEMP23 () (TYPE LIST)>
5779 <RESTL K13 1 = TEMP79 (TYPE LIST)>
5784 <EMPL? TEMP79 + MAPAP76>
5786 <NTHL K13 1 = N81 (TYPE NODE)>
5787 <NTHUV N81 1 = TEMP85 (TYPE FIX)>
5788 <VEQUAL? TEMP85 3 - PHRASE84 (TYPE FIX)>
5790 <TYPE? SEGTMP19 <TYPE-CODE UNBOUND> - PHRASE87>
5791 <FRAME '
\1aGEN-TEMP>
5793 <CALL '
\1aGEN-TEMP 1 = SEGTMP19>
5794 <FRAME '
\1aGEN-TEMP>
5796 <CALL '
\1aGEN-TEMP 1 = COUNTMP18>
5797 <FRAME '
\1aSET-TEMP>
5801 <CALL '
\1aSET-TEMP 3>
5804 <NTHUV N81 5 = TEMP85 (TYPE LIST)>
5805 <NTHL TEMP85 1 = STACK (TYPE NODE)>
5809 <FRAME '
\1aSEGMENT-STACK>
5812 <FRAME '
\1aSTRUCTYP>
5813 <NTHUV N81 5 = TEMP85 (TYPE LIST)>
5814 <NTHL TEMP85 1 = TEMP85 (TYPE NODE)>
5815 <NTHUV TEMP85 3 = STACK>
5817 <CALL '
\1aSTRUCTYP 1 = STACK>
5819 <NTHUV N81 5 = TEMP85 (TYPE LIST)>
5821 <NTHL TEMP85 1 = TEMP85 (TYPE NODE)>
5822 <NTHUV TEMP85 3 = STACK>
5824 <CALL '
\1aISTYPE? 1 = STACK>
5825 <CALL '
\1aSEGMENT-STACK 4 = TEMP85>
5831 <VEQUAL? ON-STACK17 0 + PHRASE98>
5832 <GVAL 'POP-STACK = N81>
5835 <SET N81 'DONT-CARE (TYPE ATOM)>
5839 <CALL '
\1aGEN 2 = TEMP85>
5840 <VEQUAL? ON-STACK17 0 - MAPAP107>
5841 <RESTL K13 1 = K13 (TYPE LIST)>
5845 <EMPL? K13 + MAPAP107>
5847 <FRAME '
\1aINTERF-CHANGE>
5852 <CALL '
\1aINTERF-CHANGE 2 = TEMP85>
5853 <RESTL K13 1 = K13 (TYPE LIST)>
5856 <CONS TEMP85 () = TEMP85 (TYPE LIST)>
5857 <EMPL? TEMP33 - TAG116>
5858 <SET TEMP33 TEMP85 (TYPE LIST)>
5861 <PUTREST TEMP23 TEMP85>
5864 <SET TEMP23 TEMP85 (TYPE LIST)>
5866 <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
5869 <VEQUAL? ON-STACK17 0 - MAPAP124>
5870 <SET TEMP79 TEMP33 (TYPE LIST)>
5874 <EMPL? TEMP79 + MAPAP124>
5875 <NTHL TEMP79 1 = TEMP23>
5876 <FRAME '
\1aFREE-TEMP>
5880 <CALL '
\1aFREE-TEMP 2>
5881 <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
5884 <EQUAL? WHERE9 'FLUSHED + BOOL131>
5885 <NTHUV NOD8 3 = TEMP79>
5886 <EQUAL? TEMP79 'NO-RETURN - PHRASE130>
5889 <VEQUAL? ON-STACK17 0 + PHRASE133>
5891 <TYPE? INS1-21 <TYPE-CODE UNBOUND> + PHRASE135>
5896 <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE138>
5897 <SET TEMP79 COUNTMP18>
5907 <FRAME '
\1aFREE-TEMP>
5910 <CALL '
\1aFREE-TEMP 1>
5916 <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE144>
5917 <SET TEMP79 COUNTMP18>
5929 <TYPE? B11 <TYPE-CODE FALSE> + PHRASE146>
5933 <SET TEMP23 3 (TYPE FIX)>
5936 <LOOP (TEMP79 VALUE) (TEMP23 VALUE)>
5939 <EMPL? TEMP79 + TAG147>
5940 <NTHL TEMP79 1 = STACK>
5941 <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
5942 <ADD TEMP23 1 = TEMP23 (TYPE FIX)>
5945 <TYPE? D12 <TYPE-CODE FALSE> + PHRASE151>
5947 <SET TEMP85 '+ (TYPE ATOM)>
5950 <SET TEMP85 '- (TYPE ATOM)>
5956 <CALL '
\1aIEMIT TEMP23>
5963 <SET TEMP79 1 (TYPE FIX)>
5966 <LOOP (TEMP23 VALUE) (TEMP79 VALUE)>
5969 <EMPL? TEMP23 + TAG154>
5970 <NTHL TEMP23 1 = STACK>
5971 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
5972 <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
5975 <CALL '
\1aIEMIT TEMP79>
5978 <GVAL 'NO-DATUM = WHERE9>
5982 <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE159>
5983 <FRAME '
\1aFREE-TEMP>
5986 <CALL '
\1aFREE-TEMP 2>
5987 <FRAME '
\1aFREE-TEMP>
5991 <CALL '
\1aFREE-TEMP 2>
5993 <EQUAL? WHERE9 'DONT-CARE - PHRASE163>
5994 <FRAME '
\1aGEN-TEMP>
5995 <NTHUV NOD8 3 = STACK>
5997 <CALL '
\1aGEN-TEMP 1 = WHERE9>
6000 <TYPE? WHERE9 <TYPE-CODE TEMP> - PHRASE165>
6001 <FRAME '
\1aUSE-TEMP>
6003 <NTHUV NOD8 3 = STACK>
6005 <CALL '
\1aUSE-TEMP 2>
6007 <VEQUAL? ON-STACK17 0 + PHRASE168>
6009 <TYPE? INS1-21 <TYPE-CODE UNBOUND> + PHRASE170>
6014 <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE173>
6015 <SET TEMP79 COUNTMP18>
6027 <FRAME '
\1aFREE-TEMP>
6030 <CALL '
\1aFREE-TEMP 1>
6037 <TYPE? COUNTMP18 <TYPE-CODE UNBOUND> + PHRASE179>
6038 <SET TEMP79 COUNTMP18>
6053 <VEQUAL? REC?22 0 + PHRASE181>
6055 <SET ON-STACK17 TEMP33>
6056 <EMPL? ON-STACK17 + COMPERR>
6057 <LOOP (ON-STACK17 VALUE)>
6059 <RESTL ON-STACK17 1 = TEMP79 (TYPE LIST)>
6060 <EMPL? TEMP79 + TAG184>
6061 <SET ON-STACK17 TEMP79>
6065 <NTHL ON-STACK17 1 = ON-STACK17>
6066 <TYPE? ON-STACK17 <TYPE-CODE LIST> - PHRASE181>
6067 <EMPL? ON-STACK17 + PHRASE181>
6068 <RESTL ON-STACK17 1 = COUNTMP18 (TYPE LIST)>
6069 <EMPL? COUNTMP18 + PHRASE181>
6070 <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
6071 <EMPL? COUNTMP18 - PHRASE181>
6073 <NTHL ON-STACK17 1 = COUNTMP18 (TYPE ATOM)>
6074 <NTHR COUNTMP18 3 = COUNTMP18 (RECORD-TYPE ATOM)>
6075 <IFCAN "STRING-EQUAL?">
6076 <STRING-EQUAL? COUNTMP18 "RECORD-TYPE" - PHRASE181>
6077 <ENDIF "STRING-EQUAL?">
6078 <IFCANNOT "STRING-EQUAL?">
6079 <SET TEMP79 "RECORD-TYPE" (TYPE STRING)>
6080 <LENUS COUNTMP18 = TEMP23 (TYPE FIX)>
6081 <VEQUAL? TEMP23 11 - PHRASE181>
6082 <LOOP (COUNTMP18 VALUE LENGTH) (TEMP79 VALUE LENGTH) (TEMP23 VALUE)>
6084 <NTHUS COUNTMP18 1 = TEMP85>
6085 <NTHUS TEMP79 1 = SEGTMP19>
6086 <VEQUAL? TEMP85 SEGTMP19 - PHRASE181>
6087 <DEAD TEMP85 SEGTMP19>
6088 <RESTUS COUNTMP18 1 = COUNTMP18 (TYPE STRING)>
6089 <RESTUS TEMP79 1 = TEMP79 (TYPE STRING)>
6090 <SUB TEMP23 1 = TEMP23 (TYPE FIX)>
6091 <GRTR? TEMP23 0 + TAG186 (TYPE FIX)>
6092 <ENDIF "STRING-EQUAL?">
6093 <EMPL? TEMP33 + PHRASE188>
6094 <RESTL TEMP33 1 = TEMP79 (TYPE LIST)>
6095 <EMPL? TEMP79 - PHRASE188>
6097 <SET TEMP33 () (TYPE LIST)>
6100 <LENL TEMP33 = TEMP79 (TYPE FIX)>
6101 <SUB TEMP79 2 = TEMP79 (TYPE FIX)>
6102 <SET COUNTMP18 TEMP33>
6103 <GRTR? TEMP79 0 - RESTL191 (TYPE FIX)>
6104 <LOOP (COUNTMP18 VALUE) (TEMP79 VALUE)>
6107 <EMPL? COUNTMP18 + COMPERR>
6108 <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
6109 <SUB TEMP79 1 = TEMP79 (TYPE FIX)>
6110 <GRTR? TEMP79 0 + RESTL190 (TYPE FIX)>
6112 <EMPL? COUNTMP18 + COMPERR>
6113 <PUTREST COUNTMP18 ()>
6119 <SET TEMP79 4 (TYPE FIX)>
6120 <SET COUNTMP18 TEMP33>
6122 <LOOP (COUNTMP18 VALUE) (TEMP79 VALUE)>
6125 <EMPL? COUNTMP18 + TAG192>
6126 <NTHL COUNTMP18 1 = STACK>
6127 <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
6128 <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
6135 <CALL '
\1aIEMIT TEMP79>
6140 <TYPE? B11 <TYPE-CODE FALSE> + PHRASE195>
6144 <SET COUNTMP18 5 (TYPE FIX)>
6147 <LOOP (TEMP79 VALUE) (COUNTMP18 VALUE)>
6150 <EMPL? TEMP79 + TAG196>
6151 <NTHL TEMP79 1 = STACK>
6152 <RESTL TEMP79 1 = TEMP79 (TYPE LIST)>
6153 <ADD COUNTMP18 1 = COUNTMP18 (TYPE FIX)>
6158 <TYPE? D12 <TYPE-CODE FALSE> + PHRASE200>
6160 <SET SEGTMP19 '+ (TYPE ATOM)>
6163 <SET SEGTMP19 '- (TYPE ATOM)>
6169 <CALL '
\1aIEMIT COUNTMP18>
6177 <SET TEMP79 3 (TYPE FIX)>
6178 <SET COUNTMP18 TEMP33>
6180 <LOOP (COUNTMP18 VALUE) (TEMP79 VALUE)>
6183 <EMPL? COUNTMP18 + TAG203>
6184 <NTHL COUNTMP18 1 = STACK>
6185 <RESTL COUNTMP18 1 = COUNTMP18 (TYPE LIST)>
6186 <ADD TEMP79 1 = TEMP79 (TYPE FIX)>
6191 <CALL '
\1aIEMIT TEMP79>
6195 <END
\1aCALL-GEN>
\r\r
6197 <GFCN
\1aCHANNEL-OP-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
6198 <TEMP CTY6 K7:LIST TEMP10 L8 TEMP17 N22 TEMP26>
6200 <NTHUV NOD4 9 = CTY6>
6201 <NTHUV NOD4 5 = K7 (TYPE LIST)>
6202 <SET L8 () (TYPE LIST)>
6203 <SET TEMP17 () (TYPE LIST)>
6204 <SET TEMP10 K7 (TYPE LIST)>
6209 <EMPL? TEMP10 + MAPAP15>
6211 <NTHL K7 1 = N22 (TYPE NODE)>
6212 <NTHUV N22 1 = TEMP26 (TYPE FIX)>
6213 <VEQUAL? TEMP26 2 - PHRASE25 (TYPE FIX)>
6215 <NTHUV N22 4 = TEMP26>
6217 <TYPE? TEMP26 <TYPE-CODE ATOM> - MAPAP37>
6222 <CALL '
\1aFORM 2 = TEMP26>
6229 <CALL '
\1aGEN 2 = TEMP26>
6230 <RESTL K7 1 = K7 (TYPE LIST)>
6234 <EMPL? K7 + MAPAP37>
6236 <FRAME '
\1aINTERF-CHANGE>
6241 <CALL '
\1aINTERF-CHANGE 2 = TEMP26>
6242 <RESTL K7 1 = K7 (TYPE LIST)>
6245 <CONS TEMP26 () = TEMP26 (TYPE LIST)>
6247 <SET L8 TEMP26 (TYPE LIST)>
6250 <PUTREST TEMP17 TEMP26>
6253 <SET TEMP17 TEMP26 (TYPE LIST)>
6255 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6258 <SET TEMP10 L8 (TYPE LIST)>
6262 <EMPL? TEMP10 + MAPAP53>
6263 <NTHL TEMP10 1 = TEMP17>
6264 <FRAME '
\1aFREE-TEMP>
6268 <CALL '
\1aFREE-TEMP 2>
6269 <RESTL TEMP10 1 = TEMP10 (TYPE LIST)>
6272 <EQUAL? WHERE5 'FLUSHED + BOOL60>
6273 <NTHUV NOD4 3 = TEMP10>
6274 <EQUAL? TEMP10 'NO-RETURN - PHRASE59>
6283 <CALL '
\1aFORM 2 = STACK>
6284 <RESTL L8 1 = K7 (TYPE LIST)>
6288 <SET TEMP10 4 (TYPE FIX)>
6289 <RESTL L8 1 = K7 (TYPE LIST)>
6291 <RESTL K7 1 = K7 (TYPE LIST)>
6292 <LOOP (K7 VALUE) (TEMP10 VALUE)>
6297 <RESTL K7 1 = K7 (TYPE LIST)>
6298 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
6301 <CALL '
\1aIEMIT TEMP10>
6306 <EQUAL? WHERE5 'DONT-CARE - PHRASE67>
6307 <FRAME '
\1aGEN-TEMP>
6308 <NTHUV NOD4 3 = STACK>
6310 <CALL '
\1aGEN-TEMP 1 = WHERE5>
6313 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE69>
6314 <FRAME '
\1aUSE-TEMP>
6316 <NTHUV NOD4 3 = STACK>
6318 <CALL '
\1aUSE-TEMP 2>
6326 <CALL '
\1aFORM 2 = STACK>
6327 <RESTL L8 1 = K7 (TYPE LIST)>
6331 <SET TEMP10 6 (TYPE FIX)>
6332 <RESTL L8 1 = K7 (TYPE LIST)>
6334 <RESTL K7 1 = K7 (TYPE LIST)>
6335 <LOOP (K7 VALUE) (TEMP10 VALUE)>
6340 <RESTL K7 1 = K7 (TYPE LIST)>
6341 <ADD TEMP10 1 = TEMP10 (TYPE FIX)>
6346 <CALL '
\1aIEMIT TEMP10>
6350 <END
\1aCHANNEL-OP-GEN>
6352 <GFCN
\1aSMSUBR-CALL ("VALUE" ANY ANY ANY ANY "OPTIONAL" ANY ANY) SUBRC7 NARGS8 WHERE9 STACK?10 SLNT11>
6353 <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
6359 <TEMP W12 TEMP24 TEMP72>
6361 <EQUAL? SUBRC7 'STRING - PHRASE14>
6362 <TYPE? SLNT11 <TYPE-CODE FALSE> - PHRASE14>
6363 <TYPE? STACK?10 <TYPE-CODE FALSE> + PHRASE14>
6364 <TYPE? WHERE9 <TYPE-CODE TEMP> + PHRASE14>
6365 <FRAME '
\1aGEN-TEMP>
6367 <CALL '
\1aGEN-TEMP 1 = W12>
6372 <EQUAL? SUBRC7 'VECTOR + BOOL20>
6373 <EQUAL? SUBRC7 'UVECTOR + BOOL20>
6374 <EQUAL? SUBRC7 'STRING + BOOL20>
6375 <EQUAL? SUBRC7 'BYTES + BOOL20>
6376 <EQUAL? SUBRC7 'TUPLE - PHRASE19>
6379 <TYPE? STACK?10 <TYPE-CODE FALSE> + PHRASE23>
6380 <SET TEMP24 '`SBLOCK (TYPE ATOM)>
6383 <SET TEMP24 '`UBLOCK (TYPE ATOM)>
6390 <CALL '
\1aFORM 2 = STACK>
6394 <CONS SUBRC7 () = TEMP24>
6395 <CONS '`TYPE TEMP24 = STACK>
6398 <TYPE? STACK?10 <TYPE-CODE FALSE> + PHRASE85>
6400 <TYPE? NARGS8 <TYPE-CODE TEMP> + BOOL31>
6401 <TYPE? SLNT11 <TYPE-CODE FALSE> - PHRASE30>
6402 <EQUAL? SUBRC7 'STRING - PHRASE30>
6403 <FRAME '
\1aGEN-TEMP>
6405 <CALL '
\1aGEN-TEMP 1 = NARGS8>
6407 <EQUAL? SUBRC7 'VECTOR + BOOL36>
6408 <EQUAL? SUBRC7 'TUPLE - PHRASE35>
6419 <EQUAL? SUBRC7 'BYTES - PHRASE38>
6435 <EQUAL? SUBRC7 'STRING - PHRASE41>
6488 <FRAME '
\1aFREE-TEMP>
6491 <CALL '
\1aFREE-TEMP 2>
6492 <GEN-ASSIGNED? 'STKTMP - PHRASE53>
6495 <GEN-LVAL 'STKTMP = STACK>
6499 <GEN-LVAL 'STKTMP = STACK>
6509 <FRAME '
\1aGEN-TEMP>
6511 <CALL '
\1aGEN-TEMP 1 = TEMP24>
6512 <GEN-SET 'STKTMP TEMP24>
6517 <GEN-LVAL 'STK = TEMP24>
6518 <ADD TEMP24 2 = TEMP24 (TYPE FIX)>
6519 <GEN-SET 'STK TEMP24>
6523 <EQUAL? SUBRC7 'STRING - PHRASE71>
6524 <ADD SLNT11 4 = TEMP24 (TYPE FIX)>
6525 <DIV TEMP24 5 = TEMP24 (TYPE FIX)>
6526 <GEN-LVAL 'STK-CHARS7 = TEMP72>
6527 <ADD TEMP24 TEMP72 = TEMP24 (TYPE FIX)>
6529 <GEN-SET 'STK-CHARS7 TEMP24>
6531 <ADD SLNT11 3 = TEMP24 (TYPE FIX)>
6533 <DIV TEMP24 4 = TEMP24 (TYPE FIX)>
6534 <GEN-LVAL 'STK-CHARS8 = TEMP72>
6535 <ADD TEMP24 TEMP72 = TEMP24 (TYPE FIX)>
6537 <GEN-SET 'STK-CHARS8 TEMP24>
6539 <GEN-LVAL 'STK = TEMP24>
6540 <ADD TEMP24 2 = TEMP24 (TYPE FIX)>
6541 <GEN-SET 'STK TEMP24>
6545 <GEN-LVAL 'STK = TEMP24>
6546 <EQUAL? SUBRC7 'UVECTOR - PHRASE89>
6551 <EQUAL? SUBRC7 'BYTES - PHRASE90>
6553 <ADD NARGS8 3 = TEMP72 (TYPE FIX)>
6555 <DIV TEMP72 4 = TEMP72 (TYPE FIX)>
6558 <LSH NARGS8 1 = TEMP72 (TYPE FIX)>
6561 <ADD TEMP24 TEMP72 = TEMP24 (TYPE FIX)>
6563 <ADD TEMP24 2 = TEMP24 (TYPE FIX)>
6564 <GEN-SET 'STK TEMP24>
6567 <EQUAL? W12 WHERE9 - TAG97>
6570 <FRAME '
\1aMOVE-ARG>
6575 <CALL '
\1aMOVE-ARG 2 = TEMP24>
6579 <EQUAL? SUBRC7 'LIST - PHRASE99>
6588 <CALL '
\1aIEMIT 5 = TEMP24>
6592 <FRAME '
\1aMSUBR-CALL>
6599 <CALL '
\1aMSUBR-CALL 3 = TEMP24>
6602 <END
\1aSMSUBR-CALL>
6604 <GFCN
\1aAPPLY-GEN ("VALUE" ANY NODE ANY) NOD4 WHERE5>
6605 <TEMP K6 TEMP3:LBIND SEGTMP8 TEMP14 TEMP25:FIX TEMP27 N28 TEMP52>
6607 <NTHUV NOD4 5 = K6 (TYPE LIST)>
6608 <GETS 'BIND = TEMP3 (TYPE LBIND)>
6609 <BBIND 'COUNTMP 'ANY 'FIX>
6610 <FRAME '
\1aMAKE-TAG>
6611 <CALL '
\1aMAKE-TAG 0 = TEMP14>
6612 <BBIND 'SEGLABEL 'ANY 'FIX TEMP14>
6614 <BBIND 'SEGCALLED 'ANY 'FIX %<>>
6615 <FRAME '
\1aSTART-FRAME>
6616 <CALL '
\1aSTART-FRAME 0>
6618 <NTHL K6 1 = STACK (TYPE NODE)>
6619 <CALL '
\1aGEN 1 = TEMP14>
6620 <SET TEMP25 0 (TYPE FIX)>
6621 <RESTL K6 1 = TEMP27 (TYPE LIST)>
6625 <EMPL? TEMP27 + MAPAP21>
6626 <NTHL TEMP27 1 = N28>
6627 <NTHUV N28 1 = N28 (TYPE FIX)>
6628 <VEQUAL? N28 3 - PHRASE30 (TYPE FIX)>
6630 <SET N28 0 (TYPE FIX)>
6633 <SET N28 1 (TYPE FIX)>
6635 <ADD TEMP25 N28 = TEMP25>
6637 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
6640 <RESTL K6 1 = K6 (TYPE LIST)>
6644 <EMPL? K6 + MAPAP37>
6646 <NTHUV N28 1 = TEMP27 (TYPE FIX)>
6647 <VEQUAL? TEMP27 3 - PHRASE44 (TYPE FIX)>
6649 <TYPE? SEGTMP8 <TYPE-CODE UNBOUND> - PHRASE47>
6650 <FRAME '
\1aGEN-TEMP>
6652 <CALL '
\1aGEN-TEMP 1 = SEGTMP8>
6653 <FRAME '
\1aGEN-TEMP>
6655 <CALL '
\1aGEN-TEMP 1 = TEMP27>
6656 <NTHR 'COUNTMP 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
6657 <PUTR TEMP52 1 TEMP27 (RECORD-TYPE LBIND)>
6658 <DEAD TEMP52 TEMP27>
6659 <FRAME '
\1aSET-TEMP>
6660 <NTHR 'COUNTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6661 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
6665 <CALL '
\1aSET-TEMP 3>
6668 <NTHUV N28 5 = TEMP27 (TYPE LIST)>
6670 <NTHL TEMP27 1 = N28 (TYPE NODE)>
6674 <CALL '
\1aGEN 2 = TEMP52>
6675 <GVAL 'NO-DATUM = TEMP27>
6676 <EQUAL? TEMP27 TEMP52 + PHRASE58>
6677 <DEAD TEMP27 TEMP52>
6678 <FRAME '
\1aSTRUCTYP-SEG>
6679 <NTHUV N28 3 = STACK>
6680 <CALL '
\1aSTRUCTYP-SEG 1 = TEMP27>
6681 <EQUAL? TEMP27 'MULTI + PHRASE58>
6683 <FRAME '
\1aSEGMENT-STACK>
6685 <NTHR 'COUNTMP 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6686 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
6688 <FRAME '
\1aSTRUCTYP>
6689 <NTHUV N28 3 = STACK>
6690 <CALL '
\1aSTRUCTYP 1 = STACK>
6692 <NTHUV N28 3 = STACK>
6694 <CALL '
\1aISTYPE? 1 = STACK>
6695 <NTHR 'SEGLABEL 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6696 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
6698 <CALL '
\1aSEGMENT-STACK 5>
6701 <NTHR 'SEGCALLED 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6702 <NTHR TEMP27 1 = TEMP27 (RECORD-TYPE LBIND)>
6703 <TYPE? TEMP27 <TYPE-CODE FALSE> + PHRASE68>
6705 <FRAME '
\1aLABEL-TAG>
6706 <NTHR 'SEGLABEL 2 = TEMP27 (RECORD-TYPE ATOM) (TYPE LBIND)>
6707 <NTHR TEMP27 1 = STACK (RECORD-TYPE LBIND)>
6709 <CALL '
\1aLABEL-TAG 1>
6711 <FRAME '
\1aMAKE-TAG>
6712 <CALL '
\1aMAKE-TAG 0 = TEMP27>
6713 <NTHR 'SEGLABEL 2 = TEMP52 (RECORD-TYPE ATOM) (TYPE LBIND)>
6714 <PUTR TEMP52 1 TEMP27 (RECORD-TYPE LBIND)>
6715 <DEAD TEMP52 TEMP27>
6721 <GVAL 'POP-STACK = STACK>
6724 <RESTL K6 1 = K6 (TYPE LIST)>
6727 <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6728 <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6729 <TYPE? K6 <TYPE-CODE UNBOUND> + PHRASE80>
6731 <FRAME '
\1aFREE-TEMP>
6732 <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6733 <NTHR K6 1 = STACK (RECORD-TYPE LBIND)>
6736 <CALL '
\1aFREE-TEMP 2>
6737 <FRAME '
\1aFREE-TEMP>
6741 <CALL '
\1aFREE-TEMP 2>
6743 <EQUAL? WHERE5 'FLUSHED + BOOL87>
6745 <EQUAL? K6 'NO-RETURN - PHRASE86>
6751 <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6752 <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6753 <TYPE? K6 <TYPE-CODE UNBOUND> + PHRASE90>
6755 <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6756 <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6765 <FRAME '
\1aFREE-TEMP>
6768 <CALL '
\1aFREE-TEMP 1>
6771 <EQUAL? WHERE5 'DONT-CARE - PHRASE97>
6772 <FRAME '
\1aGEN-TEMP>
6773 <NTHUV NOD4 3 = STACK>
6775 <CALL '
\1aGEN-TEMP 1 = WHERE5>
6778 <TYPE? WHERE5 <TYPE-CODE TEMP> - PHRASE99>
6779 <FRAME '
\1aUSE-TEMP>
6781 <NTHUV NOD4 3 = STACK>
6783 <CALL '
\1aUSE-TEMP 2>
6788 <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6789 <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6790 <TYPE? K6 <TYPE-CODE UNBOUND> + PHRASE103>
6792 <NTHR 'COUNTMP 2 = K6 (RECORD-TYPE ATOM) (TYPE LBIND)>
6793 <NTHR K6 1 = K6 (RECORD-TYPE LBIND)>
6804 <FRAME '
\1aFREE-TEMP>
6807 <CALL '
\1aFREE-TEMP 1>
6816 <GFCN
\1aUNWIND-GEN ("VALUE" ANY NODE ANY) N4 W5>
6817 <TEMP UNBRANCH6 NOUNWIND7 TEMP15 K1-8:NODE K2-9:NODE LBL12:TEMP>
6819 <FRAME '
\1aMAKE-TAG>
6820 <CALL '
\1aMAKE-TAG 0 = UNBRANCH6>
6821 <FRAME '
\1aMAKE-TAG>
6822 <CALL '
\1aMAKE-TAG 0 = NOUNWIND7>
6823 <NTHUV N4 5 = TEMP15 (TYPE LIST)>
6824 <NTHL TEMP15 1 = K1-8 (TYPE NODE)>
6826 <NTHUV N4 5 = TEMP15 (TYPE LIST)>
6828 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
6829 <NTHL TEMP15 1 = K2-9 (TYPE NODE)>
6837 <FRAME '
\1aGEN-TEMP>
6838 <CALL '
\1aGEN-TEMP 0 = LBL12>
6846 <CALL '
\1aFORM 2 = STACK>
6851 <CALL '
\1aFORM 2 = STACK>
6852 <FRAME '
\1aCURRENT-FRAME>
6853 <CALL '
\1aCURRENT-FRAME 0 = STACK>
6855 <GEN-LVAL 'STK = TEMP15>
6856 <ADD TEMP15 9 = TEMP15 (TYPE FIX)>
6857 <GEN-SET 'STK TEMP15>
6864 <CALL '
\1aGEN 2 = TEMP15>
6865 <FRAME '
\1aSET-VALUE>
6868 <CALL '
\1aSET-VALUE 2>
6869 <FRAME '
\1aFREE-TEMP>
6872 <CALL '
\1aFREE-TEMP 1>
6873 <FRAME '
\1aBRANCH-TAG>
6875 <CALL '
\1aBRANCH-TAG 1>
6876 <FRAME '
\1aLABEL-TAG>
6879 <CALL '
\1aLABEL-TAG 1>
6885 <FRAME '
\1aBRANCH-TAG>
6887 <CALL '
\1aBRANCH-TAG 1>
6888 <FRAME '
\1aLABEL-TAG>
6891 <CALL '
\1aLABEL-TAG 1>
6896 <GFCN
\1aINTERFERE? ("VALUE" <OR ATOM FALSE> TEMP NODE) TMP4 N5>
6897 <TEMP TEMP9 TEMP8 TEMP28>
6899 <LENUV N5 = TEMP9 (TYPE FIX)>
6900 <LESS? TEMP9 8 - TAG10 (TYPE FIX)>
6904 <NTHUV N5 8 = TEMP9>
6907 <TYPE? TEMP8 <TYPE-CODE FALSE> + MAPAP15>
6908 <SET TEMP8 %<> (TYPE FALSE)>
6912 <EMPL? TEMP9 + MAPAP15>
6913 <NTHL TEMP9 1 = TEMP8>
6914 <TYPE? TEMP8 <TYPE-CODE NODE> + TAG26>
6915 <SET TEMP8 %<> (TYPE FALSE)>
6918 <NTHUV TEMP8 1 = TEMP28 (TYPE FIX)>
6919 <VEQUAL? TEMP28 11 + TAG29 (TYPE FIX)>
6921 <SET TEMP8 %<> (TYPE FALSE)>
6924 <NTHUV TEMP8 4 = TEMP8 (TYPE SYMTAB)>
6925 <NTHUV TEMP8 3 = TEMP28>
6926 <TYPE? TEMP28 <TYPE-CODE FALSE> + TAG30>
6928 <SET TEMP8 %<> (TYPE FALSE)>
6931 <NTHUV TEMP8 4 = TEMP28 (TYPE FIX)>
6932 <VEQUAL? TEMP28 -1 - TAG31 (TYPE FIX)>
6934 <SET TEMP8 %<> (TYPE FALSE)>
6937 <NTHUV TEMP8 10 = TEMP28>
6939 <EQUAL? TEMP28 TMP4 + TAG34>
6941 <SET TEMP8 %<> (TYPE FALSE)>
6946 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
6953 <GFCN
\1aINTERF-CHANGE ("VALUE" ANY ANY NODE) TMP4 N5>
6956 <TYPE? TMP4 <TYPE-CODE TEMP> - PHRASE7>
6957 <FRAME '
\1aINTERFERE?>
6961 <CALL '
\1aINTERFERE? 2 = TEMP10>
6962 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE7>
6964 <FRAME '
\1aMOVE-ARG>
6967 <FRAME '
\1aGEN-TEMP>
6969 <CALL '
\1aGEN-TEMP 1 = STACK>
6970 <CALL '
\1aMOVE-ARG 2 = TEMP10>
6976 <END
\1aINTERF-CHANGE>
6978 <GFCN
\1aADECL-GEN ("VALUE" ANY ANY ANY) NOD4 WHERE5>
6981 <NTHUV NOD4 5 = TEMP7 (TYPE LIST)>
6983 <NTHL TEMP7 1 = TEMP7 (TYPE NODE)>
6989 <CALL '
\1aGEN 2 = TEMP7>
6994 <GFCN
\1aSTACK-GEN ("VALUE" ANY ANY ANY) N4 W5>
6998 <NTHUV N4 5 = TEMP7 (TYPE LIST)>
7000 <NTHL TEMP7 1 = STACK (TYPE NODE)>
7004 <CALL '
\1aGEN 2 = TEMP7>
7008 "ILIST, IVECTOR, IUVECTOR AND ISTRING."
7011 <GFCN
\1aISTRUC-GEN ("VALUE" ANY NODE ANY) N4 W5>
7012 <TEMP NAM6 K7 NT8 LEN9 TY11 (CALL-EV22 %<>) (GEN-EACH-TIME23 %<>) X24 TEMP41 REST-INS27 PUT-INS26 EMP-INS25:ATOM EL-TMP14 EL10:NODE EV-TMP15 STR2-20:TEMP>
7015 <NTHUV N4 5 = K7 (TYPE LIST)>
7016 <NTHL K7 1 = LEN9 (TYPE NODE)>
7021 <CALL '
\1aISTYPE? 1 = TY11>
7023 <TYPE? X24 <TYPE-CODE NODE> + TAG38>
7024 <SET X24 %<> (TYPE FALSE)>
7027 <NTHUV X24 1 = TEMP41 (TYPE FIX)>
7028 <VEQUAL? TEMP41 98 - TAG42 (TYPE FIX)>
7030 <SET X24 'T (TYPE ATOM)>
7033 <NTHUV X24 1 = TEMP41 (TYPE FIX)>
7034 <VEQUAL? TEMP41 37 + TAG44 (TYPE FIX)>
7036 <SET X24 %<> (TYPE FALSE)>
7040 <TYPE? X24 <TYPE-CODE NODE> + TAG45>
7041 <SET X24 %<> (TYPE FALSE)>
7044 <NTHUV X24 1 = TEMP41 (TYPE FIX)>
7046 <VEQUAL? TEMP41 98 - TAG47 (TYPE FIX)>
7048 <SET X24 'T (TYPE ATOM)>
7051 <SET X24 %<> (TYPE FALSE)>
7053 <EQUAL? NAM6 'ITUPLE - PHRASE50>
7054 <SET X24 'T (TYPE ATOM)>
7056 <EMPL? K7 + PHRASE52>
7057 <RESTL K7 1 = TEMP41 (TYPE LIST)>
7058 <EMPL? TEMP41 - PHRASE52>
7060 <EQUAL? NAM6 'ILIST + PHRASE52>
7062 <TYPE? X24 <TYPE-CODE FALSE> + PHRASE56>
7063 <SET TEMP41 '`USBLOCK (TYPE ATOM)>
7066 <SET TEMP41 '`UUBLOCK (TYPE ATOM)>
7073 <CALL '
\1aFORM 2 = STACK>
7078 <CALL '
\1aGEN 2 = K7>
7081 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE61>
7082 <FRAME '
\1aUSE-TEMP>
7085 <CALL '
\1aUSE-TEMP 2>
7089 <EQUAL? W5 'DONT-CARE - PHRASE63>
7090 <FRAME '
\1aGEN-TEMP>
7092 <TYPE? NT8 <TYPE-CODE FALSE> - COND65>
7093 <SET NT8 'ANY (TYPE ATOM)>
7097 <CALL '
\1aGEN-TEMP 1 = W5>
7105 <CONS TY11 () = TEMP41>
7107 <CONS '`TYPE TEMP41 = STACK>
7110 <TYPE? X24 <TYPE-CODE FALSE> - PHRASE71>
7111 <FRAME '
\1aFREE-TEMP>
7113 <CALL '
\1aFREE-TEMP 1>
7116 <EQUAL? NAM6 'IVECTOR + BOOL74>
7117 <EQUAL? NAM6 'ITUPLE - PHRASE73>
7119 <SET REST-INS27 '`RESTUV (TYPE ATOM)>
7120 <SET PUT-INS26 '`PUTUV (TYPE ATOM)>
7121 <SET EMP-INS25 '`EMPUV? (TYPE ATOM)>
7124 <EQUAL? NAM6 'IUVECTOR - PHRASE75>
7125 <SET REST-INS27 '`RESTUU (TYPE ATOM)>
7126 <SET PUT-INS26 '`PUTUU (TYPE ATOM)>
7127 <SET EMP-INS25 '`EMPUU? (TYPE ATOM)>
7130 <EQUAL? NAM6 'ISTRING - PHRASE76>
7131 <SET REST-INS27 '`RESTUS (TYPE ATOM)>
7132 <SET PUT-INS26 '`PUTUS (TYPE ATOM)>
7133 <SET EMP-INS25 '`EMPUS? (TYPE ATOM)>
7136 <EQUAL? NAM6 'IBYTES - PHRASE77>
7137 <SET REST-INS27 '`RESTUB (TYPE ATOM)>
7138 <SET PUT-INS26 '`PUTUB (TYPE ATOM)>
7139 <SET EMP-INS25 '`EMPUB? (TYPE ATOM)>
7142 <SET REST-INS27 '`RESTL (TYPE ATOM)>
7143 <SET PUT-INS26 '`PUTL (TYPE ATOM)>
7144 <SET EMP-INS25 '`EMPL? (TYPE ATOM)>
7146 <RESTL K7 1 = TEMP41 (TYPE LIST)>
7147 <EMPL? TEMP41 - PHRASE80 (TYPE LIST)>
7149 <SET EL-TMP14 0 (TYPE FIX)>
7152 <NTHUV N4 1 = NT8 (TYPE FIX)>
7154 <VEQUAL? NT8 45 - BOOL85 (TYPE FIX)>
7155 <RESTL K7 1 = TEMP41 (TYPE LIST)>
7156 <NTHL TEMP41 1 = EL10 (TYPE NODE)>
7158 <LENUV EL10 = TEMP41 (TYPE FIX)>
7159 <LESS? TEMP41 8 + BOOL82 (TYPE FIX)>
7161 <NTHUV EL10 8 = TEMP41>
7162 <TYPE? TEMP41 <TYPE-CODE FALSE> - BOOL85>
7164 <NTHUV EL10 1 = TEMP41 (TYPE FIX)>
7165 <VEQUAL? TEMP41 15 + BOOL85 (TYPE FIX)>
7166 <VEQUAL? TEMP41 37 + BOOL85 (TYPE FIX)>
7167 <VEQUAL? TEMP41 44 + BOOL85 (TYPE FIX)>
7168 <VEQUAL? TEMP41 45 - BOOL82 (TYPE FIX)>
7171 <VEQUAL? NT8 44 - PHRASE81 (TYPE FIX)>
7172 <FRAME '
\1aTYPE-OK?>
7173 <RESTL K7 1 = TEMP41 (TYPE LIST)>
7175 <NTHL TEMP41 1 = EL10 (TYPE NODE)>
7177 <NTHUV EL10 3 = STACK>
7178 <PUSH <OR FORM LIST VECTOR UVECTOR LVAL GVAL>>
7179 <CALL '
\1aTYPE-OK? 2 = TEMP41>
7180 <TYPE? TEMP41 <TYPE-CODE FALSE> - PHRASE81>
7185 <CALL '
\1aGEN 1 = EL-TMP14>
7188 <VEQUAL? NT8 44 - PHRASE89 (TYPE FIX)>
7192 <CALL '
\1aGEN 1 = EV-TMP15>
7193 <SET CALL-EV22 'T (TYPE ATOM)>
7196 <SET GEN-EACH-TIME23 'T (TYPE ATOM)>
7201 <CALL '
\1aGEN 1 = K7>
7202 <EQUAL? NAM6 'ILIST - PHRASE94>
7205 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE97>
7206 <FRAME '
\1aUSE-TEMP>
7211 <CALL '
\1aUSE-TEMP 2 = TEMP41>
7214 <FRAME '
\1aGEN-TEMP>
7215 <CALL '
\1aGEN-TEMP 0 = LEN9>
7222 <TYPE? K7 <TYPE-CODE FIX> + BOOL103>
7223 <NTHUV K7 2 = TEMP41 (TYPE FIX)>
7224 <GRTR? TEMP41 1 - PHRASE102 (TYPE FIX)>
7229 <FRAME '
\1aGEN-TEMP>
7231 <CALL '
\1aGEN-TEMP 1 = STR2-20>
7241 <FRAME '
\1aGEN-TEMP>
7243 <CALL '
\1aGEN-TEMP 1 = STR2-20>
7250 <TYPE? X24 <TYPE-CODE FALSE> + PHRASE113>
7251 <SET TEMP41 '`USBLOCK (TYPE ATOM)>
7254 <SET TEMP41 '`UUBLOCK (TYPE ATOM)>
7261 <CALL '
\1aFORM 2 = STACK>
7264 <TYPE? W5 <TYPE-CODE TEMP> - PHRASE117>
7265 <FRAME '
\1aUSE-TEMP>
7270 <CALL '
\1aUSE-TEMP 2 = TEMP41>
7273 <FRAME '
\1aGEN-TEMP>
7274 <CALL '
\1aGEN-TEMP 0 = LEN9>
7280 <TYPE? X24 <TYPE-CODE FALSE> - PHRASE122>
7281 <FRAME '
\1aFREE-TEMP>
7283 <CALL '
\1aFREE-TEMP 1>
7287 <FRAME '
\1aGEN-TEMP>
7288 <CALL '
\1aGEN-TEMP 0 = STR2-20>
7295 <CONS 'LENGTH () = TEMP41>
7296 <CONS 'VALUE TEMP41 = TEMP41>
7297 <NTHUV STR2-20 1 = NT8 (TYPE ATOM)>
7298 <CONS NT8 TEMP41 = STACK>
7300 <SET NT8 2 (TYPE FIX)>
7301 <VEQUAL? CALL-EV22 0 + PHRASE128>
7302 <CONS 'LENGTH () = TY11>
7303 <CONS 'VALUE TY11 = TY11>
7304 <CONS 'TYPE TY11 = TY11>
7305 <NTHUV EV-TMP15 1 = TEMP41 (TYPE ATOM)>
7306 <CONS TEMP41 TY11 = TY11>
7308 <CONS TY11 () = TEMP41>
7312 <VEQUAL? GEN-EACH-TIME23 0 - PHRASE131>
7313 <TYPE? EL-TMP14 <TYPE-CODE TEMP> - PHRASE131>
7314 <CONS 'LENGTH () = TY11>
7315 <CONS 'VALUE TY11 = TY11>
7316 <CONS 'TYPE TY11 = TY11>
7317 <NTHUV EL-TMP14 1 = TEMP41 (TYPE ATOM)>
7318 <CONS TEMP41 TY11 = TY11>
7320 <CONS TY11 () = TEMP41>
7324 <SET TEMP41 () (TYPE LIST)>
7326 <LOOP (TEMP41 VALUE) (NT8 VALUE)>
7329 <EMPL? TEMP41 + TAG126>
7330 <NTHL TEMP41 1 = STACK>
7331 <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
7332 <ADD NT8 1 = NT8 (TYPE FIX)>
7335 <EQUAL? NAM6 'ILIST - PHRASE137>
7336 <CONS 'VALUE () = TY11>
7337 <NTHUV K7 1 = TEMP41 (TYPE ATOM)>
7338 <CONS TEMP41 TY11 = TY11>
7340 <CONS TY11 () = TEMP41>
7344 <SET TEMP41 () (TYPE LIST)>
7346 <LOOP (TEMP41 VALUE) (NT8 VALUE)>
7349 <EMPL? TEMP41 + TAG135>
7350 <NTHL TEMP41 1 = STACK>
7351 <RESTL TEMP41 1 = TEMP41 (TYPE LIST)>
7352 <ADD NT8 1 = NT8 (TYPE FIX)>
7355 <CALL '
\1aIEMIT NT8>
7357 <FRAME '
\1aLABEL-TAG>
7358 <FRAME '
\1aMAKE-TAG>
7360 <CALL '
\1aMAKE-TAG 1 = TY11>
7362 <CALL '
\1aLABEL-TAG 1>
7363 <EQUAL? NAM6 'ILIST - PHRASE144>
7369 <FRAME '
\1aMAKE-TAG>
7371 <CALL '
\1aMAKE-TAG 1 = TEMP41>
7381 <FRAME '
\1aMAKE-TAG>
7383 <CALL '
\1aMAKE-TAG 1 = TEMP41>
7387 <VEQUAL? CALL-EV22 0 + PHRASE151>
7388 <FRAME '
\1aSTART-FRAME>
7390 <CALL '
\1aSTART-FRAME 1>
7394 <FRAME '
\1aMSUBR-CALL>
7397 <FRAME '
\1aGEN-TEMP>
7398 <CALL '
\1aGEN-TEMP 0 = EL-TMP14>
7400 <CALL '
\1aMSUBR-CALL 3>
7403 <VEQUAL? GEN-EACH-TIME23 0 + PHRASE156>
7407 <CALL '
\1aGEN 1 = EL-TMP14>
7409 <EQUAL? NAM6 'ILIST - PHRASE159>
7415 <FRAME '
\1aGEN-TEMP>
7417 <CALL '
\1aGEN-TEMP 1 = REST-INS27>
7424 <FRAME '
\1aMAKE-TAG>
7425 <CALL '
\1aMAKE-TAG 0 = NT8>
7438 <FRAME '
\1aBRANCH-TAG>
7439 <FRAME '
\1aMAKE-TAG>
7440 <CALL '
\1aMAKE-TAG 0 = PUT-INS26>
7442 <CALL '
\1aBRANCH-TAG 1>
7443 <FRAME '
\1aLABEL-TAG>
7446 <CALL '
\1aLABEL-TAG 1>
7458 <FRAME '
\1aLABEL-TAG>
7461 <CALL '
\1aLABEL-TAG 1>
7487 <VEQUAL? CALL-EV22 0 - BOOL178>
7488 <VEQUAL? GEN-EACH-TIME23 0 + PHRASE177>
7490 <FRAME '
\1aFREE-TEMP>
7492 <CALL '
\1aFREE-TEMP 1>
7494 <FRAME '
\1aBRANCH-TAG>
7497 <CALL '
\1aBRANCH-TAG 1>
7498 <FRAME '
\1aLABEL-TAG>
7501 <CALL '
\1aLABEL-TAG 1>
7502 <FRAME '
\1aFREE-TEMP>
7505 <CALL '
\1aFREE-TEMP 1>
7506 <VEQUAL? CALL-EV22 0 + PHRASE184>
7508 <FRAME '
\1aFREE-TEMP>
7511 <CALL '
\1aFREE-TEMP 1>
7514 <VEQUAL? GEN-EACH-TIME23 0 - PHRASE186>
7515 <DEAD GEN-EACH-TIME23>
7516 <FRAME '
\1aFREE-TEMP>
7519 <CALL '
\1aFREE-TEMP 1>
7521 <FRAME '
\1aMOVE-ARG>
7526 <CALL '
\1aMOVE-ARG 2 = W5>
7528 <TYPE? X24 <TYPE-CODE FALSE> + PHRASE251>
7530 <TYPE? K7 <TYPE-CODE TEMP> - PHRASE192>
7531 <EQUAL? NAM6 'IUVECTOR + PHRASE194>
7532 <NTHUV K7 2 = NT8 (TYPE FIX)>
7533 <GRTR? NT8 1 - PHRASE194 (TYPE FIX)>
7535 <FRAME '
\1aGEN-TEMP>
7537 <CALL '
\1aGEN-TEMP 1 = TY11>
7542 <EQUAL? NAM6 'IVECTOR + BOOL202>
7543 <EQUAL? NAM6 'ITUPLE - PHRASE201>
7554 <EQUAL? NAM6 'IBYTES - PHRASE204>
7571 <EQUAL? NAM6 'ISTRING - PHRASE207>
7618 <FRAME '
\1aFREE-TEMP>
7621 <CALL '
\1aFREE-TEMP 2>
7622 <GEN-ASSIGNED? 'STKTMP - PHRASE218>
7625 <GEN-LVAL 'STKTMP = STACK>
7628 <GEN-LVAL 'STKTMP = STACK>
7637 <FRAME '
\1aGEN-TEMP>
7639 <CALL '
\1aGEN-TEMP 1 = CALL-EV22>
7640 <GEN-SET 'STKTMP CALL-EV22>
7645 <VEQUAL? K7 TY11 + PHRASE231>
7647 <FRAME '
\1aFREE-TEMP>
7650 <CALL '
\1aFREE-TEMP 1>
7652 <GEN-LVAL 'STK = CALL-EV22>
7653 <ADD CALL-EV22 2 = CALL-EV22 (TYPE FIX)>
7654 <GEN-SET 'STK CALL-EV22>
7659 <EQUAL? NAM6 'ISTRING - PHRASE237>
7660 <ADD K7 4 = CALL-EV22 (TYPE FIX)>
7661 <DIV CALL-EV22 5 = CALL-EV22 (TYPE FIX)>
7662 <GEN-LVAL 'STK-CHARS7 = NAM6>
7663 <ADD CALL-EV22 NAM6 = CALL-EV22 (TYPE FIX)>
7665 <GEN-SET 'STK-CHARS7 CALL-EV22>
7667 <ADD K7 3 = CALL-EV22 (TYPE FIX)>
7669 <DIV CALL-EV22 4 = CALL-EV22 (TYPE FIX)>
7670 <GEN-LVAL 'STK-CHARS8 = NAM6>
7671 <ADD CALL-EV22 NAM6 = CALL-EV22 (TYPE FIX)>
7673 <GEN-SET 'STK-CHARS8 CALL-EV22>
7675 <GEN-LVAL 'STK = CALL-EV22>
7676 <ADD CALL-EV22 2 = CALL-EV22 (TYPE FIX)>
7677 <GEN-SET 'STK CALL-EV22>
7682 <GEN-LVAL 'STK = CALL-EV22>
7683 <EQUAL? NAM6 'IUVECTOR - PHRASE255>
7688 <EQUAL? NAM6 'IBYTES - PHRASE256>
7690 <ADD K7 3 = NT8 (TYPE FIX)>
7692 <DIV NT8 4 = NAM6 (TYPE FIX)>
7696 <LSH K7 1 = NAM6 (TYPE FIX)>
7699 <ADD CALL-EV22 NAM6 = CALL-EV22 (TYPE FIX)>
7701 <ADD CALL-EV22 2 = CALL-EV22 (TYPE FIX)>
7702 <GEN-SET 'STK CALL-EV22>
7707 <END
\1aISTRUC-GEN>
\r\r
7709 <GFCN
\1aMULTI-SET-GEN ("VALUE" ANY NODE ANY) N4 W5>
7710 <TEMP K6 (SEG?7 %<>) (SIDE-E8 %<>) (MX9 0) (MN10 0) VARS11 VLN13 TEMP19 TEMP20 TEMP22 LV17 (I18:FIX 0) N32:NODE SEGTYP15>
7712 <NTHUV N4 5 = K6 (TYPE LIST)>
7713 <NTHUV N4 4 = VARS11 (TYPE LIST)>
7715 <LENL VARS11 = VLN13 (TYPE FIX)>
7718 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
7719 <GRTR? TEMP20 0 - RESTL23 (TYPE FIX)>
7720 <LOOP (TEMP22 VALUE) (TEMP20 VALUE)>
7723 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
7724 <SUB TEMP20 1 = TEMP20 (TYPE FIX)>
7725 <GRTR? TEMP20 0 + RESTL21 (TYPE FIX)>
7727 <NTHL TEMP22 1 = TEMP19 (TYPE LIST)>
7729 <NTHL TEMP19 1 = LV17>
7731 <RESTL K6 1 = K6 (TYPE LIST)>
7732 <SET TEMP19 K6 (TYPE LIST)>
7736 <EMPL? TEMP19 + MAPAP28>
7737 <NTHL TEMP19 1 = N32>
7738 <NTHUV N32 1 = TEMP20 (TYPE FIX)>
7739 <VEQUAL? TEMP20 68 + BOOL36 (TYPE FIX)>
7740 <VEQUAL? TEMP20 3 - PHRASE35 (TYPE FIX)>
7743 <SET SEG?7 'T (TYPE ATOM)>
7745 <NTHUV N32 5 = TEMP22 (TYPE LIST)>
7746 <NTHL TEMP22 1 = TEMP22 (TYPE NODE)>
7747 <NTHUV TEMP22 3 = TEMP20>
7750 <CALL '
\1aMAXL 1 = TEMP22>
7751 <ADD TEMP22 MX9 = MX9 (TYPE FIX)>
7753 <LESS? MX9 65535 - TAG40>
7754 <SET MX9 65535 (TYPE FIX)>
7759 <CALL '
\1aMINL 1 = TEMP22>
7760 <ADD TEMP22 MN10 = MN10 (TYPE FIX)>
7764 <ADD I18 1 = I18 (TYPE FIX)>
7765 <ADD MN10 1 = MN10 (TYPE FIX)>
7766 <ADD MX9 1 = TEMP22 (TYPE FIX)>
7768 <LESS? TEMP22 65535 - TAG43>
7769 <SET TEMP22 65535 (TYPE FIX)>
7774 <LENUV N32 = TEMP22 (TYPE FIX)>
7775 <LESS? TEMP22 8 + PHRASE45 (TYPE FIX)>
7777 <NTHUV N32 8 = TEMP22>
7779 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE45>
7781 <SET SIDE-E8 'T (TYPE ATOM)>
7783 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
7786 <VEQUAL? SEG?7 0 + PHRASE49>
7788 <GETS 'BIND = TEMP19 (TYPE LBIND)>
7789 <FRAME '
\1aMAKE-TAG>
7790 <CALL '
\1aMAKE-TAG 0 = SEG?7>
7791 <BBIND 'SEGLABEL 'ANY 'FIX SEG?7>
7793 <BBIND 'COUNTMP 'ANY 'FIX>
7794 <BBIND 'SEGCALLED 'ANY 'FIX %<>>
7795 <SET SIDE-E8 #T$UNBOUND 0>
7796 <SET SEG?7 K6 (TYPE LIST)>
7801 <EMPL? SEG?7 + MAPAP61>
7802 <NTHL SEG?7 1 = N32>
7803 <NTHUV N32 1 = TEMP22 (TYPE FIX)>
7804 <VEQUAL? TEMP22 68 + BOOL70 (TYPE FIX)>
7805 <VEQUAL? TEMP22 3 - PHRASE69 (TYPE FIX)>
7808 <TYPE? SIDE-E8 <TYPE-CODE UNBOUND> - PHRASE72>
7809 <FRAME '
\1aGEN-TEMP>
7811 <CALL '
\1aGEN-TEMP 1 = SIDE-E8>
7812 <FRAME '
\1aGEN-TEMP>
7814 <CALL '
\1aGEN-TEMP 1 = TEMP22>
7815 <NTHR 'COUNTMP 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
7816 <PUTR TEMP20 1 TEMP22 (RECORD-TYPE LBIND)>
7817 <DEAD TEMP20 TEMP22>
7818 <FRAME '
\1aSET-TEMP>
7819 <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7820 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
7824 <CALL '
\1aSET-TEMP 3>
7827 <NTHUV N32 5 = TEMP22 (TYPE LIST)>
7829 <NTHL TEMP22 1 = N32 (TYPE NODE)>
7833 <CALL '
\1aGEN 2 = TEMP20>
7834 <FRAME '
\1aSTRUCTYP-SEG>
7835 <NTHUV N32 3 = STACK>
7836 <CALL '
\1aSTRUCTYP-SEG 1 = SEGTYP15>
7837 <GVAL 'NO-DATUM = TEMP22>
7838 <EQUAL? TEMP22 TEMP20 + PHRASE85>
7839 <DEAD TEMP22 TEMP20>
7840 <EQUAL? SEGTYP15 'MULTI + PHRASE85>
7841 <FRAME '
\1aSEGMENT-STACK>
7843 <NTHR 'COUNTMP 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7844 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
7849 <NTHUV N32 3 = STACK>
7851 <CALL '
\1aISTYPE? 1 = STACK>
7852 <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7853 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
7855 <CALL '
\1aSEGMENT-STACK 5>
7856 <FRAME '
\1aMAKE-TAG>
7857 <CALL '
\1aMAKE-TAG 0 = TEMP22>
7858 <NTHR 'SEGLABEL 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
7859 <PUTR TEMP20 1 TEMP22 (RECORD-TYPE LBIND)>
7860 <DEAD TEMP20 TEMP22>
7863 <NTHR 'SEGCALLED 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7864 <NTHR TEMP22 1 = TEMP22 (RECORD-TYPE LBIND)>
7865 <TYPE? TEMP22 <TYPE-CODE FALSE> + PHRASE105>
7867 <FRAME '
\1aLABEL-TAG>
7868 <NTHR 'SEGLABEL 2 = TEMP22 (RECORD-TYPE ATOM) (TYPE LBIND)>
7869 <NTHR TEMP22 1 = STACK (RECORD-TYPE LBIND)>
7871 <CALL '
\1aLABEL-TAG 1>
7872 <FRAME '
\1aMAKE-TAG>
7873 <CALL '
\1aMAKE-TAG 0 = TEMP22>
7874 <NTHR 'SEGLABEL 2 = TEMP20 (RECORD-TYPE ATOM) (TYPE LBIND)>
7875 <PUTR TEMP20 1 TEMP22 (RECORD-TYPE LBIND)>
7876 <DEAD TEMP20 TEMP22>
7882 <GVAL 'POP-STACK = STACK>
7885 <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
7888 <GEN-LVAL 'CAREFUL = SEG?7>
7889 <TYPE? SEG?7 <TYPE-CODE FALSE> + PHRASE108>
7891 <VEQUAL? MX9 MN10 + PHRASE108 (TYPE FIX)>
7895 <NTHR 'COUNTMP 2 = SEG?7 (RECORD-TYPE ATOM) (TYPE LBIND)>
7896 <NTHR SEG?7 1 = STACK (RECORD-TYPE LBIND)>
7908 <SUB SEG?7 1 = SEG?7 (TYPE FIX)>
7909 <GRTR? SEG?7 0 - RESTL124 (TYPE FIX)>
7910 <LOOP (TEMP22 VALUE) (SEG?7 VALUE)>
7913 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
7914 <SUB SEG?7 1 = SEG?7 (TYPE FIX)>
7915 <GRTR? SEG?7 0 + RESTL123 (TYPE FIX)>
7917 <NTHL TEMP22 1 = K6 (TYPE LIST)>
7919 <NTHL K6 1 = SIDE-E8>
7920 <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE121>
7921 <NTHUV SIDE-E8 3 = TEMP22>
7922 <TYPE? TEMP22 <TYPE-CODE FALSE> - PHRASE121>
7924 <NTHUV SIDE-E8 4 = SEG?7 (TYPE FIX)>
7925 <VEQUAL? SEG?7 -1 + PHRASE121 (TYPE FIX)>
7927 <FRAME '
\1aUSE-TEMP>
7928 <NTHUV SIDE-E8 10 = TEMP20>
7931 <RESTL K6 1 = TEMP22 (TYPE LIST)>
7933 <NTHL TEMP22 1 = SEG?7>
7935 <TYPE? SEG?7 <TYPE-CODE FALSE> - BOOL128>
7936 <SET SEG?7 'T (TYPE ATOM)>
7940 <CALL '
\1aUSE-TEMP 2>
7952 <FRAME '
\1aGEN-TEMP>
7953 <RESTL K6 1 = TEMP22 (TYPE LIST)>
7955 <NTHL TEMP22 1 = SEG?7>
7957 <TYPE? SEG?7 <TYPE-CODE FALSE> - BOOL133>
7958 <SET SEG?7 'T (TYPE ATOM)>
7962 <CALL '
\1aGEN-TEMP 1 = TEMP20>
7965 <FRAME '
\1aSET-VALUE>
7966 <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE136>
7967 <NTHUV SIDE-E8 2 = SEG?7 (TYPE ATOM)>
7975 <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - TAG138>
7976 <NTHUV SIDE-E8 4 = SEG?7 (TYPE FIX)>
7978 <VEQUAL? SEG?7 -1 + TAG138 (TYPE FIX)>
7980 <SET SEG?7 %<> (TYPE FALSE)>
7983 <SET SEG?7 'T (TYPE ATOM)>
7987 <CALL '
\1aSET-VALUE 3>
7988 <FRAME '
\1aFREE-TEMP>
7991 <CALL '
\1aFREE-TEMP 1>
7993 <SUB VLN13 1 = VLN13 (TYPE FIX)>
7994 <VEQUAL? VLN13 0 - AGAIN119 (TYPE FIX)>
8000 <VEQUAL? SIDE-E8 0 + PHRASE148>
8002 <SET TEMP20 () (TYPE LIST)>
8003 <SET TEMP22 () (TYPE LIST)>
8004 <SET TEMP19 K6 (TYPE LIST)>
8006 <SET SEG?7 VARS11 (TYPE LIST)>
8010 <EMPL? TEMP19 + MAPAP153>
8011 <EMPL? SEG?7 + MAPAP153>
8012 <NTHL TEMP19 1 = N32>
8014 <NTHUV N32 3 = SIDE-E8>
8015 <NTHL K6 1 = SEGTYP15>
8016 <TYPE? SEGTYP15 <TYPE-CODE SYMTAB> - PHRASE162>
8018 <FRAME '
\1aTYPE-AND>
8019 <RESTL K6 1 = SEGTYP15 (TYPE LIST)>
8021 <NTHL SEGTYP15 1 = STACK>
8025 <CALL '
\1aTYPE-AND 2 = SIDE-E8>
8030 <CALL '
\1aISTYPE? 1 = SIDE-E8>
8031 <TYPE? SIDE-E8 <TYPE-CODE FALSE> + BOOL166>
8032 <FRAME '
\1aTYPEPRIM>
8034 <CALL '
\1aTYPEPRIM 1 = SEGTYP15>
8035 <EQUAL? SEGTYP15 'FIX + PHRASE170>
8036 <EQUAL? SEGTYP15 'LIST + PHRASE170>
8039 <SET SIDE-E8 'ANY (TYPE ATOM)>
8044 <FRAME '
\1aGEN-TEMP>
8047 <CALL '
\1aGEN-TEMP 1 = STACK>
8048 <CALL '
\1aGEN 2 = SEGTYP15>
8049 <CONS SEGTYP15 () = SEGTYP15 (TYPE LIST)>
8050 <EMPL? TEMP20 - TAG173>
8051 <SET TEMP20 SEGTYP15 (TYPE LIST)>
8054 <PUTREST TEMP22 SEGTYP15>
8057 <SET TEMP22 SEGTYP15 (TYPE LIST)>
8059 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
8060 <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
8063 <SET SEG?7 VARS11 (TYPE LIST)>
8065 <SET TEMP19 TEMP20 (TYPE LIST)>
8070 <EMPL? SEG?7 + MAPAP260>
8071 <EMPL? TEMP19 + MAPAP260>
8073 <NTHL TEMP19 1 = SIDE-E8>
8074 <NTHL K6 1 = TEMP22>
8076 <SET TEMP20 %<> (TYPE FALSE)>
8077 <TYPE? TEMP22 <TYPE-CODE SYMTAB> - PHRASE189>
8078 <NTHUV TEMP22 4 = SEGTYP15 (TYPE FIX)>
8079 <VEQUAL? SEGTYP15 -1 + PHRASE189 (TYPE FIX)>
8081 <SET TEMP20 'T (TYPE ATOM)>
8082 <NTHUV TEMP22 3 = SEGTYP15>
8083 <TYPE? SEGTYP15 <TYPE-CODE FALSE> - PHRASE189>
8087 <FRAME '
\1aTEM-NAME-SYM>
8090 <CALL '
\1aTEM-NAME-SYM 1 = STACK>
8093 <FRAME '
\1aFREE-TEMP>
8096 <CALL '
\1aFREE-TEMP 1>
8099 <TYPE? TEMP22 <TYPE-CODE SYMTAB> - PHRASE199>
8100 <NTHUV TEMP22 2 = TEMP22 (TYPE ATOM)>
8102 <FRAME '
\1aSET-VALUE>
8106 <VEQUAL? TEMP20 0 - TAG201>
8108 <SET SEGTYP15 'T (TYPE ATOM)>
8111 <SET SEGTYP15 %<> (TYPE FALSE)>
8115 <CALL '
\1aSET-VALUE 3>
8116 <FRAME '
\1aFREE-TEMP>
8119 <CALL '
\1aFREE-TEMP 1>
8121 <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
8122 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
8125 <SET MX9 () (TYPE LIST)>
8129 <SET VLN13 () (TYPE LIST)>
8131 <SET SIDE-E8 %<> (TYPE FALSE)>
8132 <SET SEG?7 VARS11 (TYPE LIST)>
8134 <SET TEMP19 K6 (TYPE LIST)>
8139 <EMPL? SEG?7 + MAPAP216>
8140 <EMPL? TEMP19 + MAPAP216>
8143 <NTHL K6 1 = TEMP22 (TYPE LIST)>
8145 <SET TEMP20 %<> (TYPE FALSE)>
8146 <NTHL VARS11 1 = SEGTYP15 (TYPE NODE)>
8147 <NTHL TEMP22 1 = K6>
8148 <TYPE? K6 <TYPE-CODE TEMP> + BOOL230>
8151 <RESTL VARS11 1 = STACK (TYPE LIST)>
8153 <CALL '
\1aREF? 2 = VARS11>
8154 <TYPE? VARS11 <TYPE-CODE FALSE> - PHRASE229>
8159 <CALL '
\1aREF? 2 = VARS11>
8160 <TYPE? VARS11 <TYPE-CODE FALSE> - PHRASE229>
8163 <SET SIDE-E8 'T (TYPE ATOM)>
8164 <TYPE? K6 <TYPE-CODE SYMTAB> - BOOL238>
8165 <NTHUV K6 4 = VARS11 (TYPE FIX)>
8166 <VEQUAL? VARS11 -1 + BOOL238 (TYPE FIX)>
8168 <SET TEMP20 'T (TYPE ATOM)>
8169 <NTHUV K6 3 = VARS11>
8170 <TYPE? VARS11 <TYPE-CODE FALSE> - BOOL238>
8172 <NTHUV K6 10 = TEMP22>
8173 <TYPE? TEMP22 <TYPE-CODE FALSE> - BOOL237>
8175 <TYPE? K6 <TYPE-CODE TEMP> - PHRASE236>
8187 <TYPE? K6 <TYPE-CODE SYMTAB> - PHRASE245>
8188 <NTHUV K6 2 = K6 (TYPE ATOM)>
8190 <FRAME '
\1aSET-VALUE>
8197 <CALL '
\1aGEN 2 = STACK>
8198 <VEQUAL? TEMP20 0 - TAG248>
8200 <SET VARS11 'T (TYPE ATOM)>
8203 <SET VARS11 %<> (TYPE FALSE)>
8207 <CALL '
\1aSET-VALUE 3>
8210 <CONS TEMP22 VLN13 = VLN13>
8212 <CONS SEGTYP15 MN10 = MN10>
8215 <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
8216 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
8219 <VEQUAL? SIDE-E8 0 + PHRASE252>
8221 <EMPL? VLN13 + PHRASE252 (TYPE LIST)>
8228 <EMPL? VLN13 + PHRASE254 (TYPE LIST)>
8229 <NTHL VLN13 1 = TEMP19>
8230 <CONS TEMP19 () = SEG?7>
8232 <FRAME '
\1aGEN-TEMP>
8234 <CALL '
\1aGEN-TEMP 1 = K6>
8235 <CONS K6 () = TEMP19>
8236 <PUTREST SEG?7 TEMP19>
8238 <CONS SEG?7 () = SEG?7>
8243 <RESTL VLN13 1 = SEG?7 (TYPE LIST)>
8245 <CONS K6 () = TEMP19>
8247 <CONS TEMP19 SEG?7 = VARS11>
8253 <SET SEG?7 MX9 (TYPE LIST)>
8258 <EMPL? SEG?7 + MAPAP260>
8260 <NTHL K6 1 = VARS11>
8261 <NTH1 VARS11 = SIDE-E8>
8263 <SET TEMP19 %<> (TYPE FALSE)>
8264 <RESTL K6 1 = VARS11 (TYPE LIST)>
8266 <NTHL VARS11 1 = TEMP22 (TYPE TEMP)>
8268 <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE268>
8269 <NTHUV SIDE-E8 4 = VARS11 (TYPE FIX)>
8270 <VEQUAL? VARS11 -1 + PHRASE268 (TYPE FIX)>
8272 <SET TEMP19 'T (TYPE ATOM)>
8273 <NTHUV SIDE-E8 3 = VARS11>
8274 <TYPE? VARS11 <TYPE-CODE FALSE> - PHRASE268>
8278 <NTHUV SIDE-E8 10 = STACK>
8282 <FRAME '
\1aFREE-TEMP>
8285 <CALL '
\1aFREE-TEMP 1>
8288 <TYPE? SIDE-E8 <TYPE-CODE SYMTAB> - PHRASE276>
8289 <NTHUV SIDE-E8 2 = SIDE-E8 (TYPE ATOM)>
8291 <FRAME '
\1aSET-VALUE>
8295 <VEQUAL? TEMP19 0 - TAG278>
8297 <SET VARS11 'T (TYPE ATOM)>
8300 <SET VARS11 %<> (TYPE FALSE)>
8304 <CALL '
\1aSET-VALUE 3>
8305 <FRAME '
\1aFREE-TEMP>
8308 <CALL '
\1aFREE-TEMP 1>
8310 <RESTL SEG?7 1 = SEG?7 (TYPE LIST)>
8313 <EQUAL? W5 'FLUSHED + PHRASE282>
8314 <SET SIDE-E8 %<> (TYPE FALSE)>
8315 <TYPE? LV17 <TYPE-CODE SYMTAB> - PHRASE284>
8316 <NTHUV LV17 4 = SEG?7 (TYPE FIX)>
8317 <VEQUAL? SEG?7 -1 + PHRASE284 (TYPE FIX)>
8319 <SET SIDE-E8 'T (TYPE ATOM)>
8320 <NTHUV LV17 3 = SEG?7>
8321 <TYPE? SEG?7 <TYPE-CODE FALSE> - PHRASE284>
8326 <PUSH %<OFFSET 2 TEMP>>
8327 <CALL '
\1aNTH 2 = STACK>
8329 <CALL '
\1a+ 2 = SEG?7>
8330 <PUTUV LV17 2 SEG?7>
8332 <FRAME '
\1aMOVE-ARG>
8337 <CALL '
\1aMOVE-ARG 2 = SEG?7>
8341 <TYPE? LV17 <TYPE-CODE SYMTAB> - PHRASE293>
8342 <NTHUV LV17 2 = LV17 (TYPE ATOM)>
8344 <EQUAL? W5 'DONT-CARE - PHRASE295>
8345 <FRAME '
\1aGEN-TEMP>
8347 <CALL '
\1aGEN-TEMP 1 = W5>
8349 <FRAME '
\1aGET-VALUE-X>
8354 <VEQUAL? SIDE-E8 0 - TAG298>
8356 <SET SEGTYP15 'T (TYPE ATOM)>
8359 <SET SEGTYP15 %<> (TYPE FALSE)>
8363 <CALL '
\1aGET-VALUE-X 3 = SEG?7>
8369 <END
\1aMULTI-SET-GEN>
\r\r
8371 <GFCN
\1aREF? ("VALUE" <OR ATOM FALSE> <OR ATOM SYMTAB> <LIST [REST NODE]>) SY4 L5>
8372 <TEMP TEMP15 TEMP12:LIST N17:NODE TEMP45 TEMP49>
8374 <SET TEMP15 %<> (TYPE FALSE)>
8375 <SET TEMP12 L5 (TYPE LIST)>
8380 <EMPL? TEMP12 + MAPAP10>
8381 <NTHL TEMP12 1 = N17>
8382 <NTHUV N17 1 = TEMP15 (TYPE FIX)>
8386 <VEQUAL? TEMP15 10 + BOOL25 (TYPE FIX)>
8387 <VEQUAL? TEMP15 43 + BOOL25 (TYPE FIX)>
8388 <VEQUAL? TEMP15 11 - PHRASE24 (TYPE FIX)>
8390 <NTHUV N17 4 = TEMP15>
8392 <EQUAL? TEMP15 SY4 + TAG28>
8394 <SET TEMP15 %<> (TYPE FALSE)>
8399 <VEQUAL? TEMP15 31 + BOOL31 (TYPE FIX)>
8400 <VEQUAL? TEMP15 32 - PHRASE30 (TYPE FIX)>
8402 <NTHUV N17 4 = TEMP15>
8403 <EQUAL? TEMP15 SY4 + BOOL40>
8405 <NTHUV N17 5 = TEMP15 (TYPE LIST)>
8407 <NTHL TEMP15 1 = N17 (TYPE NODE)>
8409 <NTHUV N17 1 = TEMP15 (TYPE FIX)>
8410 <VEQUAL? TEMP15 2 - PHRASE37 (TYPE FIX)>
8412 <NTHUV N17 4 = TEMP15>
8414 <EQUAL? TEMP15 SY4 + BOOL40>
8416 <SET TEMP15 %<> (TYPE FALSE)>
8419 <TYPE? SY4 <TYPE-CODE ATOM> + BOOL40>
8420 <NTHUV SY4 4 = TEMP15 (TYPE FIX)>
8421 <VEQUAL? TEMP15 -1 + BOOL40 (TYPE FIX)>
8423 <NTHUV SY4 3 = TEMP15>
8424 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE58>
8428 <LENUV N17 = TEMP45 (TYPE FIX)>
8429 <GRTR? TEMP45 8 - PHRASE43 (TYPE FIX)>
8431 <NTHUV N17 8 = TEMP45>
8432 <CHTYPE TEMP45 <TYPE-CODE LIST> = TEMP45>
8433 <EMPL? TEMP45 + PHRASE43>
8434 <LOOP (TEMP45 VALUE)>
8436 <NTHL TEMP45 1 = TEMP49>
8437 <TYPE? TEMP49 <TYPE-CODE ATOM> - TAG48>
8438 <VEQUAL? TEMP49 'ALL + TAG46>
8441 <RESTL TEMP45 1 = TEMP45 (TYPE LIST)>
8442 <EMPL? TEMP45 - TAG47>
8445 <TYPE? SY4 <TYPE-CODE ATOM> + BOOL50>
8446 <NTHUV SY4 3 = TEMP45>
8447 <TYPE? TEMP45 <TYPE-CODE FALSE> - BOOL50>
8449 <NTHUV SY4 4 = TEMP45 (TYPE FIX)>
8450 <VEQUAL? TEMP45 -1 - PHRASE43 (TYPE FIX)>
8457 <NTHUV N17 5 = STACK (TYPE LIST)>
8458 <CALL '
\1aREF? 2 = TEMP49>
8459 <TYPE? TEMP49 <TYPE-CODE FALSE> + PHRASE55>
8463 <VEQUAL? TEMP15 8 + TAG59 (TYPE FIX)>
8465 <SET TEMP15 %<> (TYPE FALSE)>
8468 <NTHUV N17 4 = N17 (TYPE NODE)>
8469 <NTHUV N17 1 = TEMP15 (TYPE FIX)>
8472 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
8479 <GFCN
\1aGEN-DISPATCH ("VALUE" ANY ANY ANY) N4 W5>
8482 <NTHUV N4 1 = TEMP92 (TYPE FIX)>
8483 <DISPATCH TEMP92 4 CASE8 CASE9 CASE10 CASE11 CASEDF6 CASE20 CASE12 CASE13 CASE14 CASE15 CASE16 CASE17 CASEDF6 CASE18 CASE19 CASE21 CASE22 CASE23 CASE24 CASE25 CASE26 CASE27 CASE28 CASE30 CASE29 CASE31 CASE32 CASE33 CASE34 CASE35 CASE36 CASE37 CASEDF6 CASE38 CASE41 CASE39 CASE40 CASE42 CASE43 CASE44 CASE83 CASE84 CASEDF6 CASE45 CASE81 CASE82 CASE53 CASEDF6 CASE46 CASE49 CASE48 CASE47 CASE51 CASE50 CASE52 CASEDF6 CASEDF6 CASE54 CASEDF6 CASE55 CASE56 CASE57 CASE58 CASE59 CASEDF6 CASE61 CASEDF6 CASEDF6 CASEDF6 CASE60 CASE62 CASEDF6 CASEDF6 CASEDF6 CASEDF6 CASE63 CASE80 CASE90 CASE66 CASE67 CASE64 CASE65 CASE68 CASE69 CASE70 CASE75 CASE71 CASE72 CASE73 CASE74 CASE76 CASE79 CASE78 CASE77 CASE85 CASE86 CASE87 CASE88 CASE89 CASE91>
8486 <FRAME '
\1aDEFAULT-GEN>
8491 <CALL '
\1aDEFAULT-GEN 2 = TEMP92>
8495 <FRAME '
\1aFORM-GEN>
8500 <CALL '
\1aFORM-GEN 2 = TEMP92>
8504 <FRAME '
\1aPROG-REP-GEN>
8509 <CALL '
\1aPROG-REP-GEN 2 = TEMP92>
8513 <FRAME '
\1aSUBR-GEN>
8518 <CALL '
\1aSUBR-GEN 2 = TEMP92>
8522 <FRAME '
\1aCOND-GEN>
8527 <CALL '
\1aCOND-GEN 2 = TEMP92>
8531 <FRAME '
\1aLVAL-GEN>
8536 <CALL '
\1aLVAL-GEN 2 = TEMP92>
8545 <CALL '
\1aSET-GEN 2 = TEMP92>
8554 <CALL '
\1aOR-GEN 2 = TEMP92>
8563 <CALL '
\1aAND-GEN 2 = TEMP92>
8567 <FRAME '
\1aRETURN-GEN>
8572 <CALL '
\1aRETURN-GEN 2 = TEMP92>
8576 <FRAME '
\1aCOPY-GEN>
8581 <CALL '
\1aCOPY-GEN 2 = TEMP92>
8585 <FRAME '
\1aAGAIN-GEN>
8590 <CALL '
\1aAGAIN-GEN 2 = TEMP92>
8594 <FRAME '
\1aARITH-GEN>
8599 <CALL '
\1aARITH-GEN 2 = TEMP92>
8603 <FRAME '
\1aSUBR-GEN>
8608 <CALL '
\1aSUBR-GEN 2 = TEMP92>
8617 <CALL '
\1a0-TEST 2 = TEMP92>
8626 <CALL '
\1aNOT-GEN 2 = TEMP92>
8635 <CALL '
\1a1?-GEN 2 = TEMP92>
8639 <FRAME '
\1aTEST-GEN>
8644 <CALL '
\1aTEST-GEN 2 = TEMP92>
8653 <CALL '
\1a==-GEN 2 = TEMP92>
8657 <FRAME '
\1aTYPE?-GEN>
8662 <CALL '
\1aTYPE?-GEN 2 = TEMP92>
8666 <FRAME '
\1aLNTH-GEN>
8671 <CALL '
\1aLNTH-GEN 2 = TEMP92>
8680 <CALL '
\1aMT-GEN 2 = TEMP92>
8684 <FRAME '
\1aREST-GEN>
8689 <CALL '
\1aREST-GEN 2 = TEMP92>
8698 <CALL '
\1aNTH-GEN 2 = TEMP92>
8707 <CALL '
\1aPUT-GEN 2 = TEMP92>
8711 <FRAME '
\1aPUTREST-GEN>
8716 <CALL '
\1aPUTREST-GEN 2 = TEMP92>
8720 <FRAME '
\1aFLVAL-GEN>
8725 <CALL '
\1aFLVAL-GEN 2 = TEMP92>
8729 <FRAME '
\1aFSET-GEN>
8734 <CALL '
\1aFSET-GEN 2 = TEMP92>
8738 <FRAME '
\1aFGVAL-GEN>
8743 <CALL '
\1aFGVAL-GEN 2 = TEMP92>
8747 <FRAME '
\1aFSETG-GEN>
8752 <CALL '
\1aFSETG-GEN 2 = TEMP92>
8761 <CALL '
\1aMIN-MAX 2 = TEMP92>
8765 <FRAME '
\1aCHTYPE-GEN>
8770 <CALL '
\1aCHTYPE-GEN 2 = TEMP92>
8779 <CALL '
\1aFIX-GEN 2 = TEMP92>
8783 <FRAME '
\1aFLOAT-GEN>
8788 <CALL '
\1aFLOAT-GEN 2 = TEMP92>
8797 <CALL '
\1aABS-GEN 2 = TEMP92>
8806 <CALL '
\1aMOD-GEN 2 = TEMP92>
8815 <CALL '
\1aID-GEN 2 = TEMP92>
8819 <FRAME '
\1aASSIGNED?-GEN>
8824 <CALL '
\1aASSIGNED?-GEN 2 = TEMP92>
8828 <FRAME '
\1aBITLOG-GEN>
8833 <CALL '
\1aBITLOG-GEN 2 = TEMP92>
8837 <FRAME '
\1aSUBR-GEN>
8842 <CALL '
\1aSUBR-GEN 2 = TEMP92>
8851 <CALL '
\1aID-GEN 2 = TEMP92>
8855 <FRAME '
\1aREAD2-GEN>
8860 <CALL '
\1aREAD2-GEN 2 = TEMP92>
8864 <FRAME '
\1aSUBR-GEN>
8869 <CALL '
\1aSUBR-GEN 2 = TEMP92>
8873 <FRAME '
\1aGET2-GEN>
8878 <CALL '
\1aGET2-GEN 2 = TEMP92>
8887 <CALL '
\1aGET-GEN 2 = TEMP92>
8891 <FRAME '
\1aSUBR-GEN>
8896 <CALL '
\1aSUBR-GEN 2 = TEMP92>
8900 <FRAME '
\1aMAPFR-GEN>
8905 <CALL '
\1aMAPFR-GEN 2 = TEMP92>
8909 <FRAME '
\1aMPARGS-GEN>
8914 <CALL '
\1aMPARGS-GEN 2 = TEMP92>
8918 <FRAME '
\1aMAPLEAVE-GEN>
8923 <CALL '
\1aMAPLEAVE-GEN 2 = TEMP92>
8927 <FRAME '
\1aMAPRET-STOP-GEN>
8932 <CALL '
\1aMAPRET-STOP-GEN 2 = TEMP92>
8936 <FRAME '
\1aUNWIND-GEN>
8941 <CALL '
\1aUNWIND-GEN 2 = TEMP92>
8945 <FRAME '
\1aGVAL-GEN>
8950 <CALL '
\1aGVAL-GEN 2 = TEMP92>
8954 <FRAME '
\1aSETG-GEN>
8959 <CALL '
\1aSETG-GEN 2 = TEMP92>
8963 <FRAME '
\1aMEMQ-GEN>
8968 <CALL '
\1aMEMQ-GEN 2 = TEMP92>
8972 <FRAME '
\1aLENGTH?-GEN>
8977 <CALL '
\1aLENGTH?-GEN 2 = TEMP92>
8981 <FRAME '
\1aFORM-F-GEN>
8986 <CALL '
\1aFORM-F-GEN 2 = TEMP92>
8990 <FRAME '
\1aALL-REST-GEN>
8995 <CALL '
\1aALL-REST-GEN 2 = TEMP92>
8999 <FRAME '
\1aLIST-BUILD>
9004 <CALL '
\1aLIST-BUILD 2 = TEMP92>
9013 <CALL '
\1aPUT-GEN 2 = TEMP92>
9017 <FRAME '
\1aBACK-GEN>
9022 <CALL '
\1aBACK-GEN 2 = TEMP92>
9031 <CALL '
\1aTOP-GEN 2 = TEMP92>
9040 <CALL '
\1aROT-GEN 2 = TEMP92>
9049 <CALL '
\1aLSH-GEN 2 = TEMP92>
9053 <FRAME '
\1aBIT-TEST-GEN>
9058 <CALL '
\1aBIT-TEST-GEN 2 = TEMP92>
9062 <FRAME '
\1aCALL-GEN>
9067 <CALL '
\1aCALL-GEN 2 = TEMP92>
9071 <FRAME '
\1aMONAD?-GEN>
9076 <CALL '
\1aMONAD?-GEN 2 = TEMP92>
9080 <FRAME '
\1aGASSIGNED?-GEN>
9085 <CALL '
\1aGASSIGNED?-GEN 2 = TEMP92>
9089 <FRAME '
\1aAPPLY-GEN>
9094 <CALL '
\1aAPPLY-GEN 2 = TEMP92>
9098 <FRAME '
\1aADECL-GEN>
9103 <CALL '
\1aADECL-GEN 2 = TEMP92>
9107 <FRAME '
\1aMULTI-RETURN-GEN>
9112 <CALL '
\1aMULTI-RETURN-GEN 2 = TEMP92>
9116 <FRAME '
\1aVALID-TYPE?-GEN>
9121 <CALL '
\1aVALID-TYPE?-GEN 2 = TEMP92>
9125 <FRAME '
\1aTYPE-C-GEN>
9130 <CALL '
\1aTYPE-C-GEN 2 = TEMP92>
9134 <FRAME '
\1a=?-STRING-GEN>
9139 <CALL '
\1a=?-STRING-GEN 2 = TEMP92>
9143 <FRAME '
\1aCASE-GEN>
9148 <CALL '
\1aCASE-GEN 2 = TEMP92>
9152 <FRAME '
\1aFGETBITS-GEN>
9157 <CALL '
\1aFGETBITS-GEN 2 = TEMP92>
9161 <FRAME '
\1aFPUTBITS-GEN>
9166 <CALL '
\1aFPUTBITS-GEN 2 = TEMP92>
9170 <FRAME '
\1aISTRUC-GEN>
9175 <CALL '
\1aISTRUC-GEN 2 = TEMP92>
9179 <FRAME '
\1aISTRUC-GEN>
9184 <CALL '
\1aISTRUC-GEN 2 = TEMP92>
9188 <FRAME '
\1aSTACK-GEN>
9193 <CALL '
\1aSTACK-GEN 2 = TEMP92>
9197 <FRAME '
\1aCHANNEL-OP-GEN>
9202 <CALL '
\1aCHANNEL-OP-GEN 2 = TEMP92>
9206 <FRAME '
\1aATOM-PART-GEN>
9211 <CALL '
\1aATOM-PART-GEN 2 = TEMP92>
9215 <FRAME '
\1aOFFSET-PART-GEN>
9220 <CALL '
\1aOFFSET-PART-GEN 2 = TEMP92>
9224 <FRAME '
\1aPUT-GET-DECL-GEN>
9229 <CALL '
\1aPUT-GET-DECL-GEN 2 = TEMP92>
9233 <FRAME '
\1aSUBSTRUC-GEN>
9238 <CALL '
\1aSUBSTRUC-GEN 2 = TEMP92>
9242 <FRAME '
\1aMULTI-SET-GEN>
9247 <CALL '
\1aMULTI-SET-GEN 2 = TEMP92>
9250 <END
\1aGEN-DISPATCH>
\r\r