/ PATCH TO LDF-V5E TO ALLOW CCLX CALLS		-JVZ-

/ THIS PATCH TO THE INITIALIZATION CODE CHECKS FOR A
/ COMMAND STRING PASSED BY A '.LDF' CALL; THE STRING
/ IS STORED IN 'BUF/0' AND MAY CONTAIN ANY VALID LDF
/ COMMANDS.  AN 'I T' COMMAND IS PREFIXED BY CCLX SO
/ THAT INPUT WILL COME FROM THE TERMINAL DURING (AND
/ AFTER) EXECUTION OF THE COMMAND STRING.

	*4400		/INIT CODE
	DCA I L7746	/CLEAR JSW
	ISZ I L2000	/TEST FLAG
	JMP NOCMDS
	ISZ I LBADP	/BUMP IBADR
	CDF 10
	DCA I L3204	/RANDOM #
	TAD L7374	/IOBBUF
	DCA I 154	/INDEV
	DCA I 152	/IECHO
	JMP NOCMDS
L2000,	2000
L3204,	3204
L7374,	7374
L7746,	7746
NOCMDS,	DCA I L2000	/F0 OR F1

	*4571
LBADP,	IBADR		/NOP

	*340
IBADR,	2000		/BUFFER/0
	$END$