!*** MODULE $MTADEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  MAGTAPE ACCESSIBILTY ROUTINE CODES
 ! -
 !  DEFINITIONS FOR ACCESS_SPEC 
	PARAMETER MTA$K_NOCHAR = '00000000'X	 !  ACCESS CHAR IS NOVALID    
	PARAMETER MTA$K_CHARVALID = '00000001'X	 !  ACCESS CHAR IS VALID
 !  DEFINITIONS FOR TYPE 
	PARAMETER MTA$K_INVOL1 = '00000000'X	 !  INPUT A VOL1 ACCESS CODE
	PARAMETER MTA$K_INHDR1 = '00000001'X	 !  INPUT A HDR1 ACCESS CODE
	PARAMETER MTA$K_OUTVOL1 = '00000002'X	 !  OUTPUT A VOL1 ACCESS CODE
	PARAMETER MTA$K_OUTHDR1 = '00000003'X	 !  OUTPUT A HDR1 ACCESS CODE
!DEC$ END OPTIONS