.TITLE	MC07.. STRING PROCEDURES FOR CORAL IN MACRO
	.IDENT /MC07.A/
;
;		MODS LIST
;	(A)	COMPATABILITY MODE VDUSP LABEL ASSUMED TO BE SAME AS VDU
;	(A)	VDU LUN OPTION ALLOWED
;
;
	.PAGE
	.SBTTL	VDU I/O CONTROL PROCEDURE/S
;
VDU::
VDUSP::
	MOV 2(R5),R0			;HOLD ADDRESS OF MESSAGE
	CALL R$ADDRESS			;IS ADDRESS VALID
	IFERROR	100$			;J IF INVALID ADDRESS
	MOV 2(R5),R1			;HOLD MODE STRING ADDRESS
	MOV 4(R5),R2			;HOLD DATA ADDRESS
	CALL V$IO			;PROCESS IO FUNCTIONS
100$:	RETURN				;RETURN TO CALLING PROGRAM
;
;
VDULUN::
	TST 2(R5)			;IF   LUN INTERROGATE REQUEST
	BNE	20$			;THEN
10$:	MOV V$LUN,R0			;HOLD LUN NUMBER
	RETURN				;BACK TO CALLING PROGRAM
;
20$:	BLT	10$			;IF   LUN NUMBER IN RANGE
					;THEN
	MOV 2(R5),V$LUN			;HOLD LUN NUMBER
	CALL V$OFF			;SWITCH OFF VDU
	CALL V$ON			;REALOCATE LUN TO VDU
	BR	10$			;BACK TO CORAL PROGRAMME
;
;
	.END
;
;