!*** MODULE $SRMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Define SRM Hardware symbols
 ! -
	PARAMETER SRM$K_INT_OVF_T = '00000001'X	 !  Integer overflow trap code 
	PARAMETER SRM$K_INT_DIV_T = '00000002'X	 !  Integer divide by zero trap code 
	PARAMETER SRM$K_FLT_OVF_T = '00000003'X	 !  Floating overflow trap code 
	PARAMETER SRM$K_FLT_DIV_T = '00000004'X	 !  Floating/decimal Divide by zero trap code 
	PARAMETER SRM$K_FLT_UND_T = '00000005'X	 !  Floating Underflow trap code 
	PARAMETER SRM$K_DEC_OVF_T = '00000006'X	 !  Decimal string overflow trap code 
	PARAMETER SRM$K_SUB_RNG_T = '00000007'X	 !  Subscript range trap 
	PARAMETER SRM$K_FLT_OVF_F = '00000008'X	 !  Floating Overflow fault code 
	PARAMETER SRM$K_FLT_DIV_F = '00000009'X	 !  Floating Divide by zero fault code 
	PARAMETER SRM$K_FLT_UND_F = '0000000A'X	 !  Floating Underflow fault code 
	PARAMETER SRM$M_EXC_SUM_SWC = '00000001'X
	PARAMETER SRM$M_EXC_SUM_INV = '00000002'X
	PARAMETER SRM$M_EXC_SUM_DZE = '00000004'X
	PARAMETER SRM$M_EXC_SUM_OVF = '00000008'X
	PARAMETER SRM$M_EXC_SUM_UNF = '00000010'X
	PARAMETER SRM$M_EXC_SUM_INE = '00000020'X
	PARAMETER SRM$M_EXC_SUM_IOV = '00000040'X
	STRUCTURE /SRM/
	    UNION
	        MAP
	        INTEGER*4 SRM$L_EXC_SUM
	        END MAP
	        MAP
	            PARAMETER SRM$S_EXC_SUM_SWC = 1
	            PARAMETER SRM$V_EXC_SUM_SWC = 0
	            PARAMETER SRM$S_EXC_SUM_INV = 1
	            PARAMETER SRM$V_EXC_SUM_INV = 1
	            PARAMETER SRM$S_EXC_SUM_DZE = 1
	            PARAMETER SRM$V_EXC_SUM_DZE = 2
	            PARAMETER SRM$S_EXC_SUM_OVF = 1
	            PARAMETER SRM$V_EXC_SUM_OVF = 3
	            PARAMETER SRM$S_EXC_SUM_UNF = 1
	            PARAMETER SRM$V_EXC_SUM_UNF = 4
	            PARAMETER SRM$S_EXC_SUM_INE = 1
	            PARAMETER SRM$V_EXC_SUM_INE = 5
	            PARAMETER SRM$S_EXC_SUM_IOV = 1
	            PARAMETER SRM$V_EXC_SUM_IOV = 6
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	END STRUCTURE	! SRM
!DEC$ END OPTIONS