.TITLE PRTNOW
	.MCALL PRINT$S
PRTNOW::MOV	R5,R4		; SAVE NO. ARG'S
	ADD	#2,R5		; POINT TO ADDRES OF ARG 1
	MOV	@(R5)+,R2	; MOV ARG 1(LUN) TO R2
	CMP	#1,R4
	BEQ	GFDB
	MOV	@(R5),DEV	; MOV ARG 2 TO DEVICE
GFDB:	JSR	PC,$FCHNL	; GET FILE DATA BLOCK
	ADD	#14,R0
	PRINT$S	R0,,,DEV	; PRINT FILE W/LUN SET
	RTS	PC
DEV:	.WORD	0
	.END