!*** MODULE $CRDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  CARD READER STATUS BITS
 ! -
	PARAMETER CR$M_TMODE = '0000000F'X
	PARAMETER CR$K_T026 = '00000000'X	 ! 026 PUNCH CODE TRANSLATION 
	PARAMETER CR$K_T029 = '00000001'X	 ! 029 PUNCH CODE TRANSLATION 
	STRUCTURE /CRDEF/
	UNION
	    MAP
	        PARAMETER CR$S_TMODE = 4
	        PARAMETER CR$V_TMODE = 0		 !  TRANSLATION MODE 
	    BYTE %FILL (1)
	    END MAP
 ! 
 !  TRANSLATION MODE DEFINITIONS
 ! 
 !  
	END UNION
	END STRUCTURE	! CRDEF
!DEC$ END OPTIONS