;
; PRINT MACRO - INITIALIZATION FOR THE PRINT MACROS.
;		SPECIFIES LOGICAL UNIT NUMBER (LUN)
;		AND EVENT FLAG (EVF) TO FACILITATE
;		OUTPUT TO THE CURRENT TERMINAL, OR
;		TO THE OPTIONAL DEVICE SPECIFIED.
;
	.MACRO	TINIT LUN,EVF,DEV,UNIT,?L1
	.MCALL	DIR$,ALUN$,QIO$,WTSE$
	.ENABL	LSB
	DIR$	#QUTA
	BR	L1
QUTQ::	QIO$	IO.WVB,LUN,EVF,,QUTS
QUTW::	WTSE$	EVF
QUTS::	.WORD	0
	.WORD	0
QUTDSW::.BLKW	1
	.IF	NB,DEV
  QUTA::   ALUN$	LUN,DEV,UNIT
	.IFF
  QUTA::   ALUN$	LUN,TI,0
	.ENDC
L1:
	.DSABL	LSB
	.ENABL	LSB
	.DSABL	LSB
CR=15
LF=12
HT=11
	.ENDM