.TITLE	COMLIB
;
; MODIFICATIONS:
;	01.1N	DISPLAY TAPE LABEL ON DIRECTORY LISTING
;
;
	.IDENT	/01.1N/
	.PSECT
.=.BLK.+1754
	CALL	PATN
	NOP
OUT=.BLK.+2436
ARGBLK=.BLK.+2516
	.PSECT	$$PAT
PATN:	CMP	#"VO,$BUF2	;IS THIS A VOLUME LABEL?
	BNE	10$
	CMP	#"L1,$BUF2+2
	BNE	10$
	MOV	#$BUF2+4,ARGBLK	;YES - MOVE IN LABEL
	MOV	#VFORM,R1	;SET UP FOR EDMSG
	MOV	#ARGBLK,R2
	CALL	OUT
10$:	MOV	#1,Q.IOPL(R5)
	RETURN
VFORM:	.ASCIZ	/%NTAPE LABEL: %6A/
	.END