!*** MODULE $MTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  MAGTAPE STATUS BITS
 ! -
	PARAMETER MT$M_SEREXCP = '00000001'X
	PARAMETER MT$M_ENAUTOPACK = '00000002'X
	PARAMETER MT$M_ENSEREXCP = '00000004'X
	PARAMETER MT$M_PARITY = '00000008'X
	PARAMETER MT$M_FORMAT = '000000F0'X
	PARAMETER MT$M_DENSITY = '00001F00'X
	PARAMETER MT$M_FASTSKIP_USED = '00002000'X
	PARAMETER MT$M_LOGSOFT = '00004000'X
	PARAMETER MT$M_LOGSOFTOG = '00008000'X
	PARAMETER MT$M_BOT = '00010000'X
	PARAMETER MT$M_EOF = '00020000'X
	PARAMETER MT$M_EOT = '00040000'X
	PARAMETER MT$M_HWL = '00080000'X
	PARAMETER MT$M_LOST = '00100000'X
	PARAMETER MT$M_SUP_NRZI = '00200000'X
	PARAMETER MT$M_SUP_PE = '00400000'X
	PARAMETER MT$M_SUP_GCR = '00800000'X
	PARAMETER MT$M_SPEED = 'FF000000'X
	PARAMETER MT$K_DEFAULT = '00000000'X	 !  DEFAULT FORMAT 
	PARAMETER MT$K_NORMAL11 = '0000000C'X	 !  PDP-11 NORMAL 
	PARAMETER MT$K_CORDMP11 = '0000000D'X	 !  PDP-11 CORE DUMP 
	PARAMETER MT$K_NORMAL15 = '0000000E'X	 !  PDP-15 NORMAL 
 ! 
	PARAMETER MT$K_NRZI_800 = '00000003'X	 !  NRZI 800 BPI 
	PARAMETER MT$K_PE_1600 = '00000004'X	 !  PE 1600 BPI 
	PARAMETER MT$K_GCR_6250 = '00000005'X	 !  GCR 6250 BPI 
	PARAMETER MT$K_WOD_6250 = '00000008'X	 !  RV80 6250 BPI EQUIVALENT
	PARAMETER MT$K_SCSI_DC1 = '0000000A'X	 !  Data Compaction algorithm 1
	PARAMETER MT$K_HPC_40K = '0000000C'X	 !  HPC 39872 BPI
	PARAMETER MT$K_HPC_COMP = '0000000D'X	 !  HPC 39872 compacted
	PARAMETER MT$K_XPC_80K = '0000000E'X	 !  
	PARAMETER MT$K_XPC_COMP = '0000000F'X	 !  
	PARAMETER MT$K_BLK_833 = '00000011'X	 !  BLOCK (TK50) 833 BPI
	PARAMETER MT$K_BLK_1250 = '00000012'X	 !  BLOCK (TK70) 1250 BPI
	PARAMETER MT$K_BLK_10K = '00000013'X	 !  BLOCK (TF85) 10625 BPI
	PARAMETER MT$K_BLK_20K = '00000014'X	 !  BLOCK (TF86) 10626
	PARAMETER MT$K_BLK_60K = '00000015'X	 !  BLOCK (Tx87) 62500
	PARAMETER MT$K_BLK_COMP = '00000016'X	 !  BLOCK (Tx87) COMPRESSED 62501
	PARAMETER MT$K_DAT_61K = '00000018'X	 !  DAT CARTRIDGE 61000 BPI EQUIVALENT
 ! 
	PARAMETER MT$K_SPEED_DEF = '00000000'X	 !  DEFAULT SPEED
	PARAMETER MT$K_SPEED_25 = '00000019'X	 !  25 IPS
	PARAMETER MT$K_SPEED_75 = '0000004B'X	 !  75 IPS
	STRUCTURE /MTDEF/
	UNION
	    MAP
	        PARAMETER MT$S_SEREXCP = 1
	        PARAMETER MT$V_SEREXCP = 0		 !  SERIOUS EXCEPTION PRESENT
	        PARAMETER MT$S_ENAUTOPACK = 1
	        PARAMETER MT$V_ENAUTOPACK = 1		 !  ENABLE AUTO PACKACK
	        PARAMETER MT$S_ENSEREXCP = 1
	        PARAMETER MT$V_ENSEREXCP = 2		 !  ENABLE SERIOUS EXCEPTION MODE
	        PARAMETER MT$S_PARITY = 1
	        PARAMETER MT$V_PARITY = 3		 !  PARITY SELECT (0=ODD, 1=EVEN) 
	        PARAMETER MT$S_FORMAT = 4
	        PARAMETER MT$V_FORMAT = 4		 !  RECORDING FORMAT 
	        PARAMETER MT$S_DENSITY = 5
	        PARAMETER MT$V_DENSITY = 8		 !  RECORDING DENSITY AND METHOD 
	        PARAMETER MT$S_FASTSKIP_USED = 1
	        PARAMETER MT$V_FASTSKIP_USED = 13	 !  IO$_SKIPFILE USED SKIP BY FILEMARKS
	        PARAMETER MT$S_LOGSOFT = 1
	        PARAMETER MT$V_LOGSOFT = 14		 !  LOG SOFT (TU78) ERRORS (0=NO, 1=YES) 
	        PARAMETER MT$S_LOGSOFTOG = 1
	        PARAMETER MT$V_LOGSOFTOG = 15		 !  TOGGLE TO REVERSE LOGSOFT STATE BIT 
	        PARAMETER MT$S_BOT = 1
	        PARAMETER MT$V_BOT = 16			 !  AT BEGINNING OF TAPE 
	        PARAMETER MT$S_EOF = 1
	        PARAMETER MT$V_EOF = 17			 !  AT END OF FILE 
	        PARAMETER MT$S_EOT = 1
	        PARAMETER MT$V_EOT = 18			 !  AT END OF TAPE 
	        PARAMETER MT$S_HWL = 1
	        PARAMETER MT$V_HWL = 19			 !  TAPE IS HARDWARE WRITELOCKED 
	        PARAMETER MT$S_LOST = 1
	        PARAMETER MT$V_LOST = 20		 !  TAPE POSITION LOST 
	        PARAMETER MT$S_SUP_NRZI = 1
	        PARAMETER MT$V_SUP_NRZI = 21		 !  DRIVE SUPPORTS NRZI (800 BPI)
	        PARAMETER MT$S_SUP_PE = 1
	        PARAMETER MT$V_SUP_PE = 22		 !  DRIVE SUPPORTS PE (1600 BPI)
	        PARAMETER MT$S_SUP_GCR = 1
	        PARAMETER MT$V_SUP_GCR = 23		 !  DRIVE SUPPORTS GCR (6250 BPI)
	        PARAMETER MT$S_SPEED = 8
	        PARAMETER MT$V_SPEED = 24
	        BYTE %FILL (4)				 !  TAPE SPEED
	    END MAP
 ! 
 !  RECORDING FORMAT DEFINTIONS
 ! 
 !  
 !  RECORDING DENSITY AND METHOD DEFINITIONS
 ! 
 ! 	Default				 0
 ! 	9 Track				 1 - 7
 ! 	Optical Disk			 8 - 9
 ! 	SCSI Compaction codes		10 - 11
 ! 	High Performance Cartridge	12 - 15
 ! 	Block Mode			16 - 23
 ! 	Reserved			24 - 31
 ! 
 !  
 !                 DEFAULT,0                /* DEFAULT DENSITY (SAME AS ABOVE)
 !  TAPE SPEED VALUE DEFINITIONS
 ! 
	END UNION
	END STRUCTURE	! MTDEF
!DEC$ END OPTIONS