5 <GFCN
\1aMIMOC ("VALUE" ATOM <LIST [REST <OR FORM ATOM>]> "OPTIONAL" ANY) CODLIST6 NEW-MSUBR7>
6 <OPT-DISPATCH 1 %<> OPT4 OPT5>
10 <TEMP TEMP3:LBIND LABEL?19 FROB?20 FIRST?21 PROTECT?22 TEMP26 CODITEM16 PPTR17 NUM14 TF23 OUTST73 TEMP85 STATUS8>
12 <GETS 'BIND = TEMP3 (TYPE LBIND)>
13 <BBIND 'CODPTR 'LIST 'FIX CODLIST6>
15 <FRAME '
\1aINIT-ALL-STUFF>
18 <CALL '
\1aINIT-ALL-STUFF 1>
20 <SET LABEL?19 %<> (TYPE FALSE)>
21 <SET FROB?20 %<> (TYPE FALSE)>
22 <SET FIRST?21 'T (TYPE ATOM)>
23 <SET PROTECT?22 %<> (TYPE FALSE)>
27 <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
28 <NTHR TEMP26 1 = PROTECT?22 (RECORD-TYPE LBIND)>
30 <NTHL PROTECT?22 1 = CODITEM16>
32 <NTHR 'CODPTR 2 = PROTECT?22 (RECORD-TYPE ATOM) (TYPE LBIND)>
33 <NTHR PROTECT?22 1 = PPTR17 (RECORD-TYPE LBIND)>
35 <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
36 <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
37 <RESTL TEMP26 1 = PROTECT?22 (TYPE LIST)>
39 <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
40 <PUTR TEMP26 1 PROTECT?22 (RECORD-TYPE LBIND)>
41 <DEAD TEMP26 PROTECT?22>
42 <NTHR 'MAX-SPACE 1 = PROTECT?22 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL35)>
43 <TYPE? PROTECT?22 <TYPE-CODE FALSE> + BOOL35>
44 <NTHR PROTECT?22 1 = PROTECT?22 (RECORD-TYPE GBIND)>
45 <TYPE? PROTECT?22 <TYPE-CODE UNBOUND> + BOOL35>
47 <GVAL 'MAX-SPACE = PROTECT?22>
48 <TYPE? PROTECT?22 <TYPE-CODE FALSE> + BOOL35>
53 <GVAL 'FLUSH-NEXT = PROTECT?22>
54 <GRTR? PROTECT?22 0 - COND40 (TYPE FIX)>
56 <GVAL 'FLUSH-NEXT = PROTECT?22>
57 <SUB PROTECT?22 1 = PROTECT?22 (TYPE FIX)>
58 <SETG 'FLUSH-NEXT PROTECT?22>
60 <NTHR 'CODPTR 2 = PROTECT?22 (RECORD-TYPE ATOM) (TYPE LBIND)>
61 <NTHR PROTECT?22 1 = PROTECT?22 (RECORD-TYPE LBIND)>
62 <EMPL? PROTECT?22 - AGAIN24 (TYPE LIST)>
66 <FRAME '
\1aUNPROTECT-ACS>
67 <CALL '
\1aUNPROTECT-ACS 0>
68 <FRAME '
\1aCLEAR-DEATH>
69 <CALL '
\1aCLEAR-DEATH 0>
73 <CALL '
\1aGETPROP 2 = PROTECT?22>
74 <TYPE? PROTECT?22 <TYPE-CODE FALSE> - COND46>
76 <TYPE? CODITEM16 <TYPE-CODE FORM> - PHRASE48>
77 <NTHL CODITEM16 1 = PROTECT?22 (TYPE ATOM)>
78 <NTHR PROTECT?22 1 = TEMP26 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL51)>
80 <TYPE? TEMP26 <TYPE-CODE FALSE> + BOOL51>
81 <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE GBIND)>
82 <TYPE? TEMP26 <TYPE-CODE UNBOUND> + BOOL51>
84 <NTHL CODITEM16 1 = TEMP26 (TYPE ATOM)>
87 <TYPE? NUM14 <TYPE-CODE FIX> + PHRASE50>
94 <LESS? NUM14 0 - PHRASE54>
95 <SET PROTECT?22 'T (TYPE ATOM)>
96 <TYPE? NUM14 <TYPE-CODE FIX> - TAG57>
97 <SUB 0 NUM14 = NUM14 (TYPE FIX)>
100 <SUBF 0.0 NUM14 = NUM14 (TYPE FLOAT)>
103 <SET PROTECT?22 %<> (TYPE FALSE)>
105 <GVAL 'OP-APPLY-VECTOR = TEMP26>
106 <NTHUV TEMP26 NUM14 = PPTR17>
108 <NTHL CODITEM16 1 = TEMP26>
109 <EQUAL? TEMP26 'CALL!-MIMOP + BOOL61>
111 <NTHL CODITEM16 1 = TEMP26>
112 <EQUAL? TEMP26 'FRAME!-MIMOP + BOOL61>
115 <CHTYPE TF23 <TYPE-CODE LIST> = TF23>
118 <NTHL TF23 1 = TEMP26>
119 <TYPE? TEMP26 <TYPE-CODE ATOM> - TAG66>
120 <VEQUAL? TEMP26 '+ + TAG68>
123 <RESTL TF23 1 = TF23 (TYPE LIST)>
126 <CHTYPE TF23 <TYPE-CODE LIST> = TF23>
129 <NTHL TF23 1 = TEMP26>
130 <TYPE? TEMP26 <TYPE-CODE ATOM> - TAG70>
131 <VEQUAL? TEMP26 '- + TAG68>
134 <RESTL TF23 1 = TF23 (TYPE LIST)>
136 <SET TF23 %<> (TYPE FALSE)>
138 <VEQUAL? TF23 0 + BOOL61>
139 <GVAL 'OUTST-LABEL-TABLE = OUTST73>
140 <RESTL TF23 1 = TF23 (TYPE LIST)>
141 <NTHL TF23 1 = TEMP26>
143 <SET TEMP85 %<> (TYPE FALSE)>
144 <SET TF23 OUTST73 (TYPE VECTOR)>
149 <EMPUV? TF23 + MAPAP81>
150 <NTHUV TF23 1 = OUTST73>
151 <NTHUV OUTST73 1 = TEMP85>
152 <EQUAL? TEMP85 TEMP26 + TAG90>
154 <SET TEMP85 %<> (TYPE FALSE)>
157 <NTHUV OUTST73 5 = TEMP85>
159 <TYPE? TEMP85 <TYPE-CODE FALSE> + PHRASE93>
161 <SET TEMP26 'T (TYPE ATOM)>
164 <SET TEMP26 %<> (TYPE FALSE)>
167 <RESTUV TF23 1 = TF23 (TYPE VECTOR)>
173 <TYPE? TEMP26 <TYPE-CODE FALSE> - COND60>
176 <FRAME '
\1aSET-DEATH>
177 <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
178 <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
180 <CALL '
\1aSET-DEATH 1>
182 <VEQUAL? NUM14 -1 - PHRASE99 (TYPE FIX)>
184 <PUSH "BAD OPERATION">
189 <GVAL 'DEAD!-MIMOP = TEMP26>
190 <EQUAL? TEMP26 NUM14 - PHRASE104>
192 <VEQUAL? LABEL?19 0 - PHRASE104>
194 <SET LABEL?19 STATUS8>
198 <SET LABEL?19 %<> (TYPE FALSE)>
200 <VEQUAL? FIRST?21 0 + PHRASE107>
201 <SET FIRST?21 %<> (TYPE FALSE)>
202 <SET FROB?20 %<> (TYPE FALSE)>
205 <TYPE? FROB?20 <TYPE-CODE FALSE> - PHRASE110>
206 <FRAME '
\1aFIRST-PROCESS>
207 <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
208 <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
210 <CALL '
\1aFIRST-PROCESS 1 = FROB?20>
211 <EQUAL? FROB?20 'TEMP!-MIMOP + PHRASE110>
212 <FRAME '
\1aILDB-LOOKAHEAD>
213 <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
214 <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
216 <CALL '
\1aILDB-LOOKAHEAD 1>
218 <GVAL 'PASS-OPS = TF23>
219 <EMPUU? TF23 + PHRASE118>
220 <LOOP (NUM14 VALUE) (TF23 LENGTH VALUE)>
222 <NTHUU TF23 1 = TEMP26>
223 <VEQUAL? TEMP26 NUM14 + TAG119>
225 <RESTUU TF23 1 = TF23 (TYPE UVECTOR)>
226 <EMPUU? TF23 - TAG120>
230 <SET TEMP26 0 (TYPE FIX)>
231 <RESTL CODITEM16 1 = TF23 (TYPE LIST)>
232 <CHTYPE TF23 <TYPE-CODE LIST> = TF23>
233 <LOOP (TF23 VALUE) (TEMP26 VALUE)>
236 <EMPL? TF23 + TAG122>
237 <NTHL TF23 1 = STACK>
238 <RESTL TF23 1 = TF23 (TYPE LIST)>
239 <ADD TEMP26 1 = TEMP26 (TYPE FIX)>
242 <ACALL PPTR17 TEMP26 = STATUS8>
246 <FRAME '
\1aPROCESS-ARGS>
247 <RESTL CODITEM16 1 = TF23 (TYPE LIST)>
248 <CHTYPE TF23 <TYPE-CODE LIST> = STACK>
253 <CALL '
\1aPROCESS-ARGS 3 = OUTST73>
255 <SET TF23 0 (TYPE FIX)>
258 <LOOP (TEMP26 VALUE LENGTH) (TF23 VALUE)>
261 <EMPUV? TEMP26 + TAG127>
262 <NTHUV TEMP26 1 = STACK>
263 <RESTUV TEMP26 1 = TEMP26 (TYPE VECTOR)>
264 <ADD TF23 1 = TF23 (TYPE FIX)>
267 <ACALL PPTR17 TF23 = STATUS8>
270 <TYPE? FROB?20 <TYPE-CODE FALSE> + BOOL132>
271 <NTHL CODITEM16 1 = TEMP26>
272 <EQUAL? TEMP26 'MAKTUP!-MIMOP + BOOL132>
274 <NTHL CODITEM16 1 = TEMP26>
276 <EQUAL? TEMP26 'OPT-DISPATCH!-MIMOP - PHRASE134>
279 <FRAME '
\1aFIRST-PROCESS>
280 <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
281 <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
283 <CALL '
\1aFIRST-PROCESS 1 = FROB?20>
284 <EQUAL? FROB?20 'TEMP!-MIMOP + PHRASE134>
285 <FRAME '
\1aILDB-LOOKAHEAD>
286 <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
287 <NTHR TEMP26 1 = STACK (RECORD-TYPE LBIND)>
289 <CALL '
\1aILDB-LOOKAHEAD 1>
291 <TYPE? LABEL?19 <TYPE-CODE FALSE> + PHRASE142>
292 <SET STATUS8 LABEL?19>
294 <SET LABEL?19 %<> (TYPE FALSE)>
297 <TYPE? STATUS8 <TYPE-CODE FALSE> - PHRASE143>
298 <SET STATUS8 'NORMAL (TYPE ATOM)>
300 <SET LABEL?19 %<> (TYPE FALSE)>
303 <TYPE? CODITEM16 <TYPE-CODE ATOM> - PHRASE144>
304 <SET LABEL?19 'T (TYPE ATOM)>
305 <FRAME '
\1aGEN-LABEL>
309 <CALL '
\1aGEN-LABEL 2>
313 <PUSH "BAD CODE ITEM">
317 <NTHR 'CODPTR 2 = TEMP26 (RECORD-TYPE ATOM) (TYPE LBIND)>
318 <NTHR TEMP26 1 = TEMP26 (RECORD-TYPE LBIND)>
319 <EMPL? TEMP26 - AGAIN24 (TYPE LIST)>
322 <FRAME '
\1aPUSH-TEMPS>
323 <CALL '
\1aPUSH-TEMPS 0>
330 <GFCN
\1aSET-DEATH ("VALUE" ANY LIST "OPTIONAL" ANY) CODPTR6 REALLY-DEAD7>
331 <OPT-DISPATCH 1 %<> OPT4 OPT5>
335 <TEMP N8:FIX TEMP18 TEMP15:LIST CODITEM20 TEMP45:LIST>
337 <GVAL 'FLUSH-NEXT = N8>
338 <SET TEMP18 %<> (TYPE FALSE)>
339 <SET TEMP15 CODPTR6 (TYPE LIST)>
344 <EMPL? TEMP15 + MAPAP13>
345 <NTHL TEMP15 1 = CODITEM20>
346 <TYPE? CODITEM20 <TYPE-CODE FORM> - PHRASE23>
347 <SUB N8 1 = N8 (TYPE FIX)>
348 <LESS? N8 0 + TAG27 (TYPE FIX)>
349 <SET TEMP18 %<> (TYPE FALSE)>
355 <CALL '
\1aGETPROP 2 = TEMP18>
356 <TYPE? TEMP18 <TYPE-CODE FALSE> + TAG32>
358 <SET TEMP18 %<> (TYPE FALSE)>
361 <NTHL CODITEM20 1 = TEMP18>
362 <EQUAL? TEMP18 'DEAD!-MIMOP - PHRASE34>
364 <SET TEMP18 %<> (TYPE FALSE)>
365 <RESTL CODITEM20 1 = TEMP45 (TYPE LIST)>
367 <CHTYPE TEMP45 <TYPE-CODE LIST> = TEMP45>
371 <EMPL? TEMP45 + MAPAP39>
372 <NTHL TEMP45 1 = CODITEM20>
373 <TYPE? CODITEM20 <TYPE-CODE VARTBL> + TAG49>
374 <SET TEMP18 %<> (TYPE FALSE)>
377 <PUTUV CODITEM20 5 'T>
378 <SET TEMP18 REALLY-DEAD7>
379 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE52>
383 <CALL '
\1aDEAD-VAR 1 = TEMP18>
385 <RESTL TEMP45 1 = TEMP45 (TYPE LIST)>
394 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
400 <SETG ARGVEC <IVECTOR ,MAX-NUMBER-ARGS>>
403 <GFCN
\1aFIRST-PROCESS ("VALUE" <OR ATOM FALSE <LIST ANY>> <LIST [REST <OR FORM ATOM>]>) L4>
404 <TEMP FP6 TEMP13:LIST X18 TEMP33 TEMP34 PTR36:LIST>
406 <SET FP6 %<> (TYPE FALSE)>
407 <SET TEMP13 L4 (TYPE LIST)>
412 <EMPL? TEMP13 + MAPAP11>
413 <NTHL TEMP13 1 = X18>
414 <TYPE? X18 <TYPE-CODE FORM> + TAG22>
415 <SET FP6 %<> (TYPE FALSE)>
418 <NTHL X18 1 = FP6 (TYPE ATOM)>
419 <NTHR FP6 1 = FP6 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG26)>
420 <TYPE? FP6 <TYPE-CODE FALSE> + TAG26>
421 <NTHR FP6 1 = FP6 (RECORD-TYPE GBIND)>
422 <TYPE? FP6 <TYPE-CODE UNBOUND> - TAG25>
425 <SET FP6 %<> (TYPE FALSE)>
428 <NTHL X18 1 = FP6 (TYPE ATOM)>
431 <GVAL 'PASS-OPS = FP6>
432 <TYPE? TEMP33 <TYPE-CODE FIX> - TAG30>
434 <LOOP (TEMP33 VALUE) (FP6 LENGTH VALUE)>
436 <NTHUU FP6 1 = TEMP34>
437 <VEQUAL? TEMP34 TEMP33 + PHRASE29>
439 <RESTUU FP6 1 = FP6 (TYPE UVECTOR)>
442 <RESTL X18 1 = PTR36 (TYPE LIST)>
443 <CHTYPE PTR36 <TYPE-CODE LIST> = PTR36>
447 <EMPL? PTR36 - PHRASE42 (TYPE LIST)>
448 <SET FP6 'T (TYPE ATOM)>
452 <EQUAL? FP6 '= - PHRASE44>
453 <CHTYPE FP6 <TYPE-CODE RES-IND> = TEMP33>
455 <PUTL PTR36 1 TEMP33>
457 <RESTL PTR36 1 = PTR36 (TYPE LIST)>
459 <EQUAL? FP6 'STACK + PHRASE59>
463 <CALL '
\1aFIND-VAR 1 = FP6>
464 <TYPE? FP6 <TYPE-CODE FALSE> + PHRASE46>
470 <PUSH "NOT A VARIABLE">
471 <NTHL PTR36 1 = STACK>
476 <TYPE? FP6 <TYPE-CODE ATOM> - PHRASE49>
480 <CALL '
\1aFIND-VAR 1 = FP6>
481 <TYPE? FP6 <TYPE-CODE FALSE> + PHRASE59>
487 <TYPE? FP6 <TYPE-CODE FORM> - PHRASE53>
488 <EMPL? FP6 + PHRASE53>
489 <RESTL FP6 1 = TEMP33 (TYPE LIST)>
490 <EMPL? TEMP33 + PHRASE53>
491 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
492 <EMPL? TEMP33 - PHRASE53>
494 <NTHL FP6 1 = TEMP33>
495 <EQUAL? TEMP33 'TYPE - PHRASE53>
497 <NTHL X18 1 = TEMP33>
498 <EQUAL? TEMP33 'CHTYPE!-MIMOP - PHRASE53>
501 <RESTL FP6 1 = TEMP33 (TYPE LIST)>
503 <NTHL TEMP33 1 = STACK>
505 <CALL '
\1aFIND-VAR 1 = FP6>
506 <TYPE? FP6 <TYPE-CODE FALSE> + PHRASE59>
510 <CALL '
\1aFORM 2 = TEMP33>
511 <PUTL PTR36 1 TEMP33>
517 <TYPE? FP6 <TYPE-CODE FORM> - PHRASE59>
518 <EMPL? FP6 + PHRASE59>
519 <RESTL FP6 1 = TEMP33 (TYPE LIST)>
520 <EMPL? TEMP33 + PHRASE59>
521 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
522 <EMPL? TEMP33 - PHRASE59>
524 <NTHL FP6 1 = TEMP34>
525 <EQUAL? TEMP34 'QUOTE + BOOL61>
526 <EQUAL? TEMP34 'TYPE-CODE - PHRASE59>
528 <RESTL FP6 1 = TEMP33 (TYPE LIST)>
529 <NTHL TEMP33 1 = TEMP33>
530 <TYPE? TEMP33 <TYPE-CODE ATOM> - PHRASE59>
532 <RESTL FP6 1 = TEMP33 (TYPE LIST)>
534 <NTHL TEMP33 1 = FP6 (TYPE ATOM)>
536 <EQUAL? TEMP34 'TYPE-CODE - BOOL62>
538 <FRAME '
\1aCHECK-MIMOP-TYPE>
540 <CALL '
\1aCHECK-MIMOP-TYPE 1 = TEMP34>
541 <TYPE? TEMP34 <TYPE-CODE FALSE> + BOOL62>
548 <RESTL PTR36 1 = PTR36 (TYPE LIST)>
551 <NTHL X18 1 = TEMP33 (TYPE ATOM)>
552 <VEQUAL? TEMP33 'TEMP!-MIMOP - PHRASE64>
554 <GETS 'BIND = TEMP33 (TYPE LBIND)>
555 <BBIND 'FIRST-PROCESS? 'ATOM 'FIX 'T>
556 <FRAME '
\1aTEMP-PROCESS>
557 <SET FP6 0 (TYPE FIX)>
558 <RESTL X18 1 = TEMP34 (TYPE LIST)>
559 <CHTYPE TEMP34 <TYPE-CODE LIST> = TEMP34>
560 <LOOP (TEMP34 VALUE) (FP6 VALUE)>
563 <EMPL? TEMP34 + TAG68>
564 <NTHL TEMP34 1 = STACK>
565 <RESTL TEMP34 1 = TEMP34 (TYPE LIST)>
566 <ADD FP6 1 = FP6 (TYPE FIX)>
569 <CALL '
\1aTEMP-PROCESS FP6>
574 <SET FP6 %<> (TYPE FALSE)>
575 <RESTL X18 1 = TEMP33 (TYPE LIST)>
577 <CHTYPE TEMP33 <TYPE-CODE LIST> = TEMP33>
581 <EMPL? TEMP33 + MAPAP76>
584 <TYPE? FP6 <TYPE-CODE LIST> - PHRASE84>
586 <TYPE? X18 <TYPE-CODE ADECL> - PHRASE86>
589 <NTHL FP6 1 = X18 (TYPE ADECL)>
590 <NTHUV X18 1 = STACK>
592 <CALL '
\1aFIND-VAR 1 = X18>
599 <CALL '
\1aFIND-VAR 1 = X18>
604 <TYPE? FP6 <TYPE-CODE ADECL> - PHRASE91>
606 <NTHUV FP6 1 = STACK>
608 <CALL '
\1aFIND-VAR 1 = X18>
618 <CALL '
\1aFIND-VAR 1 = X18>
624 <RESTL TEMP33 1 = TEMP33 (TYPE LIST)>
629 <NTHL X18 1 = TEMP33 (TYPE ATOM)>
630 <VEQUAL? TEMP33 'MAKTUP!-MIMOP + TAG97>
632 <NTHL X18 1 = TEMP33 (TYPE ATOM)>
634 <VEQUAL? TEMP33 'OPT-DISPATCH!-MIMOP + TAG97>
636 <SET FP6 %<> (TYPE FALSE)>
639 <RETURN 'TEMP!-MIMOP>
641 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
646 <END
\1aFIRST-PROCESS>
648 <GFCN
\1aPROCESS-ARGS ("VALUE" VECTOR LIST FIX ANY) LST4 NUM5 PROTECT?6>
649 <TEMP (CNT7:FIX 1) ARGS8 PTR14 ITEM15 TEMP24 TEMP29>
651 <GVAL 'ARGVEC = ARGS8>
652 <SETG 'HAS-RESULT %<>>
658 <EMPL? PTR14 + EXIT12 (TYPE LIST)>
659 <NTHL PTR14 1 = ITEM15>
660 <TYPE? ITEM15 <TYPE-CODE RES-IND> - PHRASE20>
661 <RESTL PTR14 1 = PTR14 (TYPE LIST)>
662 <NTHL PTR14 1 = ITEM15>
663 <GVAL 'CHANNEL-OP!-MIMOP = TEMP24>
664 <EQUAL? TEMP24 NUM5 + BOOL23>
666 <GVAL 'DOUBLE!-MIMOP = TEMP24>
667 <EQUAL? TEMP24 NUM5 - PHRASE22>
670 <SETG 'HAS-RESULT ITEM15>
672 <RESTL PTR14 1 = PTR14 (TYPE LIST)>
675 <EQUAL? ITEM15 'STACK + PHRASE34>
676 <GVAL 'DEAD-MIM-CODES = TEMP24>
677 <EMPUU? TEMP24 + PHRASE34>
678 <LOOP (NUM5 VALUE) (TEMP24 LENGTH VALUE)>
680 <NTHUU TEMP24 1 = TEMP29>
681 <VEQUAL? TEMP29 NUM5 + TAG26>
683 <RESTUU TEMP24 1 = TEMP24 (TYPE UVECTOR)>
684 <EMPUU? TEMP24 - TAG27>
690 <TYPE? ITEM15 <TYPE-CODE VARTBL> - PHRASE30>
691 <TYPE? PROTECT?6 <TYPE-CODE FALSE> + PHRASE32>
692 <FRAME '
\1aPROTECT-VAL>
694 <CALL '
\1aPROTECT-VAL 1>
699 <TYPE? ITEM15 <TYPE-CODE FORM> - PHRASE34>
700 <EMPL? ITEM15 + PHRASE34>
701 <RESTL ITEM15 1 = TEMP24 (TYPE LIST)>
702 <EMPL? TEMP24 + PHRASE34>
703 <RESTL TEMP24 1 = TEMP24 (TYPE LIST)>
704 <EMPL? TEMP24 - PHRASE34>
706 <NTHL ITEM15 1 = TEMP24>
707 <EQUAL? TEMP24 'TYPE - PHRASE34>
709 <GVAL 'CHTYPE!-MIMOP = TEMP24>
710 <EQUAL? TEMP24 NUM5 - PHRASE34>
712 <TYPE? PROTECT?6 <TYPE-CODE FALSE> + PHRASE37>
713 <FRAME '
\1aPROTECT-VAL>
714 <RESTL ITEM15 1 = TEMP24 (TYPE LIST)>
715 <NTHL TEMP24 1 = STACK>
717 <CALL '
\1aPROTECT-VAL 1>
719 <RESTL ITEM15 1 = TEMP24 (TYPE LIST)>
720 <NTHL TEMP24 1 = TEMP24 (TYPE VARTBL)>
724 <LENUV ARGS8 = TEMP24 (TYPE FIX)>
725 <GRTR? CNT7 TEMP24 - PHRASE40 (TYPE FIX)>
727 <LENUV ARGS8 = TEMP24 (TYPE FIX)>
728 <ADD TEMP24 50 = TEMP24 (TYPE FIX)>
729 <UUBLOCK <TYPE-CODE VECTOR> TEMP24 = TEMP29 (TYPE VECTOR)>
731 <SETG 'ARGVEC TEMP29>
733 <LENUV ARGS8 = TEMP29 (TYPE FIX)>
734 <GVAL 'ARGVEC = TEMP24>
735 <MOVE-WORDS ARGS8 TEMP24 TEMP29 (TYPE VECTOR) (DIRECTION %<>)>
740 <PUTUV ARGS8 CNT7 ITEM15>
742 <ADD CNT7 1 = CNT7 (TYPE FIX)>
743 <RESTL PTR14 1 = PTR14 (TYPE LIST)>
746 <LENUV ARGS8 = TEMP24 (TYPE FIX)>
747 <SUB CNT7 1 = TEMP29 (TYPE FIX)>
748 <SUB TEMP24 TEMP29 = PTR14 (TYPE FIX)>
750 <SUB CNT7 1 = TEMP29 (TYPE FIX)>
752 <RESTUV ARGS8 PTR14 = TEMP24 (TYPE VECTOR)>
754 <MOVE-WORDS ARGS8 TEMP24 TEMP29 (TYPE VECTOR) (DIRECTION %<>)>
758 <END
\1aPROCESS-ARGS>
759 <GDECL (DEAD-MIM-CODES) <UVECTOR [REST FIX]>>
762 <GFCN
\1aINIT-ALL-STUFF ("VALUE" ANY BOOLEAN) RESET-ALL4>
765 <SETG 'MAKTUP-FLAG %<>>
766 <SETG 'ICALL-LEVEL 0>
767 <FRAME '
\1aRESET-AC-STACK-MODEL>
768 <CALL '
\1aRESET-AC-STACK-MODEL 0>
769 <FRAME '
\1aRESET-CODE>
770 <CALL '
\1aRESET-CODE 0>
771 <TYPE? RESET-ALL4 <TYPE-CODE FALSE> + PHRASE8>
772 <FRAME '
\1aRESET-FCODE>
773 <CALL '
\1aRESET-FCODE 0>
774 <FRAME '
\1aRESET-CONSTANTS>
775 <CALL '
\1aRESET-CONSTANTS 0>
776 <FRAME '
\1aINIT-MVEC-STUFF>
777 <CALL '
\1aINIT-MVEC-STUFF 0>
778 <FRAME '
\1aINIT-UNRESOLVED-CALLS>
779 <CALL '
\1aINIT-UNRESOLVED-CALLS 0>
780 <FRAME '
\1aINIT-CALL-ENTRYS>
781 <CALL '
\1aINIT-CALL-ENTRYS 0>
783 <FRAME '
\1aINIT-LABEL-TABLE>
786 <CALL '
\1aINIT-LABEL-TABLE 1>
787 <FRAME '
\1aRESET-CALL-TABLE>
788 <CALL '
\1aRESET-CALL-TABLE 0>
789 <FRAME '
\1aINIT-VAR-LIST>
790 <CALL '
\1aINIT-VAR-LIST 0>
791 <FRAME '
\1aINIT-INTERNAL-ENTRYS>
792 <CALL '
\1aINIT-INTERNAL-ENTRYS 0>
793 <SETG 'TEMP-PATCH -1>
794 <FRAME '
\1aRESET-FRAME-LABEL-TABLE>
795 <CALL '
\1aRESET-FRAME-LABEL-TABLE 0>
796 <FRAME '
\1aINIT-PATCH-TABLE>
797 <CALL '
\1aINIT-PATCH-TABLE 0>
798 <FRAME '
\1aRESET-PUSH-LABEL-TABLE>
799 <CALL '
\1aRESET-PUSH-LABEL-TABLE 0>
800 <FRAME '
\1aRESET-MOVE-LABEL-TABLE>
801 <CALL '
\1aRESET-MOVE-LABEL-TABLE 0 = TEMP22>
804 <END
\1aINIT-ALL-STUFF>
806 <GFCN
\1aFCN-PROCESS ("VALUE" ATOM ANY LIST "TUPLE" <<PRIMTYPE VECTOR> [REST ATOM]>) NAME4 DCLS5>
807 <MAKTUP VARS6 (VARLST7:LIST ()) (NVARLST8:LIST ()) LAB9 TEMP13 TEMP14:STRING TEMP15 TEMP16 TEMP17 = VARS6>
809 <FRAME '
\1aMAKE-LABEL>
811 <CALL '
\1aMAKE-LABEL 1 = LAB9>
812 <SETG 'FUNCTION-DECL DCLS5>
813 <NTHL DCLS5 1 = TEMP13>
814 <TYPE? TEMP13 <TYPE-CODE STRING> - PHRASE12>
815 <IFCAN "STRING-EQUAL?">
816 <STRING-EQUAL? TEMP13 "VALUE" - PHRASE12>
817 <ENDIF "STRING-EQUAL?">
818 <IFCANNOT "STRING-EQUAL?">
819 <SET TEMP14 "VALUE" (TYPE STRING)>
820 <LENUS TEMP13 = TEMP15 (TYPE FIX)>
821 <VEQUAL? TEMP15 5 - PHRASE12>
822 <LOOP (TEMP13 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP15 VALUE)>
824 <NTHUS TEMP13 1 = TEMP16>
825 <NTHUS TEMP14 1 = TEMP17>
826 <VEQUAL? TEMP16 TEMP17 - PHRASE12>
828 <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
829 <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
830 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
831 <GRTR? TEMP15 0 + TAG18 (TYPE FIX)>
832 <ENDIF "STRING-EQUAL?">
833 <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
834 <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
836 <SETG 'FUNCTION-NAME NAME4>
838 <SETG 'ICALL-LABELS ()>
839 <SET TEMP15 %<> (TYPE FALSE)>
843 <EMPUV? VARS6 + EXIT19>
844 <NTHUV VARS6 1 = TEMP13 (TYPE ATOM)>
845 <NTHL DCLS5 1 = TEMP16>
846 <TYPE? TEMP16 <TYPE-CODE STRING> - PHRASE28>
847 <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
848 <SET TEMP15 'T (TYPE ATOM)>
849 <SET TEMP16 'ANY (TYPE ATOM)>
852 <VEQUAL? TEMP15 0 + PHRASE29>
853 <SET TEMP16 'ANY (TYPE ATOM)>
855 <FRAME '
\1aCREATE-VAR>
859 <CALL '
\1aCREATE-VAR 2 = TEMP17>
860 <EMPL? VARLST7 - PHRASE32 (TYPE LIST)>
861 <CONS TEMP17 () = VARLST7>
862 <SET NVARLST8 VARLST7>
865 <CONS TEMP17 () = TEMP13>
866 <PUTREST NVARLST8 TEMP13>
868 <RESTL NVARLST8 1 = NVARLST8 (TYPE LIST)>
870 <FRAME '
\1aINDICATE-VAR-DECL>
876 <CALL '
\1aISTYPE? 1 = STACK>
877 <CALL '
\1aINDICATE-VAR-DECL 2>
878 <RESTUV VARS6 1 = VARS6 (TYPE VECTOR)>
879 <CHTYPE VARS6 <TYPE-CODE VECTOR> = VARS6>
880 <RESTL DCLS5 1 = DCLS5 (TYPE LIST)>
883 <SETG 'ARGLIST-VARS VARLST7>
885 <FRAME '
\1aEMIT-LABEL>
888 <CALL '
\1aEMIT-LABEL 2>
889 <FRAME '
\1aADD-INTERNAL-ENTRY>
893 <CALL '
\1aADD-INTERNAL-ENTRY 2>
898 <GFCN
\1aTEMP-PROCESS ("VALUE" ATOM "TUPLE" <TUPLE [REST <OR VARTBL ATOM ADECL LIST>]>)>
899 <MAKTUP TEMPS4 TEMP11 NOT-YET?7 ADL5 TBL32 = TEMPS4>
901 <GEN-ASSIGNED? 'FIRST-PROCESS? + TAG10>
902 <SET TEMP11 %<> (TYPE FALSE)>
905 <GEN-LVAL 'FIRST-PROCESS? = TEMP11>
907 <SET NOT-YET?7 TEMP11>
909 <TYPE? NOT-YET?7 <TYPE-CODE FALSE> - PHRASE16>
910 <FRAME '
\1aMAKE-LABEL>
911 <CALL '
\1aMAKE-LABEL 0 = TEMP11>
912 <FRAME '
\1aEMIT-LABEL>
916 <CALL '
\1aEMIT-LABEL 2>
917 <FRAME '
\1aINDICATE-TEMP-PATCH>
918 <FRAME '
\1aADD-PATCH>
920 <CALL '
\1aADD-PATCH 1 = STACK>
921 <CALL '
\1aINDICATE-TEMP-PATCH 1>
923 <CHTYPE TEMPS4 <TYPE-CODE VECTOR> = TEMP11>
928 <EMPUV? TEMP11 + MAPAP25>
929 <NTHUV TEMP11 1 = TEMPS4>
930 <TYPE? TEMPS4 <TYPE-CODE VARTBL> - PHRASE35>
931 <FRAME '
\1aCREATE-VAR>
936 <CALL '
\1aCREATE-VAR 3>
939 <TYPE? TEMPS4 <TYPE-CODE ATOM> - PHRASE37>
940 <FRAME '
\1aCREATE-VAR>
945 <CALL '
\1aCREATE-VAR 3>
948 <TYPE? TEMPS4 <TYPE-CODE LIST> - PHRASE39>
949 <NTHL TEMPS4 1 = ADL5>
950 <TYPE? ADL5 <TYPE-CODE ADECL> - PHRASE41>
951 <FRAME '
\1aCREATE-VAR>
952 <NTHUV ADL5 1 = STACK>
955 <CALL '
\1aCREATE-VAR 3 = TBL32>
956 <FRAME '
\1aINDICATE-VAR-DECL>
958 <NTHUV ADL5 2 = STACK>
960 <CALL '
\1aINDICATE-VAR-DECL 2>
963 <FRAME '
\1aCREATE-VAR>
968 <CALL '
\1aCREATE-VAR 3 = TBL32>
970 <TYPE? NOT-YET?7 <TYPE-CODE FALSE> - PHRASE53>
971 <RESTL TEMPS4 1 = TEMPS4 (TYPE LIST)>
972 <NTHL TEMPS4 1 = ADL5>
974 <TYPE? ADL5 <TYPE-CODE FORM> - PHRASE49>
975 <EMPL? ADL5 + PHRASE49>
976 <RESTL ADL5 1 = TEMPS4 (TYPE LIST)>
977 <EMPL? TEMPS4 + PHRASE49>
978 <RESTL TEMPS4 1 = TEMPS4 (TYPE LIST)>
979 <EMPL? TEMPS4 - PHRASE49>
981 <NTHL ADL5 1 = TEMPS4>
982 <EQUAL? TEMPS4 'QUOTE - PHRASE49>
984 <RESTL ADL5 1 = TEMPS4 (TYPE LIST)>
985 <NTHL TEMPS4 1 = TEMPS4>
986 <TYPE? TEMPS4 <TYPE-CODE ATOM> - PHRASE49>
988 <RESTL ADL5 1 = TEMPS4 (TYPE LIST)>
990 <NTHL TEMPS4 1 = ADL5 (TYPE ATOM)>
993 <FRAME '
\1aINDICATE-VAR-INIT>
998 <CALL '
\1aINDICATE-VAR-INIT 2>
1001 <FRAME '
\1aCREATE-VAR>
1002 <NTHUV TEMPS4 1 = STACK>
1005 <CALL '
\1aCREATE-VAR 3 = TBL32>
1006 <FRAME '
\1aINDICATE-VAR-DECL>
1009 <NTHUV TEMPS4 2 = STACK>
1011 <CALL '
\1aINDICATE-VAR-DECL 2>
1013 <RESTUV TEMP11 1 = TEMP11 (TYPE VECTOR)>
1017 <END
\1aTEMP-PROCESS>
1019 <GFCN
\1aISTYPE? ("VALUE" <OR ATOM FALSE> <OR ATOM FORM>) DCL4>
1022 <TYPE? DCL4 <TYPE-CODE ATOM> - PHRASE6>
1023 <NTHR DCL4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG9)>
1024 <TYPE? TEMP11 <TYPE-CODE FALSE> - TAG9>
1031 <NTHL DCL4 1 = DCL4>
1032 <TYPE? DCL4 <TYPE-CODE ATOM> + TAG14>
1035 <NTHR DCL4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG16)>
1036 <TYPE? TEMP11 <TYPE-CODE FALSE> - TAG16>
1044 <GFCN
\1aEND-GEN ("VALUE" ATOM)>
1047 <RETURN 'UNCONDITIONAL-BRANCH>
1050 <GFCN
\1aUCBRANCH-GEN ("VALUE" ATOM ATOM ATOM) DIR4 LABEL5>
1053 <FRAME '
\1aGEN-BRANCH>
1057 <PUSH 'UNCONDITIONAL-BRANCH>
1058 <CALL '
\1aGEN-BRANCH 3>
1059 <RETURN 'UNCONDITIONAL-BRANCH>
1060 <END
\1aUCBRANCH-GEN>
1062 <GFCN
\1aLOCATION-GEN ("VALUE" ATOM ATOM ATOM VARTBL) DIR4 LABEL5 RES6>
1063 <TEMP VAC7 TEMP11:FIX>
1069 <CALL '
\1aGET-AC 2 = VAC7>
1071 <CALL '
\1aPROTECT 1>
1072 <FRAME '
\1aEMIT-MOVE-LABEL>
1075 <NTHUV VAC7 2 = TEMP11 (TYPE FIX)>
1076 <OR TEMP11 #WORD *120* = TEMP11>
1077 <LSH TEMP11 24 = TEMP11 (TYPE FIX)>
1078 <CHTYPE TEMP11 <TYPE-CODE EFF-ADDR> = STACK>
1080 <CALL '
\1aEMIT-MOVE-LABEL 2>
1081 <FRAME '
\1aDEST-DECL>
1087 <CALL '
\1aDEST-DECL 3>
1089 <END
\1aLOCATION-GEN>
1091 <GFCN
\1aLOAD-VAR-APP ("VALUE" ANY VARTBL "OPTIONAL" ANY ANY ANY) VAR8 MUNG9 DCL10 USE?11>
1092 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6 OPT7>
1102 <TYPE? DCL10 <TYPE-CODE UNBOUND> - TAG12>
1103 <FRAME '
\1aVARTBL-DECL>
1105 <CALL '
\1aVARTBL-DECL 1 = DCL10>
1107 <TYPE? DCL10 <TYPE-CODE FALSE> + BOOL17>
1108 <FRAME '
\1aSTRUCTURED-TYPE?>
1110 <CALL '
\1aSTRUCTURED-TYPE? 1 = TEMP19>
1111 <VEQUAL? TEMP19 0 + PHRASE16>
1114 <FRAME '
\1aLOAD-VAR>
1125 <CALL '
\1aLOAD-VAR 6 = TEMP19>
1129 <FRAME '
\1aLOAD-VAR>
1140 <CALL '
\1aLOAD-VAR 6 = TEMP19>
1143 <END
\1aLOAD-VAR-APP>
1145 <GFCN
\1aPROCESS-DESTINATION-HINT ("VALUE" ANY <OR FALSE HINT ATOM> <OR ATOM VARTBL>) HINT4 DEST5>
1148 <TYPE? DEST5 <TYPE-CODE VARTBL> + TAG11>
1151 <TYPE? HINT4 <TYPE-CODE LIST> - PHRASE14>
1152 <FRAME '
\1aPARSE-HINT>
1156 <CALL '
\1aPARSE-HINT 2 = DCL6>
1158 <TYPE? TEMP9 <TYPE-CODE FALSE> + PHRASE8>
1161 <TYPE? HINT4 <TYPE-CODE ATOM> + TAG17>
1167 <FRAME '
\1aINDICATE-VAR-TEMP-DECL>
1172 <CALL '
\1aINDICATE-VAR-TEMP-DECL 2 = TEMP9>
1176 <END
\1aPROCESS-DESTINATION-HINT>
1178 <GFCN
\1aMOVE-TYPE ("VALUE" ANY ANY <OR AC EFF-ADDR> "OPTIONAL" <OR FALSE EFF-ADDR>) VAL6 TEADDR7 CEADDR8>
1179 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1183 <TEMP TEMP15 RADDR10 LVAR12>
1185 <TYPE? TEADDR7 <TYPE-CODE AC> - PHRASE14>
1186 <NTHUV TEADDR7 2 = TEMP15 (TYPE FIX)>
1187 <OR TEMP15 #WORD *120* = TEMP15>
1188 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1189 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = RADDR10>
1193 <SET RADDR10 TEADDR7>
1195 <TYPE? VAL6 <TYPE-CODE VARTBL> - PHRASE17>
1196 <FRAME '
\1aSAFE-TYPE-WORD?>
1198 <CALL '
\1aSAFE-TYPE-WORD? 1 = TEMP15>
1199 <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL24>
1201 <FRAME '
\1aFIND-CACHE-VAR>
1203 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR12>
1204 <TYPE? LVAR12 <TYPE-CODE FALSE> + PHRASE19>
1205 <NTHUV LVAR12 7 = TEMP15>
1206 <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
1208 <NTHUV LVAR12 9 = TEMP15>
1209 <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
1211 <NTHUV LVAR12 8 = TEMP15>
1212 <TYPE? TEMP15 <TYPE-CODE FALSE> - BOOL25>
1214 <FRAME '
\1aVARTBL-DECL>
1216 <CALL '
\1aVARTBL-DECL 1 = TEMP15>
1217 <TYPE? TEMP15 <TYPE-CODE FALSE> + BOOL24>
1220 <NTHUV LVAR12 4 = TEMP15>
1221 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
1223 <NTHUV LVAR12 3 = TEMP15>
1225 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE19>
1228 <FRAME '
\1aEMIT-MOVE>
1229 <FRAME '
\1aVAR-TYPE-ADDRESS>
1232 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
1236 <CALL '
\1aEMIT-MOVE 3>
1237 <TYPE? TEADDR7 <TYPE-CODE AC> + TAG31>
1243 <FRAME '
\1aVAR-TYPE-ADDRESS>
1247 <CALL '
\1aVAR-TYPE-ADDRESS 2 = STACK>
1248 <CALL '
\1aLOAD-AC 2 = TEMP15>
1252 <FRAME '
\1aVARTBL-DECL>
1254 <CALL '
\1aVARTBL-DECL 1 = TEMP15>
1255 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE35>
1256 <FRAME '
\1aCOUNT-NEEDED?>
1258 <CALL '
\1aCOUNT-NEEDED? 1 = LVAR12>
1259 <TYPE? LVAR12 <TYPE-CODE FALSE> + PHRASE38>
1261 <FRAME '
\1aVAR-COUNT-ADDRESS>
1264 <CALL '
\1aVAR-COUNT-ADDRESS 1 = LVAR12>
1265 <TYPE? TEADDR7 <TYPE-CODE AC> - PHRASE43>
1266 <FRAME '
\1aEMIT-MOVE>
1267 <FRAME '
\1aTYPE-WORD>
1270 <CALL '
\1aTYPE-WORD 1 = STACK>
1274 <CALL '
\1aEMIT-MOVE 3>
1279 <NTHUV TEADDR7 2 = LVAR12 (TYPE FIX)>
1280 <OR LVAR12 #WORD *120* = LVAR12>
1281 <LSH LVAR12 24 = LVAR12 (TYPE FIX)>
1282 <CHTYPE LVAR12 <TYPE-CODE EFF-ADDR> = STACK>
1288 <CALL '
\1aUSE-AC 1 = TEMP15>
1292 <FRAME '
\1aEMIT-MOVE>
1298 <CALL '
\1aEMIT-MOVE 3>
1299 <FRAME '
\1aEMIT-MOVE>
1300 <FRAME '
\1aTYPE-CODE>
1304 <CALL '
\1aTYPE-CODE 2 = STACK>
1308 <CALL '
\1aEMIT-MOVE 3 = TEMP15>
1312 <FRAME '
\1aEMIT-MOVE>
1313 <FRAME '
\1aTYPE-WORD>
1315 <CALL '
\1aTYPE-WORD 1 = STACK>
1319 <CALL '
\1aEMIT-MOVE 3>
1320 <TYPE? TEADDR7 <TYPE-CODE AC> + TAG56>
1326 <FRAME '
\1aTYPE-WORD>
1329 <CALL '
\1aTYPE-WORD 1 = STACK>
1330 <CALL '
\1aLOAD-AC 2 = TEMP15>
1335 <PUSH "NO TYPE WORD">
1337 <CALL '
\1aERROR 2 = TEMP15>
1341 <FRAME '
\1aFIX-CONSTANT?>
1343 <CALL '
\1aFIX-CONSTANT? 1 = LVAR12>
1344 <TYPE? LVAR12 <TYPE-CODE FALSE> + PHRASE61>
1346 <FRAME '
\1aEMIT-MOVE>
1347 <FRAME '
\1aTYPE-WORD>
1350 <CALL '
\1aTYPE 1 = STACK>
1351 <CALL '
\1aTYPE-WORD 1 = STACK>
1355 <CALL '
\1aEMIT-MOVE 3>
1356 <TYPE? TEADDR7 <TYPE-CODE AC> + TAG67>
1362 <FRAME '
\1aTYPE-WORD>
1366 <CALL '
\1aTYPE 1 = STACK>
1367 <CALL '
\1aTYPE-WORD 1 = STACK>
1368 <CALL '
\1aLOAD-AC 2 = TEMP15>
1372 <FRAME '
\1aADDR-TYPE-M>
1373 <FRAME '
\1aADD-MVEC>
1376 <CALL '
\1aADD-MVEC 1 = STACK>
1377 <CALL '
\1aADDR-TYPE-M 1 = LVAR12>
1378 <FRAME '
\1aEMIT-MOVE>
1382 <CALL '
\1aEMIT-MOVE 3>
1383 <TYPE? TEADDR7 <TYPE-CODE AC> + TAG77>
1391 <CALL '
\1aLOAD-AC 2 = TEMP15>
1394 <END
\1aMOVE-TYPE>
\r\0\r\0
1396 <GFCN
\1aGEN-CONSTANT ("VALUE" <OR AC EFF-ADDR> ANY <OR ATOM AC> <OR ATOM AC> ATOM) RCNS4 VALUE-AC5 TYPE-AC6 GEN-PREF7>
1397 <TEMP CNS8 TYP11:ATOM VAC9 TEMP20 TAC10>
1402 <CALL '
\1aTYPE 1 = TYP11>
1408 <CALL '
\1aGET-AC 2 = VAC9>
1410 <CALL '
\1aPROTECT 1>
1411 <FRAME '
\1aMOVE-VALUE>
1414 <CALL '
\1aMOVE-VALUE 2>
1415 <VEQUAL? GEN-PREF7 'TYPE-WORD + PHRASE17>
1416 <FRAME '
\1aCOUNT-NEEDED?>
1418 <CALL '
\1aCOUNT-NEEDED? 1 = TEMP20>
1419 <TYPE? TEMP20 <TYPE-CODE FALSE> - PHRASE17>
1421 <SETG 'CONSTANT-TYPE-AC %<>>
1422 <SETG 'CONSTANT-COUNT-AC %<>>
1428 <CALL '
\1aGET-AC 1 = TAC10>
1431 <CALL '
\1aMUNG-AC 1>
1432 <VEQUAL? GEN-PREF7 'TYPE-WORD - PHRASE25>
1434 <FRAME '
\1aFIX-CONSTANT?>
1437 <CALL '
\1aFIX-CONSTANT? 1 = CNS8>
1438 <TYPE? CNS8 <TYPE-CODE FALSE> + PHRASE27>
1440 <FRAME '
\1aEMIT-MOVE>
1441 <FRAME '
\1aTYPE-WORD>
1443 <CALL '
\1aTYPE-WORD 1 = STACK>
1444 <NTHUV TAC10 2 = TEMP20 (TYPE FIX)>
1445 <OR TEMP20 #WORD *120* = TEMP20>
1446 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
1447 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
1450 <CALL '
\1aEMIT-MOVE 3>
1453 <FRAME '
\1aTYPE-WORD>
1456 <CALL '
\1aTYPE-WORD 1 = STACK>
1457 <CALL '
\1aLOAD-AC 2>
1460 <FRAME '
\1aEMIT-MOVE>
1461 <FRAME '
\1aADDR-TYPE-MQUOTE>
1463 <CALL '
\1aADDR-TYPE-MQUOTE 1 = STACK>
1464 <NTHUV TAC10 2 = TEMP20 (TYPE FIX)>
1465 <OR TEMP20 #WORD *120* = TEMP20>
1466 <LSH TEMP20 24 = TEMP20 (TYPE FIX)>
1467 <CHTYPE TEMP20 <TYPE-CODE EFF-ADDR> = STACK>
1470 <CALL '
\1aEMIT-MOVE 3>
1473 <FRAME '
\1aADDR-TYPE-MQUOTE>
1476 <CALL '
\1aADDR-TYPE-MQUOTE 1 = STACK>
1477 <CALL '
\1aLOAD-AC 2>
1479 <SETG 'CONSTANT-TYPE-AC TAC10>
1484 <FRAME '
\1aLOAD-CONSTANT>
1489 <CALL '
\1aLENGTH 1 = STACK>
1490 <CALL '
\1aLOAD-CONSTANT 2>
1491 <SETG 'CONSTANT-COUNT-AC TAC10>
1495 <END
\1aGEN-CONSTANT>
1497 <GFCN
\1aLOAD-CONSTANT ("VALUE" ANY ANY ANY) DEST4 RVAL5>
1498 <TEMP TEMP10 VAL6:FIX TEMP23 TEMP32 TEMP44>
1500 <TYPE? DEST4 <TYPE-CODE AC> - PHRASE9>
1501 <NTHUV DEST4 2 = TEMP10 (TYPE FIX)>
1503 <OR TEMP10 #WORD *120* = TEMP10>
1504 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
1505 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
1511 <FRAME '
\1aFIX-CONSTANT?>
1513 <CALL '
\1aFIX-CONSTANT? 1 = VAL6>
1514 <VEQUAL? VAL6 0 - PHRASE14 (TYPE FIX)>
1519 <CALL '
\1aEMIT 2 = TEMP10>
1523 <LESS? VAL6 1 + PHRASE18 (TYPE FIX)>
1524 <GRTR? VAL6 63 + PHRASE18 (TYPE FIX)>
1527 <AND VAL6 #WORD *77* = TEMP23>
1529 <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
1530 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
1534 <CALL '
\1aEMIT 3 = TEMP10>
1538 <LESS? VAL6 -63 + PHRASE24 (TYPE FIX)>
1539 <GRTR? VAL6 -1 + PHRASE24 (TYPE FIX)>
1542 <SUB 0 VAL6 = TEMP23 (TYPE FIX)>
1544 <AND TEMP23 #WORD *77* = TEMP23>
1545 <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
1546 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
1550 <CALL '
\1aEMIT 3 = TEMP10>
1554 <LESS? VAL6 64 + PHRASE29 (TYPE FIX)>
1555 <GRTR? VAL6 255 + PHRASE29 (TYPE FIX)>
1558 <GVAL 'AC-PC = TEMP23>
1559 <NTHUV TEMP23 2 = TEMP23 (TYPE FIX)>
1560 <OR TEMP23 #WORD *200* = TEMP23>
1561 <LSH TEMP23 24 = TEMP23 (TYPE FIX)>
1562 <AND VAL6 #WORD *377* = TEMP32>
1564 <LSH TEMP32 16 = TEMP32 (TYPE FIX)>
1565 <OR TEMP23 TEMP32 = TEMP23>
1567 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = STACK>
1571 <CALL '
\1aEMIT 3 = TEMP10>
1575 <LESS? VAL6 -127 + PHRASE33 (TYPE FIX)>
1576 <GRTR? VAL6 -64 + PHRASE33 (TYPE FIX)>
1579 <GVAL 'AC-PC = TEMP23>
1580 <NTHUV TEMP23 2 = TEMP32 (TYPE FIX)>
1582 <OR TEMP32 #WORD *200* = TEMP32>
1583 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1584 <AND VAL6 #WORD *377* = TEMP23>
1586 <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
1587 <OR TEMP32 TEMP23 = TEMP32>
1589 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1593 <CALL '
\1aEMIT 3 = TEMP10>
1597 <LESS? VAL6 255 + PHRASE36 (TYPE FIX)>
1598 <GRTR? VAL6 65535 + PHRASE36 (TYPE FIX)>
1601 <GVAL 'AC-PC = TEMP32>
1602 <NTHUV TEMP32 2 = TEMP32 (TYPE FIX)>
1603 <OR TEMP32 #WORD *200* = TEMP32>
1604 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1605 <AND VAL6 #WORD *377* = TEMP23>
1606 <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
1607 <AND VAL6 #WORD *177400* = TEMP44>
1609 <OR TEMP23 TEMP44 = TEMP23>
1611 <AND TEMP23 #WORD *77777400* = TEMP23>
1612 <OR TEMP32 TEMP23 = TEMP32>
1614 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = STACK>
1618 <CALL '
\1aEMIT 3 = TEMP10>
1622 <LESS? VAL6 -32767 + PHRASE45 (TYPE FIX)>
1623 <GRTR? VAL6 -128 + PHRASE45 (TYPE FIX)>
1626 <GVAL 'AC-PC = TEMP32>
1627 <NTHUV TEMP32 2 = TEMP44 (TYPE FIX)>
1629 <OR TEMP44 #WORD *200* = TEMP44>
1630 <LSH TEMP44 24 = TEMP44 (TYPE FIX)>
1631 <AND VAL6 #WORD *377* = TEMP23>
1632 <LSH TEMP23 16 = TEMP23 (TYPE FIX)>
1633 <AND VAL6 #WORD *177400* = TEMP32>
1635 <OR TEMP23 TEMP32 = TEMP32>
1637 <AND TEMP32 #WORD *77777400* = TEMP32>
1638 <OR TEMP44 TEMP32 = TEMP44>
1640 <CHTYPE TEMP44 <TYPE-CODE EFF-ADDR> = STACK>
1644 <CALL '
\1aEMIT 3 = TEMP10>
1648 <TYPE? RVAL5 <TYPE-CODE FLOAT> - PHRASE52>
1649 <LESS? RVAL5 0.0 + PHRASE54 (TYPE FLOAT)>
1652 <FRAME '
\1aFLOAT-IMM>
1655 <CALL '
\1aFLOAT-IMM 1 = STACK>
1658 <CALL '
\1aEMIT 3 = TEMP10>
1664 <FRAME '
\1aFLOAT-IMM>
1665 <FRAME '
\1aFLOATCONVERT>
1666 <SUBF 0 RVAL5 = STACK (TYPE FLOAT)>
1668 <CALL '
\1aFLOATCONVERT 1 = STACK>
1669 <CALL '
\1aFLOAT-IMM 1 = STACK>
1672 <CALL '
\1aEMIT 3 = TEMP10>
1678 <GVAL 'AC-PC = TEMP44>
1679 <NTHUV TEMP44 2 = TEMP32 (TYPE FIX)>
1681 <OR TEMP32 #WORD *200* = TEMP32>
1682 <LSH TEMP32 24 = TEMP32 (TYPE FIX)>
1683 <CHTYPE TEMP32 <TYPE-CODE EFF-ADDR> = TEMP32>
1684 <CONS TEMP32 () = TEMP32>
1688 <CALL '
\1aLREV 1 = TEMP23>
1689 <CHTYPE TEMP23 <TYPE-CODE EFF-ADDR> = TEMP23>
1690 <CONS TEMP23 () = TEMP23>
1691 <PUTREST TEMP32 TEMP23>
1693 <CHTYPE TEMP32 <TYPE-CODE LADDR> = STACK>
1697 <CALL '
\1aEMIT 3 = TEMP10>
1700 <END
\1aLOAD-CONSTANT>
1702 <GFCN
\1aDEST-DECL ("VALUE" ANY AC <OR ATOM VARTBL> ATOM "OPTIONAL" <OR FALSE ATOM>) AC6 DEST7 DCL8 STATUS?9>
1703 <OPT-DISPATCH 3 %<> OPT4 OPT5>
1709 <EQUAL? DEST7 'STACK - PHRASE11>
1710 <FRAME '
\1aPUSH-PAIR>
1715 <CALL '
\1aPUSH-PAIR 2>
1716 <FRAME '
\1aCLEAR-STATUS>
1717 <CALL '
\1aCLEAR-STATUS 0 = TEMP14>
1721 <TYPE? DEST7 <TYPE-CODE VARTBL> + TAG16>
1724 <FRAME '
\1aDEAD-VAR>
1726 <CALL '
\1aDEAD-VAR 1>
1727 <FRAME '
\1aLINK-VAR-TO-AC>
1732 <CALL '
\1aLINK-VAR-TO-AC 4>
1733 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1737 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1738 <SET TEMP14 STATUS?9>
1739 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE22>
1740 <FRAME '
\1aSET-STATUS-AC>
1743 <CALL '
\1aSET-STATUS-AC 1>
1744 <FRAME '
\1aSET-STATUS-VAR>
1749 <CALL '
\1aSET-STATUS-VAR 2 = TEMP14>
1753 <END
\1aDEST-DECL>
\r\0\r\0
1755 <GFCN
\1aDEST-COUNT-DECL ("VALUE" ANY AC AC <OR ATOM VARTBL> ATOM "OPTIONAL" <OR FALSE ATOM>) VAC6 CAC7 DEST8 DCL9 STATUS?10>
1756 <OPT-DISPATCH 4 %<> OPT4 OPT5>
1762 <EQUAL? DEST8 'STACK - PHRASE12>
1763 <FRAME '
\1aPUSH-PAIR-WITH-CNT>
1770 <CALL '
\1aPUSH-PAIR-WITH-CNT 3>
1771 <FRAME '
\1aCLEAR-STATUS>
1772 <CALL '
\1aCLEAR-STATUS 0 = TEMP15>
1776 <TYPE? DEST8 <TYPE-CODE VARTBL> + TAG17>
1779 <FRAME '
\1aDEAD-VAR>
1781 <CALL '
\1aDEAD-VAR 1>
1782 <FRAME '
\1aLINK-VAR-TO-AC>
1787 <CALL '
\1aLINK-VAR-TO-AC 4>
1788 <FRAME '
\1aINDICATE-CACHED-VARIABLE-DECL>
1792 <CALL '
\1aINDICATE-CACHED-VARIABLE-DECL 2>
1793 <FRAME '
\1aLINK-VAR-TO-AC>
1799 <CALL '
\1aLINK-VAR-TO-AC 4>
1800 <SET TEMP15 STATUS?10>
1801 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE24>
1802 <FRAME '
\1aSET-STATUS-AC>
1805 <CALL '
\1aSET-STATUS-AC 1>
1806 <FRAME '
\1aSET-STATUS-VAR>
1811 <CALL '
\1aSET-STATUS-VAR 2 = TEMP15>
1815 <END
\1aDEST-COUNT-DECL>
1817 <GFCN
\1aDEST-PAIR ("VALUE" ANY AC AC <OR ATOM VARTBL> "OPTIONAL" <OR FALSE ATOM>) VAC6 CAC7 DEST8 STATUS?9>
1818 <OPT-DISPATCH 3 %<> OPT4 OPT5>
1822 <TEMP TEMP13 TEMP18>
1824 <EQUAL? DEST8 'STACK - PHRASE11>
1825 <GVAL 'GC-MODE = TEMP13>
1826 <TYPE? TEMP13 <TYPE-CODE FALSE> + BOOL12>
1832 <CALL '
\1aMA-IMM 1 = STACK>
1833 <NTHUV CAC7 2 = TEMP13 (TYPE FIX)>
1834 <OR TEMP13 #WORD *120* = TEMP13>
1835 <LSH TEMP13 24 = TEMP13 (TYPE FIX)>
1836 <CHTYPE TEMP13 <TYPE-CODE EFF-ADDR> = STACK>
1840 <NTHUV CAC7 2 = TEMP13 (TYPE FIX)>
1841 <ADD TEMP13 1 = TEMP13 (TYPE FIX)>
1842 <NTHUV VAC6 2 = TEMP18 (TYPE FIX)>
1843 <VEQUAL? TEMP13 TEMP18 - PHRASE17 (TYPE FIX)>
1844 <DEAD TEMP13 TEMP18>
1845 <FRAME '
\1aEMIT-PUSH>
1846 <NTHUV CAC7 2 = TEMP18 (TYPE FIX)>
1848 <OR TEMP18 #WORD *120* = TEMP18>
1849 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1850 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1853 <CALL '
\1aEMIT-PUSH 2>
1856 <FRAME '
\1aEMIT-PUSH>
1857 <NTHUV CAC7 2 = TEMP18 (TYPE FIX)>
1859 <OR TEMP18 #WORD *120* = TEMP18>
1860 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1861 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1864 <CALL '
\1aEMIT-PUSH 2>
1865 <FRAME '
\1aEMIT-PUSH>
1866 <NTHUV VAC6 2 = TEMP18 (TYPE FIX)>
1868 <OR TEMP18 #WORD *120* = TEMP18>
1869 <LSH TEMP18 24 = TEMP18 (TYPE FIX)>
1870 <CHTYPE TEMP18 <TYPE-CODE EFF-ADDR> = STACK>
1873 <CALL '
\1aEMIT-PUSH 2>
1875 <FRAME '
\1aCLEAR-STATUS>
1876 <CALL '
\1aCLEAR-STATUS 0 = TEMP18>
1880 <TYPE? DEST8 <TYPE-CODE VARTBL> + TAG25>
1883 <FRAME '
\1aDEAD-VAR>
1885 <CALL '
\1aDEAD-VAR 1>
1886 <FRAME '
\1aLINK-VAR-TO-AC>
1891 <CALL '
\1aLINK-VAR-TO-AC 4>
1892 <FRAME '
\1aLINK-VAR-TO-AC>
1898 <CALL '
\1aLINK-VAR-TO-AC 4>
1899 <SET TEMP18 STATUS?9>
1901 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE31>
1902 <FRAME '
\1aSET-STATUS-AC>
1905 <CALL '
\1aSET-STATUS-AC 1>
1906 <FRAME '
\1aSET-STATUS-VAR>
1910 <CALL '
\1aSET-STATUS-VAR 2 = TEMP18>
1916 <GFCN
\1aDEST-TYPE-VALUE ("VALUE" ANY AC AC <OR ATOM VARTBL> "OPTIONAL" <OR FALSE ATOM> LINKVAR) VAC7 TAC8 DEST9 STATUS?10 LVAR11>
1917 <OPT-DISPATCH 3 %<> OPT4 OPT5 OPT6>
1925 <EQUAL? DEST9 'STACK - PHRASE13>
1926 <FRAME '
\1aEMIT-PUSH>
1927 <NTHUV TAC8 2 = TEMP15 (TYPE FIX)>
1929 <OR TEMP15 #WORD *120* = TEMP15>
1930 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1931 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1934 <CALL '
\1aEMIT-PUSH 2>
1935 <FRAME '
\1aCLEAR-PUSH>
1937 <CALL '
\1aCLEAR-PUSH 1>
1938 <FRAME '
\1aEMIT-PUSH>
1939 <NTHUV VAC7 2 = TEMP15 (TYPE FIX)>
1941 <OR TEMP15 #WORD *120* = TEMP15>
1942 <LSH TEMP15 24 = TEMP15 (TYPE FIX)>
1943 <CHTYPE TEMP15 <TYPE-CODE EFF-ADDR> = STACK>
1946 <CALL '
\1aEMIT-PUSH 2>
1947 <FRAME '
\1aCLEAR-STATUS>
1948 <CALL '
\1aCLEAR-STATUS 0 = TEMP15>
1952 <TYPE? DEST9 <TYPE-CODE VARTBL> + TAG20>
1955 <FRAME '
\1aDEAD-VAR>
1957 <CALL '
\1aDEAD-VAR 1>
1958 <FRAME '
\1aLINK-VAR-TO-AC>
1963 <CALL '
\1aLINK-VAR-TO-AC 4>
1964 <FRAME '
\1aLINK-VAR-TO-AC>
1970 <CALL '
\1aLINK-VAR-TO-AC 4>
1971 <FRAME '
\1aFIND-CACHE-VAR>
1973 <CALL '
\1aFIND-CACHE-VAR 1 = LVAR11>
1976 <SET TEMP15 STATUS?10>
1978 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE27>
1979 <FRAME '
\1aSET-STATUS-AC>
1982 <CALL '
\1aSET-STATUS-AC 1>
1983 <FRAME '
\1aSET-STATUS-VAR>
1987 <CALL '
\1aSET-STATUS-VAR 2 = TEMP15>
1991 <END
\1aDEST-TYPE-VALUE>
1993 <GFCN
\1aPUSH-PAIR ("VALUE" ANY ATOM AC) TYP4 VAC5>
1996 <FRAME '
\1aEMIT-PUSH>
1997 <FRAME '
\1aTYPE-WORD>
2000 <CALL '
\1aTYPE-WORD 1 = STACK>
2002 <CALL '
\1aEMIT-PUSH 2>
2003 <FRAME '
\1aEMIT-PUSH>
2004 <NTHUV VAC5 2 = TEMP9 (TYPE FIX)>
2006 <OR TEMP9 #WORD *120* = TEMP9>
2007 <LSH TEMP9 24 = TEMP9 (TYPE FIX)>
2008 <CHTYPE TEMP9 <TYPE-CODE EFF-ADDR> = STACK>
2011 <CALL '
\1aEMIT-PUSH 2 = TEMP9>
2016 <GFCN
\1aPUSH-PAIR-WITH-CNT ("VALUE" ANY ATOM AC AC) DCL4 VAC5 DAC6>
2019 <FRAME '
\1aEMIT-PUSH>
2020 <FRAME '
\1aTYPE-CODE>
2023 <CALL '
\1aTYPE-CODE 1 = STACK>
2025 <CALL '
\1aEMIT-PUSH 2>
2026 <FRAME '
\1aEMIT-PUSH>
2027 <NTHUV DAC6 2 = TEMP10 (TYPE FIX)>
2029 <OR TEMP10 #WORD *120* = TEMP10>
2030 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2031 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2034 <CALL '
\1aEMIT-PUSH 2>
2035 <FRAME '
\1aEMIT-PUSH>
2036 <NTHUV VAC5 2 = TEMP10 (TYPE FIX)>
2038 <OR TEMP10 #WORD *120* = TEMP10>
2039 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2040 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2043 <CALL '
\1aEMIT-PUSH 2 = TEMP10>
2046 <END
\1aPUSH-PAIR-WITH-CNT>
2048 <GFCN
\1aPUSH-GEN ("VALUE" ATOM ANY) VAL4>
2051 <TYPE? VAL4 <TYPE-CODE VARTBL> - PHRASE6>
2052 <FRAME '
\1aPUSH-VAR>
2055 <CALL '
\1aPUSH-VAR 1>
2058 <FRAME '
\1aPUSH-CONSTANT>
2061 <CALL '
\1aPUSH-CONSTANT 1>
2065 <GFCN
\1aPOP-GEN ("VALUE" ANY VARTBL) RES4>
2068 <FRAME '
\1aFIND-FREE-PAIR>
2070 <CALL '
\1aFIND-FREE-PAIR 1 = TAC6>
2071 <FRAME '
\1aEMIT-POP>
2074 <CALL '
\1aEMIT-POP 2>
2075 <FRAME '
\1aDEST-PAIR>
2078 <CALL '
\1aNEXT-AC 1 = STACK>
2083 <CALL '
\1aDEST-PAIR 3 = TAC6>
2088 <GFCN
\1aINIT-OPERATIONS ("VALUE" OBLIST)>
2091 <UUBLOCK <TYPE-CODE VECTOR> 200 = TEMP4>
2093 <LOOP (TEMP5 VALUE LENGTH)>
2095 <EMPUV? TEMP5 + ISTRE7>
2097 <RESTUV TEMP5 1 = TEMP5>
2100 <SETG 'OP-APPLY-VECTOR TEMP4>
2106 <CALL '
\1aMOBLIST 2 = TEMP4>
2107 <SETG 'MIMOP-OBLIST TEMP4>
2112 <CALL '
\1aMOBLIST 2 = TEMP4>
2113 <SETG 'VAR-OBLIST TEMP4>
2116 <END
\1aINIT-OPERATIONS>
2118 <GFCN
\1aDEFINE-MIMOP ("VALUE" FIX STRING ANY "OPTIONAL" ANY) NAME6 FCN7 PROTECT?8>
2119 <OPT-DISPATCH 2 %<> OPT4 OPT5>
2123 <TEMP CNT9:FIX TEMP14 ANAME10 TEMP20>
2125 <GVAL 'OP-COUNT = CNT9>
2126 <GRTR? CNT9 200 - PHRASE12 (TYPE FIX)>
2128 <PUSH "TOO MANY OPERATIONS">
2129 <PUSH 'DEFINE-MIMOP>
2132 <GVAL 'OP-APPLY-VECTOR = TEMP14>
2133 <PUTUV TEMP14 CNT9 FCN7>
2137 <GVAL 'MIMOP-OBLIST = STACK>
2138 <CALL '
\1aLOOKUP 2 = ANAME10>
2139 <TYPE? ANAME10 <TYPE-CODE FALSE> - BOOL15>
2143 <GVAL 'MIMOP-OBLIST = STACK>
2144 <CALL '
\1aINSERT 2 = ANAME10>
2146 <TYPE? PROTECT?8 <TYPE-CODE FALSE> + PHRASE19>
2148 <SUB 0 CNT9 = TEMP14 (TYPE FIX)>
2153 <NTHR ANAME10 1 = TEMP20 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG21)>
2154 <TYPE? TEMP20 <TYPE-CODE FALSE> + TAG21>
2155 <PUTR TEMP20 1 TEMP14 (RECORD-TYPE GBIND)>
2156 <DEAD TEMP20 TEMP14>
2164 <CALL '
\1aSETG 2 = TEMP14>
2166 <ADD CNT9 1 = TEMP14 (TYPE FIX)>
2168 <SETG 'OP-COUNT TEMP14>
2171 <END
\1aDEFINE-MIMOP>
2173 <GFCN
\1aSTRUCTURED-TYPE? ("VALUE" <OR ATOM !<FALSE> <VECTOR ATOM [REST ATOM]>> ATOM) DCL4>
2174 <TEMP TEMP8 TEMP14 TEMP15>
2178 <CALL '
\1aISTYPE? 1 = TEMP8>
2179 <TYPE? TEMP8 <TYPE-CODE FALSE> + PHRASE6>
2181 <FRAME '
\1aTYPEPRIM>
2184 <CALL '
\1aTYPEPRIM 1 = TEMP8>
2185 <SET TEMP14 [OFFSET RECORD UVECTOR STRING LIST VECTOR ATOM] (TYPE VECTOR)>
2186 <TYPE? TEMP8 <TYPE-CODE ATOM> - TAG9>
2187 <LOOP (TEMP8 VALUE) (TEMP14 LENGTH VALUE)>
2189 <NTHUV TEMP14 1 = TEMP15>
2190 <VEQUAL? TEMP15 TEMP8 + COND5>
2192 <RESTUV TEMP14 1 = TEMP14 (TYPE VECTOR)>
2193 <EMPUV? TEMP14 - TAG11>
2197 <SET TEMP14 'T (TYPE ATOM)>
2201 <END
\1aSTRUCTURED-TYPE?>
2203 <GFCN
\1aCOUNT-NEEDED? ("VALUE" <OR FALSE <VECTOR ATOM [REST ATOM]>> ATOM) DCL4>
2204 <TEMP TEMP7 TEMP14 TEMP15>
2206 <FRAME '
\1aCLEAN-DECL>
2209 <CALL '
\1aCLEAN-DECL 1 = DCL4>
2212 <CALL '
\1aISTYPE? 1 = TEMP7>
2213 <TYPE? TEMP7 <TYPE-CODE FALSE> + TAG10>
2214 <FRAME '
\1aTYPEPRIM>
2217 <CALL '
\1aTYPEPRIM 1 = TEMP14>
2218 <SET TEMP7 [OFFSET STRING VECTOR RECORD UVECTOR TUPLE BYTES] (TYPE VECTOR)>
2219 <TYPE? TEMP14 <TYPE-CODE ATOM> - TAG9>
2220 <LOOP (TEMP14 VALUE) (TEMP7 LENGTH VALUE)>
2222 <NTHUV TEMP7 1 = TEMP15>
2223 <VEQUAL? TEMP15 TEMP14 + TAG10>
2225 <RESTUV TEMP7 1 = TEMP7 (TYPE VECTOR)>
2226 <EMPUV? TEMP7 - TAG11>
2228 <SET TEMP7 %<> (TYPE FALSE)>
2232 <END
\1aCOUNT-NEEDED?>
2234 <GFCN
\1aPARSE-HINT ("VALUE" ANY HINT ATOM) HINT4 NAME5>
2237 <NTHL HINT4 1 = HTYP6>
2238 <TYPE? HTYP6 <TYPE-CODE FORM> - PHRASE9>
2239 <EMPL? HTYP6 + PHRASE9>
2240 <RESTL HTYP6 1 = TEMP11 (TYPE LIST)>
2241 <EMPL? TEMP11 + PHRASE9>
2242 <RESTL TEMP11 1 = TEMP11 (TYPE LIST)>
2243 <EMPL? TEMP11 - PHRASE9>
2245 <NTHL HTYP6 1 = TEMP11>
2246 <EQUAL? TEMP11 'QUOTE - PHRASE9>
2248 <RESTL HTYP6 1 = TEMP11 (TYPE LIST)>
2250 <NTHL TEMP11 1 = HTYP6>
2253 <EQUAL? HTYP6 NAME5 + TAG14>
2257 <EQUAL? HTYP6 'TYPE - PHRASE16>
2259 <RESTL HINT4 1 = HTYP6 (TYPE LIST)>
2260 <NTHL HTYP6 1 = HTYP6 (TYPE ATOM)>
2261 <NTHR HTYP6 5 = HTYP6 (RECORD-TYPE ATOM) (BRANCH-FALSE - PHRASE16)>
2262 <TYPE? HTYP6 <TYPE-CODE FALSE> - PHRASE16>
2264 <FRAME '
\1aCHECK-MIMOP-TYPE>
2265 <RESTL HINT4 1 = HTYP6 (TYPE LIST)>
2266 <NTHL HTYP6 1 = STACK (TYPE ATOM)>
2268 <CALL '
\1aCHECK-MIMOP-TYPE 1 = HTYP6>
2269 <TYPE? HTYP6 <TYPE-CODE FALSE> + PHRASE16>
2273 <RESTL HINT4 1 = HTYP6 (TYPE LIST)>
2275 <NTHL HTYP6 1 = TEMP11>
2281 <GFCN
\1aADD-TO-AC ("VALUE" ANY AC EFF-ADDR) VAC4 VADDR5>
2288 <NTHUV VAC4 2 = TEMP7 (TYPE FIX)>
2290 <OR TEMP7 #WORD *120* = TEMP7>
2291 <LSH TEMP7 24 = TEMP7 (TYPE FIX)>
2292 <CHTYPE TEMP7 <TYPE-CODE EFF-ADDR> = STACK>
2294 <CALL '
\1aEMIT 3 = TEMP7>
2299 <GFCN
\1aSUB-FROM-AC ("VALUE" ANY AC EFF-ADDR) VAC4 VADDR5>
2306 <NTHUV VAC4 2 = TEMP7 (TYPE FIX)>
2308 <OR TEMP7 #WORD *120* = TEMP7>
2309 <LSH TEMP7 24 = TEMP7 (TYPE FIX)>
2310 <CHTYPE TEMP7 <TYPE-CODE EFF-ADDR> = STACK>
2312 <CALL '
\1aEMIT 3 = TEMP7>
2315 <END
\1aSUB-FROM-AC>
2317 <GFCN
\1aMOVE-VALUE ("VALUE" ANY ANY <OR AC EFF-ADDR>) VAL4 EADDR5>
2318 <TEMP ADDR17 TEMP14>
2320 <TYPE? VAL4 <TYPE-CODE VARTBL> - PHRASE9>
2321 <FRAME '
\1aVAR-VALUE-ADDRESS>
2324 <CALL '
\1aVAR-VALUE-ADDRESS 1 = ADDR17>
2325 <TYPE? EADDR5 <TYPE-CODE AC> - PHRASE12>
2326 <FRAME '
\1aEMIT-MOVE>
2328 <NTHUV EADDR5 2 = TEMP14 (TYPE FIX)>
2329 <OR TEMP14 #WORD *120* = TEMP14>
2330 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2331 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2334 <CALL '
\1aEMIT-MOVE 3>
2340 <CALL '
\1aLOAD-AC 2 = TEMP14>
2344 <FRAME '
\1aEMIT-MOVE>
2350 <CALL '
\1aEMIT-MOVE 3 = TEMP14>
2354 <FRAME '
\1aFIX-CONSTANT?>
2356 <CALL '
\1aFIX-CONSTANT? 1 = TEMP14>
2357 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE17>
2359 <FRAME '
\1aLOAD-CONSTANT>
2364 <CALL '
\1aLOAD-CONSTANT 2 = TEMP14>
2368 <FRAME '
\1aADDR-VALUE-MQUOTE>
2371 <CALL '
\1aADDR-VALUE-MQUOTE 1 = ADDR17>
2372 <TYPE? EADDR5 <TYPE-CODE AC> - PHRASE24>
2373 <FRAME '
\1aEMIT-MOVE>
2375 <NTHUV EADDR5 2 = TEMP14 (TYPE FIX)>
2376 <OR TEMP14 #WORD *120* = TEMP14>
2377 <LSH TEMP14 24 = TEMP14 (TYPE FIX)>
2378 <CHTYPE TEMP14 <TYPE-CODE EFF-ADDR> = STACK>
2381 <CALL '
\1aEMIT-MOVE 3>
2387 <CALL '
\1aLOAD-AC 2 = TEMP14>
2391 <FRAME '
\1aEMIT-MOVE>
2397 <CALL '
\1aEMIT-MOVE 3 = TEMP14>
2402 <GFCN
\1aADD-CONSTANT-TO-AC ("VALUE" ANY FIX AC) VAL4 DEST5>
2403 <TEMP TEMP10 ACADDR7:EFF-ADDR TEMP38>
2405 <NTHUV DEST5 2 = TEMP10 (TYPE FIX)>
2407 <OR TEMP10 #WORD *120* = TEMP10>
2408 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2409 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = ACADDR7>
2411 <FRAME '
\1aFIX-CONSTANT?>
2414 <CALL '
\1aFIX-CONSTANT? 1 = VAL4>
2415 <VEQUAL? VAL4 0 - TAG13 (TYPE FIX)>
2418 <VEQUAL? VAL4 1 - PHRASE16 (TYPE FIX)>
2423 <CALL '
\1aEMIT 2 = TEMP10>
2427 <VEQUAL? VAL4 -1 - PHRASE20 (TYPE FIX)>
2432 <CALL '
\1aEMIT 2 = TEMP10>
2436 <LESS? VAL4 0 + PHRASE24 (TYPE FIX)>
2437 <GRTR? VAL4 63 + PHRASE24 (TYPE FIX)>
2440 <AND VAL4 #WORD *77* = TEMP10>
2442 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2443 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2447 <CALL '
\1aEMIT 3 = TEMP10>
2451 <LESS? VAL4 -63 + PHRASE30 (TYPE FIX)>
2452 <GRTR? VAL4 0 + PHRASE30 (TYPE FIX)>
2455 <SUB 0 VAL4 = TEMP10 (TYPE FIX)>
2457 <AND TEMP10 #WORD *77* = TEMP10>
2458 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2459 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = STACK>
2463 <CALL '
\1aEMIT 3 = TEMP10>
2469 <GVAL 'AC-PC = TEMP10>
2470 <NTHUV TEMP10 2 = TEMP10 (TYPE FIX)>
2471 <OR TEMP10 #WORD *200* = TEMP10>
2472 <LSH TEMP10 24 = TEMP10 (TYPE FIX)>
2473 <CHTYPE TEMP10 <TYPE-CODE EFF-ADDR> = TEMP10>
2474 <CONS TEMP10 () = TEMP10>
2478 <CALL '
\1aLREV 1 = TEMP38>
2479 <CHTYPE TEMP38 <TYPE-CODE EFF-ADDR> = TEMP38>
2480 <CONS TEMP38 () = TEMP38>
2481 <PUTREST TEMP10 TEMP38>
2483 <CHTYPE TEMP10 <TYPE-CODE LADDR> = STACK>
2487 <CALL '
\1aEMIT 3 = TEMP10>
2490 <END
\1aADD-CONSTANT-TO-AC>
2492 <GFCN
\1aCLEAN-DECL ("VALUE" <OR ATOM LINK> ATOM) DCL4>
2493 <TEMP NAME5 SNAME6 TEMP10 TEMP18>
2495 <NTHR DCL4 3 = NAME5 (RECORD-TYPE ATOM)>
2497 <LENUS NAME5 = TEMP10 (TYPE FIX)>
2498 <GRTR? TEMP10 2 - PHRASE8 (TYPE FIX)>
2500 <NTHUS NAME5 2 = TEMP10 (TYPE CHARACTER)>
2501 <VEQUAL? TEMP10 !\$ - PHRASE8>
2503 <NTHUS NAME5 1 = TEMP10 (TYPE CHARACTER)>
2504 <VEQUAL? TEMP10 !\T - PHRASE8>
2507 <RESTUS NAME5 2 = STACK (TYPE STRING)>
2510 <CALL '
\1aROOT 0 = STACK>
2511 <CALL '
\1aLOOKUP 2 = NAME5>
2512 <TYPE? NAME5 <TYPE-CODE FALSE> + PHRASE8>
2515 <CALL '
\1aISTYPE? 1 = TEMP10>
2516 <TYPE? TEMP10 <TYPE-CODE FALSE> - TAG15>
2518 <SET TEMP10 [LBIND GBIND] (TYPE VECTOR)>
2519 <LOOP (NAME5 VALUE) (TEMP10 LENGTH VALUE)>
2521 <NTHUV TEMP10 1 = TEMP18>
2522 <VEQUAL? TEMP18 NAME5 + TAG15>
2524 <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2525 <EMPUV? TEMP10 - TAG16>
2533 <CALL '
\1aISTYPE? 1 = TEMP18>
2534 <TYPE? TEMP18 <TYPE-CODE FALSE> + PHRASE19>
2543 <CALL '
\1aROOT 0 = STACK>
2544 <CALL '
\1aLOOKUP 2 = TEMP10>
2545 <TYPE? TEMP10 <TYPE-CODE FALSE> - COND7>
2553 <GFCN
\1aCHECK-MIMOP-TYPE ("VALUE" <OR ATOM FALSE> ATOM) ITEM4>
2554 <TEMP TEMP10 TEMP11>
2556 <NTHR ITEM4 4 = TEMP10 (RECORD-TYPE ATOM)>
2557 <GVAL 'MIMOP-OBLIST = TEMP11>
2558 <EQUAL? TEMP10 TEMP11 + TAG9>
2559 <DEAD TEMP10 TEMP11>
2562 <NTHR ITEM4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG12)>
2563 <TYPE? TEMP11 <TYPE-CODE FALSE> + TAG12>
2568 <NTHR ITEM4 3 = STACK (RECORD-TYPE ATOM)>
2571 <CALL '
\1aROOT 0 = STACK>
2572 <CALL '
\1aLOOKUP 2 = ITEM4>
2573 <NTHR ITEM4 5 = TEMP11 (RECORD-TYPE ATOM) (BRANCH-FALSE - TAG16)>
2574 <TYPE? TEMP11 <TYPE-CODE FALSE> - TAG16>
2580 <END
\1aCHECK-MIMOP-TYPE>
2582 <GFCN
\1aPRINT-MSUBR ("VALUE" ATOM ANY "OPTIONAL" CHANNEL) BYTEOFF6 OUTCHAN7>
2583 <OPT-DISPATCH 1 %<> OPT4 OPT5>
2589 <TYPE? OUTCHAN7 <TYPE-CODE UNBOUND> - TAG8>
2590 <GEN-LVAL 'OUTCHAN = OUTCHAN7>
2592 <GVAL 'BOOT-MODE = TEMP10>
2593 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE14>
2600 <GVAL 'FUNCTION-NAME = STACK>
2613 <GVAL 'INTERNAL-MSUBR-NAME = STACK>
2621 <GVAL 'FUNCTION-NAME = STACK>
2629 <GVAL 'FUNCTION-DECL = STACK>
2645 <GVAL 'BOOT-MODE = TEMP10>
2646 <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL28>
2656 <CALL '
\1aCRLF 1 = TEMP10>
2659 <END
\1aPRINT-MSUBR>
2660 <MSETG INFINITY <CHTYPE <MIN> FIX>>
2663 <GFCN
\1aPRINT-IMSUBR ("VALUE" ATOM "OPTIONAL" CHANNEL) OUTCHAN6>
2664 <OPT-DISPATCH 0 %<> OPT4 OPT5>
2670 <TYPE? OUTCHAN6 <TYPE-CODE UNBOUND> - TAG8>
2671 <GEN-LVAL 'OUTCHAN = OUTCHAN6>
2675 <CALL '
\1aM-HLEN 1 = TEMP10>
2679 <GVAL 'BOOT-MODE = TEMP10>
2680 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE16>
2687 <GVAL 'INTERNAL-MSUBR-NAME = STACK>
2699 <GVAL 'BOOT-MODE = TEMP10>
2700 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE23>
2702 <FRAME '
\1aPRINT-HEX-CODE>
2704 <CALL '
\1aPRINT-HEX-CODE 1>
2707 <FRAME '
\1aPRINT-NHEX-CODE>
2709 <CALL '
\1aPRINT-NHEX-CODE 1>
2716 <GVAL 'INTERNAL-MSUBR-NAME = STACK>
2723 <FRAME '
\1aPRINT-MVEC-ELEMENTS>
2725 <CALL '
\1aPRINT-MVEC-ELEMENTS 1>
2730 <GVAL 'BOOT-MODE = TEMP10>
2731 <TYPE? TEMP10 <TYPE-CODE FALSE> - BOOL32>
2741 <CALL '
\1aCRLF 1 = TEMP10>
2744 <END
\1aPRINT-IMSUBR>
2745 <GDECL (MSUBR-BUF) STRING (MSUBR-PTR) FIX>
2749 <SETG MS-TEMPSTR <ISTRING 4>>
2752 <GFCN
\1aPRINT-NHEX-CODE ("VALUE" ANY "OPTIONAL" CHANNEL FIX FIX ANY) OUTCHAN9 PTR10 MAXPTR11 LEN12>
2753 <OPT-DISPATCH 0 %<> OPT4 OPT5 OPT6 OPT7 OPT8>
2763 <TEMP TEMP15 TST28:STRING TEMP40>
2765 <TYPE? OUTCHAN9 <TYPE-CODE UNBOUND> - TAG13>
2766 <GEN-LVAL 'OUTCHAN = OUTCHAN9>
2768 <TYPE? MAXPTR11 <TYPE-CODE UNBOUND> - TAG18>
2769 <GVAL 'FBYTE-OFFSET = MAXPTR11>
2771 <TYPE? LEN12 <TYPE-CODE UNBOUND> - TAG20>
2772 <ADD MAXPTR11 1 = TEMP15 (TYPE FIX)>
2773 <DIV TEMP15 4 = LEN12 (TYPE FIX)>
2776 <NTHR 'MSUBR-BUF 1 = TEMP15 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG25)>
2777 <TYPE? TEMP15 <TYPE-CODE FALSE> + TAG25>
2778 <NTHR TEMP15 1 = TEMP15 (RECORD-TYPE GBIND)>
2779 <TYPE? TEMP15 <TYPE-CODE UNBOUND> - PHRASE24>
2782 <UUBLOCK <TYPE-CODE STRING> 1024 = TEMP15 (TYPE STRING)>
2783 <SETG 'MSUBR-BUF TEMP15>
2787 <GVAL 'MSUBR-BUF = TEMP15>
2788 <TOPU TEMP15 = TEMP15>
2789 <SETG 'MSUBR-BUF TEMP15>
2793 <SETG 'MSUBR-CHAN OUTCHAN9>
2794 <FRAME '
\1aWRITE-BYTE>
2796 <CALL '
\1aWRITE-BYTE 1>
2797 <GVAL 'MS-TEMPSTR = TST28>
2799 <GVAL 'INT-MODE = TEMP15>
2800 <TYPE? TEMP15 <TYPE-CODE FALSE> - PHRASE35>
2802 <NTHR 'FAST-MCODE 1 = TEMP15 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE35)>
2803 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE35>
2804 <NTHR TEMP15 1 = TEMP15 (RECORD-TYPE GBIND)>
2805 <TYPE? TEMP15 <TYPE-CODE UNBOUND> + PHRASE35>
2807 <GVAL 'FAST-MCODE = TEMP15>
2808 <TYPE? TEMP15 <TYPE-CODE FALSE> + PHRASE35>
2810 <FRAME '
\1aWRITE-BYTE>
2812 <CALL '
\1aWRITE-BYTE 1>
2813 <NTHR 'UVECTOR 5 = TEMP15 (RECORD-TYPE ATOM) (TYPE TYPE-C)>
2814 <VALUE TST28 = TEMP40>
2815 <OBJECT TEMP15 1 TEMP40 = TEMP15>
2817 <PUTUU TEMP15 1 LEN12>
2819 <SET TEMP40 TST28 (TYPE STRING)>
2824 <EMPUS? TEMP40 + MAP41>
2825 <FRAME '
\1aWRITE-BYTE>
2826 <NTHUS TEMP40 1 = STACK>
2827 <CALL '
\1aWRITE-BYTE 1>
2828 <RESTUS TEMP40 1 = TEMP40 (TYPE STRING)>
2834 <FRAME '
\1aWRITE-BYTE>
2835 <FRAME '
\1aNTH-FCODE>
2837 <CALL '
\1aNTH-FCODE 1 = STACK>
2838 <CALL '
\1aWRITE-BYTE 1>
2839 <ADD PTR10 1 = PTR10 (TYPE FIX)>
2840 <GRTR? PTR10 MAXPTR11 + PHRASE51 (TYPE FIX)>
2841 <FRAME '
\1aWRITE-BYTE>
2842 <FRAME '
\1aNTH-FCODE>
2844 <CALL '
\1aNTH-FCODE 1 = TEMP15>
2845 <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
2847 <CALL '
\1aWRITE-BYTE 1>
2850 <FRAME '
\1aWRITE-BYTE>
2852 <CALL '
\1aWRITE-BYTE 1>
2854 <ADD PTR10 1 = PTR10 (TYPE FIX)>
2855 <GRTR? PTR10 MAXPTR11 + PHRASE57 (TYPE FIX)>
2856 <FRAME '
\1aWRITE-BYTE>
2857 <FRAME '
\1aNTH-FCODE>
2859 <CALL '
\1aNTH-FCODE 1 = TEMP15>
2860 <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
2862 <CALL '
\1aWRITE-BYTE 1>
2865 <FRAME '
\1aWRITE-BYTE>
2867 <CALL '
\1aWRITE-BYTE 1>
2869 <ADD PTR10 1 = PTR10 (TYPE FIX)>
2870 <GRTR? PTR10 MAXPTR11 + PHRASE63 (TYPE FIX)>
2871 <FRAME '
\1aWRITE-BYTE>
2872 <FRAME '
\1aNTH-FCODE>
2874 <CALL '
\1aNTH-FCODE 1 = TEMP15>
2875 <CHTYPE TEMP15 <TYPE-CODE CHARACTER> = STACK>
2877 <CALL '
\1aWRITE-BYTE 1>
2880 <FRAME '
\1aWRITE-BYTE>
2882 <CALL '
\1aWRITE-BYTE 1>
2884 <ADD PTR10 1 = PTR10 (TYPE FIX)>
2885 <GRTR? PTR10 MAXPTR11 - AGAIN47 (TYPE FIX)>
2889 <FRAME '
\1aPRINTBYTE>
2890 <DIV LEN12 65536 = STACK (TYPE FIX)>
2891 <CALL '
\1aPRINTBYTE 1>
2892 <FRAME '
\1aPRINTBYTE>
2893 <AND LEN12 65535 = TEMP15>
2894 <DIV TEMP15 256 = STACK (TYPE FIX)>
2896 <CALL '
\1aPRINTBYTE 1>
2897 <FRAME '
\1aPRINTBYTE>
2898 <AND LEN12 255 = STACK>
2900 <CALL '
\1aPRINTBYTE 1>
2904 <ADD PTR10 3 = TEMP40 (TYPE FIX)>
2905 <LESS? MAXPTR11 TEMP40 + PHRASE77 (TYPE FIX)>
2907 <FRAME '
\1aPRINTBYTE>
2908 <FRAME '
\1aNTH-FCODE>
2909 <ADD PTR10 3 = STACK (TYPE FIX)>
2910 <CALL '
\1aNTH-FCODE 1 = STACK>
2911 <CALL '
\1aPRINTBYTE 1>
2914 <FRAME '
\1aPRINTBYTE>
2916 <CALL '
\1aPRINTBYTE 1>
2918 <ADD PTR10 2 = TEMP40 (TYPE FIX)>
2919 <LESS? MAXPTR11 TEMP40 + PHRASE83 (TYPE FIX)>
2921 <FRAME '
\1aPRINTBYTE>
2922 <FRAME '
\1aNTH-FCODE>
2923 <ADD PTR10 2 = STACK (TYPE FIX)>
2924 <CALL '
\1aNTH-FCODE 1 = STACK>
2925 <CALL '
\1aPRINTBYTE 1>
2928 <FRAME '
\1aPRINTBYTE>
2930 <CALL '
\1aPRINTBYTE 1>
2932 <ADD PTR10 1 = TEMP40 (TYPE FIX)>
2933 <LESS? MAXPTR11 TEMP40 + PHRASE89 (TYPE FIX)>
2935 <FRAME '
\1aPRINTBYTE>
2936 <FRAME '
\1aNTH-FCODE>
2937 <ADD PTR10 1 = STACK (TYPE FIX)>
2938 <CALL '
\1aNTH-FCODE 1 = STACK>
2939 <CALL '
\1aPRINTBYTE 1>
2942 <FRAME '
\1aPRINTBYTE>
2944 <CALL '
\1aPRINTBYTE 1>
2946 <FRAME '
\1aPRINTBYTE>
2947 <FRAME '
\1aNTH-FCODE>
2949 <CALL '
\1aNTH-FCODE 1 = STACK>
2950 <CALL '
\1aPRINTBYTE 1>
2951 <ADD PTR10 4 = PTR10 (TYPE FIX)>
2952 <GRTR? PTR10 MAXPTR11 - AGAIN75 (TYPE FIX)>
2953 <FRAME '
\1aWRITE-BYTE>
2955 <CALL '
\1aWRITE-BYTE 1>
2957 <FRAME '
\1aCHANNEL-OP>
2960 <PUSH 'WRITE-BUFFER>
2961 <GVAL 'MSUBR-BUF = TEMP40>
2962 <TOPU TEMP40 = STACK>
2964 <GVAL 'MSUBR-PTR = STACK>
2965 <CALL '
\1aCHANNEL-OP 4 = TEMP40>
2968 <END
\1aPRINT-NHEX-CODE>
\r\0\r\0
2970 <GFCN
\1aPRINTBYTE ("VALUE" FIX FIX) NUM4>
2973 <FRAME '
\1aWRITE-BYTE>
2974 <LSH NUM4 -5 = TEMP6 (TYPE FIX)>
2975 <ADD TEMP6 65 = TEMP6 (TYPE FIX)>
2976 <CHTYPE TEMP6 <TYPE-CODE CHARACTER> = STACK>
2978 <CALL '
\1aWRITE-BYTE 1>
2979 <FRAME '
\1aWRITE-BYTE>
2980 <AND NUM4 #WORD *37* = TEMP6>
2982 <ADD TEMP6 65 = TEMP6 (TYPE FIX)>
2983 <CHTYPE TEMP6 <TYPE-CODE CHARACTER> = STACK>
2985 <CALL '
\1aWRITE-BYTE 1 = TEMP6>
2990 <GFCN
\1aWRITE-BYTE ("VALUE" FIX CHARACTER) BYTE4>
2993 <GVAL 'MSUBR-BUF = S5>
2994 <EMPUS? S5 - PHRASE7 (TYPE STRING)>
2996 <FRAME '
\1aCHANNEL-OP>
2997 <GVAL 'MSUBR-CHAN = STACK>
2998 <PUSH 'WRITE-BUFFER>
3000 <GVAL 'MSUBR-PTR = STACK>
3001 <CALL '
\1aCHANNEL-OP 4>
3006 <RESTUS S5 1 = S5 (TYPE STRING)>
3007 <SETG 'MSUBR-BUF S5>
3009 <GVAL 'MSUBR-PTR = S5>
3010 <ADD S5 1 = S5 (TYPE FIX)>
3011 <SETG 'MSUBR-PTR S5>