C
C
C-----------------------------------------------------------------------------
C
C	SUBROUTINE:	R V O L 1 
C
C	PURPOSE:	Display of ANSI VOL1-tape header
C
C	AUTHOR:		Jan H. Belgraver
C
C	DATE:		27-NOV-84
C
C	VERSION:	1.2	3-JAN-85
C
C	DESCRIPTION:	Main program reads records from tape into array BUF
C			using QIO directive, and calls this routine to print
C			its contents.
C
C	INPUT  FILES:	None
C
C	OUTPUT FILES:	TI:, or other device or file given.
C
C	LUNS:		5	TI:
C			6	TI: (default list device)
C			1	Alternative list device/file
C
C	EVENT FLAGS:	None
C
C	CALL:		RVOL1	(BUF, NTBL, LUNL, IER)
C
C	ARGUMENTS:	NAME		DESCRIPTOIN
C	    I		BUF	VOL1 tape header
C	    I		NTBL	Virtual tape block number
C	    I		LUNL	List device/file
C	    O		IER	Reserved for later use
C
C	CALLS TO:	STRCPY
C
C	PARAMETERS:	NAME		DESCRIPTION
C			See LVOL1.CMN include file.
C
C	BUILDING:	None
C
C	MODIFIED BY:	Name			Date		Ident.	Vers.
C			Jan H. Belgraver	21-DEC-84	JB01	1.1
C			Print UIC octal, changed BUF1 into BUF0, added 
C			C for VAX-11.
C
C			Jan H. Belgraver	3-JAN-85	JB02	1.2
C			Print UIC format correction.
C
C-----------------------------------------------------------------------------
C
C

C
C
	SUBROUTINE	R V O L 1	(BUF, NTBL, LUNL, IER)
C
C
	INTEGER*2	IUIC(2)						! JB02

	INCLUDE		'LVOL1.CMN'

	CALL	STRCPY	(BUF, 80, BUF0)

	DECODE	(6, 9, UIC)	IUIC	! Cnvt ASCII to binary		! JB02
9	FORMAT	( 2(I3.3) )						! JB02

	WRITE	(LUNL,10)	NTBL
10	FORMAT	(/' Block', I5,
	1	 /' VOL1 Volume Label Block Contents')

	WRITE	(LUNL,11)	VOLID, ACCESS, RESVD1
11	FORMAT	(/' Volume ident.', T25, '= ', 6A1,  '|', 
	1	 /' Accessibility', T25, '= ', A1,   '|',
	2	 /' Reserved',      T25, '= ', 26A1, '|')

	WRITE	(LUNL,12)	SYSID, SYSTEM, OWNER, GROUP, WORLD, 
	1			IUIC, OWNLST				! JB02
12	FORMAT	( ' Owner  Identification:',
	1	 /'   System ident.', T25, '= ', 3A1, '|',
	7	 /'   8= PDP-8, A= PDP-10, B= PDP-11, C= VAX-11, F= PDP-15',
	2	//'   Volume protection code:', 
	3	 /'   System', T25, '= ', A1, /'   Owner', T25, '= ', A1,
	4	 /'   Group',  T25, '= ', A1, /'   World', T25, '= ', A1,
	8	 /'   0= No Access, 1= RO, 2= Ext., 3= RE, 4= All',
	5	//'   UIC',    T25, '= ', '[', O3, ',', O3, ']',
	6	 /'   Last owner character', T25, '= ', A1, '|')

	WRITE	(LUNL,13)	RESVD2, LBLSTV
13	FORMAT	( ' Reserved',               T25, '= ', 28A1, '|',
	1	 /' Label standard version', T25, '= ', A1, '|')


	RETURN
	END