mim/development/mim/20c/mimoc20.load

   1 <BLOAT 100000 10000 100 1200 50>
   2 <USE "LIST-HACKS">
   3 <DEFINE CHANNEL-OP!- (CHAN TYPE "TUPLE" STUFF)
   4         <COND (<==? .TYPE READ-BUFFER!->
   5                <READSTRING <1 .STUFF> .CHAN !<REST .STUFF>>)
   6               (<==? .TYPE WRITE-BUFFER!->
   7                <PRINTSTRING <1 .STUFF> .CHAN !<REST .STUFF>>)
   8               (<==? .TYPE ACCESS>
   9                <COND (<EMPTY? .STUFF> <17 .CHAN>)
  10                      (ELSE <ACCESS .CHAN !.STUFF>)>)>>
  11 <FLOAD "<MIM.20C>FILE-INDEX.FBIN">
  12 <FLOAD "<MIM.20C>FILE.FBIN">
  13 <FLOAD "<MIM.20C>PART1.FBIN">
  14 <FLOAD "<MIM.20C>ACVAR.FBIN">
  15 <FLOAD "<MIM.20C>STRMAN.FBIN">
  16 <FLOAD "<MIM.20C>OTHGEN.FBIN">
  17 <FLOAD "<MIM.20C>JSYS.FBIN">
  18 <FLOAD "<MIM.20C>PEEP.FBIN">
  19 <FLOAD "<MIM.20C>NEWGC.FBIN">
  20 <FLOAD "<MIM.BOOT>BOOT.COMPIL">
  21 <FLOAD "<MIM.20C>ASK.NBIN">
  22 <SETG NO-AC-FUNNYNESS <>>
  23 <SETG DEATH-TRQ <>>
  24 <SETG PEEP-ENABLED T>
  25 <L-FLOAD "ENV">
  26 <FEATURES "COMPILER" ("MACHINE" "TOPS20") ("SUBSYSTEM" "MIMOC")
  27           ("ENVIRONMENT" "MDL") ("TARGET-MACHINE" "TOPS20")>
  28 <ACTIVATE-CHARS <STRING <ASCII 7>>>