4 <ENTRY FILE-COMPILE STATUS REDO PRECOMPILED DISOWN MACRO-COMPILE REHASH-ALL MACRO-FLUSH NO-TEMP-FILE INS-LIST INS-FIX ACCESS-LIST ERRORS-OCCURED>
6 <USE "FILE-INDEX" "HASH" "CDRIVE" "COMPDEC" "ITIME" "MIMC-GRDUMP" "TTY">
8 <NEWTYPE ACCESS-LIST LIST '<<PRIMTYPE LIST> ANY FIX FIX>>
10 <NEWTYPE INS-LIST LIST>
12 <GDECL (ALL-OUT) LIST>
16 <SETG PACKAGE-OBLIST <MOBLIST PACKAGE>>
30 <SET HAIRY-ANALYSIS T>
42 "Stuff for status line"
44 <SETG STATE-TITLE "State ">
46 <MSETG H-STATE <LENGTH ,STATE-TITLE>>
50 <SETG STATE-FCN " Fcn ">
52 <MSETG H-FCN <+ <LENGTH ,STATE-FCN> ,H-STATE-LN ,H-STATE>>
56 <SETG STATE-PHASE " Phase ">
58 <MSETG H-PHASE <+ ,H-FCN ,H-FCN-LN <LENGTH ,STATE-PHASE>>>
62 <SETG STATE-CPU " Cpu ">
64 <MSETG H-CPU <+ ,H-PHASE ,H-PHASE-LN <LENGTH ,STATE-CPU>>>
68 <SETG STATE-REAL " Real ">
70 <MSETG H-REAL <+ ,H-CPU ,H-CPU-LN <LENGTH ,STATE-REAL>>>
74 <MSETG H-RATIO <+ ,H-REAL ,H-REAL-LN 1>>
78 <MSETG H-RE-ANA <+ ,H-RATIO ,H-RATIO-LN 1>>
115 <FCN
\1aFILE-COMPILE ("VALUE" ANY STRING "OPTIONAL" STRING STRING) INFILE7 OUTFILE8 NM2-9>
116 <OPT-DISPATCH 1 %<> OPT4 OPT5 OPT6>
122 <TEMP TEMP3:LBIND TEMP42 (NEW-INDEX16:LIST ()) (PRE-INDEX18:LIST ()) NO-TEMP-FILE20 PRECH28 REDO31:LIST (ANY-MIMAS?37 %<>) REAL-NM2-38:STRING INCH12 TEMP68 OUTCH13 TEMP84 TEMP114 TEMP115 FILE-DATA23:LIST TEMP272 TEMP273 TEMP274 TEMP275 TMP26 PN551>
124 <GETS 'BIND = TEMP3 (TYPE LBIND)>
126 <TYPE? NM2-9 <TYPE-CODE UNBOUND> - TAG40 (DEAD-FALL NM2-9 TEMP42)>
127 <SET NM2-9 "MUD" (TYPE STRING)>
130 <BBIND 'NM2 'STRING %<> NM2-9>
132 <VEQUAL? TEMP42 0 + TAG43>
138 <CALL '
\1aTIME 0 = TEMP42>
139 <ADDF TEMP42 0.5000000 = TEMP42 (TYPE FLOAT)>
140 <FIX TEMP42 = TEMP42 (TYPE FIX)>
141 <BBIND 'STARCPU 'FIX 'FIX TEMP42>
144 <CALL '
\1aRTIME 0 = TEMP42>
145 <BBIND 'STARR 'FIX 'FIX TEMP42>
147 <BBIND 'TEMPCH <OR CHANNEL FALSE> 'FIX %<>>
148 <BBIND 'SRC-CHAN <OR CHANNEL FALSE> 'FIX %<>>
149 <GEN-LVAL 'NO-TEMP-FILE = NO-TEMP-FILE20>
150 <BBIND 'ATOM-LIST <LIST [REST <OR LIST ATOM>]> 'FIX>
151 <GEN-LVAL 'OBLIST = TEMP42>
152 <BBIND 'OBLIST 'ANY 'FIX TEMP42>
154 <BBIND 'ATL <LIST [REST <OR LIST ATOM>]> 'FIX>
155 <GEN-LVAL 'OUTCHAN = TEMP42>
156 <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP42>
158 <BBIND 'NO-BQ 'ANY 'FIX %<>>
159 <GEN-LVAL 'REDO = REDO31>
160 <BBIND 'NM1 'STRING 'FIX>
161 <BBIND 'SNM 'STRING 'FIX>
162 <BBIND 'DEV 'STRING 'FIX>
163 <BBIND 'GCTIME 'FLOAT 'FIX 0.0>
164 <BBIND 'I/O-TIME 'FLOAT 'FIX 0.0>
165 <NTHR 'NM2 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
166 <NTHR TEMP42 1 = REAL-NM2-38 (RECORD-TYPE LBIND)>
168 <CFRAME = TEMP42 (TYPE FRAME)>
169 <BBIND 'FCEX 'FRAME 'FIX TEMP42>
172 <SETG 'ERRORS-OCCURED %<>>
174 <FRAME '
\1aFILE-EXISTS?>
176 <CALL '
\1aFILE-EXISTS? 1 = TEMP42>
177 <TYPE? TEMP42 <TYPE-CODE FALSE> - PHRASE58 (DEAD-JUMP TEMP42)>
181 <NTHR 'FCEX 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
182 <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
186 <FRAME '
\1aCHANNEL-OPEN>
189 <CALL '
\1aCHANNEL-OPEN 2 = INCH12>
193 <CALL '
\1aPRINSPEC 2>
194 <FRAME '
\1aCHANNEL-OP>
197 <CALL '
\1aCHANNEL-OP 2 = TEMP42>
198 <NTHR 'NM1 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
199 <PUTR TEMP68 1 TEMP42 (RECORD-TYPE LBIND)>
204 <NTHR 'NM2 2 = TEMP68 (RECORD-TYPE ATOM) (TYPE LBIND)>
205 <PUTR TEMP68 1 "MIMA" (RECORD-TYPE LBIND)>
207 <FRAME '
\1aCHANNEL-OPEN>
210 <CALL '
\1aCHANNEL-OPEN 2 = OUTCH13>
214 <CALL '
\1aPRINSPEC 2>
215 <TYPE? NO-TEMP-FILE20 <TYPE-CODE FALSE> - PHRASE75>
216 <GETS 'BIND = TEMP68 (TYPE LBIND)>
217 <BBIND 'NM2 'STRING 'FIX "TEMP">
224 <CALL '
\1aOPEN 2 = TEMP42>
225 <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
226 <PUTR TEMP84 1 TEMP42 (RECORD-TYPE LBIND)>
228 <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE80>
235 <NTHR 'TEMPCH 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
236 <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
238 <PUSH "ERRET ANYTHING TO RETRY">
244 <PUSH "Temporary output to ">
245 <NTHR 'TEMPCH 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
246 <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
248 <CALL '
\1aPRINSPEC 2>
250 <GEN-ASSIGNED? 'PRECOMPILED - EXIT96>
251 <GEN-LVAL 'PRECOMPILED = TEMP84>
252 <TYPE? TEMP84 <TYPE-CODE FALSE> + EXIT96>
257 <TYPE? PRECH28 <TYPE-CODE UNBOUND> + BOOL102 (DEAD-JUMP PRECH28)>
258 <TYPE? PRECH28 <TYPE-CODE FALSE> - EXIT96 (DEAD-FALL PRECH28)>
262 <GEN-LVAL 'PRECOMPILED = STACK>
263 <CALL '
\1aOPEN 2 = PRECH28>
264 <TYPE? PRECH28 <TYPE-CODE FALSE> + PHRASE100>
266 <PUSH "Will load precompile from ">
268 <CALL '
\1aPRINSPEC 2 = TEMP42>
269 <TYPE? TEMP42 <TYPE-CODE FALSE> - EXIT96>
273 <CALL '
\1aUNAME 0 = TEMP42>
274 <IFCAN "STRING-EQUAL?">
275 <STRING-EQUAL? TEMP42 "OPERATOR" - PHRASE110>
277 <ENDIF "STRING-EQUAL?">
278 <IFCANNOT "STRING-EQUAL?">
279 <SET TEMP68 "OPERATOR" (TYPE STRING)>
280 <LENUS TEMP42 = TEMP84 (TYPE FIX)>
281 <VEQUAL? TEMP84 8 - PHRASE110 (DEAD-JUMP TEMP84 TEMP68 TEMP42)>
282 <LOOP (TEMP42 VALUE LENGTH) (TEMP68 VALUE LENGTH) (TEMP84 VALUE)>
284 <NTHUS TEMP42 1 = TEMP114>
285 <NTHUS TEMP68 1 = TEMP115>
286 <VEQUAL? TEMP114 TEMP115 - PHRASE110 (DEAD-JUMP TEMP84 TEMP68 TEMP42)>
287 <DEAD TEMP114 TEMP115>
288 <RESTUS TEMP42 1 = TEMP42 (TYPE STRING)>
289 <RESTUS TEMP68 1 = TEMP68 (TYPE STRING)>
290 <SUB TEMP84 1 = TEMP84 (TYPE FIX)>
291 <GRTR? TEMP84 0 + TAG116 (TYPE FIX) (DEAD-FALL TEMP84 TEMP68 TEMP42)>
292 <ENDIF "STRING-EQUAL?">
294 <PUSH "Can't load precompilation from ">
295 <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
296 <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
303 <CALL '
\1aNTH 2 = STACK>
304 <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
305 <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
310 <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
311 <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
315 <NTH1 PRECH28 = STACK>
316 <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
317 <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
322 <NTHR 'OUTCHAN 2 = TEMP42 (RECORD-TYPE ATOM) (TYPE LBIND)>
323 <NTHR TEMP42 1 = STACK (RECORD-TYPE LBIND)>
329 <PUSH "Cant load precompilation">
331 <PUSH "ERRET non-false to retry, false to ignore precompilation">
332 <CALL '
\1aERROR 3 = TEMP42>
333 <TYPE? TEMP42 <TYPE-CODE FALSE> + EXIT96 (DEAD-JUMP TEMP42)>
334 <TYPE? TEMP42 <TYPE-CODE STRING> - AGAIN98>
335 <GEN-SET 'PRECOMPILED TEMP42>
339 <GEN-LVAL 'CAREFUL = TEMP42>
340 <TYPE? TEMP42 <TYPE-CODE FALSE> - EXIT146>
343 <PUSH "Bounds checking disabled.">
344 <NTHR 'OUTCHAN 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
345 <NTHR TEMP115 1 = STACK (RECORD-TYPE LBIND)>
350 <NTHR 'OUTCHAN 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
351 <NTHR TEMP115 1 = STACK (RECORD-TYPE LBIND)>
355 <FRAME '
\1aDO-AND-CHECK>
356 <PUSH "Writing record ">
361 <NTHR 'SRC-CHAN 2 = TEMP115 (RECORD-TYPE ATOM) (TYPE LBIND)>
362 <NTHR TEMP115 1 = STACK (RECORD-TYPE LBIND)>
364 <CALL '
\1aDO-AND-CHECK 6 = TEMP42>
365 <TYPE? TEMP42 <TYPE-CODE FALSE> + PHRASE155 (DEAD-JUMP INCH12 TEMP42)>
368 <NTHR 'OUTCHAN 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
369 <NTHR TEMP114 1 = STACK (RECORD-TYPE LBIND)>
374 <NTHR 'OUTCHAN 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
375 <NTHR TEMP114 1 = STACK (RECORD-TYPE LBIND)>
378 <NTHR 'OUTCHAN 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
379 <PUTR TEMP114 1 TEMP42 (RECORD-TYPE LBIND)>
381 <SETG 'COMPCHAN TEMP42>
384 <PUSH "Compilation record for: ">
387 <CALL '
\1aPRINSPEC 2>
389 <PUSH "Output file: ">
391 <CALL '
\1aPRINSPEC 2>
401 <GVAL 'COUNT-GCS = STACK>
403 <CALL '
\1aHANDLER 3 = STACK>
404 <CALL '
\1aON 1 = TEMP42>
406 <CALL '
\1aTIME 0 = TEMP68>
407 <GVAL 'STATUS-LINE = TEMP114>
408 <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE176>
410 <FRAME '
\1aUPDATE-STATUS>
415 <CALL '
\1aUPDATE-STATUS 4>
417 <FRAME '
\1aFIND-DEFINE-LOAD>
420 <CALL '
\1aFIND-DEFINE-LOAD 2 = FILE-DATA23>
422 <CALL '
\1aTIME 0 = TEMP114>
423 <SUBF TEMP114 TEMP68 = TEMP114 (TYPE FLOAT)>
425 <NTHR 'I/O-TIME 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
426 <PUTR INCH12 1 TEMP114 (RECORD-TYPE LBIND)>
427 <DEAD INCH12 TEMP114>
428 <GVAL 'STATUS-LINE = TEMP114>
429 <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE184>
431 <FRAME '
\1aUPDATE-STATUS>
436 <CALL '
\1aUPDATE-STATUS 4>
439 <PUSH "File loaded.">
440 <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
441 <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
446 <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
447 <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
450 <SET INCH12 () (TYPE LIST)>
451 <SET OUTCH13 () (TYPE LIST)>
452 <NTHL FILE-DATA23 1 = TEMP84 (TYPE LIST)>
456 <EMPL? TEMP84 + MAPAP198 (DEAD-JUMP TEMP84 OUTCH13)>
457 <NTHL TEMP84 1 = TEMP68>
458 <GVAL TEMP68 = TEMP114>
459 <TYPE? TEMP114 <TYPE-CODE FUNCTION> + BOOL208>
461 <GVAL TEMP68 = TEMP114>
462 <TYPE? TEMP114 <TYPE-CODE MACRO> - MAP196 (DEAD-JUMP TEMP68)>
464 <GVAL TEMP68 = TEMP114>
465 <EMPTY? TEMP114 + MAP196 (DEAD-JUMP TEMP68)>
467 <GVAL TEMP68 = TEMP114>
468 <NTH1 TEMP114 = TEMP114>
469 <TYPE? TEMP114 <TYPE-CODE FUNCTION> - MAP196 (DEAD-JUMP TEMP68)>
474 <CONS TEMP114 () = TEMP114 (TYPE LIST)>
475 <EMPL? INCH12 - TAG213 (DEAD-FALL OUTCH13 INCH12)>
476 <SET INCH12 TEMP114 (TYPE LIST)>
479 <PUTREST OUTCH13 TEMP114>
482 <SET OUTCH13 TEMP114 (TYPE LIST)>
485 <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
488 <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
489 <PUTR TEMP84 1 INCH12 (RECORD-TYPE LBIND)>
491 <EMPL? REDO31 + EXIT238 (TYPE LIST)>
492 <GEN-LVAL 'PACKAGE-MODE = TEMP84>
493 <TYPE? TEMP84 <TYPE-CODE FALSE> + MAPAP227>
495 <SET TEMP84 REDO31 (TYPE LIST)>
499 <EMPL? TEMP84 + MAPAP227 (DEAD-JUMP TEMP84)>
502 <GEN-LVAL 'PACKAGE-MODE = STACK>
503 <NTHL TEMP114 1 = STACK (TYPE ATOM)>
504 <CALL '
\1aPACK-FIX 2 = INCH12>
505 <PUTL TEMP114 1 INCH12>
506 <DEAD TEMP114 INCH12>
507 <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
511 <PUSH "Explicitly Recompiling ">
512 <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
513 <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
518 <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
519 <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
524 <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
525 <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
529 <GEN-ASSIGNED? 'PRECOMPILED - PHRASE250>
530 <GEN-LVAL 'PRECOMPILED = TEMP114>
531 <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE250>
533 <TYPE? PRECH28 <TYPE-CODE FALSE> + PHRASE250>
535 <CALL '
\1aTIME 0 = TEMP68 (DEAD-FALL PRE-INDEX18)>
536 <SET PRE-INDEX18 () (TYPE LIST)>
537 <GVAL 'STATUS-LINE = TEMP114>
538 <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE256>
540 <FRAME '
\1aUPDATE-STATUS>
545 <CALL '
\1aUPDATE-STATUS 4>
547 <SET OUTCH13 %<> (TYPE FALSE)>
553 <CALL '
\1aACCESS 1 = TEMP84>
556 <CFRAME = STACK (TYPE FRAME)>
557 <CALL '
\1aREAD 2 = TEMP114>
558 <CFRAME = INCH12 (TYPE FRAME)>
559 <EQUAL? INCH12 TEMP114 + EXIT258 (DEAD-JUMP TEMP114 TEMP84 OUTCH13)>
561 <TYPE? TEMP114 <TYPE-CODE FORM> - PHRASE268 (DEAD-JUMP TEMP84 OUTCH13)>
562 <EMPL? TEMP114 + PHRASE268 (TYPE FORM) (DEAD-JUMP TEMP84 OUTCH13)>
563 <NTHL TEMP114 1 = TEMP115>
564 <TYPE? TEMP115 <TYPE-CODE ATOM> - PHRASE268 (DEAD-JUMP TEMP115 TEMP84 OUTCH13)>
565 <NTHR TEMP115 3 = INCH12 (RECORD-TYPE ATOM)>
566 <IFCAN "STRING-EQUAL?">
567 <STRING-EQUAL? INCH12 "FCN" + BOOL270 (DEAD-JUMP TEMP115)>
569 <ENDIF "STRING-EQUAL?">
570 <IFCANNOT "STRING-EQUAL?">
571 <SET TEMP272 "FCN" (TYPE STRING)>
572 <LENUS INCH12 = TEMP273 (TYPE FIX)>
573 <VEQUAL? TEMP273 3 - TAG271 (DEAD-JUMP TEMP273 TEMP272 INCH12)>
574 <LOOP (INCH12 VALUE LENGTH) (TEMP272 VALUE LENGTH) (TEMP273 VALUE)>
576 <NTHUS INCH12 1 = TEMP274>
577 <NTHUS TEMP272 1 = TEMP275>
578 <VEQUAL? TEMP274 TEMP275 - TAG271 (DEAD-JUMP TEMP273 TEMP272 INCH12)>
579 <DEAD TEMP274 TEMP275>
580 <RESTUS INCH12 1 = INCH12 (TYPE STRING)>
581 <RESTUS TEMP272 1 = TEMP272 (TYPE STRING)>
582 <SUB TEMP273 1 = TEMP273 (TYPE FIX)>
583 <GRTR? TEMP273 0 + TAG276 (TYPE FIX) (DEAD-FALL TEMP273 TEMP272 INCH12)>
584 <JUMP + BOOL270 (DEAD-JUMP TEMP115)>
585 <ENDIF "STRING-EQUAL?">
587 <NTHR TEMP115 3 = TEMP272 (RECORD-TYPE ATOM)>
589 <IFCAN "STRING-EQUAL?">
590 <STRING-EQUAL? TEMP272 "GFCN" - PHRASE268 (DEAD-JUMP TEMP84 OUTCH13)>
592 <ENDIF "STRING-EQUAL?">
593 <IFCANNOT "STRING-EQUAL?">
594 <SET INCH12 "GFCN" (TYPE STRING)>
595 <LENUS TEMP272 = TEMP275 (TYPE FIX)>
596 <VEQUAL? TEMP275 4 - PHRASE268 (DEAD-JUMP TEMP275 TEMP272 TEMP84 OUTCH13 INCH12)>
597 <LOOP (TEMP272 VALUE LENGTH) (INCH12 VALUE LENGTH) (TEMP275 VALUE)>
599 <NTHUS TEMP272 1 = TEMP274>
600 <NTHUS INCH12 1 = TEMP115>
601 <VEQUAL? TEMP274 TEMP115 - PHRASE268 (DEAD-JUMP TEMP275 TEMP272 TEMP84 OUTCH13 INCH12)>
602 <DEAD TEMP274 TEMP115>
603 <RESTUS TEMP272 1 = TEMP272 (TYPE STRING)>
604 <RESTUS INCH12 1 = INCH12 (TYPE STRING)>
605 <SUB TEMP275 1 = TEMP275 (TYPE FIX)>
606 <GRTR? TEMP275 0 + TAG278 (TYPE FIX) (DEAD-FALL TEMP275 TEMP272 INCH12)>
607 <ENDIF "STRING-EQUAL?">
609 <FRAME '
\1aSKIP-MIMA>
611 <RESTL TEMP114 1 = INCH12 (TYPE LIST)>
612 <NTHL INCH12 1 = TEMP273>
615 <CALL '
\1aSKIP-MIMA 2>
616 <NTHR TEMP273 1 = INCH12 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG283) (DEAD-JUMP INCH12)>
617 <TYPE? INCH12 <TYPE-CODE FALSE> + TAG283 (DEAD-JUMP INCH12)>
618 <NTHR INCH12 1 = INCH12 (RECORD-TYPE GBIND)>
619 <TYPE? INCH12 <TYPE-CODE UNBOUND> - PHRASE281>
624 <NTHR TEMP273 3 = STACK (RECORD-TYPE ATOM)>
625 <CALL '
\1aMEMBER 2 = INCH12>
626 <TYPE? INCH12 <TYPE-CODE FALSE> + AGAIN264>
629 <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
630 <NTHR INCH12 1 = INCH12 (RECORD-TYPE LBIND)>
631 <EMPL? INCH12 + EXIT311 (TYPE LIST) (DEAD-JUMP TEMP114 TEMP84)>
634 <EMPL? INCH12 + TAG290 (DEAD-JUMP INCH12)>
635 <LOOP (TEMP273 VALUE) (INCH12 VALUE)>
637 <NTHL INCH12 1 = TEMP272>
638 <TYPE? TEMP272 <TYPE-CODE ATOM> - TAG292 (DEAD-JUMP TEMP272)>
639 <VEQUAL? TEMP272 TEMP273 + EXIT311 (DEAD-JUMP TEMP114 TEMP84 INCH12)>
642 <RESTL INCH12 1 = INCH12 (TYPE LIST)>
643 <EMPL? INCH12 - TAG291 (DEAD-FALL INCH12)>
645 <NTHR TEMP273 1 = INCH12 (RECORD-TYPE ATOM) (BRANCH-FALSE + BOOL293) (DEAD-JUMP INCH12)>
646 <TYPE? INCH12 <TYPE-CODE FALSE> + BOOL293 (DEAD-JUMP INCH12)>
647 <NTHR INCH12 1 = INCH12 (RECORD-TYPE GBIND)>
648 <TYPE? INCH12 <TYPE-CODE UNBOUND> + BOOL293>
650 <TYPE? OUTCH13 <TYPE-CODE FALSE> + BOOL293>
652 <GVAL TEMP273 = STACK>
653 <CALL '
\1aHASH 1 = INCH12>
654 <VEQUAL? OUTCH13 INCH12 - EXIT311 (TYPE FIX) (DEAD-JUMP TEMP114 TEMP84)>
657 <CONS TEMP273 () = INCH12>
658 <CONS TEMP84 () = TEMP272>
660 <PUTREST INCH12 TEMP272>
663 <CALL '
\1aACCESS 1 = TEMP115>
664 <CONS TEMP115 () = TEMP115>
665 <PUTREST TEMP272 TEMP115>
667 <SET TEMP272 OUTCH13>
668 <TYPE? TEMP272 <TYPE-CODE FALSE> - PHRASE297 (DEAD-FALL TEMP272)>
669 <NTHR TEMP273 1 = TEMP274 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG299) (DEAD-JUMP TEMP274)>
670 <TYPE? TEMP274 <TYPE-CODE FALSE> + TAG299 (DEAD-JUMP TEMP274)>
671 <NTHR TEMP274 1 = TEMP274 (RECORD-TYPE GBIND)>
672 <TYPE? TEMP274 <TYPE-CODE UNBOUND> - TAG298>
675 <SET TEMP272 %<> (TYPE FALSE)>
679 <GVAL TEMP273 = STACK>
680 <CALL '
\1aHASH 1 = TEMP272>
682 <CONS TEMP272 () = TEMP272>
683 <PUTREST TEMP115 TEMP272>
684 <DEAD TEMP115 TEMP272>
685 <CHTYPE INCH12 <TYPE-CODE ACCESS-LIST> = INCH12>
686 <CONS INCH12 () = INCH12>
687 <PUTREST INCH12 PRE-INDEX18>
689 <SET PRE-INDEX18 INCH12>
694 <RESTL TEMP114 1 = INCH12 (TYPE LIST)>
696 <RESTL INCH12 1 = INCH12 (TYPE LIST)>
697 <NTHL INCH12 1 = STACK>
700 <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
701 <NTHR INCH12 1 = INCH12 (RECORD-TYPE LBIND)>
702 <NTHL INCH12 1 = INCH12>
703 <VEQUAL? INCH12 TEMP273 - PHRASE303 (DEAD-FALL ANY-MIMAS?37)>
705 <NTHR 'ATOM-LIST 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
706 <NTHR TEMP272 1 = TEMP272 (RECORD-TYPE LBIND)>
707 <RESTL TEMP272 1 = INCH12 (TYPE LIST)>
709 <NTHR 'ATOM-LIST 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
710 <PUTR TEMP272 1 INCH12 (RECORD-TYPE LBIND)>
711 <DEAD TEMP272 INCH12>
714 <NTHR 'ATOM-LIST 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
715 <NTHR TEMP272 1 = TEMP114 (RECORD-TYPE LBIND)>
720 <RESTL TEMP114 1 = TEMP272 (TYPE LIST)>
721 <EMPL? TEMP272 + EXIT311 (TYPE LIST) (DEAD-JUMP TEMP114)>
723 <RESTL TEMP114 1 = TEMP272 (TYPE LIST)>
724 <NTHL TEMP272 1 = TEMP272>
725 <VEQUAL? TEMP272 TEMP273 - PHRASE319 (DEAD-FALL ANY-MIMAS?37)>
727 <RESTL TEMP114 1 = TEMP115 (TYPE LIST)>
728 <RESTL TEMP115 1 = TEMP272 (TYPE LIST)>
730 <PUTREST TEMP114 TEMP272>
731 <DEAD TEMP114 TEMP272>
733 <SET ANY-MIMAS?37 'T (TYPE ATOM)>
736 <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
739 <TYPE? OUTCH13 <TYPE-CODE FALSE> + PHRASE326 (DEAD-JUMP TEMP273 OUTCH13)>
740 <NTHR TEMP273 1 = TEMP272 (RECORD-TYPE ATOM) (BRANCH-FALSE + AGAIN264)>
742 <TYPE? TEMP272 <TYPE-CODE FALSE> + AGAIN264>
743 <NTHR TEMP272 1 = TEMP272 (RECORD-TYPE GBIND)>
744 <TYPE? TEMP272 <TYPE-CODE UNBOUND> - PHRASE326 (DEAD-JUMP OUTCH13)>
748 <TYPE? TEMP114 <TYPE-CODE WORD> - PHRASE324>
749 <GVAL 'REHASH-ALL = TEMP272>
750 <TYPE? TEMP272 <TYPE-CODE FALSE> - PHRASE324>
752 <CHTYPE TEMP114 <TYPE-CODE FIX> = OUTCH13>
756 <TYPE? TEMP114 <TYPE-CODE FORM> - TAG328>
757 <EMPL? TEMP114 + TAG328 (TYPE FORM)>
758 <NTHL TEMP114 1 = TEMP272>
759 <SET TEMP115 [PACKAGE RPACKAGE ENDPACKAGE ENTRY USE-WHEN USE-DEBUG INCLUDE DEFINITIONS END-DEFINITIONS DROP L-UNUSE RENTRY USE USE-DEFER USE-TOTAL IMPORT-PM DEFINITION-MODULE PROGRAM-MODULE END-MODULE INCLUDE-DEFINITIONS PMEXPORT INCLUDE-WHEN IMPORT-WHEN BLOCK ENDBLOCK ZSECTION ZZSECTION ZPACKAGE ZZPACKAGE ZENDPACKAGE ZENDSECTION ENDSECTION] (TYPE VECTOR)>
760 <TYPE? TEMP272 <TYPE-CODE ATOM> - PHRASE326 (DEAD-JUMP TEMP272 TEMP115 TEMP114)>
761 <LOOP (TEMP272 VALUE) (TEMP115 LENGTH VALUE)>
763 <NTHUV TEMP115 1 = TEMP274>
764 <VEQUAL? TEMP274 TEMP272 + TAG328 (DEAD-JUMP TEMP272 TEMP115)>
766 <RESTUV TEMP115 1 = TEMP115 (TYPE VECTOR)>
767 <EMPUV? TEMP115 - TAG329 (DEAD-FALL TEMP272 TEMP115 TEMP114)>
775 <SET OUTCH13 %<> (TYPE FALSE)>
779 <PUSH "Precompilation loaded">
780 <NTHR 'OUTCHAN 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
781 <NTHR TEMP272 1 = STACK (RECORD-TYPE LBIND)>
786 <NTHR 'OUTCHAN 2 = TEMP272 (RECORD-TYPE ATOM) (TYPE LBIND)>
787 <NTHR TEMP272 1 = STACK (RECORD-TYPE LBIND)>
790 <VEQUAL? ANY-MIMAS?37 0 - EXIT342>
792 <PUSH "No compiled functions from PRECOMPILATION used?">
793 <NTHR 'OUTCHAN 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
794 <NTHR TEMP274 1 = STACK (RECORD-TYPE LBIND)>
799 <NTHR 'OUTCHAN 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
800 <NTHR TEMP274 1 = STACK (RECORD-TYPE LBIND)>
807 <NTHR 'I/O-TIME 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
808 <NTHR TEMP274 1 = TEMP274 (RECORD-TYPE LBIND)>
810 <CALL '
\1aTIME 0 = INCH12>
811 <SUBF INCH12 TEMP68 = INCH12 (TYPE FLOAT)>
813 <ADDF TEMP274 INCH12 = TEMP274 (TYPE FLOAT)>
815 <NTHR 'I/O-TIME 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
816 <PUTR INCH12 1 TEMP274 (RECORD-TYPE LBIND)>
817 <DEAD INCH12 TEMP274>
819 <NTHR 'ATOM-LIST 2 = TEMP274 (RECORD-TYPE ATOM) (TYPE LBIND)>
820 <NTHR TEMP274 1 = TEMP274 (RECORD-TYPE LBIND)>
821 <EMPL? TEMP274 - PHRASE358 (TYPE LIST)>
824 <PUSH "No DEFINEd functions in this file.">
825 <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
826 <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
831 <NTHR 'OUTCHAN 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
832 <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
835 <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
836 <PUTR INCH12 1 () (RECORD-TYPE LBIND)>
841 <SET OUTCH13 0 (TYPE FIX)>
842 <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
843 <NTHR INCH12 1 = INCH12 (RECORD-TYPE LBIND)>
844 <NTHR 'ATL 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
845 <PUTR TEMP84 1 INCH12 (RECORD-TYPE LBIND)>
847 <LOOP (INCH12 VALUE) (OUTCH13 VALUE)>
850 <EMPL? INCH12 + TAG372 (DEAD-JUMP INCH12)>
851 <NTHL INCH12 1 = STACK>
852 <RESTL INCH12 1 = INCH12 (TYPE LIST)>
853 <ADD OUTCH13 1 = OUTCH13 (TYPE FIX)>
856 <CALL '
\1aGETORDER OUTCH13 = OUTCH13>
857 <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
858 <PUTR TEMP84 1 OUTCH13 (RECORD-TYPE LBIND)>
859 <DEAD TEMP84 OUTCH13>
862 <PUSH "Functions ordered.">
863 <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
864 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
869 <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
870 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
873 <FRAME '
\1aLINEARIZE>
874 <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
875 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
877 <CALL '
\1aLINEARIZE 1 = TEMP84>
878 <NTHR 'ATOM-LIST 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
879 <PUTR INCH12 1 TEMP84 (RECORD-TYPE LBIND)>
881 <GEN-LVAL 'REASONABLE = TEMP84>
882 <TYPE? TEMP84 <TYPE-CODE FALSE> + PHRASE397>
884 <SET OUTCH13 () (TYPE LIST)>
885 <SET INCH12 () (TYPE LIST)>
886 <NTHR 'ATOM-LIST 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
887 <NTHR TEMP114 1 = TEMP84 (RECORD-TYPE LBIND)>
892 <EMPL? TEMP84 + MAPAP404 (DEAD-JUMP TEMP84 INCH12)>
893 <NTHL TEMP84 1 = TEMP115>
894 <NTHR 'ATL 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
895 <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE LBIND)>
896 <TYPE TEMP115 = TEMP272>
897 <EMPL? TEMP114 + MAP402 (DEAD-JUMP TEMP272 TEMP115 TEMP114)>
898 <LOOP (TEMP115 VALUE) (TEMP272 VALUE) (TEMP114 VALUE)>
900 <NTHL TEMP114 1 = TEMP273>
901 <TYPE? TEMP273 TEMP272 - TAG418 (DEAD-JUMP TEMP273)>
902 <VEQUAL? TEMP273 TEMP115 + TAG416 (DEAD-JUMP TEMP272 TEMP114)>
905 <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
906 <EMPL? TEMP114 - TAG417 (DEAD-FALL TEMP272 TEMP115 TEMP114)>
909 <SET TEMP114 TEMP115>
911 <CONS TEMP114 () = TEMP114 (TYPE LIST)>
912 <EMPL? OUTCH13 - TAG425 (DEAD-FALL OUTCH13 INCH12)>
913 <SET OUTCH13 TEMP114 (TYPE LIST)>
916 <PUTREST INCH12 TEMP114>
919 <SET INCH12 TEMP114 (TYPE LIST)>
922 <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
925 <NTHR 'ATOM-LIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
926 <PUTR TEMP84 1 OUTCH13 (RECORD-TYPE LBIND)>
927 <DEAD TEMP84 OUTCH13>
929 <NTHR 'ATOM-LIST 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
930 <NTHR OUTCH13 1 = INCH12 (RECORD-TYPE LBIND)>
935 <EMPL? INCH12 + MAPAP433 (DEAD-JUMP INCH12)>
936 <GETS 'BIND = TEMP272 (TYPE LBIND)>
937 <NTHL INCH12 1 = OUTCH13>
938 <BBIND 'AL 'ATOM 'FIX OUTCH13>
941 <NTHR 'AL 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
942 <NTHR OUTCH13 1 = STACK (RECORD-TYPE LBIND)>
944 <RESTL FILE-DATA23 1 = OUTCH13 (TYPE LIST)>
945 <NTHL OUTCH13 1 = STACK (TYPE ATOM)>
947 <CALL '
\1aFIND-OBL 2 = OUTCH13>
948 <NTHR 'OBLIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
949 <PUTR TEMP84 1 OUTCH13 (RECORD-TYPE LBIND)>
950 <DEAD TEMP84 OUTCH13>
952 <NTHR 'AL 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
953 <NTHR OUTCH13 1 = STACK (RECORD-TYPE LBIND)>
955 <GEN-LVAL 'CAREFUL = STACK>
956 <GEN-LVAL 'REASONABLE = STACK>
957 <GEN-LVAL 'HAIRY-ANALYSIS = STACK>
958 <GEN-LVAL 'DEBUG-COMPILE = STACK>
959 <CALL '
\1aCOMPILE 5 = OUTCH13>
960 <TYPE? OUTCH13 <TYPE-CODE FALSE> + PHRASE450 (DEAD-JUMP OUTCH13)>
962 <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
963 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
966 <TYPE? NO-TEMP-FILE20 <TYPE-CODE FALSE> - PHRASE469>
968 <CALL '
\1aTIME 0 = TEMP68>
970 <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
971 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
973 <CALL '
\1aACCESS 1 = TEMP114>
974 <FRAME '
\1aDUMP-CODE>
977 <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
978 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
980 <NTHR 'OBLIST 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
981 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
983 <CALL '
\1aDUMP-CODE 3>
984 <NTHR 'AL 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
985 <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
986 <CONS TEMP84 () = TEMP84>
987 <CONS TEMP114 () = OUTCH13>
989 <PUTREST TEMP84 OUTCH13>
991 <NTHR 'TEMPCH 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
992 <NTHR TEMP114 1 = STACK (RECORD-TYPE LBIND)>
994 <CALL '
\1aACCESS 1 = TEMP114>
995 <CONS TEMP114 () = TEMP114>
996 <PUTREST OUTCH13 TEMP114>
999 <NTHR 'AL 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1000 <NTHR OUTCH13 1 = OUTCH13 (RECORD-TYPE LBIND)>
1001 <GVAL OUTCH13 = STACK>
1003 <CALL '
\1aHASH 1 = OUTCH13>
1004 <CONS OUTCH13 () = OUTCH13>
1005 <PUTREST TEMP114 OUTCH13>
1006 <DEAD TEMP114 OUTCH13>
1007 <CHTYPE TEMP84 <TYPE-CODE ACCESS-LIST> = TEMP84>
1008 <CONS TEMP84 () = TEMP84>
1009 <PUTREST TEMP84 NEW-INDEX16>
1011 <SET NEW-INDEX16 TEMP84>
1013 <NTHR 'I/O-TIME 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1014 <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1016 <CALL '
\1aTIME 0 = OUTCH13>
1017 <SUBF OUTCH13 TEMP68 = OUTCH13 (TYPE FLOAT)>
1019 <ADDF TEMP84 OUTCH13 = TEMP84 (TYPE FLOAT)>
1021 <NTHR 'I/O-TIME 2 = OUTCH13 (RECORD-TYPE ATOM) (TYPE LBIND)>
1022 <PUTR OUTCH13 1 TEMP84 (RECORD-TYPE LBIND)>
1023 <DEAD OUTCH13 TEMP84>
1026 <NTHR 'AL 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1027 <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1028 <CONS TEMP84 () = TEMP84>
1029 <CONS OUTCH13 () = OUTCH13>
1030 <PUTREST TEMP84 OUTCH13>
1032 <NTHR 'AL 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
1033 <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE LBIND)>
1034 <GVAL TEMP114 = STACK>
1036 <CALL '
\1aHASH 1 = TEMP114>
1037 <CONS TEMP114 () = TEMP114>
1038 <PUTREST OUTCH13 TEMP114>
1039 <DEAD OUTCH13 TEMP114>
1040 <CONS TEMP84 () = TEMP84>
1041 <GVAL 'ALL-OUT = TEMP114 (TYPE LIST)>
1042 <PUTREST TEMP84 TEMP114>
1044 <SETG 'ALL-OUT TEMP84>
1048 <SETG 'ERRORS-OCCURED 'T>
1050 <NTHR 'OUTCHAN 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1051 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
1058 <RESTL INCH12 1 = INCH12 (TYPE LIST)>
1061 <GVAL 'STATUS-LINE = INCH12>
1062 <TYPE? INCH12 <TYPE-CODE FALSE> + PHRASE505>
1064 <FRAME '
\1aUPDATE-STATUS>
1069 <CALL '
\1aUPDATE-STATUS 4>
1071 <TYPE? NO-TEMP-FILE20 <TYPE-CODE FALSE> - PHRASE508 (DEAD-FALL TMP26)>
1072 <FRAME '
\1aCHANNEL-OP>
1073 <NTHR 'TEMPCH 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
1074 <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
1077 <CALL '
\1aCHANNEL-OP 2 = TMP26>
1079 <NTHR 'TEMPCH 2 = INCH12 (RECORD-TYPE ATOM) (TYPE LBIND)>
1080 <NTHR INCH12 1 = STACK (RECORD-TYPE LBIND)>
1086 <CALL '
\1aOPEN 2 = INCH12>
1087 <NTHR 'TEMPCH 2 = TEMP273 (RECORD-TYPE ATOM) (TYPE LBIND)>
1088 <PUTR TEMP273 1 INCH12 (RECORD-TYPE LBIND)>
1089 <DEAD TEMP273 INCH12>
1090 <SET INCH12 NEW-INDEX16 (TYPE LIST)>
1094 <EMPL? INCH12 + MAPAP535 (DEAD-JUMP INCH12)>
1095 <NTHL INCH12 1 = TEMP68>
1096 <NTHL TEMP68 1 = TEMP114 (TYPE ATOM)>
1097 <NTHR TEMP114 1 = OUTCH13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG526) (DEAD-JUMP OUTCH13)>
1098 <TYPE? OUTCH13 <TYPE-CODE FALSE> + TAG526 (DEAD-JUMP OUTCH13) (DEAD-FALL TEMP114)>
1099 <PUTR OUTCH13 1 TEMP68 (RECORD-TYPE GBIND)>
1109 <NTHR 'TEMPCH 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
1110 <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE LBIND)>
1111 <PUTL TEMP68 1 TEMP114>
1112 <DEAD TEMP68 TEMP114>
1113 <RESTL INCH12 1 = INCH12 (TYPE LIST)>
1116 <GVAL 'ALL-OUT = OUTCH13 (TYPE LIST)>
1120 <EMPL? OUTCH13 + MAPAP535 (DEAD-JUMP OUTCH13)>
1121 <NTHL OUTCH13 1 = TEMP114>
1122 <NTHL TEMP114 1 = TEMP68 (TYPE ATOM)>
1123 <RESTL TEMP114 1 = INCH12 (TYPE LIST)>
1124 <NTHL INCH12 1 = INCH12>
1125 <CHTYPE INCH12 <TYPE-CODE LIST> = INCH12>
1126 <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
1127 <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
1128 <NTHL TEMP114 1 = TEMP114>
1129 <CONS TEMP114 INCH12 = INCH12>
1131 <CHTYPE INCH12 <TYPE-CODE INS-LIST> = INCH12>
1132 <NTHR TEMP68 1 = TEMP114 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG542) (DEAD-JUMP TEMP114)>
1133 <TYPE? TEMP114 <TYPE-CODE FALSE> + TAG542 (DEAD-JUMP TEMP114) (DEAD-FALL TEMP68)>
1134 <PUTR TEMP114 1 INCH12 (RECORD-TYPE GBIND)>
1135 <DEAD TEMP114 INCH12>
1145 <RESTL OUTCH13 1 = OUTCH13 (TYPE LIST)>
1148 <GEN-ASSIGNED? 'PRECOMPILED - MAPAP557>
1149 <GEN-LVAL 'PRECOMPILED = TEMP114>
1150 <TYPE? TEMP114 <TYPE-CODE FALSE> + MAPAP557>
1152 <SET INCH12 %<> (TYPE FALSE)>
1153 <SET TEMP84 PRE-INDEX18 (TYPE LIST)>
1157 <EMPL? TEMP84 + MAPAP557 (DEAD-JUMP TEMP84 INCH12)>
1158 <NTHL TEMP84 1 = TEMP68>
1159 <NTHL TEMP68 1 = OUTCH13>
1160 <NTHR OUTCH13 1 = TEMP114 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG565) (DEAD-JUMP TEMP114)>
1161 <TYPE? TEMP114 <TYPE-CODE FALSE> + TAG565 (DEAD-JUMP TEMP114)>
1162 <NTHR TEMP114 1 = TEMP114 (RECORD-TYPE GBIND)>
1163 <TYPE? TEMP114 <TYPE-CODE UNBOUND> - TAG580 (DEAD-JUMP INCH12)>
1167 <NTHR PN551 3 = STACK (RECORD-TYPE ATOM)>
1168 <NTHR OUTCH13 3 = STACK (RECORD-TYPE ATOM)>
1169 <CALL '
\1aMEMBER 2 = TEMP114>
1170 <TYPE? TEMP114 <TYPE-CODE FALSE> + TAG580 (DEAD-JUMP INCH12)>
1172 <SET TEMP115 3 (TYPE FIX)>
1173 <SET TEMP272 TEMP68>
1174 <LOOP (TEMP272 VALUE) (TEMP115 VALUE)>
1177 <RESTL TEMP272 1 = TEMP272 (TYPE LIST)>
1178 <SUB TEMP115 1 = TEMP115 (TYPE FIX)>
1179 <GRTR? TEMP115 0 + RESTL569 (TYPE FIX) (DEAD-FALL TEMP115)>
1180 <SET TEMP114 TEMP272>
1182 <CHTYPE TEMP114 <TYPE-CODE LIST> = TEMP114>
1183 <CONS INCH12 () = TEMP272>
1184 <EMPL? TEMP114 + COMPERR>
1185 <PUTREST TEMP114 TEMP272>
1186 <DEAD TEMP114 TEMP272>
1187 <SET TEMP114 3 (TYPE FIX)>
1188 <SET TEMP272 TEMP68>
1189 <LOOP (TEMP272 VALUE) (TEMP114 VALUE)>
1192 <RESTL TEMP272 1 = TEMP272 (TYPE LIST)>
1193 <SUB TEMP114 1 = TEMP114 (TYPE FIX)>
1194 <GRTR? TEMP114 0 + RESTL574 (TYPE FIX) (DEAD-FALL TEMP114)>
1195 <EMPL? TEMP272 + COMPERR>
1196 <NTHL TEMP272 1 = TEMP272>
1197 <TYPE? TEMP272 <TYPE-CODE FALSE> - PHRASE572 (DEAD-JUMP INCH12)>
1199 <SET TEMP272 3 (TYPE FIX)>
1200 <SET TEMP114 INCH12>
1201 <LOOP (TEMP114 VALUE) (TEMP272 VALUE)>
1204 <RESTL TEMP114 1 = TEMP114 (TYPE LIST)>
1205 <SUB TEMP272 1 = TEMP272 (TYPE FIX)>
1206 <GRTR? TEMP272 0 + RESTL575 (TYPE FIX) (DEAD-FALL TEMP272)>
1207 <EMPL? TEMP114 + COMPERR>
1208 <NTHL TEMP114 1 = TEMP114>
1209 <TYPE? TEMP114 <TYPE-CODE FALSE> + PHRASE572 (DEAD-JUMP INCH12)>
1211 <SET TEMP114 3 (TYPE FIX)>
1212 <SET TEMP272 INCH12>
1213 <LOOP (TEMP272 VALUE) (TEMP114 VALUE)>
1216 <RESTL TEMP272 1 = TEMP272 (TYPE LIST)>
1217 <SUB TEMP114 1 = TEMP114 (TYPE FIX)>
1218 <GRTR? TEMP114 0 + RESTL576 (TYPE FIX) (DEAD-FALL TEMP114)>
1219 <EMPL? TEMP272 + COMPERR>
1220 <NTHL TEMP272 1 = TEMP272>
1221 <SET TEMP114 3 (TYPE FIX)>
1222 <SET TEMP115 TEMP68>
1223 <LOOP (TEMP115 VALUE) (TEMP114 VALUE)>
1226 <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
1227 <SUB TEMP114 1 = TEMP114 (TYPE FIX)>
1228 <GRTR? TEMP114 0 + RESTL577 (TYPE FIX) (DEAD-FALL TEMP114)>
1229 <EMPL? TEMP115 + COMPERR>
1230 <PUTL TEMP115 1 TEMP272>
1231 <DEAD TEMP115 TEMP272>
1232 <SET TEMP272 3 (TYPE FIX)>
1233 <SET TEMP115 INCH12>
1235 <LOOP (TEMP115 VALUE) (TEMP272 VALUE)>
1238 <RESTL TEMP115 1 = TEMP115 (TYPE LIST)>
1239 <SUB TEMP272 1 = TEMP272 (TYPE FIX)>
1240 <GRTR? TEMP272 0 + RESTL578 (TYPE FIX) (DEAD-FALL TEMP272)>
1241 <EMPL? TEMP115 + COMPERR>
1242 <PUTL TEMP115 1 %<>>
1245 <NTHR PN551 1 = TEMP115 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG579) (DEAD-JUMP TEMP115)>
1246 <TYPE? TEMP115 <TYPE-CODE FALSE> + TAG579 (DEAD-JUMP TEMP115)>
1247 <PUTR TEMP115 1 TEMP68 (RECORD-TYPE GBIND)>
1256 <NTHR OUTCH13 1 = TEMP115 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG581) (DEAD-JUMP TEMP115)>
1257 <TYPE? TEMP115 <TYPE-CODE FALSE> + TAG581 (DEAD-JUMP TEMP115) (DEAD-FALL PN551)>
1258 <PUTR TEMP115 1 TEMP68 (RECORD-TYPE GBIND)>
1265 <CALL '
\1aSETG 2 (DEAD-FALL PN551)>
1269 <PUTL TEMP68 1 PRECH28>
1272 <RESTL TEMP84 1 = TEMP84 (TYPE LIST)>
1275 <NTHR 'NO-BQ 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1276 <PUTR TEMP84 1 'T (RECORD-TYPE LBIND)>
1279 <CALL '
\1aTIME 0 = TEMP68>
1280 <FRAME '
\1aMIMC-GROUP-DUMP>
1282 <RESTL FILE-DATA23 1 = TEMP84 (TYPE LIST)>
1284 <NTHL TEMP84 1 = STACK (TYPE ATOM)>
1286 <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1287 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
1289 <CALL '
\1aMIMC-GROUP-DUMP 3>
1290 <NTHR 'I/O-TIME 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1291 <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1293 <CALL '
\1aTIME 0 = TEMP114>
1294 <SUBF TEMP114 TEMP68 = TEMP114 (TYPE FLOAT)>
1296 <ADDF TEMP84 TEMP114 = TEMP84 (TYPE FLOAT)>
1298 <NTHR 'I/O-TIME 2 = TEMP114 (RECORD-TYPE ATOM) (TYPE LBIND)>
1299 <PUTR TEMP114 1 TEMP84 (RECORD-TYPE LBIND)>
1300 <DEAD TEMP114 TEMP84>
1301 <NTHR 'NO-BQ 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1302 <PUTR TEMP84 1 %<> (RECORD-TYPE LBIND)>
1304 <FRAME '
\1aPRINTSTATS>
1305 <CALL '
\1aPRINTSTATS 0>
1310 <GVAL 'OUTCHAN = TEMP84>
1311 <SETG 'COMPCHAN TEMP84>
1313 <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1314 <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1315 <TYPE? TEMP84 <TYPE-CODE UNBOUND> + PHRASE599 (DEAD-JUMP OUTFILE8 INFILE7 PN551 TMP26 REAL-NM2-38 ANY-MIMAS?37 REDO31 PRECH28 NO-TEMP-FILE20 PRE-INDEX18 NEW-INDEX16)>
1317 <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1318 <NTHR TEMP84 1 = TEMP84 (RECORD-TYPE LBIND)>
1319 <TYPE? TEMP84 <TYPE-CODE CHANNEL> - PHRASE599 (DEAD-JUMP OUTFILE8 INFILE7 PN551 TMP26 REAL-NM2-38 ANY-MIMAS?37 REDO31 PRECH28 NO-TEMP-FILE20 PRE-INDEX18 NEW-INDEX16)>
1322 <NTHR 'TEMPCH 2 = TEMP84 (RECORD-TYPE ATOM) (TYPE LBIND)>
1323 <NTHR TEMP84 1 = STACK (RECORD-TYPE LBIND)>
1328 <CALL '
\1aDELFILE 1 (DEAD-FALL OUTFILE8 INFILE7 PN551 TMP26 REAL-NM2-38 ANY-MIMAS?37 REDO31 PRECH28 NO-TEMP-FILE20 PRE-INDEX18 NEW-INDEX16)>
1330 <SET TEMP114 "Compilation completed. Your patience is godlike." (TYPE STRING)>
1336 <END
\1aFILE-COMPILE>
1339 <GFCN
\1aPACK-FIX ("VALUE" ANY ANY ANY) PCK4 ATM5>
1340 <TEMP S6:STRING (WIN7 %<>) PO8 TEMP23>
1344 <CALL '
\1aPNAME 1 = S6>
1348 <GVAL 'PACKAGE-OBLIST = STACK>
1349 <CALL '
\1aLOOKUP 2 = PO8>
1350 <TYPE? PO8 <TYPE-CODE FALSE> + BOOL11>
1353 <CHTYPE PO8 <TYPE-CODE LIST> = TEMP23>
1357 <EMPL? TEMP23 + MAPAP16>
1358 <NTHL TEMP23 1 = WIN7>
1363 <CALL '
\1aLOOKUP 2 = WIN7>
1364 <TYPE? WIN7 <TYPE-CODE FALSE> - MAPAP16>
1365 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
1370 <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE31>
1371 <TYPE? PO8 <TYPE-CODE FALSE> + PHRASE29>
1377 <CALL '
\1aINSERT 2 = TEMP23>
1388 <GFCN
\1aLINEARIZE ("VALUE" LIST LIST) ATOM-LIST4>
1389 <TEMP L8:LIST LL9:LIST TEMP14>
1391 <CONS 'START ATOM-LIST4 = ATOM-LIST4>
1393 <RESTL L8 1 = LL9 (TYPE LIST)>
1397 <EMPL? LL9 - PHRASE12 (TYPE LIST)>
1398 <RESTL ATOM-LIST4 1 = L8 (TYPE LIST)>
1403 <NTHL LL9 1 = TEMP14>
1404 <TYPE? TEMP14 <TYPE-CODE LIST> - PHRASE13>
1406 <NTHL LL9 1 = TEMP14 (TYPE LIST)>
1407 <EMPL? L8 + COMPERR>
1410 <EMPL? L8 + COMPERR>
1413 <RESTL L8 1 = TEMP14 (TYPE LIST)>
1414 <EMPL? TEMP14 + TAG16>
1419 <RESTL LL9 1 = LL9 (TYPE LIST)>
1420 <EMPL? L8 + COMPERR>
1426 <RESTL L8 1 = LL9 (TYPE LIST)>
1430 <GFCN
\1aPRINTSTATS ("VALUE" ANY)>
1431 <TEMP TEMP7 TEMP8 TSTARCPU4:FIX L31:LIST>
1434 <CALL '
\1aTIME 0 = TEMP7>
1435 <ADDF TEMP7 0.5000000 = TEMP7 (TYPE FLOAT)>
1436 <FIX TEMP7 = TEMP7 (TYPE FIX)>
1437 <GEN-LVAL 'STARCPU = TEMP8>
1438 <SUB TEMP7 TEMP8 = TSTARCPU4 (TYPE FIX)>
1441 <CALL '
\1aRTIME 0 = TEMP8>
1442 <GEN-LVAL 'STARR = TEMP7>
1443 <SUB TEMP8 TEMP7 = TEMP8 (TYPE FIX)>
1445 <NTHR 'REFERENCED 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + EXIT29)>
1446 <TYPE? TEMP7 <TYPE-CODE FALSE> + EXIT29>
1447 <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
1448 <TYPE? TEMP7 <TYPE-CODE UNBOUND> + EXIT29>
1451 <GVAL 'CRET = STACK>
1452 <GEN-LVAL 'OUTCHAN = STACK>
1455 <PUSH "Called unknown atoms:">
1456 <GEN-LVAL 'OUTCHAN = STACK>
1459 <GVAL 'CRET = STACK>
1460 <GEN-LVAL 'OUTCHAN = STACK>
1462 <GVAL 'REFERENCED = L31>
1466 <EMPL? L31 + EXIT29 (TYPE LIST)>
1468 <NTHL L31 1 = STACK>
1469 <GEN-LVAL 'OUTCHAN = STACK>
1473 <GEN-LVAL 'OUTCHAN = STACK>
1476 <RESTL L31 1 = TEMP7 (TYPE LIST)>
1477 <NTHL TEMP7 1 = TEMP7>
1478 <EQUAL? TEMP7 1 - PHRASE48>
1480 <SET TEMP7 "once" (TYPE STRING)>
1483 <RESTL L31 1 = TEMP7 (TYPE LIST)>
1484 <NTHL TEMP7 1 = TEMP7>
1488 <GEN-LVAL 'OUTCHAN = STACK>
1491 <RESTL L31 1 = TEMP7 (TYPE LIST)>
1492 <NTHL TEMP7 1 = TEMP7>
1493 <EQUAL? TEMP7 1 - PHRASE56>
1495 <SET TEMP7 "" (TYPE STRING)>
1498 <SET TEMP7 " times" (TYPE STRING)>
1502 <GEN-LVAL 'OUTCHAN = STACK>
1505 <GVAL 'CRET = STACK>
1506 <GEN-LVAL 'OUTCHAN = STACK>
1508 <RESTL L31 1 = L31 (TYPE LIST)>
1509 <RESTL L31 1 = L31 (TYPE LIST)>
1512 <LESS? TEMP8 0 - PHRASE65 (TYPE FIX)>
1513 <ADD TEMP8 86400 = TEMP8 (TYPE FIX)>
1516 <GVAL 'CRET = STACK>
1517 <GEN-LVAL 'OUTCHAN = STACK>
1520 <GVAL 'CRET = STACK>
1521 <GEN-LVAL 'OUTCHAN = STACK>
1524 <PUSH "Total time used is">
1525 <GEN-LVAL 'OUTCHAN = STACK>
1528 <GVAL 'CRET = STACK>
1529 <GEN-LVAL 'OUTCHAN = STACK>
1533 <GEN-LVAL 'OUTCHAN = STACK>
1535 <FRAME '
\1aPRINTIME>
1538 <CALL '
\1aPRINTIME 2>
1540 <GVAL 'CRET = STACK>
1541 <GEN-LVAL 'OUTCHAN = STACK>
1545 <GEN-LVAL 'OUTCHAN = STACK>
1547 <FRAME '
\1aPRINTIME>
1548 <GEN-LVAL 'GCTIME = TEMP7>
1549 <TYPE? TEMP7 <TYPE-CODE FIX> + TAG107>
1550 <FIX TEMP7 = TEMP7 (TYPE FIX)>
1554 <PUSH "garbage collector CPU time,">
1555 <CALL '
\1aPRINTIME 2>
1557 <GVAL 'CRET = STACK>
1558 <GEN-LVAL 'OUTCHAN = STACK>
1562 <GEN-LVAL 'OUTCHAN = STACK>
1564 <FRAME '
\1aPRINTIME>
1565 <GEN-LVAL 'I/O-TIME = TEMP7>
1566 <TYPE? TEMP7 <TYPE-CODE FIX> + TAG122>
1567 <FIX TEMP7 = TEMP7 (TYPE FIX)>
1572 <CALL '
\1aPRINTIME 2>
1574 <GVAL 'CRET = STACK>
1575 <GEN-LVAL 'OUTCHAN = STACK>
1579 <GEN-LVAL 'OUTCHAN = STACK>
1581 <FRAME '
\1aPRINTIME>
1584 <CALL '
\1aPRINTIME 2>
1586 <GVAL 'CRET = STACK>
1587 <GEN-LVAL 'OUTCHAN = STACK>
1590 <PUSH "CPU utilization is ">
1591 <GEN-LVAL 'OUTCHAN = STACK>
1594 <FLOAT TEMP8 = TEMP7 (TYPE FLOAT)>
1596 <FLOAT TSTARCPU4 = TEMP8 (TYPE FLOAT)>
1598 <DIVF TEMP8 TEMP7 = TEMP7 (TYPE FLOAT)>
1600 <MULF TEMP7 100.0 = STACK (TYPE FLOAT)>
1602 <GEN-LVAL 'OUTCHAN = STACK>
1606 <GEN-LVAL 'OUTCHAN = STACK>
1609 <GVAL 'CRET = STACK>
1610 <GEN-LVAL 'OUTCHAN = STACK>
1613 <PUSH "Number of garbage collects = ">
1614 <GEN-LVAL 'OUTCHAN = STACK>
1617 <GVAL 'GC-COUNT = STACK>
1618 <GEN-LVAL 'OUTCHAN = STACK>
1621 <GVAL 'CRET = STACK>
1622 <GEN-LVAL 'OUTCHAN = STACK>
1623 <CALL '
\1aPRINC 2 = TEMP7>
1628 <GFCN
\1aPRINTIME ("VALUE" ANY FIX ANY) AMT4 STR5>
1631 <GRTR? AMT4 3600 - PHRASE7 (TYPE FIX)>
1633 <DIV AMT4 3600 = STACK (TYPE FIX)>
1634 <GEN-LVAL 'OUTCHAN = STACK>
1638 <GEN-LVAL 'OUTCHAN = STACK>
1640 <MOD AMT4 3600 = AMT4 (TYPE FIX)>
1642 <GRTR? AMT4 60 - PHRASE20 (TYPE FIX)>
1644 <DIV AMT4 60 = STACK (TYPE FIX)>
1645 <GEN-LVAL 'OUTCHAN = STACK>
1649 <GEN-LVAL 'OUTCHAN = STACK>
1651 <MOD AMT4 60 = AMT4 (TYPE FIX)>
1656 <GEN-LVAL 'OUTCHAN = STACK>
1660 <GEN-LVAL 'OUTCHAN = STACK>
1665 <GEN-LVAL 'OUTCHAN = STACK>
1666 <CALL '
\1aPRINC 2 = TEMP12>
1671 <GFCN
\1aRTIME ("VALUE" FIX)>
1676 <CALL '
\1aITIME 0 = STACK>
1677 <CALL '
\1aQTIME 1 = TEMP6>
1682 <GFCN
\1aSTATUS ("VALUE" ANY)>
1683 <TEMP TEMP3:LBIND TEMP9 FL4:FIX AL-L7 TEMP28 TEMP29>
1685 <GETS 'BIND = TEMP3 (TYPE LBIND)>
1686 <GEN-LVAL 'OUTCHAN = TEMP9>
1687 <BBIND 'OUTCHAN 'CHANNEL 'FIX TEMP9>
1689 <GEN-ASSIGNED? 'ATOM-LIST - PHRASE13>
1690 <GEN-ASSIGNED? 'AL - PHRASE13>
1691 <GEN-LVAL 'ATOM-LIST = TEMP9>
1692 <CHTYPE TEMP9 <TYPE-CODE LIST> = TEMP9>
1693 <LENL TEMP9 = FL4 (TYPE FIX)>
1696 <GEN-LVAL 'AL = AL-L7>
1697 <GEN-LVAL 'ATOM-LIST = TEMP9>
1698 <TYPE AL-L7 = TEMP28>
1699 <EMPTY? TEMP9 + TAG20>
1700 <LOOP (AL-L7 VALUE) (TEMP28 VALUE) (TEMP9 LENGTH VALUE TYPE)>
1702 <NTH1 TEMP9 = TEMP29>
1703 <TYPE? TEMP29 TEMP28 - TAG23>
1704 <VEQUAL? TEMP29 AL-L7 + TAG21>
1707 <REST1 TEMP9 = TEMP9>
1708 <EMPTY? TEMP9 - TAG22>
1716 <CALL '
\1aLENGTH 1 = TEMP9>
1717 <SUB FL4 TEMP9 = TEMP9 (TYPE FIX)>
1719 <GVAL 'CRET = STACK>
1720 <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1721 <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1726 <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1727 <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1732 <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1733 <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1737 <PUSH " finished, working on ">
1738 <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1739 <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1745 <NTHR 'OUTCHAN 2 = TEMP28 (RECORD-TYPE ATOM) (TYPE LBIND)>
1746 <NTHR TEMP28 1 = STACK (RECORD-TYPE LBIND)>
1751 <NTHR 'OUTCHAN 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1752 <NTHR TEMP29 1 = STACK (RECORD-TYPE LBIND)>
1756 <SUB FL4 TEMP9 = TEMP29 (TYPE FIX)>
1758 <SUB TEMP29 1 = STACK (TYPE FIX)>
1760 <NTHR 'OUTCHAN 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1761 <NTHR TEMP29 1 = STACK (RECORD-TYPE LBIND)>
1766 <NTHR 'OUTCHAN 2 = TEMP29 (RECORD-TYPE ATOM) (TYPE LBIND)>
1767 <NTHR TEMP29 1 = STACK (RECORD-TYPE LBIND)>
1770 <FRAME '
\1aPRINTSTATS>
1771 <CALL '
\1aPRINTSTATS 0 = TEMP29>
1774 <GEN-ASSIGNED? 'STARCPU - PHRASE60>
1775 <GEN-ASSIGNED? 'STARR - PHRASE60>
1776 <GEN-ASSIGNED? 'FILE-DATA + PHRASE65>
1779 Files not yet loaded.">
1780 <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1781 <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1784 <FRAME '
\1aPRINTSTATS>
1785 <CALL '
\1aPRINTSTATS 0 = TEMP29>
1788 <GEN-ASSIGNED? 'ATOM-LIST + PHRASE73>
1791 Files loaded, but functions not yet ordered for compilation.">
1792 <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1793 <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1796 <FRAME '
\1aPRINTSTATS>
1797 <CALL '
\1aPRINTSTATS 0 = TEMP29>
1802 Almost done, just cleaning up and writing out final file.">
1803 <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1804 <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1807 <FRAME '
\1aPRINTSTATS>
1808 <CALL '
\1aPRINTSTATS 0 = TEMP29>
1812 <GVAL 'CRET = STACK>
1813 <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1814 <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1818 <PUSH "I'm not running.">
1819 <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1820 <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1824 <GVAL 'CRET = STACK>
1825 <NTHR 'OUTCHAN 2 = TEMP9 (RECORD-TYPE ATOM) (TYPE LBIND)>
1826 <NTHR TEMP9 1 = STACK (RECORD-TYPE LBIND)>
1828 <CALL '
\1aPRINC 2 = TEMP29>
1837 <GFCN
\1aCOUNT-GCS ("VALUE" <OR FALSE FLOAT> ANY ANY ANY) IGN4 TI5 WHICH6>
1840 <GVAL 'GC-COUNT = TEMP7>
1841 <ADD TEMP7 1 = TEMP7 (TYPE FIX)>
1842 <SETG 'GC-COUNT TEMP7>
1844 <GEN-ASSIGNED? 'GCTIME + TAG9>
1847 <GEN-LVAL 'GCTIME = TEMP7>
1848 <ADDF TEMP7 TI5 = TEMP7 (TYPE FLOAT)>
1850 <GEN-SET 'GCTIME TEMP7>
1854 <GDECL (GC-COUNT) FIX>
1859 <MANIFEST NOT-COMPILE-TIME>
1861 <SETG TAB <ASCII 9>>
1866 <GFCN
\1aPRINCTHEM ("VALUE" FORM "ARGS" LIST) A6>
1867 <OPT-DISPATCH 0 %<> OPT4 OPT5>
1871 <TEMP TEMP9 TEMP19 TEMP17 TEMP16:LIST X21>
1876 <SET TEMP9 2 (TYPE FIX)>
1877 <SET TEMP19 () (TYPE LIST)>
1878 <SET TEMP17 () (TYPE LIST)>
1879 <SET TEMP16 A6 (TYPE LIST)>
1884 <EMPL? TEMP16 + MAPAP14>
1885 <NTHL TEMP16 1 = X21>
1890 <CALL '
\1aFORM 2 = X21>
1891 <CONS X21 () = X21 (TYPE LIST)>
1892 <EMPL? TEMP19 - TAG24>
1893 <SET TEMP19 X21 (TYPE LIST)>
1896 <PUTREST TEMP17 X21>
1899 <SET TEMP17 X21 (TYPE LIST)>
1901 <RESTL TEMP16 1 = TEMP16 (TYPE LIST)>
1904 <LOOP (TEMP19 VALUE) (TEMP9 VALUE)>
1907 <EMPL? TEMP19 + TAG7>
1908 <NTHL TEMP19 1 = STACK>
1909 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
1910 <ADD TEMP9 1 = TEMP9 (TYPE FIX)>
1913 <CALL '
\1aFORM TEMP9 = TEMP9>
1916 <END
\1aPRINCTHEM><COND (<AND <GASSIGNED? PRINCTHEM> <NOT <TYPE? ,PRINCTHEM MACRO>>> <SETG PRINCTHEM <CHTYPE (,PRINCTHEM) MACRO>>)>
1919 <GFCN
\1aFIND-DEFINE-LOAD ("VALUE" <LIST LIST ATOM> ANY STRING) FNM4 NM2-5>
1920 <TEMP TEMP3:LBIND OLD-FLOAD7 TEMP13:LIST>
1922 <GETS 'BIND = TEMP3 (TYPE LBIND)>
1923 <BBIND 'NM2 'STRING %<> NM2-5>
1926 <FRAME '
\1aGROUP-LOAD>
1929 <CALL '
\1aGROUP-LOAD 1 = OLD-FLOAD7>
1930 <FRAME '
\1aGET-ATOMS>
1931 <GEN-LVAL OLD-FLOAD7 = STACK>
1932 <CALL '
\1aGET-ATOMS 1 = TEMP13>
1933 <NTHL TEMP13 1 = TEMP13 (TYPE LIST)>
1934 <CONS TEMP13 () = TEMP13>
1935 <CONS OLD-FLOAD7 () = OLD-FLOAD7>
1936 <PUTREST TEMP13 OLD-FLOAD7>
1943 <END
\1aFIND-DEFINE-LOAD>
1945 <GFCN
\1aGET-ATOMS ("VALUE" <LIST LIST LIST> LIST) L4>
1946 <TEMP (L15:LIST ()) (AL6:LIST ()) MCR10 TEMP21 TT9:FORM ATM11>
1952 <SET MCR10 %<> (TYPE FALSE)>
1953 <EMPL? L15 - PHRASE18 (TYPE LIST)>
1956 <CONS AL6 L15 = L15>
1961 <NTHL L15 1 = TEMP21>
1962 <TYPE? TEMP21 <TYPE-CODE FORM> - BOOL37>
1964 <NTHL L15 1 = TT9 (TYPE FORM)>
1965 <EMPL? TT9 + BOOL37 (TYPE FORM)>
1966 <NTHL TT9 1 = TEMP21>
1967 <EQUAL? TEMP21 'DEFINE + TAG25>
1969 <SET MCR10 'T (TYPE ATOM)>
1970 <NTHL TT9 1 = TEMP21>
1971 <EQUAL? TEMP21 'DEFMAC - BOOL37>
1974 <VEQUAL? MCR10 0 + PHRASE27>
1975 <GEN-LVAL 'MACRO-FLUSH = TEMP21>
1976 <TYPE? TEMP21 <TYPE-CODE FALSE> + PHRASE27>
1982 <CALL '
\1aATOM 1 = STACK>
1984 <CALL '
\1aFORM 3 = TEMP21>
1985 <PUTL L15 1 TEMP21 (TYPE FORM)>
1990 <NTHL TT9 1 = STACK>
1991 <RESTL TT9 1 = TEMP21 (TYPE LIST)>
1992 <NTHL TEMP21 1 = STACK>
1995 <CALL '
\1aFORM 3 = TEMP21>
1996 <PUTL L15 1 TEMP21 (TYPE FORM)>
2000 <RESTL TT9 1 = TEMP21 (TYPE LIST)>
2001 <NTHL TEMP21 1 = STACK>
2004 <CFRAME = STACK (TYPE FRAME)>
2005 <CALL '
\1aGETPROP 3 = ATM11>
2006 <CFRAME = TEMP21 (TYPE FRAME)>
2007 <EQUAL? TEMP21 ATM11 - TAG36>
2009 <RESTL TT9 1 = TEMP21 (TYPE LIST)>
2011 <NTHL TEMP21 1 = ATM11>
2014 <VEQUAL? MCR10 0 + BOOL38>
2016 <GEN-LVAL 'MACRO-COMPILE = TEMP21>
2017 <TYPE? TEMP21 <TYPE-CODE FALSE> + BOOL37>
2020 <CONS ATM11 AL6 = AL6>
2023 <RESTL L15 1 = L15 (TYPE LIST)>
2027 <GFCN
\1aNEW-ERROR ("VALUE" ANY ANY ANY "TUPLE" TUPLE) IGN4 FRM5>
2028 <MAKTUP TUP6:TUPLE TEMP3:LBIND TEMP8 TEMP15 = TUP6>
2030 <GETS 'BIND = TEMP3 (TYPE LBIND)>
2031 <GVAL 'COMPCHAN = TEMP8>
2032 <BBIND 'OUTCHAN 'ANY 'FIX TEMP8>
2034 <EMPUV? TUP6 + PHRASE10 (TYPE TUPLE)>
2035 <NTHUV TUP6 1 = TEMP8>
2036 <EQUAL? TEMP8 'CONTROL-G!-ERRORS - PHRASE10>
2038 <FRAME '
\1aINT-LEVEL>
2040 <CALL '
\1aINT-LEVEL 1>
2042 <GVAL 'ERROR-HANDLER = STACK>
2045 <SET TEMP15 0 (TYPE FIX)>
2048 <LOOP (TEMP8 VALUE LENGTH) (TEMP15 VALUE)>
2051 <EMPUV? TEMP8 + TAG14>
2052 <NTHUV TEMP8 1 = STACK>
2053 <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
2054 <ADD TEMP15 1 = TEMP15 (TYPE FIX)>
2057 <CALL '
\1aERROR TEMP15>
2060 <GVAL 'ERROR-HANDLER = STACK>
2066 <CALL '
\1aERRET 2 = TEMP15>
2071 ***********************************************************
2072 * ERROR ERROR ERROR ERROR ERROR ERROR ERROR *
2073 ***********************************************************
2076 <NTHR 'OUTCHAN 2 = TEMP8 (RECORD-TYPE ATOM) (TYPE LBIND)>
2077 <NTHR TEMP8 1 = STACK (RECORD-TYPE LBIND)>
2080 <CHTYPE TUP6 <TYPE-CODE VECTOR> = TEMP8>
2085 <EMPUV? TEMP8 + MAP24>
2087 <NTHUV TEMP8 1 = STACK>
2088 <NTHR 'OUTCHAN 2 = TEMP15 (RECORD-TYPE ATOM) (TYPE LBIND)>
2089 <NTHR TEMP15 1 = STACK (RECORD-TYPE LBIND)>
2092 <RESTUV TEMP8 1 = TEMP8 (TYPE VECTOR)>
2097 Compilation totally aborted.
2098 Status at death was:
2101 <NTHR 'OUTCHAN 2 = TEMP8 (RECORD-TYPE ATOM) (TYPE LBIND)>
2102 <NTHR TEMP8 1 = STACK (RECORD-TYPE LBIND)>
2106 <CALL '
\1aSTATUS 0 = TEMP15>
2114 <SETG COMPCHAN ,OUTCHAN>
2116 <COND (<GASSIGNED? NEW-ERROR> <SETG ERROR-HANDLER <HANDLER "ERROR" ,NEW-ERROR 100>>)>
2119 <GFCN
\1aPRINSPEC ("VALUE" ANY STRING CHANNEL) STR4 CHAN5>
2125 <GEN-LVAL 'OUTCHAN = STACK>
2128 <FRAME '
\1aCHANNEL-OP>
2132 <CALL '
\1aCHANNEL-OP 2 = STACK>
2133 <GEN-LVAL 'OUTCHAN = STACK>
2136 <GVAL 'CRET = STACK>
2137 <GEN-LVAL 'OUTCHAN = STACK>
2138 <CALL '
\1aPRINC 2 = TEMP11>
2143 <GFCN
\1aDO-AND-CHECK ("VALUE" ANY ANY ANY ANY ANY ANY ANY) STR14 STR25 ATM6 INCH7 OUTCH8 FOOCH9>
2144 <TEMP TEMP17 NEW-CHAN10 TEMP60:LBIND>
2146 <GEN-ASSIGNED? ATM6 + TAG16>
2149 <GEN-LVAL ATM6 = TEMP17>
2150 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE58>
2154 <GEN-LVAL 'OUTCHAN = STACK>
2156 <GEN-LVAL ATM6 = TEMP17>
2157 <TYPE? TEMP17 <TYPE-CODE CHANNEL> - PHRASE26>
2159 <GEN-LVAL ATM6 = NEW-CHAN10>
2164 <GEN-LVAL ATM6 = TEMP17>
2165 <TYPE? TEMP17 <TYPE-CODE STRING> - PHRASE32>
2167 <FRAME '
\1aFILE-EXISTS?>
2168 <GEN-LVAL ATM6 = STACK>
2169 <CALL '
\1aFILE-EXISTS? 1 = TEMP17>
2170 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE36>
2173 <GEN-LVAL ATM6 = STACK>
2174 <CALL '
\1aDELFILE 1>
2178 <GEN-LVAL ATM6 = STACK>
2180 <CALL '
\1aOPEN 2 = NEW-CHAN10>
2181 <SET TEMP17 NEW-CHAN10>
2182 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE58>
2191 <TYPE? FOOCH9 <TYPE-CODE FALSE> + BOOL52>
2200 <GEN-LVAL 'FCEX = STACK>
2201 <CALL '
\1aRETURN 2 = TEMP17>
2205 <GETS 'BIND = TEMP60 (TYPE LBIND)>
2206 <FRAME '
\1aCHANNEL-OP>
2209 <CALL '
\1aCHANNEL-OP 2 = TEMP17>
2210 <BBIND 'NM1 'STRING 'FIX TEMP17>
2212 <BBIND 'NM2 'STRING 'FIX STR25>
2214 <FRAME '
\1aFILE-EXISTS?>
2216 <CALL '
\1aFILE-EXISTS? 1 = TEMP17>
2217 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE67>
2221 <CALL '
\1aDELFILE 1>
2226 <CALL '
\1aOPEN 2 = NEW-CHAN10>
2227 <TYPE? NEW-CHAN10 <TYPE-CODE FALSE> - PHRASE72>
2236 <TYPE? FOOCH9 <TYPE-CODE FALSE> + BOOL75>
2244 <GEN-LVAL 'FCEX = STACK>
2250 <FRAME '
\1aPRINSPEC>
2253 <CALL '
\1aPRINSPEC 2>
2254 <SET TEMP17 NEW-CHAN10>
2259 <END
\1aDO-AND-CHECK>
2261 <GFCN
\1aFLUSH-COMMENTS ("VALUE" ATOM)>
2264 <FRAME '
\1aASSOCIATIONS>
2265 <CALL '
\1aASSOCIATIONS 0 = A4>
2271 <CALL '
\1aNEXT 1 = B5>
2272 <FRAME '
\1aINDICATOR>
2274 <CALL '
\1aINDICATOR 1 = TEMP15>
2275 <EQUAL? TEMP15 'COMMENT - PHRASE13>
2281 <CALL '
\1aITEM 1 = STACK>
2283 <CALL '
\1aPUTPROP 2>
2287 <TYPE? A4 <TYPE-CODE FALSE> - AGAIN10>
2289 <END
\1aFLUSH-COMMENTS>
2290 "GETORDER FUNCTIONS"
2293 <GFCN
\1aCHECK ("VALUE" <OR ATOM FALSE> ATOM) ATM4>
2296 <NTHR ATM4 1 = TEMP9 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG8)>
2297 <TYPE? TEMP9 <TYPE-CODE FALSE> + TAG8>
2298 <NTHR TEMP9 1 = TEMP9 (RECORD-TYPE GBIND)>
2299 <TYPE? TEMP9 <TYPE-CODE UNBOUND> - TAG7>
2305 <TYPE? TEMP9 <TYPE-CODE FUNCTION> - TAG12>
2311 <TYPE? TEMP9 <TYPE-CODE MACRO> - TAG14>
2318 <GFCN
\1aPREV ("VALUE" LIST LIST LIST) LS4 SUBLS5>
2319 <TEMP TEMP6:FIX TEMP7>
2321 <LENL LS4 = TEMP6 (TYPE FIX)>
2322 <LENL SUBLS5 = TEMP7 (TYPE FIX)>
2324 <SUB TEMP6 TEMP7 = TEMP6 (TYPE FIX)>
2326 <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
2329 <GRTR? TEMP6 0 - RESTL9 (TYPE FIX)>
2330 <LOOP (TEMP7 VALUE) (TEMP6 VALUE)>
2333 <EMPL? TEMP7 + COMPERR>
2334 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
2335 <SUB TEMP6 1 = TEMP6 (TYPE FIX)>
2336 <GRTR? TEMP6 0 + RESTL8 (TYPE FIX)>
2342 <GFCN
\1aSPLOUTEM ("VALUE" ATOM LIST ATOM) FL4 OU5>
2348 <EMPL? FL4 - PHRASE12 (TYPE LIST)>
2351 <NTHL FL4 1 = TEMP6>
2352 <EMPTY? TEMP6 + PHRASE21>
2353 <LOOP (OU5 VALUE) (TEMP6 LENGTH VALUE TYPE)>
2355 <NTH1 TEMP6 = TEMP18>
2356 <TYPE? TEMP18 <TYPE-CODE ATOM> - TAG17>
2357 <VEQUAL? TEMP18 OU5 + TAG15>
2360 <REST1 TEMP6 = TEMP6>
2361 <EMPTY? TEMP6 - TAG16>
2364 <NTHL FL4 1 = TEMP18>
2365 <VEQUAL? TEMP18 TEMP6 - PHRASE20>
2367 <RESTL TEMP6 1 = TEMP18 (TYPE LIST)>
2369 <CHTYPE TEMP18 <TYPE-CODE LIST> = TEMP18>
2375 <NTHL FL4 1 = STACK (TYPE LIST)>
2377 <CALL '
\1aPREV 2 = TEMP18>
2378 <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
2379 <EMPL? TEMP18 + COMPERR>
2380 <PUTREST TEMP18 TEMP6>
2383 <RESTL FL4 1 = FL4 (TYPE LIST)>
2384 <RESTL FL4 1 = FL4 (TYPE LIST)>
2388 <GFCN
\1aREVERSE ("VALUE" LIST LIST) LS4>
2389 <TEMP RES8:LIST TEM9:LIST>
2391 <SET RES8 () (TYPE LIST)>
2395 <EMPL? LS4 - PHRASE12 (TYPE LIST)>
2399 <RESTL LS4 1 = TEM9 (TYPE LIST)>
2409 <GFCN
\1aORDEREM ("VALUE" <LIST [REST <OR ATOM LIST>]> LIST) FLIST4>
2410 <TEMP RES9:LIST TEMP5 TEMP19 TEMP25 TEMP24:LIST TEMP43:LIST>
2412 <SET RES9 () (TYPE LIST)>
2416 <EMPL? FLIST4 - PHRASE12 (TYPE LIST)>
2420 <CALL '
\1aREVERSE 1 = TEMP5>
2425 <LOOP (TEMP5 VALUE)>
2427 <NTHL TEMP5 1 = TEMP19>
2428 <TYPE? TEMP19 <TYPE-CODE LIST> - TAG18>
2429 <VEQUAL? TEMP19 () + TAG16>
2432 <RESTL TEMP5 1 = TEMP5 (TYPE LIST)>
2433 <EMPL? TEMP5 - TAG17>
2436 <RESTL TEMP5 1 = TEMP19 (TYPE LIST)>
2437 <NTHL TEMP19 1 = TEMP19>
2438 <CONS TEMP19 RES9 = RES9>
2440 <VEQUAL? TEMP5 FLIST4 - PHRASE21>
2441 <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
2442 <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
2448 <CALL '
\1aPREV 2 = TEMP19>
2449 <RESTL TEMP5 1 = TEMP25 (TYPE LIST)>
2451 <RESTL TEMP25 1 = TEMP24 (TYPE LIST)>
2453 <EMPL? TEMP19 + COMPERR>
2454 <PUTREST TEMP19 TEMP24>
2455 <DEAD TEMP19 TEMP24>
2457 <FRAME '
\1aSPLOUTEM>
2459 <NTHL RES9 1 = STACK (TYPE ATOM)>
2460 <CALL '
\1aSPLOUTEM 2>
2463 <SET TEMP24 () (TYPE LIST)>
2467 <SET TEMP5 %<> (TYPE FALSE)>
2473 <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
2474 <NTHL TEMP25 1 = STACK (TYPE ATOM)>
2477 <CALL '
\1aCALLME 2 = TEMP25>
2478 <VEQUAL? TEMP25 0 - PHRASE40>
2480 <SET TEMP5 'T (TYPE ATOM)>
2481 <RESTL TEMP19 1 = TEMP25 (TYPE LIST)>
2482 <NTHL TEMP25 1 = TEMP25>
2483 <CONS TEMP25 TEMP24 = TEMP24>
2485 <VEQUAL? FLIST4 TEMP19 - PHRASE39>
2486 <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
2487 <RESTL FLIST4 1 = FLIST4 (TYPE LIST)>
2493 <CALL '
\1aPREV 2 = TEMP25>
2494 <RESTL TEMP19 1 = TEMP43 (TYPE LIST)>
2495 <RESTL TEMP43 1 = TEMP43 (TYPE LIST)>
2496 <EMPL? TEMP25 + COMPERR>
2497 <PUTREST TEMP25 TEMP43>
2498 <DEAD TEMP25 TEMP43>
2500 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2501 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2502 <EMPL? TEMP19 - AGAIN34 (TYPE LIST)>
2503 <VEQUAL? TEMP5 0 - AGAIN31>
2505 <EMPL? FLIST4 + PHRASE47 (TYPE LIST)>
2509 <CALL '
\1aCORDER 1 = FLIST4>
2513 <CALL '
\1aREVERSE 1 = TEMP5>
2514 <EMPL? FLIST4 + RESTL58 (TYPE LIST)>
2515 <EMPL? RES9 - PHRASE53 (TYPE LIST)>
2519 <EMPL? RES9 + COMPERR>
2522 <RESTL RES9 1 = TEMP25 (TYPE LIST)>
2523 <EMPL? TEMP25 + RESTL58>
2528 <PUTREST RES9 FLIST4>
2529 <LENL FLIST4 = TEMP25 (TYPE FIX)>
2531 <GRTR? TEMP25 0 - RESTL58 (TYPE FIX)>
2532 <LOOP (RES9 VALUE) (TEMP25 VALUE)>
2535 <EMPL? RES9 + COMPERR>
2536 <RESTL RES9 1 = RES9 (TYPE LIST)>
2537 <SUB TEMP25 1 = TEMP25 (TYPE FIX)>
2538 <GRTR? TEMP25 0 + RESTL57 (TYPE FIX)>
2540 <EMPL? RES9 - PHRASE60 (TYPE LIST)>
2544 <PUTREST RES9 TEMP24>
2550 <GFCN
\1aCALLME ("VALUE" <OR ATOM !<FALSE>> ATOM <LIST [REST <LIST [REST ATOM]> ATOM]>) ATM4 LST5>
2551 <TEMP TEMP6 TEMP15:LIST>
2556 <EMPL? LST5 - BOOL10 (TYPE LIST)>
2559 <NTHL LST5 1 = TEMP15 (TYPE LIST)>
2560 <EMPL? TEMP15 + BOOL11>
2561 <LOOP (ATM4 VALUE) (TEMP15 VALUE)>
2563 <NTHL TEMP15 1 = TEMP6>
2564 <VEQUAL? TEMP6 ATM4 + TAG12>
2566 <RESTL TEMP15 1 = TEMP15 (TYPE LIST)>
2567 <EMPL? TEMP15 - TAG13>
2572 <RESTL LST5 1 = LST5 (TYPE LIST)>
2573 <RESTL LST5 1 = LST5 (TYPE LIST)>
2577 <GFCN
\1aCORDER ("VALUE" LIST <LIST [REST <LIST [REST ATOM]> ATOM]>) LST4>
2578 <TEMP (RES5:LIST ()) LS8:LIST TEMP12 SHORT18 LST20:LIST>
2584 <EMPL? LS8 + EXIT6 (TYPE LIST)>
2585 <FRAME '
\1aALLREACH>
2586 <RESTL LS8 1 = TEMP12 (TYPE LIST)>
2587 <NTHL TEMP12 1 = TEMP12 (TYPE ATOM)>
2588 <CONS TEMP12 () = STACK>
2590 <NTHL LS8 1 = STACK (TYPE LIST)>
2592 <CALL '
\1aALLREACH 3 = TEMP12>
2593 <PUTL LS8 1 TEMP12 (TYPE LIST)>
2595 <RESTL LS8 1 = LS8 (TYPE LIST)>
2596 <RESTL LS8 1 = LS8 (TYPE LIST)>
2599 <SET LS8 () (TYPE LIST)>
2603 <SET SHORT18 %<CHTYPE <MIN> FIX> (TYPE FIX)>
2608 <EMPL? LST20 + EXIT16 (TYPE LIST)>
2609 <NTHL LST20 1 = TEMP12 (TYPE LIST)>
2610 <LENL TEMP12 = TEMP12 (TYPE FIX)>
2611 <LESS? TEMP12 SHORT18 - PHRASE24 (TYPE FIX)>
2612 <SET SHORT18 TEMP12>
2616 <RESTL LST20 1 = LST20 (TYPE LIST)>
2617 <RESTL LST20 1 = LST20 (TYPE LIST)>
2620 <NTHL LS8 1 = TEMP12 (TYPE LIST)>
2621 <EMPL? TEMP12 + PHRASE27>
2622 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2623 <EMPL? TEMP12 - PHRASE27>
2625 <NTHL LS8 1 = TEMP12 (TYPE LIST)>
2626 <NTHL TEMP12 1 = TEMP12>
2629 <NTHL LS8 1 = TEMP12 (TYPE LIST)>
2631 <CONS TEMP12 RES5 = RES5>
2633 <NTHL LS8 1 = LST20 (TYPE LIST)>
2637 <EMPL? LST20 + MAPAP33>
2638 <NTHL LST20 1 = TEMP12>
2639 <FRAME '
\1aSPLOUTEM>
2643 <CALL '
\1aSPLOUTEM 2>
2644 <RESTL LST20 1 = LST20 (TYPE LIST)>
2651 <EMPL? TEMP12 + EXIT42>
2652 <LOOP (TEMP12 VALUE)>
2654 <NTHL TEMP12 1 = SHORT18>
2655 <TYPE? SHORT18 <TYPE-CODE LIST> - TAG50>
2656 <VEQUAL? SHORT18 () + TAG48>
2659 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2660 <EMPL? TEMP12 - TAG49>
2663 <VEQUAL? TEMP12 LST4 - PHRASE52>
2664 <RESTL TEMP12 1 = LST20 (TYPE LIST)>
2666 <RESTL LST20 1 = LST4 (TYPE LIST)>
2673 <CALL '
\1aPREV 2 = LST20>
2674 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
2675 <RESTL TEMP12 1 = SHORT18 (TYPE LIST)>
2677 <EMPL? LST20 + COMPERR>
2678 <PUTREST LST20 SHORT18>
2679 <DEAD LST20 SHORT18>
2682 <EMPL? LST4 - AGAIN15 (TYPE LIST)>
2686 <CALL '
\1aREVERSE 1 = LST20>
2691 <GFCN
\1aALLREACH ("VALUE" <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST ATOM]> <LIST [REST <LIST [REST ATOM]> ATOM]>) LATM4 LST5 MLST6>
2692 <TEMP TEMP13:LIST ATM18:ATOM TEMP23 TEMP24>
2694 <SET TEMP13 LST5 (TYPE LIST)>
2699 <EMPL? TEMP13 + MAPAP11>
2700 <NTHL TEMP13 1 = ATM18>
2702 <EMPL? TEMP23 + TAG20>
2703 <LOOP (ATM18 VALUE) (TEMP23 VALUE)>
2705 <NTHL TEMP23 1 = TEMP24>
2706 <VEQUAL? TEMP24 ATM18 + PHRASE25>
2708 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
2709 <EMPL? TEMP23 - TAG21>
2711 <FRAME '
\1aALLREACH>
2712 <CONS ATM18 LATM4 = STACK>
2718 <RESTL TEMP23 1 = TEMP24 (TYPE LIST)>
2719 <NTHL TEMP24 1 = TEMP24 (TYPE ATOM)>
2720 <VEQUAL? TEMP24 ATM18 - BOOL30>
2722 <NTHL TEMP23 1 = STACK (TYPE LIST)>
2726 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
2727 <RESTL TEMP23 1 = TEMP23 (TYPE LIST)>
2731 <CALL '
\1aALLREACH 3 = LATM4>
2733 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
2740 <GFCN
\1aREMEMIT ("VALUE" <OR ATOM <LIST ATOM [REST ATOM]>> ATOM) ATM4>
2743 <GEN-LVAL 'FUNC = TEMP8>
2744 <VEQUAL? TEMP8 ATM4 - TAG7>
2748 <GEN-LVAL 'FUNCL = TEMP6>
2749 <EMPL? TEMP6 + TAG12>
2750 <LOOP (ATM4 VALUE) (TEMP6 VALUE)>
2752 <NTHL TEMP6 1 = TEMP8>
2753 <VEQUAL? TEMP8 ATM4 + BOOL5>
2755 <RESTL TEMP6 1 = TEMP6 (TYPE LIST)>
2756 <EMPL? TEMP6 - TAG13>
2758 <GEN-LVAL 'FUNCL = TEMP8>
2759 <CONS ATM4 TEMP8 = TEMP6>
2761 <GEN-SET 'FUNCL TEMP6>
2767 <GFCN
\1aFINDREC ("VALUE" ANY ANY) OBJ4>
2768 <TEMP (FM5 <>) TEMP7 TEMP19>
2770 <MONAD? OBJ4 - TAG8>
2771 <SET TEMP7 'T (TYPE ATOM)>
2774 <SET TEMP7 %<> (TYPE FALSE)>
2776 <VEQUAL? TEMP7 0 - MAP56>
2777 <TYPE? OBJ4 <TYPE-CODE FORM> + TAG12>
2778 <TYPE? OBJ4 <TYPE-CODE SEGMENT> - PHRASE10>
2780 <CHTYPE OBJ4 <TYPE-CODE FORM> = FM5>
2781 <EMPL? FM5 + PHRASE10 (TYPE FORM)>
2782 <NTHL FM5 1 = TEMP7>
2783 <TYPE? TEMP7 <TYPE-CODE ATOM> - PHRASE14>
2785 <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
2786 <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE14)>
2787 <TYPE? TEMP7 <TYPE-CODE FALSE> + PHRASE14>
2788 <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE GBIND)>
2789 <TYPE? TEMP7 <TYPE-CODE UNBOUND> + PHRASE14>
2791 <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
2792 <GVAL TEMP7 = TEMP19>
2794 <TYPE? TEMP19 <TYPE-CODE FUNCTION> - BOOL18>
2797 <NTHL FM5 1 = STACK (TYPE ATOM)>
2798 <CALL '
\1aREMEMIT 1>
2800 <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
2801 <GVAL TEMP19 = TEMP7>
2803 <TYPE? TEMP7 <TYPE-CODE MACRO> - BOOL21>
2805 <NTHL FM5 1 = TEMP7 (TYPE ATOM)>
2806 <GVAL TEMP7 = TEMP19>
2808 <EMPTY? TEMP19 + BOOL21>
2813 <CALL '
\1aEMACRO 1 = STACK>
2814 <CALL '
\1aFINDREC 1>
2816 <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
2817 <GVAL TEMP19 = TEMP7>
2819 <GVAL 'MAPF = TEMP19>
2820 <EQUAL? TEMP7 TEMP19 + BOOL25>
2822 <NTHL FM5 1 = TEMP19 (TYPE ATOM)>
2823 <GVAL TEMP19 = TEMP7>
2825 <GVAL 'MAPR = TEMP19>
2826 <EQUAL? TEMP7 TEMP19 - MAP40>
2830 <SET TEMP7 3 (TYPE FIX)>
2831 <LOOP (TEMP19 VALUE) (TEMP7 VALUE)>
2833 <EMPL? TEMP19 + MAP40>
2834 <SUB TEMP7 1 = TEMP7 (TYPE FIX)>
2835 <LESS? TEMP7 0 + TAG28>
2836 <RESTL TEMP19 1 = TEMP19 (TYPE LIST)>
2839 <RESTL FM5 1 = TEMP19 (TYPE LIST)>
2840 <NTHL TEMP19 1 = TEMP19>
2841 <TYPE? TEMP19 <TYPE-CODE FORM> - BOOL31>
2843 <FRAME '
\1aCHK-GVAL>
2844 <RESTL FM5 1 = TEMP19 (TYPE LIST)>
2845 <NTHL TEMP19 1 = STACK (TYPE FORM)>
2847 <CALL '
\1aCHK-GVAL 1>
2849 <RESTL FM5 1 = TEMP7 (TYPE LIST)>
2850 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
2851 <NTHL TEMP7 1 = TEMP7>
2852 <TYPE? TEMP7 <TYPE-CODE FORM> - MAP40>
2854 <FRAME '
\1aCHK-GVAL>
2855 <RESTL FM5 1 = TEMP7 (TYPE LIST)>
2857 <RESTL TEMP7 1 = TEMP7 (TYPE LIST)>
2858 <NTHL TEMP7 1 = STACK (TYPE FORM)>
2860 <CALL '
\1aCHK-GVAL 1>
2863 <FRAME '
\1aSTRUCTURED?>
2864 <NTHL OBJ4 1 = STACK>
2865 <CALL '
\1aSTRUCTURED? 1 = TEMP7>
2866 <TYPE? TEMP7 <TYPE-CODE FALSE> + MAP40>
2868 <NTHL OBJ4 1 = TEMP19>
2872 <EMPTY? TEMP19 + MAP40>
2874 <NTH1 TEMP19 = STACK>
2875 <CALL '
\1aFINDREC 1>
2876 <REST1 TEMP19 = TEMP19>
2879 <RESTL OBJ4 1 = FM5 (TYPE LIST)>
2880 <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
2881 <EMPL? FM5 - TAG48 (TYPE LIST)>
2885 <SET TEMP7 %<> (TYPE FALSE)>
2886 <RESTL OBJ4 1 = FM5 (TYPE LIST)>
2888 <CHTYPE FM5 <TYPE-CODE LIST> = FM5>
2894 <NTHL FM5 1 = STACK>
2895 <CALL '
\1aFINDREC 1 = TEMP7>
2896 <RESTL FM5 1 = FM5 (TYPE LIST)>
2902 <SET TEMP7 %<> (TYPE FALSE)>
2908 <EMPTY? TEMP19 + MAP56>
2910 <NTH1 TEMP19 = STACK>
2911 <CALL '
\1aFINDREC 1 = TEMP7>
2912 <REST1 TEMP19 = TEMP19>
2919 <GFCN
\1aANONFEMACRO1 ("VALUE" ANY ANY ANY "TUPLE" ANY) OBJ4 FRM5>
2920 <MAKTUP T6:TUPLE TEMP10 TEMP14:FIX = T6>
2922 <NTHR 'MACACT 1 = TEMP10 (RECORD-TYPE ATOM) (BRANCH-FALSE + PHRASE8)>
2923 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
2924 <NTHR TEMP10 1 = TEMP10 (RECORD-TYPE GBIND)>
2925 <TYPE? TEMP10 <TYPE-CODE UNBOUND> + PHRASE8>
2928 <GVAL 'MACACT = STACK>
2929 <CALL '
\1aLEGAL? 1 = TEMP10>
2930 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE8>
2935 <SET TEMP14 1 (TYPE FIX)>
2938 <LOOP (TEMP10 VALUE LENGTH) (TEMP14 VALUE)>
2941 <EMPUV? TEMP10 + TAG13>
2942 <NTHUV TEMP10 1 = STACK>
2943 <RESTUV TEMP10 1 = TEMP10 (TYPE VECTOR)>
2944 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
2947 <UBLOCK <TYPE-CODE VECTOR> TEMP14 = STACK>
2949 <GVAL 'MACACT = STACK>
2950 <CALL '
\1aDISMISS 2 = TEMP10>
2955 <SET TEMP14 0 (TYPE FIX)>
2956 <LOOP (T6 VALUE LENGTH) (TEMP14 VALUE)>
2960 <NTHUV T6 1 = STACK>
2961 <RESTUV T6 1 = T6 (TYPE VECTOR)>
2962 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
2965 <CALL '
\1aLISTEN TEMP14 = TEMP10>
2969 <END
\1aANONFEMACRO1>
2970 <GFCN
\1aEMACRO ("VALUE" ANY ANY) OBJ5>
2976 <GVAL 'ANONFEMACRO1 = STACK>
2979 <CALL '
\1aHANDLER 4 = EH6>
2982 <ICALL EXIT12 = TEM7>
2983 <TEMP TEMP13 TEMP16>
2986 <NTHR TEMP13 5 = TEMP13 (RECORD-TYPE FRAME)>
2987 <CFRAME = TEMP16 (TYPE FRAME)>
2988 <BBIND 'MACACT 'ANY 'FIX TEMP16>
2991 <NTHR 'MACACT 2 = TEMP16 (RECORD-TYPE ATOM) (TYPE LBIND)>
2992 <NTHR TEMP16 1 = TEMP16 (RECORD-TYPE LBIND)>
2993 <SETG 'MACACT TEMP16>
2996 <SETLR TEMP16 TEMP13 OBJ5>
2999 <CALL '
\1aEXPAND 1 = TEMP16>
3000 <CONS TEMP16 () = TEMP16>
3004 <TYPE? TEM7 <TYPE-CODE VECTOR> - PHRASE11>
3010 <PUSH 'MACRO-EXPANSION-LOSSAGE!-ERRORS>
3011 <SET EH6 1 (TYPE FIX)>
3012 <LOOP (TEM7 VALUE LENGTH) (EH6 VALUE)>
3015 <EMPUV? TEM7 + TAG22>
3016 <NTHUV TEM7 1 = STACK>
3017 <RESTUV TEM7 1 = TEM7 (TYPE VECTOR)>
3018 <ADD EH6 1 = EH6 (TYPE FIX)>
3021 <CALL '
\1aERROR EH6 = EH6>
3035 <GFCN
\1aCHK-GVAL ("VALUE" <OR ATOM FALSE <LIST ATOM [REST ATOM]>> FORM) FM4>
3039 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3040 <EMPL? TEMP9 + TAG8>
3041 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
3042 <EMPL? TEMP9 + TAG7>
3047 <NTHL FM4 1 = TEMP9>
3048 <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG10>
3052 <NTHL FM4 1 = TEMP9 (TYPE ATOM)>
3053 <GVAL TEMP9 = TEMP13>
3055 <GVAL 'GVAL = TEMP9>
3056 <EQUAL? TEMP13 TEMP9 + TAG12>
3060 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3061 <NTHL TEMP9 1 = TEMP9>
3062 <TYPE? TEMP9 <TYPE-CODE ATOM> + TAG14>
3066 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3067 <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
3068 <NTHR TEMP9 1 = TEMP13 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG17)>
3070 <TYPE? TEMP13 <TYPE-CODE FALSE> + TAG17>
3071 <NTHR TEMP13 1 = TEMP13 (RECORD-TYPE GBIND)>
3072 <TYPE? TEMP13 <TYPE-CODE UNBOUND> - TAG16>
3077 <RESTL FM4 1 = TEMP13 (TYPE LIST)>
3078 <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
3079 <GVAL TEMP13 = TEMP9>
3081 <TYPE? TEMP9 <TYPE-CODE FUNCTION> + TAG24>
3083 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3084 <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
3085 <GVAL TEMP9 = TEMP13>
3087 <TYPE? TEMP13 <TYPE-CODE MACRO> + TAG21>
3091 <RESTL FM4 1 = TEMP13 (TYPE LIST)>
3092 <NTHL TEMP13 1 = TEMP13 (TYPE ATOM)>
3093 <GVAL TEMP13 = TEMP9>
3095 <EMPTY? TEMP9 - TAG23>
3099 <RESTL FM4 1 = TEMP9 (TYPE LIST)>
3100 <NTHL TEMP9 1 = TEMP9 (TYPE ATOM)>
3101 <GVAL TEMP9 = TEMP13>
3103 <NTH1 TEMP13 = TEMP13>
3104 <TYPE? TEMP13 <TYPE-CODE FUNCTION> + TAG24>
3109 <RESTL FM4 1 = TEMP13 (TYPE LIST)>
3111 <NTHL TEMP13 1 = STACK (TYPE ATOM)>
3113 <CALL '
\1aREMEMIT 1 = TEMP9>
3116 <END
\1aCHK-GVAL>
\r\r
3118 <GFCN
\1aFINDEM ("VALUE" <LIST [REST ATOM]> ATOM) FUNC4>
3119 <TEMP TEMP3:LBIND TEMP7>
3121 <GETS 'BIND = TEMP3 (TYPE LBIND)>
3122 <BBIND 'FUNC 'ATOM %<> FUNC4>
3125 <BBIND 'FUNCL <LIST [REST ATOM]> 'FIX ()>
3127 <NTHR 'FUNC 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
3128 <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
3129 <GVAL TEMP7 = STACK>
3131 <CALL '
\1aFINDREC 1>
3132 <NTHR 'FUNCL 2 = TEMP7 (RECORD-TYPE ATOM) (TYPE LBIND)>
3133 <NTHR TEMP7 1 = TEMP7 (RECORD-TYPE LBIND)>
3141 <GFCN
\1aFINDEMALL ("VALUE" <LIST <LIST [REST ATOM]> ATOM> <<PRIMTYPE VECTOR> [REST ATOM]>) ATM4>
3142 <TEMP TD8:LIST TEMP12:LIST TEMP13 CURDO16:LIST TEMP27 TEMP28>
3144 <SET TD8 () (TYPE LIST)>
3148 <EMPUV? ATM4 + EXIT6>
3150 <NTHUV ATM4 1 = STACK (TYPE ATOM)>
3151 <CALL '
\1aFINDEM 1 = TEMP12>
3152 <CONS TEMP12 () = TEMP12>
3153 <NTHUV ATM4 1 = TEMP13 (TYPE ATOM)>
3154 <CONS TEMP13 () = TEMP13>
3155 <PUTREST TEMP12 TEMP13>
3156 <PUTREST TEMP13 TD8>
3160 <RESTUV ATM4 1 = ATM4 (TYPE VECTOR)>
3161 <CHTYPE ATM4 <TYPE-CODE VECTOR> = ATM4>
3165 <NTHL TD8 1 = CURDO16 (TYPE LIST)>
3169 <EMPL? CURDO16 - PHRASE22 (TYPE LIST)>
3170 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3171 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3172 <EMPL? TEMP12 - PHRASE21 (TYPE LIST)>
3176 <NTHL TEMP12 1 = CURDO16 (TYPE LIST)>
3179 <NTHL CURDO16 1 = TEMP13 (TYPE ATOM)>
3181 <LOOP (TEMP13 VALUE) (TEMP27 VALUE)>
3183 <NTHL TEMP27 1 = TEMP28>
3184 <TYPE? TEMP28 <TYPE-CODE ATOM> - TAG25>
3185 <VEQUAL? TEMP28 TEMP13 + PHRASE29>
3188 <RESTL TEMP27 1 = TEMP27 (TYPE LIST)>
3189 <EMPL? TEMP27 - TAG24>
3191 <EMPL? TEMP27 + COMPERR>
3192 <LOOP (TEMP27 VALUE)>
3194 <RESTL TEMP27 1 = TEMP13 (TYPE LIST)>
3195 <EMPL? TEMP13 + TAG31>
3201 <NTHL CURDO16 1 = STACK (TYPE ATOM)>
3202 <CALL '
\1aFINDEM 1 = TEMP13>
3203 <CONS TEMP13 () = TEMP13>
3204 <NTHL CURDO16 1 = TEMP28 (TYPE ATOM)>
3205 <CONS TEMP28 () = TEMP28>
3206 <PUTREST TEMP13 TEMP28>
3208 <EMPL? TEMP27 + COMPERR>
3209 <PUTREST TEMP27 TEMP13>
3210 <DEAD TEMP27 TEMP13>
3212 <RESTL CURDO16 1 = CURDO16 (TYPE LIST)>
3216 <GFCN
\1aGETORDER ("VALUE" ANY "TUPLE" <<PRIMTYPE VECTOR> [REST ATOM]>)>
3217 <MAKTUP ATMS4:TUPLE TEMP13 TEMP14 TEMP12 TEMP17 = ATMS4>
3219 <SET TEMP13 () (TYPE LIST)>
3220 <SET TEMP14 () (TYPE LIST)>
3221 <CHTYPE ATMS4 <TYPE-CODE VECTOR> = TEMP12>
3225 <EMPUV? TEMP12 + MAP10>
3227 <NTHUV TEMP12 1 = STACK>
3228 <CALL '
\1aCHECK 1 = TEMP17>
3229 <CONS TEMP17 () = TEMP17 (TYPE LIST)>
3230 <EMPL? TEMP13 - TAG18>
3231 <SET TEMP13 TEMP17 (TYPE LIST)>
3234 <PUTREST TEMP14 TEMP17>
3237 <SET TEMP14 TEMP17 (TYPE LIST)>
3239 <RESTUV TEMP12 1 = TEMP12 (TYPE VECTOR)>
3244 <EMPL? TEMP12 + TAG7>
3245 <LOOP (TEMP12 VALUE)>
3247 <NTHL TEMP12 1 = TEMP17>
3248 <TYPE? TEMP17 <TYPE-CODE FALSE> - TAG9>
3249 <VEQUAL? TEMP17 %<> + PHRASE6>
3252 <RESTL TEMP12 1 = TEMP12 (TYPE LIST)>
3253 <EMPL? TEMP12 - TAG8>
3256 <FRAME '
\1aFINDEMALL>
3259 <CALL '
\1aFINDEMALL 1 = STACK>
3260 <CALL '
\1aORDEREM 1 = TEMP12>
3267 <CALL '
\1aERROR 2 = TEMP12>
3272 <GFCN
\1aFIND-OBL ("VALUE" ANY ATOM ANY) NM4 GRP5>
3273 <TEMP TEMP8 RGRP6:LIST PTR24 IT25 TEMP29>
3275 <GEN-LVAL GRP5 = RGRP6>
3277 <GEN-LVAL 'OBLIST = TEMP8>
3281 <EMPL? RGRP6 + MAPAP17>
3283 <NTHL PTR24 1 = IT25>
3288 <CFRAME = STACK (TYPE FRAME)>
3289 <CALL '
\1aGETPROP 3 = PTR24>
3290 <CFRAME = TEMP29 (TYPE FRAME)>
3291 <EQUAL? TEMP29 PTR24 - TAG30>
3298 <TYPE? IT25 <TYPE-CODE FORM> - PHRASE32>
3299 <EMPL? IT25 + PHRASE32 (TYPE FORM)>
3300 <NTHL IT25 1 = PTR24>
3301 <EQUAL? PTR24 'DEFINE + BOOL34>
3302 <EQUAL? PTR24 'DEFMAC - PHRASE32>
3306 <RESTL IT25 1 = PTR24 (TYPE LIST)>
3307 <NTHL PTR24 1 = STACK>
3310 <CFRAME = STACK (TYPE FRAME)>
3311 <CALL '
\1aGETPROP 3 = PTR24>
3312 <CFRAME = TEMP29 (TYPE FRAME)>
3313 <EQUAL? TEMP29 PTR24 - TAG36>
3315 <RESTL IT25 1 = TEMP29 (TYPE LIST)>
3317 <NTHL TEMP29 1 = PTR24>
3320 <TYPE? PTR24 <TYPE-CODE ATOM> - PHRASE32>
3321 <VEQUAL? PTR24 NM4 + MAPAP17>
3324 <RESTL RGRP6 1 = RGRP6 (TYPE LIST)>
3329 <END
\1aFIND-OBL>
\r\r
3331 <GFCN
\1aUPDATE-STATUS ("VALUE" <OR ATOM FALSE> ANY ANY ANY ANY "OPTIONAL" ANY ANY) STATE7 FCN8 PHASE9 REANA10 CPU11 REAL12>
3332 <OPT-DISPATCH 4 %<> OPT4 OPT5 OPT6>
3338 <TEMP TEMP17 OUTCHAN13>
3340 <TYPE? CPU11 <TYPE-CODE UNBOUND> - TAG14>
3342 <CALL '
\1aTIME 0 = TEMP17>
3343 <ADDF TEMP17 0.5000000 = TEMP17 (TYPE FLOAT)>
3344 <FIX TEMP17 = CPU11 (TYPE FIX)>
3347 <TYPE? REAL12 <TYPE-CODE UNBOUND> - TAG18>
3349 <CALL '
\1aRTIME 0 = REAL12>
3351 <GVAL 'OUTCHAN = OUTCHAN13>
3352 <GVAL 'GC-USER-MON = TEMP17>
3353 <TYPE? TEMP17 <TYPE-CODE FALSE> - PHRASE22>
3356 <GVAL 'GC-STATUS = STACK>
3359 <NTHR 'STATUS-CPU 1 = TEMP17 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG26)>
3360 <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG26>
3361 <NTHR TEMP17 1 = TEMP17 (RECORD-TYPE GBIND)>
3362 <TYPE? TEMP17 <TYPE-CODE UNBOUND> - PHRASE25>
3365 <SETG 'STATUS-CPU CPU11>
3367 <NTHR 'STATUS-REAL 1 = TEMP17 (RECORD-TYPE ATOM) (BRANCH-FALSE + TAG29)>
3368 <TYPE? TEMP17 <TYPE-CODE FALSE> + TAG29>
3369 <NTHR TEMP17 1 = TEMP17 (RECORD-TYPE GBIND)>
3370 <TYPE? TEMP17 <TYPE-CODE UNBOUND> - PHRASE28>
3373 <SETG 'STATUS-REAL REAL12>
3375 <TYPE? FCN8 <TYPE-CODE FALSE> + PHRASE31>
3376 <SETG 'STATUS-FCN FCN8>
3379 <GVAL 'STATUS-FCN = FCN8>
3381 <FRAME '
\1aCHANNEL-OP>
3383 <PUSH 'HOR-POS-CURSOR>
3385 <CALL '
\1aCHANNEL-OP 3>
3386 <FRAME '
\1aPRINT-MANY>
3390 <GVAL 'STATE-TITLE = STACK>
3391 <SET OUTCHAN13 11 (TYPE FIX)>
3392 <SFRAME 'STRING-FIT>
3396 <SCALL '
\1aSTRING-FIT 2 = TEMP17 + TAG34 OUTCHAN13>
3398 <GVAL 'STATE-FCN = STACK>
3399 <SFRAME 'STRING-FIT>
3403 <SCALL '
\1aSTRING-FIT 2 = TEMP17 + TAG37 OUTCHAN13>
3405 <GVAL 'STATE-PHASE = STACK>
3406 <SFRAME 'STRING-FIT>
3409 <TYPE? TEMP17 <TYPE-CODE FALSE> - BOOL41>
3410 <SET TEMP17 "" (TYPE STRING)>
3415 <SCALL '
\1aSTRING-FIT 2 = TEMP17 + TAG39 OUTCHAN13>
3417 <GVAL 'STATE-CPU = STACK>
3418 <SFRAME 'CPU-STRING>
3419 <GVAL 'STATUS-CPU = TEMP17>
3420 <SUB CPU11 TEMP17 = STACK (TYPE FIX)>
3422 <SCALL '
\1aCPU-STRING 1 = TEMP17 + TAG43 OUTCHAN13>
3424 <GVAL 'STATE-REAL = STACK>
3425 <SFRAME 'REAL-STRING>
3426 <GVAL 'STATUS-REAL = TEMP17>
3427 <SUB REAL12 TEMP17 = STACK (TYPE FIX)>
3428 <DEAD REAL12 TEMP17>
3429 <SCALL '
\1aREAL-STRING 1 = TEMP17 + TAG45 OUTCHAN13>
3432 <SFRAME 'FUNCTION-RATIO>
3433 <SCALL '
\1aFUNCTION-RATIO 0 = TEMP17 + TAG47 OUTCHAN13>
3436 <TYPE? REANA10 <TYPE-CODE FALSE> + PHRASE51>
3437 <SET TEMP17 REANA10>
3441 <SET TEMP17 " " (TYPE STRING)>
3445 <GVAL 'ERRORS-OCCURED = TEMP17>
3446 <TYPE? TEMP17 <TYPE-CODE FALSE> + PHRASE54>
3448 <SET TEMP17 "E " (TYPE STRING)>
3451 <SET TEMP17 " " (TYPE STRING)>
3455 <CALL '
\1aPRINT-MANY OUTCHAN13 = OUTCHAN13>
3458 <END
\1aUPDATE-STATUS>
3460 <GFCN
\1aGC-STATUS ("VALUE" ANY "OPTIONAL" ANY) OUT6>
3461 <OPT-DISPATCH 0 %<> OPT4 OPT5>
3467 <TYPE? OUT6 <TYPE-CODE FALSE> + PHRASE8>
3469 <FRAME '
\1aCHANNEL-OP>
3470 <GVAL 'OUTCHAN = STACK>
3472 <CALL '
\1aCHANNEL-OP 2 = TEMP10>
3478 <GVAL 'OUTCHAN = STACK>
3479 <CALL '
\1aPRINC 2 = TEMP10>
3483 <MSETG LENGTH-BLANK 100>
3485 <SETG STR-BLANK <ISTRING ,LENGTH-BLANK !\ >>
3488 <GFCN
\1aSTRING-FIT ("VALUE" <MULTI STRING> STRING FIX) STR4 FIELD5>
3491 <LENUS STR4 = LN6 (TYPE FIX)>
3492 <VEQUAL? LN6 FIELD5 - PHRASE9 (TYPE FIX)>
3497 <GRTR? LN6 FIELD5 - PHRASE10 (TYPE FIX)>
3498 <UUBLOCK <TYPE-CODE STRING> FIELD5 = LN6 (TYPE STRING)>
3499 <MOVE-STRING STR4 LN6 FIELD5 (NO-OVERLAP T)>
3508 <GVAL 'STR-BLANK = STACK>
3509 <SUB FIELD5 LN6 = LN6 (TYPE FIX)>
3511 <SUB 100 LN6 = STACK (TYPE FIX)>
3513 <CALL '
\1aREST 2 = STACK>
3517 <GFCN
\1aCPU-STRING ("VALUE" <MULTI <OR STRING FIX> STRING FIX STRING STRING FIX STRING STRING> FIX) CPU4>
3518 <TEMP (COLON5 %<>) H6:FIX R7:FIX M8:FIX TEMP13>
3520 <DIV CPU4 3600 = H6 (TYPE FIX)>
3521 <MOD CPU4 3600 = R7 (TYPE FIX)>
3523 <DIV R7 60 = M8 (TYPE FIX)>
3524 <MOD R7 60 = R7 (TYPE FIX)>
3525 <GRTR? H6 10 - PHRASE12 (TYPE FIX)>
3526 <SET TEMP13 "*:" (TYPE STRING)>
3529 <GRTR? H6 0 - PHRASE14 (TYPE FIX)>
3530 <SET COLON5 'T (TYPE ATOM)>
3534 <SET TEMP13 "" (TYPE STRING)>
3538 <VEQUAL? COLON5 0 + PHRASE19>
3540 <SET TEMP13 ":" (TYPE STRING)>
3543 <SET TEMP13 "" (TYPE STRING)>
3549 <LESS? R7 10 - PHRASE22 (TYPE FIX)>
3550 <SET TEMP13 "0" (TYPE STRING)>
3553 <SET TEMP13 "" (TYPE STRING)>
3559 <VEQUAL? H6 0 - PHRASE25 (TYPE FIX)>
3561 <SET TEMP13 " " (TYPE STRING)>
3564 <SET TEMP13 "" (TYPE STRING)>
3568 <LESS? M8 10 - PHRASE30 (TYPE FIX)>
3570 <SET TEMP13 " " (TYPE STRING)>
3573 <SET TEMP13 "" (TYPE STRING)>
3580 <GFCN
\1aREAL-STRING ("VALUE" <MULTI STRING <OR STRING FIX> STRING FIX STRING STRING FIX STRING STRING> FIX) REAL4>
3581 <TEMP (COLON5 'T) H6:FIX R7:FIX M8:FIX TEMP13>
3583 <DIV REAL4 3600 = H6 (TYPE FIX)>
3584 <MOD REAL4 3600 = R7 (TYPE FIX)>
3586 <DIV R7 60 = M8 (TYPE FIX)>
3587 <MOD R7 60 = R7 (TYPE FIX)>
3588 <GRTR? H6 100 - PHRASE12 (TYPE FIX)>
3589 <SET TEMP13 "**" (TYPE STRING)>
3592 <GRTR? H6 0 - PHRASE14 (TYPE FIX)>
3593 <SET TEMP13 "" (TYPE STRING)>
3596 <SET COLON5 %<> (TYPE FALSE)>
3597 <SET TEMP13 "" (TYPE STRING)>
3601 <LESS? H6 100 - PHRASE19 (TYPE FIX)>
3602 <GRTR? H6 0 - PHRASE19 (TYPE FIX)>
3606 <SET TEMP13 "" (TYPE STRING)>
3610 <VEQUAL? COLON5 0 + PHRASE25>
3612 <SET TEMP13 ":" (TYPE STRING)>
3615 <SET TEMP13 "" (TYPE STRING)>
3621 <LESS? R7 10 - PHRASE28 (TYPE FIX)>
3622 <SET TEMP13 "0" (TYPE STRING)>
3625 <SET TEMP13 "" (TYPE STRING)>
3631 <GRTR? H6 10 - PHRASE31 (TYPE FIX)>
3632 <SET TEMP13 "" (TYPE STRING)>
3635 <GRTR? H6 0 - PHRASE32 (TYPE FIX)>
3637 <SET TEMP13 " " (TYPE STRING)>
3640 <SET TEMP13 " " (TYPE STRING)>
3644 <LESS? M8 10 - PHRASE37 (TYPE FIX)>
3646 <SET TEMP13 " " (TYPE STRING)>
3649 <SET TEMP13 "" (TYPE STRING)>
3654 <END
\1aREAL-STRING>
3656 <GFCN
\1aFUNCTION-RATIO ("VALUE" <MULTI STRUCTURED>)>
3657 <TEMP FR7 LN15:FIX LN26 TEMP27 TEMP28>
3659 <GEN-ASSIGNED? 'ATOM-LIST - BOOL10>
3660 <GEN-ASSIGNED? 'AL + PHRASE9>
3663 <GVAL 'STR-BLANK = STACK>
3665 <CALL '
\1aREST 2 = STACK>
3668 <GEN-LVAL 'ATOM-LIST = FR7>
3669 <LENL FR7 = LN15 (TYPE FIX)>
3670 <GEN-LVAL 'AL = LN26>
3671 <TYPE LN26 = TEMP27>
3673 <LOOP (LN26 VALUE) (TEMP27 VALUE) (FR7 VALUE)>
3675 <NTHL FR7 1 = TEMP28>
3676 <TYPE? TEMP28 TEMP27 - TAG22>
3677 <VEQUAL? TEMP28 LN26 + TAG20>
3680 <RESTL FR7 1 = FR7 (TYPE LIST)>
3683 <SET FR7 %<> (TYPE FALSE)>
3685 <LENL FR7 = FR7 (TYPE FIX)>
3686 <SUB LN15 FR7 = LN26 (TYPE FIX)>
3688 <SUB LN26 -1 = LN26 (TYPE FIX)>
3689 <LESS? LN26 100 + PHRASE30 (TYPE FIX)>
3690 <SET FR7 "" (TYPE STRING)>
3693 <LESS? LN26 10 + PHRASE31 (TYPE FIX)>
3694 <SET FR7 " " (TYPE STRING)>
3697 <SET FR7 " " (TYPE STRING)>
3704 <LESS? LN15 100 + PHRASE34 (TYPE FIX)>
3705 <SET FR7 "" (TYPE STRING)>
3708 <LESS? LN15 10 + PHRASE35 (TYPE FIX)>
3709 <SET FR7 " " (TYPE STRING)>
3712 <SET FR7 " " (TYPE STRING)>
3719 <END
\1aFUNCTION-RATIO>