<mdl.comp>/newcmp.mud.1

   1
   2         <TITLE  NEWCOMP>
   3
   4         <PSEUDO <SETG *SSNAM *400016*>>
   5         <PSEUDO <SETG *RSNAM *16*>>
   6
   7         <SETZB  A* B>
   8         <*SETM2 A*>
   9         <MOVE A* [<*CLOSE >]>
  10         <MOVEI O* *20*>
  11
  12 LP      <XCT A>
  13         <ADD A* [<A*>]>
  14         <SOJN O* LP>
  15         <*SUSET [<(*RSNAM)A>]>
  16         <MOVE B* [<SIXBIT "SYS1">]>
  17         <*SUSET [<(*SSNAM)B>]>
  18         <*OPEN A* MUDOPN>
  19         <*VALUE>
  20 SELFLD  <*SUSET [<(*SSNAM)A>]>
  21         <MOVSI P* STUFF>
  22         <BLT P* P>
  23         <JRST 1>
  24
  25 MUDOPN  <SIXBIT "  $DSK">
  26         <SIXBIT "TS    ">
  27         <SIXBIT "NPCOMP">
  28
  29 STUFF   <SIXBIT "NCOMP ">
  30         <*CORE 1>
  31         <*VALUE>
  32         <*CALL *10*>
  33         <*VALUE >
  34         <*IOT A* A>
  35         <*CLOSE A*>
  36         <JRST @ A>
  37
  38         <SETZ>
  39         <SIXBIT "LOAD">
  40         <(*1000*) *777777*>
  41         <SETZI 1>
  42
  43 \f\ 3\ 3