.TITLE	PRINT
	.IDENT	/V1.0/

;   PRINT routine that takes variable-length argument list
;   for use with NSQUERY
;
;   COPYRIGHT © 1992,  MATTHEW D. MADISON.  ALL RIGHTS RESERVED.


	.PSECT	PRINT_DATA,WRT,RD,NOEXE,NOSHR

FAOBUF:	.BLKB	512
FAODSC:	.BLKL	2
DSC1:	.BLKL	2
LEN:	.BLKW	1

	.PSECT	PRINT_CODE,NOWRT,EXE,SHR,PIC

.IF	DF,EVAX
PRINT::
	.CALL_ENTRY HOME_ARGS=TRUE,MAX_ARGS=10
.IFF
	.ENTRY	PRINT,^M<>
.ENDC
	MOVL	4(AP),R1
1$:	TSTB	(R1)
	BEQL	2$
	INCL	R1
	BRB	1$
2$:	SUBL3	4(AP),R1,DSC1
	MOVL	4(AP),DSC1+4
	CMPL	#1,(AP)
	BLSS	10$
	PUSHAL	DSC1
	CALLS	#1,G^LIB$PUT_OUTPUT
	RET
10$:	MOVL	#512,FAODSC
    	MOVAL	FAOBUF,FAODSC+4
	PUSHAL	8(AP)
	PUSHAQ	FAODSC
	PUSHAW	LEN
	PUSHAQ	DSC1
	CALLS	#4,G^SYS$FAOL
    	MOVZWL	LEN,FAODSC
	PUSHAQ	FAODSC
	CALLS	#1,G^LIB$PUT_OUTPUT
	RET

	.END