Twenex Muddle.

[pdp10-muddle.git] / <mdl.int> / tmudv.mid.1

diff --git a/<mdl.int>/tmudv.mid.1 b/<mdl.int>/tmudv.mid.1
new file mode 100644 (file)
index 0000000..b6ce52f
--- /dev/null
+++ b/<mdl.int>/tmudv.mid.1
@@ -0,0 +1,50 @@
+TITLE VCREATE MCR001 C. REEVE (CLR)
+
+RELOCA
+
+.INSRT MUDDLE >
+
+.GLOBAL VCREATE,MUDSTR
+
+DEBUG: MOVE    E,[440600,,[SIXBIT /EXPERIMENTAL/]]
+       MOVEI   0,12.
+       JRST    STUFF
+
+VCREATE:       .SUSET  [.SSNAM,,[SIXBIT /MUDSYS/]]
+       .OPEN   0,OP%
+       .VALUE
+       MOVEI   0,0     ; SET 0 TO DO THE .RCHST
+       .RCHST  0
+       .CLOSE  0
+       .FDELE  DB%
+       .VALUE
+       MOVE    E,[440600,,B]
+       MOVEI   0,6
+STUFF: MOVE    D,[440700,,MUDSTR+2]
+STUFF1:        ILDB    A,E             ; GET A CHAR
+       CAIN    A,0             ;SUPRESS SPACES
+       MOVEI   A,137           ;RUBOUT'S DON'T TYPE OUT
+       ADDI    A,40            ; TO ASCII
+       IDPB    A,D             ; STORE
+       SOJN    0,STUFF1
+       SETZM   34
+       SETZM   35
+       SETZM   36
+       .VALUE
+
+OP%:   1,,(SIXBIT /DSK/)
+       SIXBIT /TMUD%/
+       SIXBIT />/
+
+DB%:   (SIXBIT /DSK/)
+       SIXBIT /TMUD%/
+       SIXBIT /</
+       0
+       0
+
+CONSTANTS
+
+EDB:
+
+       END
+\f\ 3\f\ 3
\ No newline at end of file