!*** MODULE $DSTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 !  Use a K to indicate constant 
	PARAMETER DST$K_LOCOMMAND = '00000000'X	 !  Low value for range checking 
	PARAMETER DST$K_STA_R00 = '00000000'X	 !  Stack contents of R0 
	PARAMETER DST$K_STA_R01 = '00000001'X	 !  Stack contents of R1 
	PARAMETER DST$K_STA_R02 = '00000002'X	 !  Stack contents of R2 
	PARAMETER DST$K_STA_R03 = '00000003'X	 !  Stack contents of R3 
	PARAMETER DST$K_STA_R04 = '00000004'X	 !  Stack contents of R4 
	PARAMETER DST$K_STA_R05 = '00000005'X	 !  Stack contents of R5 
	PARAMETER DST$K_STA_R06 = '00000006'X	 !  Stack contents of R6 
	PARAMETER DST$K_STA_R07 = '00000007'X	 !  Stack contents of R7 
	PARAMETER DST$K_STA_R08 = '00000008'X	 !  Stack contents of R8 
	PARAMETER DST$K_STA_R09 = '00000009'X	 !  Stack contents of R9 
	PARAMETER DST$K_STA_R10 = '0000000A'X	 !  Stack contents of R10 
	PARAMETER DST$K_STA_R11 = '0000000B'X	 !  Stack contents of R11 
	PARAMETER DST$K_STA_R12 = '0000000C'X	 !  Stack contents of R12 (AP) 
	PARAMETER DST$K_STA_R13 = '0000000D'X	 !  Stack contents of R13 (FP) 
	PARAMETER DST$K_STA_R14 = '0000000E'X	 !  Stack contents of R14 (SP) 
	PARAMETER DST$K_STA_R15 = '0000000F'X	 !  Stack contents of R15 (PC) 
	PARAMETER DST$K_STA_IMM_B = '00000010'X	 !  Stack contents of byte operand 
 !     sign extending to longword
	PARAMETER DST$K_STA_IMM_W = '00000011'X	 !  Stack contents of word operand 
 !     sign extending to longword
	PARAMETER DST$K_STA_IMM_L = '00000012'X	 !  Stack contents of longword operand 
	PARAMETER DST$K_OPR_ADD = '00000013'X	 !  Pop two operands, add , 
 !     stack longword result
	PARAMETER DST$K_STA_REP_B = '00000014'X	 !  Pop top item and stack sign extended 
 !     byte at that address
	PARAMETER DST$K_STA_REP_W = '00000015'X	 !  Pop top item and stack sign extended 
 !     word at that address
	PARAMETER DST$K_STA_REP_L = '00000016'X	 !  Pop top item and stack longword at 
 !     that address
	PARAMETER DST$K_OPR_STOP = '00000017'X	 !  Terminate command string. Longword 
 !     at top of stack contains address
 !     of data item.
	PARAMETER DST$K_HICOMMAND = '00000017'X	 !  Hi value for range checking 
!DEC$ END OPTIONS