1 "BOOTSTRAP FOR DYNAMIC FLOADER"
3 "Expects floader to be FLOADYN > DSK:MUDDLE;
4 FLODYN must SETG RERR to the function it must be
5 for real floading. The RERR here calls the new one
9 ELSE!- MUTS!- PPRINT!- FRAMES!- FRM!- PPRINF!- MMED!- XMED!- MEDDLE!-
11 <BLOCK <SETG NDYN!- (<MOBLIST NDYN!- 37> <ROOT>)>>
13 <SETG REAL.ERROR ,ERROR>
15 <DEFINE DYNERROR ERRACT ("TUPLE" TUPP) <EVAL <RERR .TUPP>>>
18 <COND (<AND <==? 3 <LENGTH .TR>>
19 <==? UNBOUND-VARIABLE!-ERRORS <1 .TR>>
21 <FLOAD "FLODYN" ">" "DSK" "MUDDLE">
23 (ELSE <FORM REAL.ERROR !.TR>)>>
25 "Function to allow user library OBLIST specification.
26 In here so INIT files can use it."
28 <DEFINE FLOB!- ("OPTIONAL" (OBL ,NDYN)) <SETG USEROB .OBL>>
32 <SETG ERROR ,DYNERROR>
37 <COND (<MEMQ <READCHR> '![!"Y !"y]> <READCHR> <PUT .OUTCHAN 13 75>)
38 (<PUT .OUTCHAN 13 98>)>
40 \f\ 3\f\ 3\ 3\ 3ð`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\að`Á
\83\a