<mdl.int>/tmudv.mid.1

   1 TITLE VCREATE MCR001 C. REEVE (CLR)
   2
   3 RELOCA
   4
   5 .INSRT MUDDLE >
   6
   7 .GLOBAL VCREATE,MUDSTR
   8
   9 DEBUG:  MOVE    E,[440600,,[SIXBIT /EXPERIMENTAL/]]
  10         MOVEI   0,12.
  11         JRST    STUFF
  12
  13 VCREATE:        .SUSET  [.SSNAM,,[SIXBIT /MUDSYS/]]
  14         .OPEN   0,OP%
  15         .VALUE
  16         MOVEI   0,0     ; SET 0 TO DO THE .RCHST
  17         .RCHST  0
  18         .CLOSE  0
  19         .FDELE  DB%
  20         .VALUE
  21         MOVE    E,[440600,,B]
  22         MOVEI   0,6
  23 STUFF:  MOVE    D,[440700,,MUDSTR+2]
  24 STUFF1: ILDB    A,E             ; GET A CHAR
  25         CAIN    A,0             ;SUPRESS SPACES
  26         MOVEI   A,137           ;RUBOUT'S DON'T TYPE OUT
  27         ADDI    A,40            ; TO ASCII
  28         IDPB    A,D             ; STORE
  29         SOJN    0,STUFF1
  30         SETZM   34
  31         SETZM   35
  32         SETZM   36
  33         .VALUE
  34
  35 OP%:    1,,(SIXBIT /DSK/)
  36         SIXBIT /TMUD%/
  37         SIXBIT />/
  38
  39 DB%:    (SIXBIT /DSK/)
  40         SIXBIT /TMUD%/
  41         SIXBIT /</
  42         0
  43         0
  44
  45 CONSTANTS
  46
  47 EDB:
  48
  49         END
  50 \f\ 3\f\ 3