PROCEDURE	<IDSPLY -- Display input line>,010000
 
;+
;	This module will display each line of input for diagnostic
;	purposes.
;
; Written:	03-Apr-80, -010000-, Henry R. Tumblin
; Modified:
; Verified:
;-

	.MCALL	QIOW$,DIR$
 
WRITE:	QIOW$	IO.WVB,3,3,,,,<0,0,40>
 
IDSPLY::TST	#DEBUG				; Is debug on ?
	BEQ	10$				; EQ - no
	MOV	F.NRBD+2(R0),WRITE+Q.IOPL	; Get buffer address
	MOV	F.NRBD(R0),WRITE+Q.IOPL+2	; Get length
	DIR$	#WRITE				; Output the line
10$:	RETURN					; Return to caller

	.END