!*** MODULE $TIRDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Text, information and relocation record (TIR)
 ! 
	PARAMETER TIR$C_STA_GBL = '00000000'X	 ! Stack global symbol value 
	PARAMETER TIR$C_STA_SB = '00000001'X	 ! Stack signed byte 
	PARAMETER TIR$C_STA_SW = '00000002'X	 ! Stack signed word 
	PARAMETER TIR$C_STA_LW = '00000003'X	 ! Stack longword 
	PARAMETER TIR$C_STA_PB = '00000004'X	 ! Stack psect base plus byte offset 
	PARAMETER TIR$C_STA_PW = '00000005'X	 ! Stack psect base plus word offset 
	PARAMETER TIR$C_STA_PL = '00000006'X	 ! Stack psect base plus longword offset 
	PARAMETER TIR$C_STA_UB = '00000007'X	 ! Stack unsigned byte 
	PARAMETER TIR$C_STA_UW = '00000008'X	 ! Stack unsigned word 
	PARAMETER TIR$C_STA_BFI = '00000009'X	 ! Stack byte from image 
	PARAMETER TIR$C_STA_WFI = '0000000A'X	 ! Stack word from image 
	PARAMETER TIR$C_STA_LFI = '0000000B'X	 ! Stack longword from image 
	PARAMETER TIR$C_STA_EPM = '0000000C'X	 ! Stack entry point mask 
	PARAMETER TIR$C_STA_CKARG = '0000000D'X	 ! Stack result of argument checking (true or false) 
	PARAMETER TIR$C_STA_WPB = '0000000E'X	 ! Stack psect base plus byte offset -- word psect number 
	PARAMETER TIR$C_STA_WPW = '0000000F'X	 ! Stack psect base plus word offset -- word psect number 
	PARAMETER TIR$C_STA_WPL = '00000010'X	 ! Stack psect base plus longword offset -- word of psect num
					! Stack psect base plus longword offset -- word of psect numbe
	PARAMETER TIR$C_STA_LSY = '00000011'X	 ! Stack local symbol value 
	PARAMETER TIR$C_STA_LIT = '00000012'X	 ! Stack literal 
	PARAMETER TIR$C_STA_LEPM = '00000013'X	 ! Stack local symbol entry point mask 
	PARAMETER TIR$C_MAXSTACOD = '00000013'X	 ! Last assigned code of stack group 
	PARAMETER TIR$C_MINSTOCOD = '00000014'X	 ! First assigned store command code 
	PARAMETER TIR$C_STO_SB = '00000014'X	 ! Store signed byte 
	PARAMETER TIR$C_STO_SW = '00000015'X	 ! Store signed word 
	PARAMETER TIR$C_STO_L = '00000016'X	 ! Store longword 
	PARAMETER TIR$C_STO_BD = '00000017'X	 ! Store byte displaced 
	PARAMETER TIR$C_STO_WD = '00000018'X	 ! Store word displaced 
	PARAMETER TIR$C_STO_LD = '00000019'X	 ! Store longword displaced 
	PARAMETER TIR$C_STO_LI = '0000001A'X	 ! Store short literal 
	PARAMETER TIR$C_STO_PIDR = '0000001B'X	 ! Store pos. indep. data reference 
	PARAMETER TIR$C_STO_PICR = '0000001C'X	 ! Store pos. indep. code reference 
	PARAMETER TIR$C_STO_RSB = '0000001D'X	 ! Store repeated signed byte 
	PARAMETER TIR$C_STO_RSW = '0000001E'X	 ! Store repeated signed word 
	PARAMETER TIR$C_STO_RL = '0000001F'X	 ! Store repeated longword 
	PARAMETER TIR$C_STO_VPS = '00000020'X	 ! Store arbitrary field 
	PARAMETER TIR$C_STO_USB = '00000021'X	 ! Store unsigned byte 
	PARAMETER TIR$C_STO_USW = '00000022'X	 ! Store unsigned word 
	PARAMETER TIR$C_STO_RUB = '00000023'X	 ! Store repeated unsigned byte 
	PARAMETER TIR$C_STO_RUW = '00000024'X	 ! Store repeated unsigned word 
	PARAMETER TIR$C_STO_B = '00000025'X	 ! Store byte 
	PARAMETER TIR$C_STO_W = '00000026'X	 ! Store word 
	PARAMETER TIR$C_STO_RB = '00000027'X	 ! Store repeated byte 
	PARAMETER TIR$C_STO_RW = '00000028'X	 ! Store repeated word 
	PARAMETER TIR$C_STO_RIVB = '00000029'X	 ! Store repeated immediate variable bytes 
	PARAMETER TIR$C_STO_PIRR = '0000002A'X	 ! Store pos. indep. relative reference 
	PARAMETER TIR$C_MAXSTOCOD = '0000002A'X	 ! Last assigned store command code 
	PARAMETER TIR$C_MINOPRCOD = '00000032'X	 ! First assigned operator command code 
	PARAMETER TIR$C_OPR_NOP = '00000032'X	 ! No-op 
	PARAMETER TIR$C_OPR_ADD = '00000033'X	 ! Add 
	PARAMETER TIR$C_OPR_SUB = '00000034'X	 ! Subtract 
	PARAMETER TIR$C_OPR_MUL = '00000035'X	 ! Multiply 
	PARAMETER TIR$C_OPR_DIV = '00000036'X	 ! Divide 
	PARAMETER TIR$C_OPR_AND = '00000037'X	 ! Logical AND 
	PARAMETER TIR$C_OPR_IOR = '00000038'X	 ! Logical inclusive OR 
	PARAMETER TIR$C_OPR_EOR = '00000039'X	 ! Logical exclusive OR 
	PARAMETER TIR$C_OPR_NEG = '0000003A'X	 ! Negate 
	PARAMETER TIR$C_OPR_COM = '0000003B'X	 ! Complement 
	PARAMETER TIR$C_OPR_INSV = '0000003C'X	 ! Insert bit field 
	PARAMETER TIR$C_OPR_ASH = '0000003D'X	 ! Arithmetic shift 
	PARAMETER TIR$C_OPR_USH = '0000003E'X	 ! Unsigned shift 
	PARAMETER TIR$C_OPR_ROT = '0000003F'X	 ! Rotate 
	PARAMETER TIR$C_OPR_SEL = '00000040'X	 ! Select one of three longwords on top of stack 
	PARAMETER TIR$C_OPR_REDEF = '00000041'X	 ! Redefine this symbol after pass 2 
	PARAMETER TIR$C_OPR_DFLIT = '00000042'X	 ! Define a literal 
	PARAMETER TIR$C_MAXOPRCOD = '00000042'X	 ! Last assigned operator command code 
	PARAMETER TIR$C_MINCTLCOD = '00000050'X	 ! First assigned control command code 
	PARAMETER TIR$C_CTL_SETRB = '00000050'X	 ! Set relocation base 
	PARAMETER TIR$C_CTL_AUGRB = '00000051'X	 ! Augment relocation base 
	PARAMETER TIR$C_CTL_DFLOC = '00000052'X	 ! Define debug location 
	PARAMETER TIR$C_CTL_STLOC = '00000053'X	 ! Set debug location 
	PARAMETER TIR$C_CTL_STKDL = '00000054'X	 ! Stack debug location 
	PARAMETER TIR$C_MAXCTLCOD = '00000054'X	 ! Last assigned control command code 
	STRUCTURE /TIRDEF/
	UNION
	    MAP
	    BYTE      TIR$B_RECTYP			 ! Record type (OBJ$C_TIR) 
	    END MAP
 !  Define relocation commands 
	END UNION
	END STRUCTURE	! TIRDEF
 ! 
 !  EVAX dependent structures start here
 ! 
!DEC$ END OPTIONS