.TITLE EQUATE .IDENT /hah013/ .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 ; 29-Jul-85 hah011 ; Add support for RT11 object libraries. Also allow user to ; specify that the entry point table should be scanned if the ; name is not found in the module name table. ; 11-Aug-85 hah013 ; Add support for /ID switch to display version number. ; ; THIS MODULE 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 S.RT11 == 2000 ; RT11 object library ;hah011 s.entr == 4000 ; Check entry point table after name tbl;hah011 s.iden == 10000 ; Identifier wanted. ;hah013 ; ; OBJECT RECORD TYPES ; .=1 RT.GSD::.BLKB 1 ; GLOBL SYMBOL DIRECTORY RT.EOG::.BLKB 1 ; END OF GSD RT.TXT::.BLKB 1 ; TEXT INFO RT.RLD::.BLKB 1 ; RELOCATION DIRECTORY RT.ISD::.BLKB 1 ; INTERNAL SYMBOL DIRECTORY RT.END::.BLKB 1 ; 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 1 ; MODULE NAME GT.CSC::.BLKB 1 ; .CSECT GT.ISN::.BLKB 1 ; INTERNAL SYMBOL NAME GT.END::.BLKB 1 ; TRANSFER ADDRESS GT.GBL::.BLKB 1 ; .GLOBL GT.PSC::.BLKB 1 ; .PSECT GT.IDN::.BLKB 1 ; .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 1 ; INTERNAL RELOCATION RT.G:: .BLKB 1 ; GLOBAL RELOCATION RT.AD:: .BLKB 1 ; ABSOLUTE DISPLACED RELOCATION RT.GD:: .BLKB 1 ; GLOBAL DISPLACED RELOCATION RT.GA:: .BLKB 1 ; GLOBAL ADDITIVE RELOCATION RT.GAD::.BLKB 1 ; GLOBAL ADDITIVE DISPLACED RELOCATION RT.LCD::.BLKB 1 ; LOCATION COUNTER DEFINITION RT.LCM::.BLKB 1 ; LOCATION COUNTER MODIFICATION RT.LMT::.BLKB 1 ; PROGRAM LIMITS RT.P:: .BLKB 1 ; PSECT RELOCATION .BLKB 1 ; UNUSED RT.PD:: .BLKB 1 ; PSECT DISPLACED RELOCATION RT.PA:: .BLKB 1 ; PSECT ADDITIVE RELOCATION RT.PAD::.BLKB 1 ; PSECT ADDITIVE DISPLACED RELOCATION RT.COM::.BLKB 1 ; COMPLEX RELOCATION RT.LIB::.BLKB 1 ; LIBRARY RELOCATION rt.max == .-1 ;Maximum RLD entries allowed ; ; COMPLEX RELOCATION TYPES ; .=0 CT.NOP::.BLKB 1 ; NO-OP CT.ADD::.BLKB 1 ; ADDITION CT.SUB::.BLKB 1 ; SUBTRACTION CT.MUL::.BLKB 1 ; MULTIPLICATION CT.DIV::.BLKB 1 ; DIVISION CT.AND::.BLKB 1 ; LOGICAL AND CT.OR:: .BLKB 1 ; LOGICAL OR .BLKB 1 ; UNUSED CT.NEG::.BLKB 1 ; NEGATION CT.COM::.BLKB 1 ; COMPLEMENT CT.STR::.BLKB 1 ; STORE CT.STD::.BLKB 1 ; STORE DISPLACED .BLKB 1 ; UNUSED .BLKB 1 ; UNUSED CT.GBL::.BLKB 1 ; FETCH GLOBAL VALUE CT.REL::.BLKB 1 ; FETCH RELOCATABLE VALUE CT.ABS::.BLKB 1 ; FETCH ABSOLUTE VALUE CT.LIB::.BLKB 1 ; FETCH LIBRARY BASE ct.max == .-1 ;hah006 .END