!*** MODULE $CRFDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  CRF$INSRTREF ARGUMENT LIST
 ! 
	STRUCTURE /CRFDEF/
	    INTEGER*4 %FILL				 !  ARGUMENT COUNT 
	    INTEGER*4 CRF$L_IR_CTLTBL		 !  CRF CONTROL TABLE ADR 
	    INTEGER*4 CRF$L_IR_KEYADR		 !  KEY ADDRESS 
	    INTEGER*4 CRF$L_IR_REFADR		 !  REFERENCE INDICATOR ADR 
	    INTEGER*2 CRF$W_IR_REFLAG		 !  REFERENCE INDICATOR FLAGS 
	    BYTE      %FILL(1:2)			 !  UNUSED 
	    BYTE      CRF$B_IR_DEFIND		 !  DEFINITION INDICATOR 
	    BYTE      %FILL(1:3)			 !  UNUSED 
	END STRUCTURE	! CRFDEF
 ! 
 !  CRF$INSRTKEY ARGUMENT LIST
 ! 
	STRUCTURE /CRFDEF1/
	    INTEGER*4 %FILL				 !  ARGUMENT COUNT 
	    INTEGER*4 CRF$L_IK_CTLTBL		 !  CRF CONTROL TABLE ADR 
	    INTEGER*4 CRF$L_IK_KEYADR		 !  ADDRESS OF KEY 
	    INTEGER*4 CRF$L_IK_VALADR		 !  ADDRESS OF VALUE 
	    INTEGER*2 CRF$W_IK_VALFLG		 !  VALUE FLAGS 
	    BYTE      %FILL(1:2)			 !  UNUSED 
	END STRUCTURE	! CRFDEF1
 ! 
 !  CRF$OUT ARGUMENT LIST
 ! 
	STRUCTURE /CRFDEF2/
	    INTEGER*4 %FILL				 !  ARGUMENT COUNT 
	    INTEGER*4 CRF$L_OU_CTLTBL		 !  CRF CONTROL TABLE ADR 
	    INTEGER*4 CRF$L_OU_LINWID		 !  OUTPUT LINE WIDTH 
	    BYTE      CRF$B_OU_PAG1			 !  ! LINES/PAGE 1 
	    BYTE      %FILL(1:3)			 !  UNUSED 
	    BYTE      CRF$B_OU_SUCPAG		 !  ! LINES/SUCCESSIVE PAGES 
	    BYTE      %FILL(1:3)			 !  UNUSED 
	    BYTE      CRF$B_OU_PRTIND		 !  REF PRINT INDICATOR 
	    BYTE      %FILL(1:3)			 !  UNUSED 
	    BYTE      CRF$B_OU_SAVIND		 !  SAVE INDICATOR 
	END STRUCTURE	! CRFDEF2
 ! 
 !  CRF CONTROL TABLE OFFSETS
 ! 
	PARAMETER CRF$M_MULDEF = '00000001'X
	STRUCTURE /CRFDEF3/
	    INTEGER*4 CRF$L_HASHT			 !  HASH TABLE ADDRESS 
	    INTEGER*4 CRF$L_LASTKEY			 !  LAST KEY LOOKED AT ADDRESS 
	    UNION
	        MAP
	        BYTE      CRF$B_KEYTYPE			 !  TYPE OF KEY IN TABLE 
	        END MAP
	        MAP
	            PARAMETER CRF$S_BINARY = 1
	            PARAMETER CRF$V_BINARY = 0		 !  OBSOLETE FIELD.  RETAINED FOR COMPATIBLILTY
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    UNION
	        MAP
	        BYTE      CRF$B_FLAGS			 !  MISC. FLAGS FOR FUTURE EXPANSION
	        END MAP
	        MAP
	            PARAMETER CRF$S_MULDEF = 1
	            PARAMETER CRF$V_MULDEF = 0		 !  Multi-Definers
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*2 CRF$W_ERRSTS			 !  SECONDARY ERROR STATUS CODE 
	    INTEGER*4 CRF$L_ENTRIES			 !  NUMBER OF ENTRIES IN CROSS REFERENCE 
	    INTEGER*4 CRF$L_DYNMEM(1:2)		 !  LISTHEAD OF DYNAMIC MEMORY 
	    INTEGER*4 CRF$L_MAXBLK			 !  SIZE (IN BYTES) OF BLOCK TO ALLOCATE 
	    INTEGER*4 CRF$L_MEMEXP			 !  SIZE (IN PAGES) OF BLOCK TO ALLOCATE 
	    INTEGER*2 CRF$W_CTLTABVER		 !  VERSION OF CONTROL TABLE
	    BYTE      CRF$B_VALTYPE			 !  SYMBOL VALUE DATA TYPE (Ver 1 and later)
	    BYTE      CRF$B_REFTYPE			 !  SYMBOL REFERENCE DATA TYPE (Ver 1 and later)
	    INTEGER*4 %FILL(1:7)			 !  SPARES 
	    INTEGER*4 CRF$L_ERROR			 !  ERROR ROUTINE ADDRESS 
	    INTEGER*4 CRF$L_OUTPUT			 !  OUTPUT ROUTINE ADDRESS 
	    INTEGER*4 CRF$L_K1FMTBL			 !  KEY1 FIELD FORMAT TBL ADR 
	    INTEGER*4 CRF$L_K2FMTBL			 !  KEY2 FIELD FORMAT TBL ADR 
	    INTEGER*4 CRF$L_V1FMTBL			 !  VAL1 FIELD FORMAT TBL ADR 
	    INTEGER*4 CRF$L_V2FMTBL			 !  VAL2 FIELD FORMAT TBL ADR 
	    INTEGER*4 CRF$L_R1FMTBL			 !  REF1 FIELD FORMAT TBL ADR 
	    INTEGER*4 CRF$L_R2FMTBL			 !  REF2 FIELD FORMAT TBL ADR 
	END STRUCTURE	! CRFDEF3
!DEC$ END OPTIONS