1 ;"This is the MUM/MDL bootstrap file. One hopes that, when compiled,
2 this file will cause an MDL to be brought up and initialized.
6 ;"READ part of bootstrap"
8 <DEFINE T$READ (T$INCHAN "AUX" VAL)
9 #DECL ((T$INCHAN) <SPECIAL VECTOR>)
12 <COND (<TYPE? <I$RDBUF .T$INCHAN> T$UNBOUND>
13 <CHTYPE ,ZERO T$UNBOUND>)
16 <DEFINE I$RDBUF (C "AUX" (BUF <M$$BUFF .C>) LEN)
17 #DECL ((C) T$BCHANNEL (BUF) STRING (LEN) FIX)
18 <COND (<AND <NOT <0? <M$$BPOS .C>>> <NOT <EMPTY? .BUF>>>
19 <SETG BI$STR <REST .BUF <- <M$$BUFL .C> <M$$BPOS .C>>>>)
22 <SET LEN <CALL READ <M$$CHAN .C>
28 <COND (<0? <M$$BPOS .C>>
29 <CHTYPE ,ZERO T$UNBOUND>)>)>>
33 <CALL READ <M$$CHAN .CHN> ,I$CHRSTR 1 0>
36 <DEFINE I$NXTCHR ("AUX" CHR NCHR (R ,I$R?))
37 #DECL ((CHR) CHARACTER (NCHR) <OR CHARACTER FALSE>
38 (R) <OR FALSE T$BCHANNEL>)
39 <COND (<SET NCHR ,BI$NCHR>
42 (<OR <AND .R <0? <M$$BPOS .R>>>
43 <AND <NOT .R> <EMPTY? ,BI$STR>>>
46 <N==? <M$$CHAN .R> 64>>
48 <AND <==? <M$$CHAN .R> 64>
50 <COND (<TYPE? <I$RDBUF .R> T$UNBOUND>
51 <CHTYPE ,ZERO CHARACTER>)
55 <CHTYPE ,ZERO CHARACTER>)>)
56 (T <CHTYPE ,ZERO CHARACTER>)>)
59 <SETG BI$STR <REST ,BI$STR>>
60 <AND .R <M$$BPOS .R <- <M$$BPOS .R> 1>>>
63 <DEFINE I$PARSE ("OPTIONAL" (PFX <>) "AUX" CHR ASC NCHR TYP)
64 #DECL ((CHR NCHR) CHARACTER (ASC) FIX (TYP) ANY
65 (PFX) <OR ATOM FALSE>)
67 <COND (<MEMQ <SET CHR <I$NXTCHR>> ,BREAKS>)
70 <SET ASC <ASCII .CHR>>
72 <RETVAL <I$PLIST> .PFX>)
74 <RETVAL <CHTYPE <I$PLIST !\>> FORM> .PFX>)
76 <RETVAL <I$PVECTOR> .PFX>)
78 <RETVAL <I$PSTRING> .PFX>)
80 <RETVAL <I$PMCODE> .PFX>)
82 <CHTYPE .ASC T$UNBOUND>)
84 <COND (<==? <SET NCHR <I$NXTCHR>> <ASCII 0>>
85 <CHTYPE ,ZERO T$UNBOUND>)
86 (<==? .NCHR <ASCII 92>>
90 <RETVAL <CHTYPE <I$PLIST !\>> SEGMENT> .PFX>)
92 <CHTYPE .NCHR T$UNBOUND>)
93 (<T$ERROR %<P-E "BAD-USE-OF-EXCL">>)>)
94 (<OR <AND <G=? .ASC <ASCII !\0>>
95 <L=? .ASC <ASCII !\9>>>
99 <RETVAL <I$PNUMBER> .PFX>)
102 <COND (<TYPE? .TYP FIX>
104 <RETVAL <I$PARSE> .PFX>)
106 <RETVAL <T$CHTYPE <I$PARSE> .TYP> .PFX>)>)
108 <COND (<==? <SET NCHR <I$NXTCHR>> !\%>
113 <T$EVAL <I$PARSE>>)>)
115 <SET TYP <I$PARSE T>>
116 <RETVAL <FORM <LOOKUP "GVAL" ,M$$ROOT> .TYP> .PFX>)
118 <RETVAL <FORM <LOOKUP "QUOTE" ,M$$ROOT> <I$PARSE T>> .PFX>)
121 <SET TYP <I$PARSE T>>
123 <COND (<TYPE? .TYP FLOAT>
126 <RETVAL <FORM <LOOKUP "LVAL" ,M$$ROOT> .TYP> .PFX>)>)
132 <RETVAL <I$PNUMBER T> .PFX>)>>
134 <DEFINE RETVAL (RET PFX)
135 #DECL ((RET) ANY (PFX) <OR ATOM FALSE>)
138 <DEFINE I$PLIST ("OPTIONAL" (TERM !\)))
139 #DECL ((TERM) CHARACTER)
141 <FUNCTION ("AUX" ITM)
143 <COND (<TYPE? <SET ITM <I$PARSE>> T$UNBOUND>
144 <COND (<OR <==? <CHTYPE .ITM FIX> <ASCII .TERM>>
145 <==? .ITM <CHTYPE ,ZERO T$UNBOUND>>>
148 <I$PUNMATCH .ITM .TERM>)>)
152 <FUNCTION ("AUX" ITM)
154 <COND (<TYPE? <SET ITM <I$PARSE>> T$UNBOUND>
155 <COND (<OR <==? <CHTYPE .ITM FIX> <ASCII !\]>>
156 <==? .ITM <CHTYPE ,ZERO T$UNBOUND>>>
159 <I$PUNMATCH .ITM !\]>)>)
162 <DEFINE I$PUNMATCH (TERMIN EXPECT)
163 #DECL ((TERMIN) T$UNBOUND (EXPECT) CHARACTER)
164 <T$ERROR %<P-E "SYNTAX-ERROR">
165 <STRING <CHTYPE .TERMIN CHARACTER>
170 <DEFINE I$PSTRING ("AUX" (QUOTE <>) STR)
171 #DECL ((QUOTE) <OR FALSE ATOM> (STR VALUE) STRING)
172 <SET STR <MAPF ,STRING
173 <FUNCTION ("AUX" (CHR <I$NXTCHR>))
174 #DECL ((CHR) CHARACTER)
178 (<==? .CHR <ASCII 92>>
184 <COND (<EMPTY? .STR> .STR)
185 (<T$LOOKUP .STR ,STOBLIST>
186 <M$$PNAM <CHTYPE <T$LOOKUP .STR ,STOBLIST> T$ATOM>>)
189 <DEFINE I$NOLF ("AUX" CHR1)
190 #DECL ((CHR1 VALUE) CHARACTER)
191 <COND (<OR <==? <SET CHR1 <I$NXTCHR>> <ASCII 13>>
192 <==? .CHR1 <ASCII 10>>>
193 <COND (<==? <SET CHR1 <I$NXTCHR>> <ASCII 10>>
194 <SET CHR1 <I$NXTCHR>>)>)>
197 <DEFINE I$PMCODE ("AUX" (NUM 0) MC (VERT? <>))
198 #DECL ((NUM) FIX (MC) <PRIMTYPE UVECTOR> (VERT?) <OR FALSE ATOM>)
200 #DECL ((N) FIX (CHR1) CHARACTER)
203 <CHTYPE <ORB <- <CHTYPE <I$NOLF> FIX>
205 <LSH <- <ASCII .CHR1> <ASCII !\A>> 5>>
207 <COND (<L? <SET N <- .N 1>> 0> <RETURN>)
208 (T <SET NUM <CHTYPE <LSH .NUM 8> FIX>>)>>
209 <SET MC <CALL IRECORD
210 *1006* ;<T$TYPE-C MCODE>
214 <FUNCTION (MCD "AUX" CHR1)
215 #DECL ((CHR1) CHARACTER (MCD) <PRIMTYPE UVECTOR>)
217 <COND (<==? .CHR1 !\|>
221 <REPEAT ((I 3) QW (WD <ONE-Q-WD .CHR1>))
222 #DECL ((I WD) FIX (QW) <OR FALSE FIX>)
223 <COND (<SET QW <ONE-Q-WD>>
225 <ORB <LSH .WD ,QWSIZ> .QW>>)
227 <SET WD <LSH .WD <* .I ,QWSIZ>>>
230 <COND (<0? <SET I <- .I 1>>>
234 <COND (<NOT .VERT?> <I$NOLF>)>
237 <DEFINE ONE-Q-WD ("OPT" (FCHR <I$NOLF>) "AUX" CHR)
238 #DECL ((CHR FCHR) CHARACTER)
239 <COND (<AND <N==? .FCHR !\|>
240 <N==? <SET CHR <I$NOLF>> !\|>>
241 <ORB <- <CHTYPE .CHR FIX> <ASCII !\A>>
242 <LSH <- <ASCII .FCHR> <ASCII !\A>> 5>>)>>
244 <DEFINE I$PNUMBER ("OPTIONAL" (ATM? <>) "AUX" (EXP 0) (FRC 0) (NUM 0) VAL NV
245 (EXP? <>) (FRC? ,I$FRC)
246 OBNAM OBL (FRCN 1) (SGN? <>)
247 (QUOTE? <>) (NEG? <>) CHR ATM
248 (TRL? <>) (DIVIDE <>))
249 #DECL ((ATM? EXP? FRC? TRL? SGN? NEG? QUOTE? DIVIDE) <OR FALSE ATOM>
250 (NUM EXP FRC RADIX FRCN) FIX (VAL) <OR STRING FALSE>
251 (NV) <OR FIX FLOAT> (CHR) CHARACTER (OBL) T$OBLIST
252 (ATM) <OR T$ATOM ANY> (OBNAM) ANY)
253 <COND (<==? <SET CHR <I$NXTCHR>> <ASCII 0>>
254 <CHTYPE ,ZERO T$UNBOUND>)
259 <FUNCTION ("AUX" (CHR <I$NXTCHR>) (ASC <ASCII .CHR>))
260 #DECL ((CHR) CHARACTER (ASC) FIX)
263 (<==? .CHR <ASCII 92>>
266 (<OR <MEMQ .CHR ,BREAKS>
269 <COND (<==? .CHR !\!>
270 <COND (<==? <SET CHR <I$NXTCHR>>
273 (<==? .CHR <ASCII 0>>
277 <SETG BI$NCHR .CHR>)>
293 (<OR <==? .CHR !\+> <==? .CHR !\->>
294 <COND (<AND .EXP? <0? .EXP>>
295 <COND (<==? .CHR !\->
305 (<AND <G=? .ASC <ASCII !\0>>
306 <L=? .ASC <ASCII !\9>>>
307 <SET ASC <- .ASC <ASCII !\0>>>
309 <SET EXP <+ <* .EXP 10> .ASC>>)
311 <SET FRC <+ <* .FRC 10> .ASC>>
312 <SET FRCN <* .FRCN 10>>)
314 <SET NUM <+ <* .NUM ,BI$RADIX>
316 (<OR <==? .CHR !\E> <==? .CHR !\e>>
317 <COND (.EXP? <SET ATM? T>)
320 <COND (.FRC? <SET ATM? T>)
323 <COND (.QUOTE? <MAPRET>)
330 </ <FLOAT .FRC> <FLOAT .FRCN>>>)
338 <NTH ,I$POWERS .EXP>>)
341 <NTH ,I$POWERS .EXP>>)>>)
343 <T$ERROR %<P-E "NUMBER-OUT-OF-RANGE">
345 <COND (.NEG? <SET NV <- .NV>>)>
348 <COND (<OR <MEMQ <SET CHR <I$NXTCHR>> ,BREAKS>
355 (<AND <SETG BI$NCHR .CHR>
356 <TYPE? <SET OBNAM <I$PARSE>> T$ATOM>
357 <=? <M$$PNAM .OBNAM>:STRING "IMSUBR">>
359 (<T$ERROR %<P-E "NON-ATOMIC-NAME">
361 <OR <T$LOOKUP .VAL .OBL>
362 <T$INSERT .VAL .OBL>>)
364 <OR <T$LOOKUP <REST .VAL> ,EROBLIST>
365 <T$INSERT <REST .VAL> ,EROBLIST>>)
366 (<OR <T$LOOKUP .VAL ,M$$INTERNAL>
367 <T$INSERT .VAL ,M$$INTERNAL>>)>)>>
369 <DEFINE T$FLOAD (STR "OPTIONAL" (OSTR <>) "AUX" C)
370 #DECL ((STR OSTR) <OR STRING FALSE> (C) <OR VECTOR FALSE>)
371 <COND (<AND .STR <SET C <T$OPEN "READ" .STR>>>
373 <SET VAL <T$READ .C>>
374 <COND (<TYPE? .VAL T$UNBOUND> <RETURN>)
382 <DEFINE T$CLOSE (CHAN "AUX" (CNUM <M$$CHAN .CHAN>))
383 #DECL ((CHAN) VECTOR (CNUM) FIX)
387 <DEFINE T$OPEN (DIR FNM "OPTIONAL" (RADX 10) "AUX" ID CHN)
388 #DECL ((DIR FNM) STRING (RADX) FIX (ID) <OR FALSE FIX> (CHN) VECTOR)
389 <COND (<SET ID <CALL OPEN 0 7 .FNM>>
390 <SET CHN [.ID .DIR "FOO" .FNM 79 0 24 0 10
391 "////////////////////////////////////////
392 ////////////////////////////////////////
393 ////////////////////////////////////////
394 ////////////////////////////////////////
395 ////////////////////////////////////////
396 //////////////////////////////////////////////" 0 0 0]>
402 <DEFINE T$CHTYPE (ITM TYP "AUX" (SPN <M$$PNAM .TYP>) TYPC)
403 #DECL ((ITM) ANY (TYP) T$ATOM (SPN) STRING (TYPC) FIX)
404 <COND (<=? .SPN "MSUBR">
412 (<=? .SPN "I$TERMIN">
417 <CALL CHTYPE .ITM .TYPC>>
420 ;"Primitive structure builders"
424 <CALL RECORD *1502* ;<TYPE-CODE ATOM> <> <> <STRING .STR> <> <>>>
429 <DEFINE T$EVAL (FOO "AUX" PN ATM)
430 #DECL ((FOO) ANY (PN) STRING (ATM) T$ATOM)
431 <COND (<TYPE? .FOO FORM>
432 <COND (<NOT <EMPTY? .FOO>>
433 <SET PN <M$$PNAM <SET ATM <1 .FOO>>>>
434 <COND (<=? .PN "SETG">
435 <T$SETG <2 .FOO> <3 .FOO>>)
437 <COND (<NOT <M$$GVAL <SET ATM <2 .FOO>>>>
438 <T$SETG .ATM <CHTYPE ,ZERO T$UNBOUND>>
442 <T$PCODE <2 .FOO> <3 .FOO>>)
449 ;"ATOM part of bootstrap"
451 <DEFINE I$HASH (STR "OPTIONAL" (MOD 0) "AUX" (VAL 0) OFF)
452 #DECL ((STR) STRING (MOD OFF VAL) FIX)
453 <IFSYS ("TOPS20" <SET OFF 36>)("UNIX" <SET OFF 32>)>
457 <COND (<L? <SET OFF <- .OFF 7>> 0>
460 <COND (<L? <SET OFF <- .OFF 8>> 0>
462 <SET VAL <XORB .VAL <LSH .CHR .OFF>>>>
464 <SET VAL <ANDB .VAL <MIN>>>
465 <COND (<0? .MOD> .VAL) (ELSE <+ <MOD .VAL .MOD> 1>)>>
467 <DEFINE T$LOOKUP (ARG1 ARG2 "AUX" BUCK)
468 #DECL ((ARG1) STRING (ARG2) T$OBLIST (BUCK) <LIST [REST T$ATOM]>)
469 <SET BUCK <NTH ,M$$OBLIST <I$HASH .ARG1 ,M$$SIZE>>>
473 <COND (<AND <==? <M$$OBLS .ATM> .ARG2>
474 <=? <M$$PNAM .ATM>:STRING .ARG1>>
478 <DEFINE T$INSERT (ARG1 ARG2 "AUX" ATM (OFF <I$HASH .ARG1 ,M$$SIZE>))
479 #DECL ((ARG1) <OR T$ATOM STRING> (ARG2) T$OBLIST (OFF) FIX
481 <SET ATM <CALL RECORD T$ATOM <> <> <STRING .ARG1> <> <>>>
482 <PUT ,M$$OBLIST .OFF (.ATM !<NTH ,M$$OBLIST .OFF>)>
483 <M$$OBLS .ATM .ARG2>>
485 <DEFINE T$SETG (ARG1 ARG2 "AUX" BIND)
486 #DECL ((ARG1) T$ATOM (ARG2 VALUE) ANY (BIND) T$GBIND)
487 <COND (<NOT <M$$GVAL .ARG1>>
488 <M$$GVAL .ARG1 <CALL RECORD T$GBIND .ARG2 .ARG1 <>>>)>
489 <M$$VALU <SET BIND <M$$GVAL .ARG1>> .ARG2>
492 <DEFINE T$GVAL (ARG "AUX" G)
493 #DECL ((ARG) T$ATOM (G) <OR FALSE T$GBIND>)
494 <COND (<SET G <M$$GVAL .ARG>>
497 <DEFINE I$ATOM-INIT ("AUX" FOO)
499 <SETG M$$OBLIST <CALL GETS OBLIST>>
500 <SETG M$$SIZE <LENGTH ,M$$OBLIST>>
501 <SETG M$$INTERNAL <CHTYPE <T$ATOM "INTERNAL"> T$OBLIST>>
502 <T$INSERT "INTERNAL" ,M$$INTERNAL>
503 <SETG M$$ROOT <CHTYPE <SET FOO <T$INSERT "ROOT" ,M$$INTERNAL>>
505 <M$$OBLS .FOO ,M$$ROOT>
506 <SETG STOBLIST <CHTYPE <T$ATOM "STRINGS"> T$OBLIST>>
509 <T$INSERT .X ,STOBLIST>>
510 '["AUX" "NAME" "OPTIONAL" "OPT" "EXTRA" "QUOTE"
511 "BIND" "CALL" "ARGS" "TUPLE" "ACT" "DECL" "OWN"
512 "VALUE" "PRINT" "READ" "MUD" "DONE"]>
513 <SETG EROBLIST <CHTYPE <T$INSERT "ERRORS" ,M$$ROOT> T$OBLIST>>
514 <SETG IMSUBOB <CHTYPE <T$INSERT "IMSUBR" ,M$$ROOT> T$OBLIST>>
515 <T$INSERT "STRINGS" ,M$$ROOT>
516 <T$INSERT "QUOTE" ,M$$ROOT>
517 <T$INSERT "LVAL" ,M$$ROOT>
518 <T$INSERT "GVAL" ,M$$ROOT>>
521 <DEFINE T$PCODE (ID DBNAM "AUX" DBID (PURVEC ,I$PURVEC) CPC DBVEC)
522 #DECL ((DBID ID) FIX (DBNAM) STRING (PURVEC) <LIST [REST T$PCODE]>
523 (CPC) T$PCODE (DBVEC) VECTOR)
524 <COND (<EMPTY? .PURVEC>
525 <SET DBVEC [<> <> <> <> <>]>
526 <SETG I$DBVEC .DBVEC>)
527 (<SET DBVEC ,I$DBVEC>)>
528 <REPEAT ((CT 1) (DBV .DBVEC) DB)
529 #DECL ((CT) FIX (DBV) <VECTOR [REST <OR DB FALSE>]>
531 <COND (<AND <SET DB <1 .DBV>>
532 <=? <DB-NAME .DB>:STRING .DBNAM>>
540 <COND (<EMPTY? <SET DBV <REST .DBV>>>
543 <FUNCTION (PV) #DECL ((PV) <OR T$PCODE UVECTOR>)
545 <COND (<AND <==? <M$$PC-ID .PV> .ID>
546 <==? <M$$PC-DB .PV> .DBID>>
548 <COND (<EMPTY? <SET PV <REST .PV ,M$$PC-ENTLEN>>>
550 <SET PV <CHTYPE .PV T$PCODE>>>>
553 <COND (<OR <EMPTY? .PURVEC>
554 <==? <LENGTH <SET CPC <1 .PURVEC>>> <* 20 ,M$$PC-ENTLEN>>>
555 <SET PURVEC (<SET CPC <CHTYPE <REST <IUVECTOR 100>
556 <* 19 ,M$$PC-ENTLEN>>
559 <SETG I$PURVEC .PURVEC>)>
560 <COND (<NOT <0? <M$$PC-ID .CPC>>>
561 <SET CPC <CHTYPE <CALL BACKU .CPC ,M$$PC-ENTLEN> T$PCODE>>
564 <M$$PC-DB .CPC .DBID>
565 <M$$PC-DBLOC .CPC -1>
566 <M$$PC-CORLOC .CPC 0>
571 ; "Arg of 0 means use MBINs where possible. Arg of 1 means use
572 moby-glued stuff, MBINs where possible. Arg of -1 means use
574 <DEFINE BOOT ("OPTIONAL" (BT 0) "AUX" ICH OCH MI)
575 #DECL ((BT) FIX (ICH OCH) VECTOR (MI) <UVECTOR [REST FIX]>)
576 <SET MI <CALL GETS MINF>>
577 <SETG QWSIZ <LSH <I$MINF-WDSIZE .MI> -2>>
583 [10.0 100.0 1000.0 10000.0 100000.0 1000000.0 10000000.0]>
586 <SETG BRACKS "|:,[(<>)]\"">
592 <SETG M$$R-TAT <IVECTOR ,M$$TYPE-INFO-SIZE <>>>
593 <SETG M$$R-TDT <IVECTOR ,M$$TYPE-INFO-SIZE <>>>
597 <SET ICH [64 "" "" "" 79 0 24 0 10
598 "////////////////////////////////////////
599 ////////////////////////////////////////
600 ////////////////////////////////////////
601 ////////////////////////////////////////
602 ////////////////////////////////////////
603 //////////////////////////////////////////////" 0 0 0]>
605 <SET OCH [65 "" "" "" 79 0 24 0 10
606 "////////////////////////////////////////
607 ////////////////////////////////////////
608 ////////////////////////////////////////
609 ////////////////////////////////////////
610 ////////////////////////////////////////
611 //////////////////////////////////////////////" 0 0 0]>
613 <T$FLOAD "APPLY.MBIN" "APPLY.MSUBR">
614 <T$FLOAD "ARITH.MBIN" "ARITH.MSUBR">
615 <T$FLOAD "ATOM.MBIN" "ATOM.MSUBR">
616 <IFSYS ("UNIX" <T$FLOAD "BUFFERS.MBIN" "BUFFERS.MSUBR">)>
617 <T$FLOAD "CHANNELS.MBIN" "CHANNELS.MSUBR">
618 <T$FLOAD "DECL.MBIN" "DECL.MSUBR">
619 <T$FLOAD "DEFAULT.MBIN" "DEFAULT.MSUBR">
620 <T$FLOAD "DISK.MBIN" "DISK.MSUBR">
621 <T$FLOAD "FRAME.MSUBR">
623 <T$FLOAD "FSUBRS.MBIN" "FSUBRS.MSUBR">
624 <T$FLOAD "IO-UTILS.MBIN" "IO-UTILS.MSUBR">
625 <T$FLOAD "LOC.MBIN" "LOC.MSUBR">
626 <T$FLOAD "MAPPUR.MSUBR">
627 <T$FLOAD "PCK.MBIN" "PCK.MSUBR">
628 <T$FLOAD "PMAP.MSUBR">
629 <T$FLOAD "PRINT.MBIN" "PRINT.MSUBR">
630 <T$FLOAD "REUSE.MBIN" "REUSE.MSUBR">
631 <T$FLOAD "READ.MBIN" "READ.MSUBR">
632 <T$FLOAD "STRUC.MBIN" "STRUC.MSUBR">
633 <T$FLOAD "TYPE.MBIN" "TYPE.MSUBR">
634 <T$FLOAD "TYPINI.MSUBR">
635 <T$FLOAD "USER-IO.MBIN" "USER-IO.MSUBR">)
637 <T$FLOAD "BIG.MBIN" "BIG.MSUBR">
638 <T$FLOAD "BIGIO.MBIN" "BIGIO.MSUBR">
639 <T$FLOAD "IO-UTILS.MBIN" "IO-UTILS.MSUBR">
640 <T$FLOAD "USER-IO.MBIN" "USER-IO.MSUBR">
641 <T$FLOAD "DEFAULT.MBIN" "DEFAULT.MSUBR">
642 <T$FLOAD "FRAME.MSUBR">
644 <T$FLOAD "MAPPUR.MSUBR">
645 <T$FLOAD "PCK.MBIN" "PCK.MSUBR">
646 <T$FLOAD "PMAP.MSUBR">
647 <T$FLOAD "REUSE.MBIN" "REUSE.MSUBR">
648 <T$FLOAD "TYPINI.MSUBR">)
650 <T$FLOAD "APPLY.MSUBR">
651 <T$FLOAD "ARITH.MSUBR">
652 <T$FLOAD "ATOM.MSUBR">
653 <IFSYS ("UNIX" <T$FLOAD "BUFFERS.MSUBR">)>
654 <T$FLOAD "CHANNELS.MSUBR">
655 <T$FLOAD "DECL.MSUBR">
656 <T$FLOAD "DEFAULT.MSUBR">
657 <T$FLOAD "DISK.MSUBR">
658 <T$FLOAD "FRAME.MSUBR">
660 <T$FLOAD "FSUBRS.MSUBR">
661 <T$FLOAD "IO-UTILS.MSUBR">
662 <T$FLOAD "LOC.MSUBR">
663 <IFSYS ("TOPS20" <T$FLOAD "MAPPUR.MSUBR">)>
664 <T$FLOAD "PCK.MSUBR">
665 <T$FLOAD "PMAP.MSUBR">
666 <T$FLOAD "PRINT.MSUBR">
667 ;<T$FLOAD "REUSE.MSUBR">
668 <T$FLOAD "READ.MSUBR">
669 <T$FLOAD "STRUC.MSUBR">
670 <T$FLOAD "TYPE.MSUBR">
671 <T$FLOAD "TYPINI.MSUBR">
672 <T$FLOAD "USER-IO.MSUBR">)>
674 <LOOKUP "I$INITIALIZE" ,M$$INTERNAL>