mim/development/mim/vaxc/glueload.mud

   1 <GC-MON T>
   2 ;<BLOAT 100000 0 0 2000 50>
   3
   4 <DEFINE PFLOAD (S "AUX" ER) <PRINC .S> <PRINC " ">
   5         <COND (<MEMQ !\. .S> <FLOAD .S>)
   6               (<SET ER <GROUP-LOAD .S>>) (ELSE <ERROR .ER>)> >
   7
   8 <SETG NCT-SAVE ,NEW-CHANNEL-TYPE>
   9
  10 <PFLOAD "ROOT-STUFF">
  11 <PFLOAD "FILE-INDEX.MSUBR">
  12 <PFLOAD "INIT.MSUBR">
  13 <PFLOAD "OPDEFVAX.MSUBR">
  14 <INIT-OP-DEFS>
  15 <PFLOAD "DEFVAX">
  16 <PFLOAD "MSYSDEFS">
  17 <PFLOAD "ASMDEFS">
  18 <PFLOAD "MIMAC.MSUBR">
  19 <PFLOAD "MIMGEN.MSUBR">
  20 <INIT-BRANCH-TABLES>
  21 <PFLOAD "MIMMISC.MSUBR">
  22 <PFLOAD "TOPLEV.MSUBR">
  23 <PFLOAD "ASSEM.MSUBR">
  24 <PFLOAD "INTERFACE.MSUBR">
  25 <PFLOAD "CHMKS.MSUBR">
  26 <PFLOAD "LOOKAHEAD.MSUBR">
  27 <INITIALIZE-ACS>
  28 <PFLOAD "DEFMIMOPS">
  29 <INIT-CODE>
  30 <INIT-CONSTANTS>
  31 <INIT-REC-DEFS>
  32 <INIT-FINAL-CODE>
  33
  34 <PFLOAD "POSTLOAD">
  35
  36 <SETG GLUE <>>
  37 <SETG INT-MODE T>
  38 <SETG WARN-PRINT T>
  39 <SETG GC-MODE <>>
  40 <SETG BOOT-MODE <>>
  41 <INIT-REC-DEFS>
  42 <SETG AC-STORE-OPT <>>
  43
  44 <SETG NCT-NEW ,NEW-CHANNEL-TYPE>
  45 <SETG NEW-CHANNEL-TYPE ,NCT-SAVE>
  46
  47 <FLOAD "/USR/MIMC/NBOOT.COMPIL">
  48 <LINK '<ERRET T> "\ 5" <ROOT>>
  49 <FLOAD "ASK.MSUBR">
  50 <FEATURES "COMPILER" ("SUBSYSTEM" "MIMOC") ("TARGET-MACHINE" "VAX")>
  51 <COPY-GC>
  52 <GC-MON <>>