.TITLE	EQUATE
	.IDENT	/hah006/
	.ASECT
 
;
; VERSION 01
;
; TOM GETZINGER  19-SEP-80
;
; Modified:	07-Nov-83	hah002
;		Add support for library base additive RLD entry
;		07-Nov-83	hah006
;		Add support for library base complex RLD entry
;
; THIS MOUDLE CONTAINS MOST GLOBAL EQUATES
;
 
;
; SWITCH BIT VALUES
;

S.LABL	==	1		; LABELS DESIRED
S.LIBR	==	2		; INPUT FILE IS AN OBJECT LIBRARY

S.EIS	==	4		; EIS INSTRUCTIONS ARE VALID
S.FIS	==	10		; FIS INSTRUCTIONS ARE VALID
S.FPP	==	20		; FPP INSTRUCTIONS ARE VALID

S.ASC	==	400		; ASCII DUMP DESIRED
S.RAD	==	1000		; RAD50 DUMP DESIRED

;
; OBJECT RECORD TYPES
;
 
	.=1
RT.GSD	::	.BLKB		; GLOBL SYMBOL DIRECTORY
RT.EOG	::	.BLKB		; END OF GSD
RT.TXT	::	.BLKB		; TEXT INFO
RT.RLD	::	.BLKB		; RELOCATION DIRECTORY
RT.ISD	::	.BLKB		; INTERNAL SYMBOL DIRECTORY
RT.END	::	.BLKB		; END OF MODULE
 
;
; GSD ENTRY FORMAT
;
 
	.=0
G.NAME::.BLKW	2		; GLOBAL NAME (IN RAD50)
G.FLAG::.BLKB	1		; FLAGS (VARYING DEPENDING ON GSD TYPE)
G.TYPE::.BLKB	1		; GSD ENTRY TYPE
G.VAL::	.BLKW	1		; GSD ENTRY VALUE
G.LEN::
 
;
; GSD ENTRY TYPES
;
 
	.=0
GT.MNM	::	.BLKB		; MODULE NAME
GT.CSC	::	.BLKB		; .CSECT
GT.ISN	::	.BLKB		; INTERNAL SYMBOL NAME
GT.END	::	.BLKB		; TRANSFER ADDRESS
GT.GBL	::	.BLKB		; .GLOBL
GT.PSC	::	.BLKB		; .PSECT
GT.IDN	::	.BLKB		; .IDENT
 
;
; TEXT ENTRY FORMAT
;
 
	.=0
T.NEXT::.BLKW	1		; POINTER TO NEXT TEXT ENTRY
T.ADDR::.BLKW	1		; ADDRESS OF TEXT
T.VAL::				; TEXT VALUE
T.STR::	.BLKW	1		; POINTER TO TEXT STRING
T.FLAG::.BLKW	1		; FLAG INFO
T.LEN::				; LENGTH OF THE ENTRY
 
TF.BYT	==	1		; SET IF TEXT ONLY CONTAINS ONE BYTE
TF.LMT	==	400		; SET IF ADDR IS ".LIMIT"
TF.REL	==	1000		; SET IF ADDR IS RELOCATED
TF.DSP	==	2000		; SET IF ADDR IS DISPLACED
tf.lib	==	4000		;Library base additive rel		;hah002
 
;
; RELOCATION TYPES
;
 
	.=1
RT.I	::	.BLKB		; INTERNAL RELOCATION
RT.G	::	.BLKB		; GLOBAL RELOCATION
RT.AD	::	.BLKB		; ABSOLUTE DISPLACED RELOCATION
RT.GD	::	.BLKB		; GLOBAL DISPLACED RELOCATION
RT.GA	::	.BLKB		; GLOBAL ADDITIVE RELOCATION
RT.GAD	::	.BLKB		; GLOBAL ADDITIVE DISPLACED RELOCATION
RT.LCD	::	.BLKB		; LOCATION COUNTER DEFINITION
RT.LCM	::	.BLKB		; LOCATION COUNTER MODIFICATION
RT.LMT	::	.BLKB		; PROGRAM LIMITS
RT.P	::	.BLKB		; PSECT RELOCATION
		.BLKB		; UNUSED
RT.PD	::	.BLKB		; PSECT DISPLACED RELOCATION
RT.PA	::	.BLKB		; PSECT ADDITIVE RELOCATION
RT.PAD	::	.BLKB		; PSECT ADDITIVE DISPLACED RELOCATION
RT.COM	::	.BLKB		; COMPLEX RELOCATION
RT.LIB	::	.BLKB		; LIBRARY RELOCATION
rt.max	==	.-1		;Maximum RLD entries allowed
 
;
; COMPLEX RELOCATION TYPES
;
 
	.=0
CT.NOP	::	.BLKB		; NO-OP
CT.ADD	::	.BLKB		; ADDITION
CT.SUB	::	.BLKB		; SUBTRACTION
CT.MUL	::	.BLKB		; MULTIPLICATION
CT.DIV	::	.BLKB		; DIVISION
CT.AND	::	.BLKB		; LOGICAL AND
CT.OR	::	.BLKB		; LOGICAL OR
		.BLKB		; UNUSED
CT.NEG	::	.BLKB		; NEGATION
CT.COM	::	.BLKB		; COMPLEMENT
CT.STR	::	.BLKB		; STORE
CT.STD	::	.BLKB		; STORE DISPLACED
		.BLKB		; UNUSED
		.BLKB		; UNUSED
CT.GBL	::	.BLKB		; FETCH GLOBAL VALUE
CT.REL	::	.BLKB		; FETCH RELOCATABLE VALUE
CT.ABS	::	.BLKB		; FETCH ABSOLUTE VALUE
CT.LIB	::	.BLKB		; FETCH LIBRARY BASE
ct.max	==	.-1					;hah006
 
	.END