5 <GFCN
\1aSAV ("VALUE" ANY)>
6 <TEMP TEMP6 TEMP14 TEMP15 TEMP16 TEMP17>
12 <GEN-LVAL 'INCHAN = STACK>
19 <CALL '
\1aSAVE 1 = TEMP6>
20 <TYPE? TEMP6 <TYPE-CODE STRING> - PHRASE11>
21 <IFCAN "STRING-EQUAL?">
22 <STRING-EQUAL? TEMP6 "SAVED" - PHRASE11>
23 <ENDIF "STRING-EQUAL?">
24 <IFCANNOT "STRING-EQUAL?">
25 <SET TEMP14 "SAVED" (TYPE STRING)>
26 <LENUS TEMP6 = TEMP15 (TYPE FIX)>
27 <VEQUAL? TEMP15 5 - PHRASE11>
28 <LOOP (TEMP6 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP15 VALUE)>
30 <NTHUS TEMP6 1 = TEMP16>
31 <NTHUS TEMP14 1 = TEMP17>
32 <VEQUAL? TEMP16 TEMP17 - PHRASE11>
34 <RESTUS TEMP6 1 = TEMP6 (TYPE STRING)>
35 <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
36 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
37 <GRTR? TEMP15 0 + TAG18 (TYPE FIX)>
38 <ENDIF "STRING-EQUAL?">
41 <FRAME '
\1aRUN-QUESTIONS>
42 <CALL '
\1aRUN-QUESTIONS 0 = TEMP14>
47 <SETG BUFSTRING <ISTRING 200>>
50 <GFCN
\1aRQ ("VALUE" ANY "OPTIONAL" ANY) NOJCL?6>
51 <OPT-DISPATCH 0 %<> OPT4 OPT5>
58 <GVAL 'INCHAN = STACK>
60 <FRAME '
\1aRUN-QUESTIONS>
63 <CALL '
\1aRUN-QUESTIONS 1 = TEMP7>
69 <GFCN
\1aRUN-QUESTIONS ("VALUE" ANY "OPTIONAL" ANY) NOJCL?6>
70 <OPT-DISPATCH 0 %<> OPT4 OPT5>
74 <TEMP BUF10 (JCL-STR12 %<>) (JCL-VEC14 %<>) (QUICK?16 %<>) UN17:STRING (ANY-JCL?18 %<>) REM-VEC15 TEMP57 VV62 ST63 TEMP60 TEMP58 TEMP141>
76 <GVAL 'BUFSTRING = BUF10>
78 <CALL '
\1aUNAME 0 = UN17>
83 <TYPE? NOJCL?6 <TYPE-CODE FALSE> + PHRASE28>
84 <SET JCL-VEC14 %<> (TYPE FALSE)>
88 <CALL '
\1aREADARGS 0 = JCL-VEC14>
92 <TYPE? NOJCL?6 <TYPE-CODE FALSE> + PHRASE32>
93 <SET JCL-STR12 %<> (TYPE FALSE)>
97 <CALL '
\1aREADJCL 0 = JCL-STR12>
100 <VEQUAL? QUICK?16 0 - PHRASE36>
101 <GEN-SET 'PRECOMPILED #T$UNBOUND 0>
102 <GEN-SET 'AUTO-PRECOMP #T$UNBOUND 0>
103 <GEN-SET 'REDO #T$UNBOUND 0>
105 <TYPE? JCL-VEC14 <TYPE-CODE FALSE> - BOOL45>
106 <TYPE? JCL-STR12 <TYPE-CODE FALSE> + PHRASE44>
108 <SET NOJCL?6 'T (TYPE ATOM)>
109 <SET QUICK?16 'T (TYPE ATOM)>
113 <SETG 'BOOT-MODE %<>>
117 <SET REM-VEC15 %<> (TYPE FALSE)>
118 <SET TEMP57 JCL-VEC14>
122 <EMPTY? TEMP57 + MAPAP55>
124 <NTHUV VV62 1 = ST63 (TYPE STRING)>
125 <EMPUS? ST63 + PHRASE65 (TYPE STRING)>
126 <NTHUS ST63 1 = ST63 (TYPE CHARACTER)>
127 <VEQUAL? ST63 !\- - PHRASE65>
133 <REST1 TEMP57 = TEMP57>
136 <TYPE? REM-VEC15 <TYPE-CODE FALSE> + PHRASE69>
139 <CALL '
\1aLENGTH 1 = TEMP60>
140 <LENUV REM-VEC15 = TEMP58 (TYPE FIX)>
141 <SUB TEMP60 TEMP58 = TEMP60 (TYPE FIX)>
145 <LOOP (TEMP58 VALUE LENGTH) (TEMP60 VALUE)>
147 <VEQUAL? TEMP60 0 + ISTRE72>
149 <EMPL? TEMP58 + TAG73>
150 <PUTREST TEMP58 TEMP57>
160 <SUB TEMP60 1 = TEMP60>
163 <SET TEMP58 VV62 (TYPE LIST)>
168 <EMPL? TEMP58 + MAPAP79>
169 <EMPTY? ST63 + MAPAP79>
172 <NTH1 TEMP57 = TEMP57>
173 <PUTL TEMP60 1 TEMP57>
175 <RESTL TEMP58 1 = TEMP58 (TYPE LIST)>
179 <SET ST63 REM-VEC15 (TYPE VECTOR)>
184 <EMPUV? ST63 + TAG161>
185 <NTHUV ST63 1 = REM-VEC15>
188 <PUSH ["L" "-L" "D" "-D"]>
189 <CALL '
\1aMEMBER 2 = TEMP57>
190 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE97>
192 <SET ANY-JCL?18 'T (TYPE ATOM)>
199 <CALL '
\1aMEMBER 2 = TEMP57>
200 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE101>
208 <CALL '
\1aMEMBER 2 = TEMP57>
209 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE103>
211 <SET ANY-JCL?18 'T (TYPE ATOM)>
218 <CALL '
\1aMEMBER 2 = TEMP57>
219 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE105>
221 <SET ANY-JCL?18 'T (TYPE ATOM)>
228 <CALL '
\1aMEMBER 2 = TEMP57>
229 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE107>
231 <SET ANY-JCL?18 'T (TYPE ATOM)>
238 <CALL '
\1aMEMBER 2 = TEMP57>
239 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE109>
241 <GEN-SET 'PRECOMPILED 'T>
247 <CALL '
\1aMEMBER 2 = TEMP57>
248 <TYPE? TEMP57 <TYPE-CODE FALSE> + PHRASE113>
250 <GEN-SET 'PRECOMPILED 'T>
251 <GEN-SET 'AUTO-PRECOMP 'T>
257 <CALL '
\1aLPARSE 1 = REM-VEC15>
261 <EMPTY? REM-VEC15 + MAPAP124>
262 <NTH1 REM-VEC15 = TEMP57>
263 <TYPE? TEMP57 <TYPE-CODE ADECL> - PHRASE134>
264 <NTHUV TEMP57 1 = TEMP60>
265 <SET TEMP58 [P -P PA -PA] (TYPE VECTOR)>
266 <TYPE? TEMP60 <TYPE-CODE ATOM> - PHRASE134>
267 <LOOP (TEMP60 VALUE) (TEMP58 LENGTH VALUE)>
269 <NTHUV TEMP58 1 = TEMP141>
270 <VEQUAL? TEMP141 TEMP60 + TAG136>
272 <RESTUV TEMP58 1 = TEMP58 (TYPE VECTOR)>
273 <EMPUV? TEMP58 - TAG137>
276 <NTHUV TEMP57 2 = TEMP58>
277 <GEN-SET 'PRECOMPILED TEMP58>
278 <TYPE? TEMP58 <TYPE-CODE ATOM> - PHRASE157>
280 <NTHUV TEMP57 1 = TEMP58>
282 <SET TEMP60 [PA -PA] (TYPE VECTOR)>
283 <TYPE? TEMP58 <TYPE-CODE ATOM> - PHRASE147>
284 <LOOP (TEMP58 VALUE) (TEMP60 LENGTH VALUE)>
286 <NTHUV TEMP60 1 = TEMP141>
287 <VEQUAL? TEMP141 TEMP58 + TAG148>
289 <RESTUV TEMP60 1 = TEMP60 (TYPE VECTOR)>
290 <EMPUV? TEMP60 - TAG149>
293 <GEN-SET 'AUTO-PRECOMP 'T>
295 <GEN-LVAL 'PRECOMPILED = TEMP60>
296 <NTHR TEMP60 3 = TEMP60 (RECORD-TYPE ATOM)>
297 <GEN-SET 'PRECOMPILED TEMP60>
306 <REST1 REM-VEC15 = REM-VEC15>
309 <RESTUV ST63 1 = ST63 (TYPE VECTOR)>
312 <SET TEMP60 0 (TYPE FIX)>
315 <AND TEMP58 7 = TEMP58>
316 <VEQUAL? TEMP58 1 + TAG160>
318 <LOOP (ST63 TYPE VALUE LENGTH) (TEMP60 VALUE)>
321 <EMPTY? ST63 + TAG164>
324 <ADD TEMP60 1 = TEMP60 (TYPE FIX)>
327 <LIST TEMP60 = VV62 (TYPE LIST)>
333 <VEQUAL? TEMP60 0 + TAG162>
335 <CONS TEMP58 ST63 = ST63 (TYPE LIST)>
337 <SUB TEMP60 1 = TEMP60 (TYPE FIX)>
345 <SET REM-VEC15 JCL-STR12>
346 <EMPTY? REM-VEC15 + TAG168>
347 <LOOP (REM-VEC15 LENGTH VALUE TYPE)>
349 <NTH1 REM-VEC15 = ST63>
350 <TYPE? ST63 <TYPE-CODE CHARACTER> - TAG171>
351 <VEQUAL? ST63 !\/ + TAG169>
354 <REST1 REM-VEC15 = REM-VEC15>
355 <EMPTY? REM-VEC15 - TAG170>
357 <SET REM-VEC15 %<> (TYPE FALSE)>
359 <TYPE? REM-VEC15 <TYPE-CODE FALSE> + PHRASE167>
366 <CALL '
\1aLENGTH 1 = TEMP57>
367 <LENUS REM-VEC15 = ST63 (TYPE FIX)>
368 <SUB TEMP57 ST63 = STACK (TYPE FIX)>
370 <CALL '
\1aSUBSTRUC 3 = STACK>
371 <CALL '
\1aLEX 1 = VV62>
373 <RESTUS REM-VEC15 1 = STACK (TYPE STRING)>
375 <CALL '
\1aLPARSE 1 = REM-VEC15>
381 <EMPTY? ST63 + COND166>
383 <TYPE? TEMP57 <TYPE-CODE ATOM> - PHRASE185>
384 <SET REM-VEC15 [L /L D /D] (TYPE VECTOR)>
385 <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
387 <NTHUV REM-VEC15 1 = TEMP60>
388 <VEQUAL? TEMP60 TEMP57 + TAG188>
390 <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
391 <EMPUV? REM-VEC15 - TAG189>
394 <SET ANY-JCL?18 'T (TYPE ATOM)>
398 <SET REM-VEC15 [V /V] (TYPE VECTOR)>
399 <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
401 <NTHUV REM-VEC15 1 = TEMP60>
402 <VEQUAL? TEMP60 TEMP57 + TAG194>
404 <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
405 <EMPUV? REM-VEC15 - TAG195>
411 <SET REM-VEC15 [G /G] (TYPE VECTOR)>
412 <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
414 <NTHUV REM-VEC15 1 = TEMP60>
415 <VEQUAL? TEMP60 TEMP57 + TAG198>
417 <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
418 <EMPUV? REM-VEC15 - TAG199>
421 <SET ANY-JCL?18 'T (TYPE ATOM)>
425 <SET REM-VEC15 [GC /GC] (TYPE VECTOR)>
426 <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
428 <NTHUV REM-VEC15 1 = TEMP60>
429 <VEQUAL? TEMP60 TEMP57 + TAG202>
431 <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
432 <EMPUV? REM-VEC15 - TAG203>
435 <SET ANY-JCL?18 'T (TYPE ATOM)>
439 <SET REM-VEC15 [I /I] (TYPE VECTOR)>
440 <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
442 <NTHUV REM-VEC15 1 = TEMP60>
443 <VEQUAL? TEMP60 TEMP57 + TAG206>
445 <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
446 <EMPUV? REM-VEC15 - TAG207>
449 <SET ANY-JCL?18 'T (TYPE ATOM)>
453 <SET REM-VEC15 [P /P] (TYPE VECTOR)>
454 <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
456 <NTHUV REM-VEC15 1 = TEMP60>
457 <VEQUAL? TEMP60 TEMP57 + TAG210>
459 <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
460 <EMPUV? REM-VEC15 - TAG211>
463 <GEN-SET 'PRECOMPILED 'T>
466 <SET REM-VEC15 [PA /PA] (TYPE VECTOR)>
467 <LOOP (TEMP57 VALUE) (REM-VEC15 LENGTH VALUE)>
469 <NTHUV REM-VEC15 1 = TEMP60>
470 <VEQUAL? TEMP60 TEMP57 + TAG216>
472 <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
473 <EMPUV? REM-VEC15 - TAG217>
476 <GEN-SET 'PRECOMPILED 'T>
477 <GEN-SET 'AUTO-PRECOMP 'T>
480 <TYPE? TEMP57 <TYPE-CODE ADECL> - PHRASE223>
481 <NTHUV TEMP57 1 = REM-VEC15>
482 <SET TEMP60 [P /P PA /PA] (TYPE VECTOR)>
483 <TYPE? REM-VEC15 <TYPE-CODE ATOM> - PHRASE238>
484 <LOOP (REM-VEC15 VALUE) (TEMP60 LENGTH VALUE)>
486 <NTHUV TEMP60 1 = TEMP58>
487 <VEQUAL? TEMP58 REM-VEC15 + TAG226>
489 <RESTUV TEMP60 1 = TEMP60 (TYPE VECTOR)>
490 <EMPUV? TEMP60 - TAG227>
493 <NTHUV TEMP57 2 = TEMP60>
494 <GEN-SET 'PRECOMPILED TEMP60>
496 <NTHUV TEMP57 1 = TEMP60>
498 <SET REM-VEC15 [PA /PA] (TYPE VECTOR)>
499 <TYPE? TEMP60 <TYPE-CODE ATOM> - PHRASE238>
500 <LOOP (TEMP60 VALUE) (REM-VEC15 LENGTH VALUE)>
502 <NTHUV REM-VEC15 1 = TEMP58>
503 <VEQUAL? TEMP58 TEMP60 + TAG233>
505 <RESTUV REM-VEC15 1 = REM-VEC15 (TYPE VECTOR)>
506 <EMPUV? REM-VEC15 - TAG234>
509 <GEN-SET 'AUTO-PRECOMP 'T>
522 <LENUS JCL-STR12 = STACK (TYPE FIX)>
523 <CALL '
\1aLEX 2 = VV62>
526 <VEQUAL? ANY-JCL?18 0 - PHRASE242>
527 <SET QUICK?16 %<> (TYPE FALSE)>
529 <EMPL? VV62 + AGAIN23 (TYPE LIST)>
531 <TYPE? ST63 <TYPE-CODE STRING> - PHRASE245>
532 <IFCAN "STRING-EQUAL?">
533 <STRING-EQUAL? ST63 "BOOT" - PHRASE245>
534 <ENDIF "STRING-EQUAL?">
535 <IFCANNOT "STRING-EQUAL?">
536 <SET TEMP58 "BOOT" (TYPE STRING)>
537 <LENUS ST63 = TEMP57 (TYPE FIX)>
538 <VEQUAL? TEMP57 4 - PHRASE245>
539 <LOOP (ST63 VALUE LENGTH) (TEMP58 VALUE LENGTH) (TEMP57 VALUE)>
541 <NTHUS ST63 1 = REM-VEC15>
542 <NTHUS TEMP58 1 = TEMP60>
543 <VEQUAL? REM-VEC15 TEMP60 - PHRASE245>
544 <DEAD REM-VEC15 TEMP60>
545 <RESTUS ST63 1 = ST63 (TYPE STRING)>
546 <RESTUS TEMP58 1 = TEMP58 (TYPE STRING)>
547 <SUB TEMP57 1 = TEMP57 (TYPE FIX)>
548 <GRTR? TEMP57 0 + TAG246 (TYPE FIX)>
549 <ENDIF "STRING-EQUAL?">
554 <GVAL 'INT-MODE = TEMP58>
555 <TYPE? TEMP58 <TYPE-CODE FALSE> + EXIT391>
557 <GEN-SET 'EXPFLOAD 'T>
563 <GEN-LVAL 'OUTCHAN = STACK>
565 <FRAME '
\1aREADSTRING>
567 <GEN-LVAL 'INCHAN = STACK>
569 <CALL '
\1aREADSTRING 3 = REM-VEC15>
574 <CALL '
\1aLEX 2 = VV62>
576 <GEN-LVAL 'OUTCHAN = STACK>
578 <EMPL? VV62 - PHRASE263 (TYPE LIST)>
579 <FRAME '
\1aLEAVE-MIMOC>
581 <CALL '
\1aLEAVE-MIMOC 1>
584 <VEQUAL? QUICK?16 0 - PHRASE286>
587 <GEN-LVAL 'OUTCHAN = STACK>
590 <CALL '
\1aTYI 0 = TEMP58>
591 <SET TEMP141 "YyTt " (TYPE STRING)>
592 <TYPE? TEMP58 <TYPE-CODE CHARACTER> - TAG272>
593 <EMPUS? TEMP141 + TAG272>
594 <LOOP (TEMP58 VALUE) (TEMP141 LENGTH VALUE)>
596 <NTHUS TEMP141 1 = REM-VEC15>
597 <VEQUAL? REM-VEC15 TEMP58 + TAG273>
599 <RESTUS TEMP141 1 = TEMP141 (TYPE STRING)>
600 <EMPUS? TEMP141 - TAG274>
602 <SET TEMP141 %<> (TYPE FALSE)>
604 <GEN-SET 'DOC TEMP141>
605 <VEQUAL? TEMP141 0 + PHRASE271>
609 <GEN-LVAL 'OUTCHAN = STACK>
612 <GEN-LVAL 'OUTCHAN = STACK>
617 <PUSH " [No Listing]">
618 <GEN-LVAL 'OUTCHAN = STACK>
621 <GEN-LVAL 'OUTCHAN = STACK>
624 <NTHL VV62 1 = REM-VEC15>
625 <TYPE? REM-VEC15 <TYPE-CODE STRING> - TAG296>
626 <IFCAN "STRING-EQUAL?">
627 <STRING-EQUAL? REM-VEC15 "BOOT" + PHRASE295>
628 <ENDIF "STRING-EQUAL?">
629 <IFCANNOT "STRING-EQUAL?">
630 <SET TEMP57 "BOOT" (TYPE STRING)>
631 <LENUS REM-VEC15 = ST63 (TYPE FIX)>
632 <VEQUAL? ST63 4 - TAG296>
633 <LOOP (REM-VEC15 VALUE LENGTH) (TEMP57 VALUE LENGTH) (ST63 VALUE)>
635 <NTHUS REM-VEC15 1 = TEMP58>
636 <NTHUS TEMP57 1 = TEMP60>
637 <VEQUAL? TEMP58 TEMP60 - TAG296>
639 <RESTUS REM-VEC15 1 = REM-VEC15 (TYPE STRING)>
640 <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
641 <SUB ST63 1 = ST63 (TYPE FIX)>
642 <GRTR? ST63 0 + TAG302 (TYPE FIX)>
644 <ENDIF "STRING-EQUAL?">
646 <SETG 'BOOT-MODE %<>>
647 <VEQUAL? QUICK?16 0 - PHRASE349>
649 <PUSH "Interpreter: ">
650 <GEN-LVAL 'OUTCHAN = STACK>
653 <CALL '
\1aTYI 0 = REM-VEC15>
654 <SET TEMP60 " YyTt" (TYPE STRING)>
655 <TYPE? REM-VEC15 <TYPE-CODE CHARACTER> - PHRASE309>
656 <EMPUS? TEMP60 + PHRASE309>
657 <LOOP (REM-VEC15 VALUE) (TEMP60 LENGTH VALUE)>
659 <NTHUS TEMP60 1 = TEMP58>
660 <VEQUAL? TEMP58 REM-VEC15 + TAG310>
662 <RESTUS TEMP60 1 = TEMP60 (TYPE STRING)>
663 <EMPUS? TEMP60 - TAG311>
667 <PUSH " [Interpreter Code]">
668 <GEN-LVAL 'OUTCHAN = STACK>
670 <GEN-SET 'EXPFLOAD 'T>
676 <PUSH " [User Code]">
677 <GEN-LVAL 'OUTCHAN = STACK>
681 <GEN-LVAL 'OUTCHAN = STACK>
685 <GEN-LVAL 'OUTCHAN = STACK>
688 <CALL '
\1aTYI 0 = REM-VEC15>
689 <SET TEMP57 " YyTt" (TYPE STRING)>
690 <TYPE? REM-VEC15 <TYPE-CODE CHARACTER> - PHRASE331>
691 <EMPUS? TEMP57 + PHRASE331>
692 <LOOP (REM-VEC15 VALUE) (TEMP57 LENGTH VALUE)>
694 <NTHUS TEMP57 1 = ST63>
695 <VEQUAL? ST63 REM-VEC15 + TAG332>
697 <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
698 <EMPUS? TEMP57 - TAG333>
703 <GEN-LVAL 'OUTCHAN = STACK>
710 <PUSH " [Non-GC Code]">
711 <GEN-LVAL 'OUTCHAN = STACK>
715 <GEN-LVAL 'OUTCHAN = STACK>
720 <PUSH " [Boot mode]">
721 <GEN-LVAL 'OUTCHAN = STACK>
724 <GEN-LVAL 'OUTCHAN = STACK>
730 <VEQUAL? QUICK?16 0 - PHRASE359>
731 <GVAL 'BOOT-MODE = REM-VEC15>
732 <TYPE? REM-VEC15 <TYPE-CODE FALSE> - PHRASE359>
736 <GEN-LVAL 'OUTCHAN = STACK>
739 <CALL '
\1aTYI 0 = REM-VEC15>
740 <SET TEMP57 " YyTt" (TYPE STRING)>
741 <TYPE? REM-VEC15 <TYPE-CODE CHARACTER> - PHRASE366>
742 <EMPUS? TEMP57 + PHRASE366>
743 <LOOP (REM-VEC15 VALUE) (TEMP57 LENGTH VALUE)>
745 <NTHUS TEMP57 1 = ST63>
746 <VEQUAL? ST63 REM-VEC15 + TAG367>
748 <RESTUS TEMP57 1 = TEMP57 (TYPE STRING)>
749 <EMPUS? TEMP57 - TAG368>
755 <GEN-LVAL 'OUTCHAN = STACK>
761 <GEN-LVAL 'OUTCHAN = STACK>
766 <GEN-LVAL 'OUTCHAN = STACK>
769 <VEQUAL? QUICK?16 0 - EXIT391>
770 <GVAL 'INT-MODE = REM-VEC15>
771 <TYPE? REM-VEC15 <TYPE-CODE FALSE> - EXIT391>
774 <PUSH "Things to do: ">
775 <GEN-LVAL 'OUTCHAN = STACK>
781 <CALL '
\1aNEXTCHR 0 = REM-VEC15>
782 <EQUAL? REM-VEC15 !\
\e - PHRASE395>
785 <GEN-LVAL 'OUTCHAN = STACK>
791 <CALL '
\1aREAD 0 = STACK>
795 <FRAME '
\1aCHANNEL-OPEN>
797 <NTHL VV62 1 = STACK>
798 <CALL '
\1aCHANNEL-OPEN 2 = REM-VEC15>
799 <TYPE? REM-VEC15 <TYPE-CODE FALSE> + PHRASE404>
800 <FRAME '
\1aFILE-MIMOC>
801 <FRAME '
\1aCHANNEL-OP>
804 <CALL '
\1aCHANNEL-OP 2 = STACK>
807 <GEN-LVAL 'DOC = STACK>
808 <SET TEMP57 4 (TYPE FIX)>
810 <LOOP (ST63 VALUE) (TEMP57 VALUE)>
813 <EMPL? ST63 + TAG406>
814 <NTHL ST63 1 = STACK>
815 <RESTL ST63 1 = ST63 (TYPE LIST)>
816 <ADD TEMP57 1 = TEMP57 (TYPE FIX)>
819 <CALL '
\1aFILE-MIMOC TEMP57>
821 <FRAME '
\1aCHANNEL-CLOSE>
824 <CALL '
\1aCHANNEL-CLOSE 1>
826 <GEN-LVAL 'OUTCHAN = STACK>
830 <GEN-LVAL 'OUTCHAN = STACK>
832 <FRAME '
\1aLEAVE-MIMOC>
834 <CALL '
\1aLEAVE-MIMOC 1>
838 <NTHL VV62 1 = STACK (TYPE STRING)>
842 <CALL '
\1aSYS-ERR 3 = REM-VEC15>
843 <FRAME '
\1aPRINT-MANY>
844 <GEN-LVAL 'OUTCHAN = STACK>
846 <PUSH "Can't find name of output file: ">
847 <NTHL REM-VEC15 1 = STACK>
849 <RESTL REM-VEC15 1 = QUICK?16 (TYPE LIST)>
851 <NTHL QUICK?16 1 = STACK>
853 <CALL '
\1aPRINT-MANY 6>
855 <GEN-LVAL 'OUTCHAN = STACK>
857 <SET QUICK?16 'T (TYPE ATOM)>
858 <SET NOJCL?6 'T (TYPE ATOM)>
861 <SET NOJCL?6 'T (TYPE ATOM)>
863 <END
\1aRUN-QUESTIONS>
866 <GFCN
\1aLEAVE-MIMOC ("VALUE" ATOM STRING) UN4>
867 <TEMP TEMP7:STRING TEMP8 TEMP9 TEMP10 TEMP11>
869 <IFCAN "STRING-EQUAL?">
870 <STRING-EQUAL? UN4 "TAA" - PHRASE6>
871 <ENDIF "STRING-EQUAL?">
872 <IFCANNOT "STRING-EQUAL?">
875 <SET TEMP8 "TAA" (TYPE STRING)>
876 <LENUS TEMP7 = TEMP9 (TYPE FIX)>
877 <VEQUAL? TEMP9 3 - PHRASE6>
878 <LOOP (TEMP7 VALUE LENGTH) (TEMP8 VALUE LENGTH) (TEMP9 VALUE)>
880 <NTHUS TEMP7 1 = TEMP10>
881 <NTHUS TEMP8 1 = TEMP11>
882 <VEQUAL? TEMP10 TEMP11 - PHRASE6>
884 <RESTUS TEMP7 1 = TEMP7 (TYPE STRING)>
885 <RESTUS TEMP8 1 = TEMP8 (TYPE STRING)>
886 <SUB TEMP9 1 = TEMP9 (TYPE FIX)>
887 <GRTR? TEMP9 0 + TAG12 (TYPE FIX)>
888 <ENDIF "STRING-EQUAL?">
890 <CALL '
\1aQUIT 0 = TEMP8>
895 <CALL '
\1aEXIT 0 = TEMP8>
901 <GFCN
\1aLEX ("VALUE" LIST STRING "OPTIONAL" FIX) BUF6 LEN7>
902 <OPT-DISPATCH 1 %<> OPT4 OPT5>
906 <TEMP TEMP10 L13:LIST TEMP21 TEMP23 CHR14:CHARACTER>
908 <TYPE? LEN7 <TYPE-CODE UNBOUND> - TAG8>
909 <LENUS BUF6 = LEN7 (TYPE FIX)>
911 <LENUS BUF6 = TEMP10 (TYPE FIX)>
912 <SUB TEMP10 LEN7 = TEMP10 (TYPE FIX)>
913 <RESTUS BUF6 TEMP10 = TEMP10 (TYPE STRING)>
914 <MOVE-STRING BUF6 TEMP10 LEN7 (NO-OVERLAP %<>)>
919 <SET TEMP10 %<> (TYPE FALSE)>
923 <EMPUS? BUF6 - PHRASE18 (TYPE STRING)>
924 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE20>
926 <LOOP (TEMP21 VALUE)>
928 <RESTL TEMP21 1 = TEMP23 (TYPE LIST)>
929 <EMPL? TEMP23 + TAG24>
936 <UBLOCK <TYPE-CODE STRING> 1 = TEMP23 (TYPE STRING)>
937 <CONS TEMP23 () = TEMP23>
938 <PUTREST TEMP21 TEMP23>
941 <RESTL L13 1 = TEMP10 (TYPE LIST)>
946 <NTHUS BUF6 1 = CHR14 (TYPE CHARACTER)>
949 <EMPUS? TEMP23 + PHRASE27>
950 <LOOP (CHR14 VALUE) (TEMP23 LENGTH VALUE)>
952 <NTHUS TEMP23 1 = TEMP21>
953 <VEQUAL? TEMP21 CHR14 + TAG28>
955 <RESTUS TEMP23 1 = TEMP23 (TYPE STRING)>
956 <EMPUS? TEMP23 - TAG29>
959 <TYPE? TEMP10 <TYPE-CODE FALSE> + PHRASE36>
960 <LENUS TEMP10 = TEMP23 (TYPE FIX)>
961 <LENUS BUF6 = TEMP21 (TYPE FIX)>
962 <SUB TEMP23 TEMP21 = TEMP23 (TYPE FIX)>
964 <UUBLOCK <TYPE-CODE STRING> TEMP23 = TEMP21 (TYPE STRING)>
965 <MOVE-STRING TEMP10 TEMP21 TEMP23 (NO-OVERLAP T)>
970 <LOOP (TEMP21 VALUE)>
972 <RESTL TEMP21 1 = TEMP23 (TYPE LIST)>
973 <EMPL? TEMP23 + TAG35>
978 <CONS TEMP10 () = TEMP23>
980 <PUTREST TEMP21 TEMP23>
982 <SET TEMP10 %<> (TYPE FALSE)>
985 <TYPE? TEMP10 <TYPE-CODE FALSE> - PHRASE36>
988 <RESTUS BUF6 1 = BUF6 (TYPE STRING)>