!*** MODULE $DIBDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  DEVICE INFORMATION BLOCK DEFINITIONS
 ! -
	PARAMETER DIB$K_LENGTH = '00000074'X	 ! LENGTH OF TOTAL BUFFER 
	PARAMETER DIB$C_LENGTH = '00000074'X	 ! LENGTH OF TOTAL BUFFER 
	STRUCTURE /DIBDEF/
	    INTEGER*4 DIB$L_DEVCHAR			 ! DEVICE CHARACTERISTICS 
	    BYTE      DIB$B_DEVCLASS		 ! DEVICE CLASS 
	    BYTE      DIB$B_DEVTYPE			 ! DEVICE TYPE 
	    INTEGER*2 DIB$W_DEVBUFSIZ		 ! DEVICE BUFFER SIZE 
	    UNION
	        MAP
	        INTEGER*4 DIB$L_DEVDEPEND		 ! DEVICE DEPENDENT INFORMATION 
	        END MAP
	        MAP
	            BYTE      DIB$B_SECTORS			 ! (DISK ONLY) SECTORS PER TRACK 
	            BYTE      DIB$B_TRACKS			 !  " TRACKS PER CYLINDER 
	            INTEGER*2 DIB$W_CYLINDERS		 !  " NUMBER OF CYLINDERS 
	        END MAP
	    END UNION
	    INTEGER*2 DIB$W_UNIT			 ! DEVICE UNIT NUMBER 
	    INTEGER*2 DIB$W_DEVNAMOFF		 ! OFFSET TO DEVICE NAME COUNTED STRING 
	    INTEGER*4 DIB$L_PID			 ! DEVICE OWNER PROCESS IDENTIFICATION 
	    INTEGER*4 DIB$L_OWNUIC			 ! DEVICE OWNER USER IDENTIFICATION CODE 
	    INTEGER*2 DIB$W_VPROT			 ! DEVICE PROTECTION MASK 
	    INTEGER*2 DIB$W_ERRCNT			 ! DEVICE ERROR COUNT 
	    INTEGER*4 DIB$L_OPCNT			 ! DEVICE OPERATIONS COUNT 
	    INTEGER*2 DIB$W_VOLNAMOFF		 ! OFFSET TO VOLUME LABEL COUNTED STRING 
	    INTEGER*2 DIB$W_RECSIZ			 ! BLOCKED RECORD SIZE 
	    CHARACTER*76 DIB$T_DEVNAME		 ! SPACE FOR DEVNAME AND LABEL (64+12) 
	    INTEGER*4 DIB$L_MAXBLOCK		 ! DISK VOLUME SIZE IN BLOCKS 
	END STRUCTURE	! DIBDEF
!DEC$ END OPTIONS