3 <GFCN
\1aT$READ ("VALUE" ANY VECTOR) T$INCHAN4>
4 <TEMP TEMP3:LBIND TEMP6>
6 <GETS 'BIND = TEMP3 (TYPE LBIND)>
7 <BBIND 'T$INCHAN 'VECTOR %<> T$INCHAN4>
11 <NTHR 'T$INCHAN 2 = TEMP6 (RECORD-TYPE ATOM) (TYPE LBIND)>
12 <NTHR TEMP6 1 = TEMP6 (RECORD-TYPE LBIND)>
16 <NTHR 'T$INCHAN 2 = TEMP6 (RECORD-TYPE ATOM) (TYPE LBIND)>
17 <NTHR TEMP6 1 = STACK (RECORD-TYPE LBIND)>
19 <CALL '
\1aI$RDBUF 1 = TEMP6>
20 <TYPE? TEMP6 <TYPE-CODE T$UNBOUND> - PHRASE11>
23 <CHTYPE TEMP6 <TYPE-CODE T$UNBOUND> = TEMP6>
27 <CALL '
\1aI$PARSE 0 = TEMP6>
37 <GFCN
\1aI$RDBUF ("VALUE" <OR FALSE STRING T$UNBOUND> T$BCHANNEL) C4>
38 <TEMP BUF5:STRING TEMP10 TEMP13:FIX>
40 <NTHUV C4 10 = BUF5 (TYPE STRING)>
41 <NTHUV C4 12 = TEMP10 (TYPE FIX)>
42 <VEQUAL? TEMP10 0 + PHRASE8 (TYPE FIX)>
44 <EMPUS? BUF5 + PHRASE8 (TYPE STRING)>
45 <NTHUV C4 11 = TEMP10 (TYPE FIX)>
46 <NTHUV C4 12 = TEMP13 (TYPE FIX)>
48 <SUB TEMP10 TEMP13 = TEMP10 (TYPE FIX)>
50 <RESTUS BUF5 TEMP10 = TEMP10 (TYPE STRING)>
56 <NTHUV C4 1 = TEMP13 (TYPE FIX)>
57 <LENUS BUF5 = TEMP10 (TYPE FIX)>
58 <READ TEMP13 BUF5 TEMP10 0 = TEMP13>
60 <PUTUV C4 12 TEMP13 (TYPE FIX)>
61 <PUTUV C4 11 TEMP13 (TYPE FIX)>
65 <NTHUV C4 12 = TEMP10 (TYPE FIX)>
67 <VEQUAL? TEMP10 0 + TAG18 (TYPE FIX)>
72 <CHTYPE TEMP10 <TYPE-CODE T$UNBOUND> = TEMP10>
78 <GFCN
\1aT$RCHR ("VALUE" CHARACTER VECTOR) CHN4>
81 <NTHUV CHN4 1 = TEMP5>
83 <GVAL 'I$CHRSTR = TEMP6>
84 <READ TEMP5 TEMP6 1 0>
86 <GVAL 'I$CHRSTR = TEMP6>
87 <NTHUS TEMP6 1 = TEMP6 (TYPE CHARACTER)>
93 <GFCN
\1aI$NXTCHR ("VALUE" ANY)>
94 <TEMP R6 NCHR5 CHR4:CHARACTER>
97 <GVAL 'BI$NCHR = NCHR5>
98 <TYPE? NCHR5 <TYPE-CODE FALSE> + PHRASE8>
103 <TYPE? R6 <TYPE-CODE FALSE> + BOOL12>
104 <NTHUV R6 12 = NCHR5 (TYPE FIX)>
105 <VEQUAL? NCHR5 0 + BOOL11 (TYPE FIX)>
108 <TYPE? R6 <TYPE-CODE FALSE> - PHRASE10>
109 <GVAL 'BI$STR = NCHR5>
110 <EMPUS? NCHR5 - PHRASE10 (TYPE STRING)>
113 <TYPE? R6 <TYPE-CODE FALSE> + PHRASE18>
114 <GVAL 'I$CONT = NCHR5>
115 <TYPE? NCHR5 <TYPE-CODE FALSE> - BOOL21>
117 <NTHUV R6 1 = NCHR5 (TYPE FIX)>
118 <VEQUAL? NCHR5 64 + PHRASE20 (TYPE FIX)>
122 <NTHUV R6 1 = NCHR5 (TYPE FIX)>
123 <VEQUAL? NCHR5 64 - BOOL22 (TYPE FIX)>
132 <CALL '
\1aI$RDBUF 1 = NCHR5>
133 <TYPE? NCHR5 <TYPE-CODE T$UNBOUND> - PHRASE25>
136 <CHTYPE NCHR5 <TYPE-CODE CHARACTER> = R6>
142 <CALL '
\1aI$NXTCHR 0 = R6>
148 <CHTYPE NCHR5 <TYPE-CODE CHARACTER> = R6>
154 <CHTYPE NCHR5 <TYPE-CODE CHARACTER> = R6>
159 <GVAL 'BI$STR = NCHR5>
160 <NTHUS NCHR5 1 = CHR4 (TYPE CHARACTER)>
162 <GVAL 'BI$STR = NCHR5>
163 <RESTUS NCHR5 1 = NCHR5 (TYPE STRING)>
166 <TYPE? R6 <TYPE-CODE FALSE> + BOOL32>
167 <NTHUV R6 12 = NCHR5 (TYPE FIX)>
168 <SUB NCHR5 1 = NCHR5 (TYPE FIX)>
169 <PUTUV R6 12 NCHR5 (TYPE FIX)>
177 <GFCN
\1aI$PARSE ("VALUE" ANY "OPTIONAL" <OR ATOM FALSE>) PFX6>
178 <OPT-DISPATCH 0 %<> OPT4 OPT5>
182 <TEMP CHR7:CHARACTER TEMP19 TEMP20 ASC8:FIX>
188 <CALL '
\1aI$NXTCHR 0 = CHR7>
189 <GVAL 'BREAKS = TEMP19>
190 <EMPUS? TEMP19 + EXIT11>
191 <LOOP (CHR7 VALUE) (TEMP19 LENGTH VALUE)>
193 <NTHUS TEMP19 1 = TEMP20>
194 <VEQUAL? TEMP20 CHR7 + AGAIN13>
196 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
197 <EMPUS? TEMP19 - TAG16>
199 <CHTYPE CHR7 <TYPE-CODE FIX> = ASC8>
200 <VEQUAL? CHR7 !\( - PHRASE23>
203 <CALL '
\1aI$PLIST 0 = STACK>
206 <CALL '
\1aRETVAL 2 = TEMP19>
210 <VEQUAL? CHR7 !\< - PHRASE26>
214 <CALL '
\1aI$PLIST 1 = TEMP20>
215 <CHTYPE TEMP20 <TYPE-CODE FORM> = STACK>
219 <CALL '
\1aRETVAL 2 = TEMP19>
223 <VEQUAL? CHR7 !\[ - PHRASE29>
225 <FRAME '
\1aI$PVECTOR>
226 <CALL '
\1aI$PVECTOR 0 = STACK>
229 <CALL '
\1aRETVAL 2 = TEMP19>
233 <VEQUAL? CHR7 !\" - PHRASE32>
235 <FRAME '
\1aI$PSTRING>
236 <CALL '
\1aI$PSTRING 0 = STACK>
239 <CALL '
\1aRETVAL 2 = TEMP19>
243 <VEQUAL? CHR7 !\| - PHRASE35>
246 <CALL '
\1aI$PMCODE 0 = STACK>
249 <CALL '
\1aRETVAL 2 = TEMP19>
253 <SET TEMP20 ")]>" (TYPE STRING)>
254 <EMPUS? TEMP20 + PHRASE38>
255 <LOOP (CHR7 VALUE) (TEMP20 LENGTH VALUE)>
257 <NTHUS TEMP20 1 = TEMP19>
258 <VEQUAL? TEMP19 CHR7 + TAG39>
260 <RESTUS TEMP20 1 = TEMP20 (TYPE STRING)>
261 <EMPUS? TEMP20 - TAG40>
264 <CHTYPE ASC8 <TYPE-CODE T$UNBOUND> = TEMP19>
269 <VEQUAL? CHR7 !\! - PHRASE43>
271 <CALL '
\1aI$NXTCHR 0 = CHR7>
272 <VEQUAL? CHR7 !\
\0 - PHRASE45>
273 <GVAL 'ZERO = TEMP20>
274 <CHTYPE TEMP20 <TYPE-CODE T$UNBOUND> = TEMP19>
279 <VEQUAL? CHR7 !\\ - PHRASE47>
281 <CALL '
\1aI$NXTCHR 0 = CHR7>
287 <CALL '
\1aRETVAL 2 = TEMP19>
291 <VEQUAL? CHR7 !\< - PHRASE50>
295 <CALL '
\1aI$PLIST 1 = TEMP20>
296 <CHTYPE TEMP20 <TYPE-CODE SEGMENT> = STACK>
300 <CALL '
\1aRETVAL 2 = TEMP19>
304 <VEQUAL? CHR7 !\> - PHRASE53>
305 <CHTYPE CHR7 <TYPE-CODE T$UNBOUND> = TEMP19>
311 <PUSH '@BAD-USE-OF-EXCL>
312 <CALL '
\1aT$ERROR 1 = TEMP19>
316 <LESS? ASC8 48 + BOOL57 (TYPE FIX)>
317 <GRTR? ASC8 57 - BOOL56 (TYPE FIX)>
320 <VEQUAL? CHR7 !\+ + BOOL56>
321 <VEQUAL? CHR7 !\- - PHRASE55>
326 <FRAME '
\1aI$PNUMBER>
327 <CALL '
\1aI$PNUMBER 0 = STACK>
330 <CALL '
\1aRETVAL 2 = TEMP19>
334 <VEQUAL? CHR7 !\# - PHRASE60>
336 <CALL '
\1aI$PARSE 0 = TEMP19>
337 <TYPE? TEMP19 <TYPE-CODE FIX> - PHRASE63>
338 <SETG 'BI$RADIX TEMP19>
342 <CALL '
\1aI$PARSE 0 = STACK>
345 <CALL '
\1aRETVAL 2 = TEMP19>
352 <CALL '
\1aI$PARSE 0 = STACK>
355 <CALL '
\1aT$CHTYPE 2 = STACK>
358 <CALL '
\1aRETVAL 2 = TEMP19>
362 <VEQUAL? CHR7 !\% - PHRASE70>
364 <CALL '
\1aI$NXTCHR 0 = CHR7>
365 <VEQUAL? CHR7 !\% - PHRASE72>
368 <CALL '
\1aI$PARSE 0 = STACK>
371 <CALL '
\1aI$PARSE 0 = TEMP19>
379 <CALL '
\1aI$PARSE 0 = STACK>
380 <CALL '
\1aT$EVAL 1 = TEMP19>
384 <VEQUAL? CHR7 !\, - PHRASE80>
387 <CALL '
\1aI$PARSE 1 = TEMP19>
392 <GVAL 'M$$ROOT = STACK>
393 <CALL '
\1aLOOKUP 2 = STACK>
396 <CALL '
\1aFORM 2 = STACK>
399 <CALL '
\1aRETVAL 2 = TEMP19>
403 <VEQUAL? CHR7 !\' - PHRASE85>
408 <GVAL 'M$$ROOT = STACK>
409 <CALL '
\1aLOOKUP 2 = STACK>
412 <CALL '
\1aI$PARSE 1 = STACK>
413 <CALL '
\1aFORM 2 = STACK>
416 <CALL '
\1aRETVAL 2 = TEMP19>
420 <VEQUAL? CHR7 !\. - PHRASE90>
424 <CALL '
\1aI$PARSE 1 = TEMP19>
426 <TYPE? TEMP19 <TYPE-CODE FLOAT> - PHRASE93>
432 <CALL '
\1aRETVAL 2 = TEMP19>
440 <GVAL 'M$$ROOT = STACK>
441 <CALL '
\1aLOOKUP 2 = STACK>
444 <CALL '
\1aFORM 2 = STACK>
447 <CALL '
\1aRETVAL 2 = TEMP19>
451 <VEQUAL? CHR7 !\; - PHRASE99>
455 <CALL '
\1aI$PARSE 0 = TEMP19>
462 <FRAME '
\1aI$PNUMBER>
464 <CALL '
\1aI$PNUMBER 1 = STACK>
467 <CALL '
\1aRETVAL 2 = TEMP19>
473 <GFCN
\1aRETVAL ("VALUE" ANY ANY <OR ATOM FALSE>) RET4 PFX5>
481 <GFCN
\1aI$PLIST ("VALUE" <LIST [REST ANY]> "OPTIONAL" CHARACTER) TERM6>
482 <OPT-DISPATCH 0 %<> OPT4 OPT5>
486 <TEMP TEMP15 TEMP13 ITM17 TEMP24>
488 <SET TEMP15 () (TYPE LIST)>
489 <SET TEMP13 () (TYPE LIST)>
494 <CALL '
\1aI$PARSE 0 = ITM17>
495 <TYPE? ITM17 <TYPE-CODE T$UNBOUND> - PHRASE19>
496 <VEQUAL? ITM17 TERM6 + MAPAP11 (TYPE FIX)>
497 <GVAL 'ZERO = TEMP24>
498 <CHTYPE TEMP24 <TYPE-CODE T$UNBOUND> = TEMP24>
499 <VEQUAL? TEMP24 ITM17 - PHRASE22>
504 <FRAME '
\1aI$PUNMATCH>
508 <CALL '
\1aI$PUNMATCH 2 = TEMP24>
514 <CONS TEMP24 () = TEMP24 (TYPE LIST)>
515 <EMPL? TEMP15 - TAG28>
516 <SET TEMP15 TEMP24 (TYPE LIST)>
519 <PUTREST TEMP13 TEMP24>
522 <SET TEMP13 TEMP24 (TYPE LIST)>
531 <GFCN
\1aI$PVECTOR ("VALUE" VECTOR)>
532 <TEMP TEMP12 ITM14 TEMP21>
534 <SET TEMP12 0 (TYPE FIX)>
539 <CALL '
\1aI$PARSE 0 = ITM14>
540 <TYPE? ITM14 <TYPE-CODE T$UNBOUND> - PHRASE16>
541 <VEQUAL? ITM14 93 + MAPAP8 (TYPE FIX)>
542 <GVAL 'ZERO = TEMP21>
543 <CHTYPE TEMP21 <TYPE-CODE T$UNBOUND> = TEMP21>
544 <VEQUAL? TEMP21 ITM14 + MAPAP8>
546 <FRAME '
\1aI$PUNMATCH>
550 <CALL '
\1aI$PUNMATCH 2 = TEMP21>
558 <ADD TEMP12 1 = TEMP12 (TYPE FIX)>
561 <UBLOCK <TYPE-CODE VECTOR> TEMP12 = TEMP12 (TYPE VECTOR)>
567 <GFCN
\1aI$PUNMATCH ("VALUE" ANY T$UNBOUND CHARACTER) TERMIN4 EXPECT5>
571 <PUSH '@SYNTAX-ERROR>
572 <CHTYPE TERMIN4 <TYPE-CODE CHARACTER> = STACK>
574 <PUSH " INSTEAD OF ">
577 <UBLOCK <TYPE-CODE STRING> 3 = STACK (TYPE STRING)>
579 <CALL '
\1aT$ERROR 3 = TEMP8>
585 <GFCN
\1aI$PSTRING ("VALUE" STRING)>
586 <TEMP (QUOTE4 %<>) TEMP14 CHR16>
588 <SET TEMP14 0 (TYPE FIX)>
593 <CALL '
\1aI$NXTCHR 0 = CHR16>
594 <VEQUAL? QUOTE4 0 + PHRASE19>
595 <SET QUOTE4 %<> (TYPE FALSE)>
598 <VEQUAL? CHR16 !\\ - PHRASE21>
599 <SET QUOTE4 'T (TYPE ATOM)>
602 <VEQUAL? CHR16 !\" + MAPAP10>
606 <ADD TEMP14 1 = TEMP14 (TYPE FIX)>
609 <UBLOCK <TYPE-CODE STRING> TEMP14 = QUOTE4 (TYPE STRING)>
611 <EMPUS? QUOTE4 - PHRASE26 (TYPE STRING)>
617 <GVAL 'STOBLIST = STACK>
618 <CALL '
\1aT$LOOKUP 2 = TEMP14>
619 <TYPE? TEMP14 <TYPE-CODE FALSE> + PHRASE27>
624 <GVAL 'STOBLIST = STACK>
625 <CALL '
\1aT$LOOKUP 2 = TEMP14>
626 <NTHR TEMP14 3 = TEMP14 (RECORD-TYPE ATOM) (TYPE STRING)>
635 <GFCN
\1aI$NOLF ("VALUE" CHARACTER)>
636 <TEMP CHR1-4:CHARACTER>
639 <CALL '
\1aI$NXTCHR 0 = CHR1-4>
640 <VEQUAL? CHR1-4 !\
\r + BOOL7>
645 <CALL '
\1aI$NXTCHR 0 = CHR1-4>
649 <CALL '
\1aI$NXTCHR 0 = CHR1-4>
656 <GFCN
\1aI$PMCODE ("VALUE" <PRIMTYPE UVECTOR>)>
657 <TEMP (NUM4:FIX 0) (VERT?6 %<>) N9:FIX CHR1-10 TEMP15 MC5 MCD30:UVECTOR QW39>
659 <SET N9 2 (TYPE FIX)>
664 <CALL '
\1aI$NOLF 0 = CHR1-10>
666 <CALL '
\1aI$NOLF 0 = TEMP15>
667 <SUB TEMP15 65 = TEMP15 (TYPE FIX)>
668 <SUB CHR1-10 65 = CHR1-10 (TYPE FIX)>
669 <LSH CHR1-10 5 = CHR1-10 (TYPE FIX)>
670 <OR TEMP15 CHR1-10 = TEMP15>
672 <ADD NUM4 TEMP15 = NUM4 (TYPE FIX)>
674 <SUB N9 1 = N9 (TYPE FIX)>
675 <LESS? N9 0 + EXIT7 (TYPE FIX)>
676 <LSH NUM4 8 = NUM4 (TYPE FIX)>
679 <IRECORD 518 NUM4 NUM4 = MC5>
681 <CHTYPE MC5 <TYPE-CODE UVECTOR> = TEMP15>
685 <EMPUU? TEMP15 + MAPAP26>
688 <CALL '
\1aI$NOLF 0 = CHR1-10>
689 <VEQUAL? CHR1-10 !\| - PHRASE34>
690 <SET VERT?6 'T (TYPE ATOM)>
693 <SET NUM4 3 (TYPE FIX)>
697 <CALL '
\1aONE-Q-WD 1 = N9>
702 <CALL '
\1aONE-Q-WD 0 = QW39>
703 <TYPE? QW39 <TYPE-CODE FALSE> + PHRASE44>
704 <GVAL 'QWSIZ = CHR1-10>
705 <LSH N9 CHR1-10 = CHR1-10 (TYPE FIX)>
707 <OR CHR1-10 QW39 = N9>
711 <GVAL 'QWSIZ = CHR1-10>
712 <MUL NUM4 CHR1-10 = CHR1-10 (TYPE FIX)>
714 <LSH N9 CHR1-10 = N9 (TYPE FIX)>
720 <SUB NUM4 1 = NUM4 (TYPE FIX)>
721 <VEQUAL? NUM4 0 - AGAIN42 (TYPE FIX)>
725 <RESTUU TEMP15 1 = TEMP15 (TYPE UVECTOR)>
728 <VEQUAL? VERT?6 0 - PHRASE54>
738 <GFCN
\1aONE-Q-WD ("VALUE" <OR FALSE FIX> "OPTIONAL" CHARACTER) FCHR6>
739 <OPT-DISPATCH 0 %<> OPT4 OPT5>
743 <TEMP TEMP13 TEMP19:FIX>
745 <TYPE? FCHR6 <TYPE-CODE UNBOUND> - TAG8>
747 <CALL '
\1aI$NOLF 0 = FCHR6>
749 <VEQUAL? FCHR6 !\| - TAG15>
753 <CALL '
\1aI$NOLF 0 = TEMP13>
754 <VEQUAL? TEMP13 !\| - TAG16>
757 <SUB TEMP13 65 = TEMP13 (TYPE FIX)>
758 <SUB FCHR6 65 = TEMP19 (TYPE FIX)>
760 <LSH TEMP19 5 = TEMP19 (TYPE FIX)>
761 <OR TEMP13 TEMP19 = TEMP13>
768 <GFCN
\1aI$PNUMBER ("VALUE" <OR ATOM FIX FLOAT T$UNBOUND> "OPTIONAL" <OR FALSE ATOM>) ATM?6>
769 <OPT-DISPATCH 0 %<> OPT4 OPT5>
773 <TEMP (EXP7:FIX 0) (FRC8:FIX 0) (NUM9:FIX 0) (EXP?12 %<>) FRC?13 (FRCN16:FIX 1) (SGN?17 %<>) (QUOTE?18 %<>) (NEG?19 %<>) (TRL?22 %<>) (DIVIDE23 %<>) CHR20 CHR39 ASC41 TEMP50 TEMP51 OBL15:OBLIST OBNAM14>
775 <GVAL 'I$FRC = FRC?13>
777 <CALL '
\1aI$NXTCHR 0 = CHR20>
778 <VEQUAL? CHR20 !\
\0 - PHRASE25>
779 <GVAL 'ZERO = EXP?12>
780 <CHTYPE EXP?12 <TYPE-CODE T$UNBOUND> = EXP?12>
784 <SETG 'BI$NCHR CHR20>
786 <SET CHR20 0 (TYPE FIX)>
791 <CALL '
\1aI$NXTCHR 0 = CHR39>
792 <CHTYPE CHR39 <TYPE-CODE FIX> = ASC41>
793 <VEQUAL? QUOTE?18 0 + PHRASE43>
794 <SET QUOTE?18 %<> (TYPE FALSE)>
797 <VEQUAL? CHR39 !\\ - PHRASE44>
798 <SET ATM?6 'T (TYPE ATOM)>
799 <SET QUOTE?18 'T (TYPE ATOM)>
802 <GVAL 'BREAKS = TEMP50>
803 <EMPUS? TEMP50 + TAG47>
804 <LOOP (CHR39 VALUE) (TEMP50 LENGTH VALUE)>
806 <NTHUS TEMP50 1 = TEMP51>
807 <VEQUAL? TEMP51 CHR39 + BOOL46>
809 <RESTUS TEMP50 1 = TEMP50 (TYPE STRING)>
810 <EMPUS? TEMP50 - TAG48>
812 <GVAL 'BRACKS = TEMP50>
813 <EMPUS? TEMP50 + TAG52>
814 <LOOP (CHR39 VALUE) (TEMP50 LENGTH VALUE)>
816 <NTHUS TEMP50 1 = TEMP51>
817 <VEQUAL? TEMP51 CHR39 + BOOL46>
819 <RESTUS TEMP50 1 = TEMP50 (TYPE STRING)>
820 <EMPUS? TEMP50 - TAG53>
822 <VEQUAL? CHR39 !\! - PHRASE72>
824 <VEQUAL? CHR39 !\! - PHRASE56>
826 <CALL '
\1aI$NXTCHR 0 = CHR39>
827 <VEQUAL? CHR39 !\- - PHRASE58>
828 <SET TRL?22 'T (TYPE ATOM)>
831 <VEQUAL? CHR39 !\
\0 - MAP30>
832 <SETG 'BI$NCHR CHR39>
836 <SETG 'BI$NCHR CHR39>
839 <TYPE? ATM?6 <TYPE-CODE FALSE> - MAPAP33>
841 <VEQUAL? SGN?17 0 + PHRASE64>
843 <VEQUAL? NUM9 0 - PHRASE64 (TYPE FIX)>
844 <VEQUAL? FRC8 0 + MAPAP33 (TYPE FIX)>
846 <SET SGN?17 %<> (TYPE FALSE)>
847 <SUB 0 CHR20 = CHR20 (TYPE FIX)>
848 <MUL CHR20 2 = CHR20 (TYPE FIX)>
853 <VEQUAL? ASC41 0 - PHRASE85 (TYPE FIX)>
854 <TYPE? ATM?6 <TYPE-CODE FALSE> - MAPAP33>
856 <VEQUAL? SGN?17 0 + PHRASE77>
858 <VEQUAL? NUM9 0 - PHRASE77 (TYPE FIX)>
859 <VEQUAL? FRC8 0 + MAPAP33 (TYPE FIX)>
861 <SET SGN?17 %<> (TYPE FALSE)>
862 <SUB 0 CHR20 = CHR20 (TYPE FIX)>
863 <MUL CHR20 2 = CHR20 (TYPE FIX)>
868 <TYPE? ATM?6 <TYPE-CODE FALSE> - PHRASE120>
869 <VEQUAL? CHR39 !\+ + BOOL87>
870 <VEQUAL? CHR39 !\- - PHRASE86>
872 <VEQUAL? EXP?12 0 + PHRASE89>
873 <VEQUAL? EXP7 0 - PHRASE89 (TYPE FIX)>
874 <VEQUAL? CHR39 !\- - PHRASE120>
875 <SET DIVIDE23 'T (TYPE ATOM)>
878 <VEQUAL? NUM9 0 - PHRASE95 (TYPE FIX)>
879 <VEQUAL? FRC8 0 - PHRASE95 (TYPE FIX)>
880 <VEQUAL? NEG?19 0 - PHRASE95>
881 <SET SGN?17 'T (TYPE ATOM)>
882 <VEQUAL? CHR39 !\- - PHRASE120>
883 <SET NEG?19 'T (TYPE ATOM)>
886 <SET ATM?6 'T (TYPE ATOM)>
889 <LESS? ASC41 48 + PHRASE103 (TYPE FIX)>
890 <GRTR? ASC41 57 + PHRASE103 (TYPE FIX)>
891 <SUB ASC41 48 = ASC41 (TYPE FIX)>
892 <VEQUAL? EXP?12 0 + PHRASE106>
893 <MUL EXP7 10 = TEMP51 (TYPE FIX)>
895 <ADD TEMP51 ASC41 = EXP7 (TYPE FIX)>
899 <TYPE? FRC?13 <TYPE-CODE FALSE> + PHRASE108>
900 <MUL FRC8 10 = TEMP51 (TYPE FIX)>
902 <ADD TEMP51 ASC41 = FRC8 (TYPE FIX)>
904 <MUL FRCN16 10 = FRCN16 (TYPE FIX)>
907 <GVAL 'BI$RADIX = TEMP50>
908 <MUL NUM9 TEMP50 = TEMP51 (TYPE FIX)>
910 <ADD TEMP51 ASC41 = NUM9 (TYPE FIX)>
914 <VEQUAL? CHR39 !\E + BOOL112>
915 <VEQUAL? CHR39 !\e - PHRASE111>
917 <VEQUAL? EXP?12 0 + PHRASE114>
918 <SET ATM?6 'T (TYPE ATOM)>
921 <SET EXP?12 'T (TYPE ATOM)>
924 <VEQUAL? CHR39 !\. - PHRASE116>
925 <TYPE? FRC?13 <TYPE-CODE FALSE> + PHRASE118>
926 <SET ATM?6 'T (TYPE ATOM)>
929 <SET FRC?13 'T (TYPE ATOM)>
932 <SET ATM?6 'T (TYPE ATOM)>
934 <VEQUAL? QUOTE?18 0 - MAP30>
939 <ADD CHR20 1 = CHR20 (TYPE FIX)>
942 <UBLOCK <TYPE-CODE STRING> CHR20 = SGN?17 (TYPE STRING)>
945 <VEQUAL? SGN?17 0 - PHRASE125>
947 <TYPE? FRC?13 <TYPE-CODE FALSE> + PHRASE127>
949 <FLOAT NUM9 = FRC?13 (TYPE FLOAT)>
951 <FLOAT FRC8 = CHR20 (TYPE FLOAT)>
953 <FLOAT FRCN16 = TEMP51 (TYPE FLOAT)>
955 <DIVF CHR20 TEMP51 = CHR20 (TYPE FLOAT)>
957 <ADDF FRC?13 CHR20 = FRC?13 (TYPE FLOAT)>
964 <VEQUAL? EXP?12 0 + PHRASE139>
966 <VEQUAL? EXP7 0 + PHRASE139 (TYPE FIX)>
967 <GRTR? EXP7 7 + PHRASE133 (TYPE FIX)>
968 <VEQUAL? DIVIDE23 0 + PHRASE135>
970 <TYPE? FRC?13 <TYPE-CODE FLOAT> + TAG136>
971 <FLOAT FRC?13 = FRC?13 (TYPE FLOAT)>
973 <GVAL 'I$POWERS = CHR20>
974 <NTHUV CHR20 EXP7 = TEMP51 (TYPE FLOAT)>
976 <DIVF FRC?13 TEMP51 = FRC?13 (TYPE FLOAT)>
982 <TYPE? TEMP51 <TYPE-CODE FLOAT> + TAG138>
983 <FLOAT TEMP51 = TEMP51 (TYPE FLOAT)>
985 <GVAL 'I$POWERS = CHR20>
986 <NTHUV CHR20 EXP7 = TEMP50 (TYPE FLOAT)>
988 <MULF TEMP51 TEMP50 = FRC?13 (TYPE FLOAT)>
993 <PUSH '@NUMBER-OUT-OF-RANGE>
997 <VEQUAL? NEG?19 0 + TAG144>
999 <TYPE? FRC?13 <TYPE-CODE FIX> - TAG143>
1000 <SUB 0 FRC?13 = FRC?13 (TYPE FIX)>
1004 <SUBF 0.0 FRC?13 = FRC?13 (TYPE FLOAT)>
1009 <VEQUAL? TRL?22 0 + PHRASE145>
1011 <FRAME '
\1aI$NXTCHR>
1012 <CALL '
\1aI$NXTCHR 0 = CHR20>
1013 <GVAL 'BREAKS = FRC?13>
1014 <EMPUS? FRC?13 + TAG149>
1015 <LOOP (CHR20 VALUE) (FRC?13 LENGTH VALUE)>
1017 <NTHUS FRC?13 1 = TEMP50>
1018 <VEQUAL? TEMP50 CHR20 + BOOL148>
1020 <RESTUS FRC?13 1 = FRC?13 (TYPE STRING)>
1021 <EMPUS? FRC?13 - TAG150>
1023 <VEQUAL? CHR20 !\
\0 + BOOL148>
1024 <VEQUAL? CHR20 !\! - PHRASE147>
1026 <GVAL 'M$$ROOT = OBL15>
1029 <GVAL 'BRACKS = FRC?13>
1030 <EMPUS? FRC?13 + PHRASE153>
1031 <LOOP (CHR20 VALUE) (FRC?13 LENGTH VALUE)>
1033 <NTHUS FRC?13 1 = TEMP50>
1034 <VEQUAL? TEMP50 CHR20 + TAG154>
1036 <RESTUS FRC?13 1 = FRC?13 (TYPE STRING)>
1037 <EMPUS? FRC?13 - TAG155>
1040 <GVAL 'M$$ROOT = OBL15>
1041 <SETG 'BI$NCHR CHR20>
1045 <SETG 'BI$NCHR CHR20>
1046 <TYPE? CHR20 <TYPE-CODE FALSE> + PHRASE157>
1049 <CALL '
\1aI$PARSE 0 = OBNAM14>
1050 <TYPE? OBNAM14 <TYPE-CODE ATOM> - PHRASE157>
1051 <NTHR OBNAM14 3 = FRC?13 (RECORD-TYPE ATOM) (TYPE STRING)>
1052 <IFCAN "STRING-EQUAL?">
1053 <STRING-EQUAL? FRC?13 "IMSUBR" - PHRASE157>
1054 <ENDIF "STRING-EQUAL?">
1055 <IFCANNOT "STRING-EQUAL?">
1056 <SET TEMP50 "IMSUBR" (TYPE STRING)>
1057 <LENUS FRC?13 = TEMP51 (TYPE FIX)>
1058 <VEQUAL? TEMP51 6 - PHRASE157>
1059 <LOOP (FRC?13 VALUE LENGTH) (TEMP50 VALUE LENGTH) (TEMP51 VALUE)>
1061 <NTHUS FRC?13 1 = CHR20>
1062 <NTHUS TEMP50 1 = EXP?12>
1063 <VEQUAL? CHR20 EXP?12 - PHRASE157>
1065 <RESTUS FRC?13 1 = FRC?13 (TYPE STRING)>
1066 <RESTUS TEMP50 1 = TEMP50 (TYPE STRING)>
1067 <SUB TEMP51 1 = TEMP51 (TYPE FIX)>
1068 <GRTR? TEMP51 0 + TAG161 (TYPE FIX)>
1069 <ENDIF "STRING-EQUAL?">
1070 <GVAL 'IMSUBOB = OBL15>
1074 <PUSH '@NON-ATOMIC-NAME>
1077 <CALL '
\1aT$ERROR 2>
1079 <FRAME '
\1aT$LOOKUP>
1082 <CALL '
\1aT$LOOKUP 2 = EXP?12>
1083 <TYPE? EXP?12 <TYPE-CODE FALSE> - BOOL170>
1084 <FRAME '
\1aT$INSERT>
1089 <CALL '
\1aT$INSERT 2 = EXP?12>
1093 <NTHUS SGN?17 1 = TEMP50 (TYPE CHARACTER)>
1094 <VEQUAL? TEMP50 !\@ - PHRASE166>
1096 <FRAME '
\1aT$LOOKUP>
1097 <RESTUS SGN?17 1 = STACK (TYPE STRING)>
1098 <GVAL 'EROBLIST = STACK>
1099 <CALL '
\1aT$LOOKUP 2 = EXP?12>
1100 <TYPE? EXP?12 <TYPE-CODE FALSE> - BOOL170>
1101 <FRAME '
\1aT$INSERT>
1102 <RESTUS SGN?17 1 = STACK (TYPE STRING)>
1104 <GVAL 'EROBLIST = STACK>
1105 <CALL '
\1aT$INSERT 2 = EXP?12>
1109 <FRAME '
\1aT$LOOKUP>
1111 <GVAL 'M$$INTERNAL = STACK>
1112 <CALL '
\1aT$LOOKUP 2 = EXP?12>
1113 <TYPE? EXP?12 <TYPE-CODE FALSE> - BOOL170>
1114 <FRAME '
\1aT$INSERT>
1117 <GVAL 'M$$INTERNAL = STACK>
1118 <CALL '
\1aT$INSERT 2 = EXP?12>
1125 <GFCN
\1aT$FLOAD ("VALUE" ANY <OR STRING FALSE> "OPTIONAL" <OR STRING FALSE>) STR6 OSTR7>
1126 <OPT-DISPATCH 1 %<> OPT4 OPT5>
1132 <TYPE? STR6 <TYPE-CODE FALSE> + PHRASE10>
1137 <CALL '
\1aT$OPEN 2 = C8>
1138 <TYPE? C8 <TYPE-CODE FALSE> + PHRASE10>
1144 <CALL '
\1aT$READ 1 = VAL15>
1145 <TYPE? VAL15 <TYPE-CODE T$UNBOUND> + EXIT13>
1155 <CALL '
\1aT$CLOSE 1>
1158 <TYPE? OSTR7 <TYPE-CODE FALSE> + PHRASE24>
1163 <CALL '
\1aT$FLOAD 2 = C8>
1172 <GFCN
\1aT$CLOSE ("VALUE" <VECTOR FIX> VECTOR) CHAN4>
1175 <NTHUV CHAN4 1 = CNUM5 (TYPE FIX)>
1178 <PUTUV CHAN4 1 0 (TYPE FIX)>
1184 <GFCN
\1aT$OPEN ("VALUE" <OR FALSE <VECTOR FIX STRING STRING STRING FIX FIX FIX FIX FIX STRING FIX FIX FIX>> STRING STRING "OPTIONAL" FIX) DIR6 FNM7 RADX8>
1185 <OPT-DISPATCH 2 %<> OPT4 OPT5>
1191 <OPEN 0 7 FNM7 = ID9>
1193 <TYPE? TEMP13 <TYPE-CODE FALSE> + PHRASE12>
1206 <PUSH "////////////////////////////////////////
1207 ////////////////////////////////////////
1208 ////////////////////////////////////////
1209 ////////////////////////////////////////
1210 ////////////////////////////////////////
1211 //////////////////////////////////////////////">
1215 <UBLOCK <TYPE-CODE VECTOR> 13 = ID9>
1225 <GFCN
\1aT$CHTYPE ("VALUE" ANY ANY ATOM) ITM4 TYP5>
1226 <TEMP SPN6:STRING TEMP10 TEMP11:STRING TEMP12 TEMP13 TEMP14 TYPC7:FIX>
1228 <NTHR TYP5 3 = SPN6 (RECORD-TYPE ATOM) (TYPE STRING)>
1230 <IFCAN "STRING-EQUAL?">
1231 <STRING-EQUAL? SPN6 "MSUBR" - PHRASE9>
1232 <ENDIF "STRING-EQUAL?">
1233 <IFCANNOT "STRING-EQUAL?">
1235 <SET TEMP11 "MSUBR" (TYPE STRING)>
1236 <LENUS TEMP10 = TEMP12 (TYPE FIX)>
1237 <VEQUAL? TEMP12 5 - PHRASE9>
1238 <LOOP (TEMP10 VALUE LENGTH) (TEMP11 VALUE LENGTH) (TEMP12 VALUE)>
1240 <NTHUS TEMP10 1 = TEMP13>
1241 <NTHUS TEMP11 1 = TEMP14>
1242 <VEQUAL? TEMP13 TEMP14 - PHRASE9>
1243 <DEAD TEMP13 TEMP14>
1244 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1245 <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1246 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1247 <GRTR? TEMP12 0 + TAG15 (TYPE FIX)>
1248 <ENDIF "STRING-EQUAL?">
1249 <SET TYPC7 647 (TYPE FIX)>
1252 <IFCAN "STRING-EQUAL?">
1253 <STRING-EQUAL? SPN6 "IMSUBR" - PHRASE16>
1254 <ENDIF "STRING-EQUAL?">
1255 <IFCANNOT "STRING-EQUAL?">
1257 <SET TEMP10 "IMSUBR" (TYPE STRING)>
1258 <LENUS TEMP11 = TEMP14 (TYPE FIX)>
1259 <VEQUAL? TEMP14 6 - PHRASE16>
1260 <LOOP (TEMP11 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP14 VALUE)>
1262 <NTHUS TEMP11 1 = TEMP13>
1263 <NTHUS TEMP10 1 = TEMP12>
1264 <VEQUAL? TEMP13 TEMP12 - PHRASE16>
1265 <DEAD TEMP13 TEMP12>
1266 <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1267 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1268 <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
1269 <GRTR? TEMP14 0 + TAG18 (TYPE FIX)>
1270 <ENDIF "STRING-EQUAL?">
1271 <SET TYPC7 2055 (TYPE FIX)>
1274 <IFCAN "STRING-EQUAL?">
1275 <STRING-EQUAL? SPN6 "MCODE" - PHRASE19>
1276 <ENDIF "STRING-EQUAL?">
1277 <IFCANNOT "STRING-EQUAL?">
1279 <SET TEMP11 "MCODE" (TYPE STRING)>
1280 <LENUS TEMP10 = TEMP12 (TYPE FIX)>
1281 <VEQUAL? TEMP12 5 - PHRASE19>
1282 <LOOP (TEMP10 VALUE LENGTH) (TEMP11 VALUE LENGTH) (TEMP12 VALUE)>
1284 <NTHUS TEMP10 1 = TEMP13>
1285 <NTHUS TEMP11 1 = TEMP14>
1286 <VEQUAL? TEMP13 TEMP14 - PHRASE19>
1287 <DEAD TEMP13 TEMP14>
1288 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1289 <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1290 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1291 <GRTR? TEMP12 0 + TAG21 (TYPE FIX)>
1292 <ENDIF "STRING-EQUAL?">
1293 <SET TYPC7 518 (TYPE FIX)>
1296 <IFCAN "STRING-EQUAL?">
1297 <STRING-EQUAL? SPN6 "FALSE" - PHRASE22>
1298 <ENDIF "STRING-EQUAL?">
1299 <IFCANNOT "STRING-EQUAL?">
1301 <SET TEMP10 "FALSE" (TYPE STRING)>
1302 <LENUS TEMP11 = TEMP14 (TYPE FIX)>
1303 <VEQUAL? TEMP14 5 - PHRASE22>
1304 <LOOP (TEMP11 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP14 VALUE)>
1306 <NTHUS TEMP11 1 = TEMP13>
1307 <NTHUS TEMP10 1 = TEMP12>
1308 <VEQUAL? TEMP13 TEMP12 - PHRASE22>
1309 <DEAD TEMP13 TEMP12>
1310 <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1311 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1312 <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
1313 <GRTR? TEMP14 0 + TAG24 (TYPE FIX)>
1314 <ENDIF "STRING-EQUAL?">
1315 <SET TYPC7 321 (TYPE FIX)>
1318 <IFCAN "STRING-EQUAL?">
1319 <STRING-EQUAL? SPN6 "I$TERMIN" - PHRASE25>
1320 <ENDIF "STRING-EQUAL?">
1321 <IFCANNOT "STRING-EQUAL?">
1323 <SET TEMP11 "I$TERMIN" (TYPE STRING)>
1324 <LENUS TEMP10 = TEMP12 (TYPE FIX)>
1325 <VEQUAL? TEMP12 8 - PHRASE25>
1326 <LOOP (TEMP10 VALUE LENGTH) (TEMP11 VALUE LENGTH) (TEMP12 VALUE)>
1328 <NTHUS TEMP10 1 = TEMP13>
1329 <NTHUS TEMP11 1 = TEMP14>
1330 <VEQUAL? TEMP13 TEMP14 - PHRASE25>
1331 <DEAD TEMP13 TEMP14>
1332 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1333 <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1334 <SUB TEMP12 1 = TEMP12 (TYPE FIX)>
1335 <GRTR? TEMP12 0 + TAG27 (TYPE FIX)>
1336 <ENDIF "STRING-EQUAL?">
1337 <SET TYPC7 1152 (TYPE FIX)>
1340 <IFCAN "STRING-EQUAL?">
1341 <STRING-EQUAL? SPN6 "UNBOUND" - PHRASE28>
1342 <ENDIF "STRING-EQUAL?">
1343 <IFCANNOT "STRING-EQUAL?">
1345 <SET TEMP10 "UNBOUND" (TYPE STRING)>
1346 <LENUS TEMP11 = TEMP14 (TYPE FIX)>
1347 <VEQUAL? TEMP14 7 - PHRASE28>
1348 <LOOP (TEMP11 VALUE LENGTH) (TEMP10 VALUE LENGTH) (TEMP14 VALUE)>
1350 <NTHUS TEMP11 1 = TEMP13>
1351 <NTHUS TEMP10 1 = TEMP12>
1352 <VEQUAL? TEMP13 TEMP12 - PHRASE28>
1353 <DEAD TEMP13 TEMP12>
1354 <RESTUS TEMP11 1 = TEMP11 (TYPE STRING)>
1355 <RESTUS TEMP10 1 = TEMP10 (TYPE STRING)>
1356 <SUB TEMP14 1 = TEMP14 (TYPE FIX)>
1357 <GRTR? TEMP14 0 + TAG30 (TYPE FIX)>
1358 <ENDIF "STRING-EQUAL?">
1359 <SET TYPC7 0 (TYPE FIX)>
1367 <CHTYPE ITM4 TYPC7 = TEMP10>
1374 <GFCN
\1aATOM ("VALUE" ANY STRING) STR4>
1379 <UBLOCK <TYPE-CODE STRING> 1 = TEMP6 (TYPE STRING)>
1380 <RECORD 834 %<> %<> TEMP6 %<> %<> = TEMP6>
1386 <FCN
\1aT$EVAL ("VALUE" ANY ANY) FOO4>
1387 <TEMP ATM6 TEMP13 TEMP14 TEMP15 TEMP16 TEMP17>
1389 <TYPE? FOO4 <TYPE-CODE FORM> - PHRASE8>
1390 <EMPL? FOO4 + PHRASE10 (TYPE FORM)>
1391 <NTHL FOO4 1 = ATM6 (TYPE ATOM)>
1392 <NTHR ATM6 3 = ATM6 (RECORD-TYPE ATOM) (TYPE STRING)>
1393 <IFCAN "STRING-EQUAL?">
1394 <STRING-EQUAL? ATM6 "SETG" - PHRASE12>
1395 <ENDIF "STRING-EQUAL?">
1396 <IFCANNOT "STRING-EQUAL?">
1398 <SET TEMP14 "SETG" (TYPE STRING)>
1399 <LENUS TEMP13 = TEMP15 (TYPE FIX)>
1400 <VEQUAL? TEMP15 4 - PHRASE12>
1401 <LOOP (TEMP13 VALUE LENGTH) (TEMP14 VALUE LENGTH) (TEMP15 VALUE)>
1403 <NTHUS TEMP13 1 = TEMP16>
1404 <NTHUS TEMP14 1 = TEMP17>
1405 <VEQUAL? TEMP16 TEMP17 - PHRASE12>
1406 <DEAD TEMP16 TEMP17>
1407 <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
1408 <RESTUS TEMP14 1 = TEMP14 (TYPE STRING)>
1409 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
1410 <GRTR? TEMP15 0 + TAG18 (TYPE FIX)>
1411 <ENDIF "STRING-EQUAL?">
1413 <RESTL FOO4 1 = TEMP14 (TYPE LIST)>
1414 <NTHL TEMP14 1 = STACK (TYPE ATOM)>
1416 <RESTL FOO4 1 = TEMP14 (TYPE LIST)>
1418 <RESTL TEMP14 1 = TEMP14 (TYPE LIST)>
1419 <NTHL TEMP14 1 = STACK>
1421 <CALL '
\1aT$SETG 2 = TEMP14>
1425 <IFCAN "STRING-EQUAL?">
1426 <STRING-EQUAL? ATM6 "GBIND" - PHRASE20>
1427 <ENDIF "STRING-EQUAL?">
1428 <IFCANNOT "STRING-EQUAL?">
1430 <SET TEMP17 "GBIND" (TYPE STRING)>
1431 <LENUS TEMP13 = TEMP16 (TYPE FIX)>
1432 <VEQUAL? TEMP16 5 - PHRASE20>
1433 <LOOP (TEMP13 VALUE LENGTH) (TEMP17 VALUE LENGTH) (TEMP16 VALUE)>
1435 <NTHUS TEMP13 1 = TEMP14>
1436 <NTHUS TEMP17 1 = TEMP15>
1437 <VEQUAL? TEMP14 TEMP15 - PHRASE20>
1438 <DEAD TEMP14 TEMP15>
1439 <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
1440 <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
1441 <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
1442 <GRTR? TEMP16 0 + TAG23 (TYPE FIX)>
1443 <ENDIF "STRING-EQUAL?">
1444 <RESTL FOO4 1 = TEMP17 (TYPE LIST)>
1446 <NTHL TEMP17 1 = ATM6 (TYPE ATOM)>
1448 <NTHR ATM6 1 = TEMP17 (RECORD-TYPE ATOM)>
1449 <VEQUAL? TEMP17 0 - PHRASE25>
1453 <GVAL 'ZERO = TEMP17>
1454 <CHTYPE TEMP17 <TYPE-CODE T$UNBOUND> = STACK>
1457 <NTHR ATM6 1 = TEMP14 (RECORD-TYPE ATOM)>
1462 <NTHR ATM6 1 = TEMP14 (RECORD-TYPE ATOM) (TYPE GBIND)>
1467 <IFCAN "STRING-EQUAL?">
1468 <STRING-EQUAL? ATM6 "PCODE" - PHRASE27>
1469 <ENDIF "STRING-EQUAL?">
1470 <IFCANNOT "STRING-EQUAL?">
1472 <SET TEMP13 "PCODE" (TYPE STRING)>
1473 <LENUS TEMP17 = TEMP15 (TYPE FIX)>
1474 <VEQUAL? TEMP15 5 - PHRASE27>
1475 <LOOP (TEMP17 VALUE LENGTH) (TEMP13 VALUE LENGTH) (TEMP15 VALUE)>
1477 <NTHUS TEMP17 1 = TEMP14>
1478 <NTHUS TEMP13 1 = TEMP16>
1479 <VEQUAL? TEMP14 TEMP16 - PHRASE27>
1480 <DEAD TEMP14 TEMP16>
1481 <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
1482 <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
1483 <SUB TEMP15 1 = TEMP15 (TYPE FIX)>
1484 <GRTR? TEMP15 0 + TAG29 (TYPE FIX)>
1485 <ENDIF "STRING-EQUAL?">
1487 <RESTL FOO4 1 = TEMP13 (TYPE LIST)>
1488 <NTHL TEMP13 1 = STACK (TYPE FIX)>
1490 <RESTL FOO4 1 = TEMP13 (TYPE LIST)>
1492 <RESTL TEMP13 1 = TEMP13 (TYPE LIST)>
1493 <NTHL TEMP13 1 = STACK (TYPE STRING)>
1495 <CALL '
\1aT$PCODE 2 = TEMP14>
1499 <IFCAN "STRING-EQUAL?">
1500 <STRING-EQUAL? ATM6 "QUOTE" - PHRASE31>
1501 <ENDIF "STRING-EQUAL?">
1502 <IFCANNOT "STRING-EQUAL?">
1505 <SET TEMP17 "QUOTE" (TYPE STRING)>
1506 <LENUS TEMP13 = TEMP16 (TYPE FIX)>
1507 <VEQUAL? TEMP16 5 - PHRASE31>
1508 <LOOP (TEMP13 VALUE LENGTH) (TEMP17 VALUE LENGTH) (TEMP16 VALUE)>
1510 <NTHUS TEMP13 1 = TEMP14>
1511 <NTHUS TEMP17 1 = TEMP15>
1512 <VEQUAL? TEMP14 TEMP15 - PHRASE31>
1513 <DEAD TEMP14 TEMP15>
1514 <RESTUS TEMP13 1 = TEMP13 (TYPE STRING)>
1515 <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
1516 <SUB TEMP16 1 = TEMP16 (TYPE FIX)>
1517 <GRTR? TEMP16 0 + TAG33 (TYPE FIX)>
1518 <ENDIF "STRING-EQUAL?">
1524 <CALL '
\1aERROR 1 = TEMP14>
1535 <GFCN
\1aI$HASH ("VALUE" FIX STRING "OPTIONAL" FIX) STR6 MOD7>
1536 <OPT-DISPATCH 1 %<> OPT4 OPT5>
1540 <TEMP (VAL8:FIX 0) OFF9:FIX TEMP19 CHR24>
1543 <SET OFF9 32 (TYPE FIX)>
1546 <SET OFF9 36 (TYPE FIX)>
1548 <SET TEMP19 STR6 (TYPE STRING)>
1553 <EMPUS? TEMP19 + MAPAP17>
1554 <NTHUS TEMP19 1 = CHR24>
1556 <SUB OFF9 8 = OFF9 (TYPE FIX)>
1557 <LESS? OFF9 0 - PHRASE29 (TYPE FIX)>
1558 <SET OFF9 24 (TYPE FIX)>
1562 <SUB OFF9 7 = OFF9 (TYPE FIX)>
1563 <LESS? OFF9 0 - PHRASE33 (TYPE FIX)>
1564 <SET OFF9 29 (TYPE FIX)>
1567 <LSH CHR24 OFF9 = CHR24 (TYPE FIX)>
1568 <XOR VAL8 CHR24 = VAL8>
1570 <RESTUS TEMP19 1 = TEMP19 (TYPE STRING)>
1573 <AND VAL8 #WORD *377777777777* = VAL8>
1574 <VEQUAL? MOD7 0 - PHRASE38 (TYPE FIX)>
1578 <MOD VAL8 MOD7 = VAL8 (TYPE FIX)>
1580 <ADD VAL8 1 = TEMP19 (TYPE FIX)>
1587 <GFCN
\1aT$LOOKUP ("VALUE" <OR FALSE ATOM> STRING OBLIST) ARG1-4 ARG2-5>
1588 <TEMP BUCK6 TEMP9 TEMP17 TEMP27 TEMP28 TEMP29 TEMP30>
1590 <GVAL 'M$$OBLIST = BUCK6>
1593 <GVAL 'M$$SIZE = STACK>
1594 <CALL '
\1aI$HASH 2 = TEMP9>
1595 <NTHUV BUCK6 TEMP9 = BUCK6 (TYPE LIST)>
1597 <SET TEMP17 %<> (TYPE FALSE)>
1598 <SET TEMP9 BUCK6 (TYPE LIST)>
1603 <EMPL? TEMP9 + MAPAP14>
1604 <NTHL TEMP9 1 = BUCK6>
1605 <NTHR BUCK6 4 = TEMP17 (RECORD-TYPE ATOM)>
1606 <VEQUAL? TEMP17 ARG2-5 + TAG23>
1608 <SET TEMP17 %<> (TYPE FALSE)>
1611 <NTHR BUCK6 3 = TEMP17 (RECORD-TYPE ATOM) (TYPE STRING)>
1612 <IFCAN "STRING-EQUAL?">
1613 <STRING-EQUAL? TEMP17 ARG1-4 + TAG25>
1614 <ENDIF "STRING-EQUAL?">
1615 <IFCANNOT "STRING-EQUAL?">
1617 <LENUS TEMP17 = TEMP28 (TYPE FIX)>
1618 <LENUS TEMP27 = TEMP29 (TYPE FIX)>
1619 <VEQUAL? TEMP28 TEMP29 - TAG26>
1621 <LOOP (TEMP17 VALUE LENGTH) (TEMP27 VALUE LENGTH) (TEMP28 VALUE)>
1623 <NTHUS TEMP17 1 = TEMP29>
1624 <NTHUS TEMP27 1 = TEMP30>
1625 <VEQUAL? TEMP29 TEMP30 - TAG26>
1626 <DEAD TEMP29 TEMP30>
1627 <RESTUS TEMP17 1 = TEMP17 (TYPE STRING)>
1628 <RESTUS TEMP27 1 = TEMP27 (TYPE STRING)>
1629 <SUB TEMP28 1 = TEMP28 (TYPE FIX)>
1630 <GRTR? TEMP28 0 + TAG31 (TYPE FIX)>
1633 <ENDIF "STRING-EQUAL?">
1635 <SET TEMP17 %<> (TYPE FALSE)>
1641 <RESTL TEMP9 1 = TEMP9 (TYPE LIST)>
1649 <GFCN
\1aT$INSERT ("VALUE" ATOM <OR ATOM STRING> OBLIST) ARG1-4 ARG2-5>
1650 <TEMP OFF7:FIX TEMP10 ATM6:ATOM TEMP11:LIST>
1654 <GVAL 'M$$SIZE = STACK>
1655 <CALL '
\1aI$HASH 2 = OFF7>
1658 <UBLOCK <TYPE-CODE STRING> 1 = TEMP10 (TYPE STRING)>
1659 <RECORD 'ATOM %<> %<> TEMP10 %<> %<> = ATM6>
1661 <GVAL 'M$$OBLIST = TEMP10>
1662 <NTHUV TEMP10 OFF7 = TEMP11 (TYPE LIST)>
1664 <CONS ATM6 TEMP11 = TEMP11>
1665 <GVAL 'M$$OBLIST = TEMP10>
1666 <PUTUV TEMP10 OFF7 TEMP11 (TYPE LIST)>
1667 <DEAD TEMP10 OFF7 TEMP11>
1668 <PUTR ATM6 4 ARG2-5 (RECORD-TYPE ATOM)>
1675 <GFCN
\1aT$SETG ("VALUE" ANY ATOM ANY) ARG1-4 ARG2-5>
1678 <NTHR ARG1-4 1 = TEMP9 (RECORD-TYPE ATOM)>
1679 <VEQUAL? TEMP9 0 - PHRASE8>
1681 <RECORD 'GBIND ARG2-5 ARG1-4 %<> = TEMP9>
1682 <PUTR ARG1-4 1 TEMP9 (RECORD-TYPE ATOM)>
1685 <NTHR ARG1-4 1 = TEMP9 (RECORD-TYPE ATOM) (TYPE GBIND)>
1687 <PUTR TEMP9 1 ARG2-5 (RECORD-TYPE GBIND)>
1694 <GFCN
\1aT$GVAL ("VALUE" ANY ATOM) ARG4>
1697 <NTHR ARG4 1 = G5 (RECORD-TYPE ATOM)>
1699 <VEQUAL? G5 0 + PHRASE7>
1700 <NTHR G5 1 = G5 (RECORD-TYPE GBIND)>
1707 <GFCN
\1aI$ATOM-INIT ("VALUE" ATOM)>
1710 <GETS 'OBLIST = TEMP5>
1711 <SETG 'M$$OBLIST TEMP5>
1713 <GVAL 'M$$OBLIST = TEMP5>
1714 <LENUV TEMP5 = TEMP5 (TYPE FIX)>
1715 <SETG 'M$$SIZE TEMP5>
1719 <CALL '
\1aATOM 1 = TEMP5>
1720 <CHTYPE TEMP5 <TYPE-CODE OBLIST> = TEMP5>
1721 <SETG 'M$$INTERNAL TEMP5>
1723 <FRAME '
\1aT$INSERT>
1725 <GVAL 'M$$INTERNAL = STACK>
1726 <CALL '
\1aT$INSERT 2>
1727 <FRAME '
\1aT$INSERT>
1729 <GVAL 'M$$INTERNAL = STACK>
1730 <CALL '
\1aT$INSERT 2 = FOO4>
1731 <CHTYPE FOO4 <TYPE-CODE OBLIST> = TEMP5>
1732 <SETG 'M$$ROOT TEMP5>
1734 <GVAL 'M$$ROOT = TEMP5>
1735 <PUTR FOO4 4 TEMP5 (RECORD-TYPE ATOM)>
1739 <CALL '
\1aATOM 1 = TEMP5>
1740 <CHTYPE TEMP5 <TYPE-CODE OBLIST> = TEMP5>
1741 <SETG 'STOBLIST TEMP5>
1743 <SET TEMP5 ["AUX" "NAME" "OPTIONAL" "OPT" "EXTRA" "QUOTE" "BIND" "CALL" "ARGS" "TUPLE" "ACT" "DECL" "OWN" "VALUE" "PRINT" "READ" "MUD" "DONE"] (TYPE VECTOR)>
1747 <EMPUV? TEMP5 + MAPAP14>
1748 <NTHUV TEMP5 1 = FOO4>
1749 <FRAME '
\1aT$INSERT>
1752 <GVAL 'STOBLIST = STACK>
1753 <CALL '
\1aT$INSERT 2>
1754 <RESTUV TEMP5 1 = TEMP5 (TYPE VECTOR)>
1757 <FRAME '
\1aT$INSERT>
1759 <GVAL 'M$$ROOT = STACK>
1760 <CALL '
\1aT$INSERT 2 = TEMP5>
1761 <CHTYPE TEMP5 <TYPE-CODE OBLIST> = TEMP5>
1762 <SETG 'EROBLIST TEMP5>
1764 <FRAME '
\1aT$INSERT>
1766 <GVAL 'M$$ROOT = STACK>
1767 <CALL '
\1aT$INSERT 2 = TEMP5>
1768 <CHTYPE TEMP5 <TYPE-CODE OBLIST> = TEMP5>
1769 <SETG 'IMSUBOB TEMP5>
1771 <FRAME '
\1aT$INSERT>
1773 <GVAL 'M$$ROOT = STACK>
1774 <CALL '
\1aT$INSERT 2>
1775 <FRAME '
\1aT$INSERT>
1777 <GVAL 'M$$ROOT = STACK>
1778 <CALL '
\1aT$INSERT 2>
1779 <FRAME '
\1aT$INSERT>
1781 <GVAL 'M$$ROOT = STACK>
1782 <CALL '
\1aT$INSERT 2>
1783 <FRAME '
\1aT$INSERT>
1785 <GVAL 'M$$ROOT = STACK>
1786 <CALL '
\1aT$INSERT 2 = TEMP5>
1789 <END
\1aI$ATOM-INIT>
1792 <GFCN
\1aT$PCODE ("VALUE" T$PCODE FIX STRING) ID4 DBNAM5>
1793 <TEMP PURVEC7:LIST DBVEC9 CT15:FIX DB17 TEMP22 TEMP23 TEMP24 TEMP25 TEMP26>
1795 <GVAL 'I$PURVEC = PURVEC7>
1796 <EMPL? PURVEC7 - PHRASE11 (TYPE LIST)>
1802 <UBLOCK <TYPE-CODE VECTOR> 5 = DBVEC9>
1803 <SETG 'I$DBVEC DBVEC9>
1806 <GVAL 'I$DBVEC = DBVEC9>
1808 <SET CT15 1 (TYPE FIX)>
1812 <NTHUV DBVEC9 1 = DB17>
1813 <TYPE? DB17 <TYPE-CODE FALSE> + PHRASE20>
1814 <NTHUV DB17 1 = TEMP22 (TYPE STRING)>
1815 <IFCAN "STRING-EQUAL?">
1816 <STRING-EQUAL? TEMP22 DBNAM5 - PHRASE20>
1817 <ENDIF "STRING-EQUAL?">
1818 <IFCANNOT "STRING-EQUAL?">
1820 <LENUS TEMP22 = TEMP24 (TYPE FIX)>
1821 <LENUS TEMP23 = TEMP25 (TYPE FIX)>
1822 <VEQUAL? TEMP24 TEMP25 - PHRASE20>
1824 <LOOP (TEMP22 VALUE LENGTH) (TEMP23 VALUE LENGTH) (TEMP24 VALUE)>
1826 <NTHUS TEMP22 1 = TEMP25>
1827 <NTHUS TEMP23 1 = TEMP26>
1828 <VEQUAL? TEMP25 TEMP26 - PHRASE20>
1829 <DEAD TEMP25 TEMP26>
1830 <RESTUS TEMP22 1 = TEMP22 (TYPE STRING)>
1831 <RESTUS TEMP23 1 = TEMP23 (TYPE STRING)>
1832 <SUB TEMP24 1 = TEMP24 (TYPE FIX)>
1833 <GRTR? TEMP24 0 + TAG27 (TYPE FIX)>
1834 <ENDIF "STRING-EQUAL?">
1837 <TYPE? DB17 <TYPE-CODE FALSE> - PHRASE28>
1842 <UBLOCK <TYPE-CODE VECTOR> 2 = TEMP23>
1843 <PUTUV DBVEC9 1 TEMP23>
1844 <DEAD DBVEC9 TEMP23>
1847 <ADD CT15 1 = CT15 (TYPE FIX)>
1848 <RESTUV DBVEC9 1 = DBVEC9 (TYPE VECTOR)>
1849 <EMPUV? DBVEC9 - AGAIN18 (TYPE VECTOR)>
1851 <CALL '
\1aT$ERROR 0>
1854 <SET DBVEC9 %<> (TYPE FALSE)>
1855 <SET TEMP22 PURVEC7 (TYPE LIST)>
1859 <EMPL? TEMP22 + MAPAP38>
1860 <NTHL TEMP22 1 = TEMP23>
1864 <NTHUU TEMP23 1 = DBVEC9 (TYPE FIX)>
1865 <VEQUAL? ID4 DBVEC9 - PHRASE47 (TYPE FIX)>
1867 <NTHUU TEMP23 2 = DBVEC9 (TYPE FIX)>
1868 <VEQUAL? CT15 DBVEC9 + MAPEX37 (TYPE FIX)>
1871 <RESTUU TEMP23 5 = TEMP23 (TYPE UVECTOR)>
1872 <CHTYPE TEMP23 <TYPE-CODE UVECTOR> = TEMP23>
1873 <EMPUU? TEMP23 - PHRASE51 (TYPE UVECTOR)>
1874 <SET DBVEC9 %<> (TYPE FALSE)>
1877 <CHTYPE TEMP23 <TYPE-CODE T$PCODE> = TEMP23>
1880 <RESTL TEMP22 1 = TEMP22 (TYPE LIST)>
1886 <TYPE? TEMP23 <TYPE-CODE FALSE> - PHRASE52>
1887 <EMPL? PURVEC7 + BOOL55 (TYPE LIST)>
1888 <NTHL PURVEC7 1 = DBVEC9 (TYPE T$PCODE)>
1889 <LENUU DBVEC9 = TEMP22 (TYPE FIX)>
1890 <VEQUAL? TEMP22 100 - PHRASE54 (TYPE FIX)>
1893 <UUBLOCK <TYPE-CODE UVECTOR> 100 = TEMP22 (TYPE UVECTOR)>
1894 <RESTUU TEMP22 95 = TEMP22 (TYPE UVECTOR)>
1895 <CHTYPE TEMP22 <TYPE-CODE T$PCODE> = DBVEC9>
1897 <CONS DBVEC9 () = TEMP22>
1898 <PUTREST TEMP22 PURVEC7>
1900 <SET PURVEC7 TEMP22>
1902 <SETG 'I$PURVEC PURVEC7>
1904 <NTHUU DBVEC9 1 = TEMP22 (TYPE FIX)>
1905 <VEQUAL? TEMP22 0 + PHRASE57 (TYPE FIX)>
1907 <BACKU DBVEC9 5 = TEMP22>
1909 <CHTYPE TEMP22 <TYPE-CODE T$PCODE> = DBVEC9>
1911 <PUTL PURVEC7 1 DBVEC9>
1914 <PUTUU DBVEC9 1 ID4>
1916 <PUTUU DBVEC9 2 CT15>
1929 <GFCN
\1aBOOT ("VALUE" ANY "OPTIONAL" FIX) BT6>
1930 <OPT-DISPATCH 0 %<> OPT4 OPT5>
1937 <NTHUU MI9 3 = MI9 (TYPE FIX)>
1938 <LSH MI9 -2 = MI9 (TYPE FIX)>
1952 <UBLOCK <TYPE-CODE VECTOR> 7 = MI9>
1953 <SETG 'I$POWERS MI9>
1957 <SETG 'BRACKS "|:,[(<>)]\"">
1962 <SETG 'I$CHRSTR " ">
1963 <UUBLOCK <TYPE-CODE VECTOR> 1024 = MI9>
1965 <LOOP (TEMP12 VALUE LENGTH)>
1967 <EMPUV? TEMP12 + ISTRE14>
1968 <PUTUV TEMP12 1 %<>>
1969 <RESTUV TEMP12 1 = TEMP12>
1972 <SETG 'M$$R-TAT MI9>
1974 <UUBLOCK <TYPE-CODE VECTOR> 1024 = MI9>
1976 <LOOP (TEMP12 VALUE LENGTH)>
1978 <EMPUV? TEMP12 + ISTRE16>
1979 <PUTUV TEMP12 1 %<>>
1980 <RESTUV TEMP12 1 = TEMP12>
1983 <SETG 'M$$R-TDT MI9>
1985 <FRAME '
\1aI$ATOM-INIT>
1986 <CALL '
\1aI$ATOM-INIT 0>
1998 <PUSH "////////////////////////////////////////
1999 ////////////////////////////////////////
2000 ////////////////////////////////////////
2001 ////////////////////////////////////////
2002 ////////////////////////////////////////
2003 //////////////////////////////////////////////">
2007 <UBLOCK <TYPE-CODE VECTOR> 13 = MI9>
2008 <SETG 'I$INCHAN MI9>
2019 <PUSH "////////////////////////////////////////
2020 ////////////////////////////////////////
2021 ////////////////////////////////////////
2022 ////////////////////////////////////////
2023 ////////////////////////////////////////
2024 //////////////////////////////////////////////">
2028 <VEQUAL? BT6 0 - PHRASE21 (TYPE FIX)>
2031 <PUSH "APPLY.MSUBR">
2032 <CALL '
\1aT$FLOAD 2>
2035 <PUSH "ARITH.MSUBR">
2036 <CALL '
\1aT$FLOAD 2>
2040 <CALL '
\1aT$FLOAD 2>
2043 <PUSH "BUFFERS.MBIN">
2044 <PUSH "BUFFERS.MSUBR">
2045 <CALL '
\1aT$FLOAD 2>
2048 <PUSH "CHANNELS.MBIN">
2049 <PUSH "CHANNELS.MSUBR">
2050 <CALL '
\1aT$FLOAD 2>
2054 <CALL '
\1aT$FLOAD 2>
2056 <PUSH "DEFAULT.MBIN">
2057 <PUSH "DEFAULT.MSUBR">
2058 <CALL '
\1aT$FLOAD 2>
2062 <CALL '
\1aT$FLOAD 2>
2064 <PUSH "FRAME.MSUBR">
2065 <CALL '
\1aT$FLOAD 1>
2068 <CALL '
\1aT$FLOAD 1>
2070 <PUSH "FSUBRS.MBIN">
2071 <PUSH "FSUBRS.MSUBR">
2072 <CALL '
\1aT$FLOAD 2>
2074 <PUSH "IO-UTILS.MBIN">
2075 <PUSH "IO-UTILS.MSUBR">
2076 <CALL '
\1aT$FLOAD 2>
2080 <CALL '
\1aT$FLOAD 2>
2082 <PUSH "MAPPUR.MSUBR">
2083 <CALL '
\1aT$FLOAD 1>
2087 <CALL '
\1aT$FLOAD 2>
2090 <CALL '
\1aT$FLOAD 1>
2093 <PUSH "PRINT.MSUBR">
2094 <CALL '
\1aT$FLOAD 2>
2097 <PUSH "REUSE.MSUBR">
2098 <CALL '
\1aT$FLOAD 2>
2102 <CALL '
\1aT$FLOAD 2>
2105 <PUSH "STRUC.MSUBR">
2106 <CALL '
\1aT$FLOAD 2>
2110 <CALL '
\1aT$FLOAD 2>
2112 <PUSH "TYPINI.MSUBR">
2113 <CALL '
\1aT$FLOAD 1>
2115 <PUSH "USER-IO.MBIN">
2116 <PUSH "USER-IO.MSUBR">
2117 <CALL '
\1aT$FLOAD 2>
2120 <VEQUAL? BT6 1 - PHRASE49 (TYPE FIX)>
2124 <CALL '
\1aT$FLOAD 2>
2127 <PUSH "BIGIO.MSUBR">
2128 <CALL '
\1aT$FLOAD 2>
2130 <PUSH "IO-UTILS.MBIN">
2131 <PUSH "IO-UTILS.MSUBR">
2132 <CALL '
\1aT$FLOAD 2>
2134 <PUSH "USER-IO.MBIN">
2135 <PUSH "USER-IO.MSUBR">
2136 <CALL '
\1aT$FLOAD 2>
2138 <PUSH "DEFAULT.MBIN">
2139 <PUSH "DEFAULT.MSUBR">
2140 <CALL '
\1aT$FLOAD 2>
2142 <PUSH "FRAME.MSUBR">
2143 <CALL '
\1aT$FLOAD 1>
2146 <CALL '
\1aT$FLOAD 1>
2148 <PUSH "MAPPUR.MSUBR">
2149 <CALL '
\1aT$FLOAD 1>
2153 <CALL '
\1aT$FLOAD 2>
2156 <CALL '
\1aT$FLOAD 1>
2159 <PUSH "REUSE.MSUBR">
2160 <CALL '
\1aT$FLOAD 2>
2162 <PUSH "TYPINI.MSUBR">
2163 <CALL '
\1aT$FLOAD 1>
2166 <VEQUAL? BT6 -1 - PHRASE64 (TYPE FIX)>
2168 <PUSH "APPLY.MSUBR">
2169 <CALL '
\1aT$FLOAD 1>
2171 <PUSH "ARITH.MSUBR">
2172 <CALL '
\1aT$FLOAD 1>
2175 <CALL '
\1aT$FLOAD 1>
2178 <PUSH "BUFFERS.MSUBR">
2179 <CALL '
\1aT$FLOAD 1>
2182 <PUSH "CHANNELS.MSUBR">
2183 <CALL '
\1aT$FLOAD 1>
2186 <CALL '
\1aT$FLOAD 1>
2188 <PUSH "DEFAULT.MSUBR">
2189 <CALL '
\1aT$FLOAD 1>
2192 <CALL '
\1aT$FLOAD 1>
2194 <PUSH "FRAME.MSUBR">
2195 <CALL '
\1aT$FLOAD 1>
2198 <CALL '
\1aT$FLOAD 1>
2200 <PUSH "FSUBRS.MSUBR">
2201 <CALL '
\1aT$FLOAD 1>
2203 <PUSH "IO-UTILS.MSUBR">
2204 <CALL '
\1aT$FLOAD 1>
2207 <CALL '
\1aT$FLOAD 1>
2210 <PUSH "MAPPUR.MSUBR">
2211 <CALL '
\1aT$FLOAD 1>
2215 <CALL '
\1aT$FLOAD 1>
2218 <CALL '
\1aT$FLOAD 1>
2220 <PUSH "PRINT.MSUBR">
2221 <CALL '
\1aT$FLOAD 1>
2224 <CALL '
\1aT$FLOAD 1>
2226 <PUSH "STRUC.MSUBR">
2227 <CALL '
\1aT$FLOAD 1>
2230 <CALL '
\1aT$FLOAD 1>
2232 <PUSH "TYPINI.MSUBR">
2233 <CALL '
\1aT$FLOAD 1>
2235 <PUSH "USER-IO.MSUBR">
2236 <CALL '
\1aT$FLOAD 1>
2240 <PUSH "I$INITIALIZE">
2241 <GVAL 'M$$INTERNAL = STACK>
2242 <CALL '
\1aLOOKUP 2 = MI9>
2245 <GVAL 'M$$ROOT = STACK>
2246 <GVAL 'M$$INTERNAL = STACK>
2247 <GVAL 'STOBLIST = STACK>
2248 <GVAL 'I$PURVEC = STACK>
2249 <GVAL 'I$DBVEC = STACK>