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