Google
 

Trailing-Edge - PDP-10 Archives - bb-4157h-bm_fortran20_v10_16mt9 - link/sources/ovrpar.mac
There are 25 other files named ovrpar.mac in the archive. Click here to see a list.
UNIVERSAL OVRPAR - OVERLAY FILE PARAMETERS FOR LINK
SUBTTL	DAVE NEFF/DZN/HD/PAH	6-Jan-83


;COPYRIGHT (C) 1974, 1983 BY
;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE  SOFTWARE  IS  HEREBY
;TRANSFERRED.
;
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT  NOTICE
;AND  SHOULD  NOT  BE  CONSTRUED  AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY  OF  ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.



CUSTVR==0		;CUSTOMER VERSION
DECVER==5		;DEC VERSION
DECMVR==1		;DEC MINOR VERSION
DECEVR==202		;DEC EDIT VERSION


SEARCH	MACTEN
SALL
.DIRECT	.NOBIN		;DON'T BOTHER WITH A .REL FILE


%OVRLA==<BYTE(3)CUSTVR(9)DECVER(6)DECMVR(18)DECEVR>
SUBTTL	REVISION HISTORY


;START OF VERSION 5 (CREATION)
;100	DZN	8-Feb-80
;	Creation. Combine common overlay file parameters for use by LINK and
;	OVRLAY.

;START OF VERSION 5.1
;104	HD	17-Jun-82
;	Add the symbol A.DSC for the FORTRAN/COBOL byte string descriptor.
;

;202	PAH	 6-Jan-82
;	Update copyright notice and clean up listings for release.
SUBTTL	OVERLAY FILE DIRECTORY AND PREAMBLE


;MAXIMUM NUMBER OF OVERLAY LINKS ALLOWED, FOR MEMORY MANAGEMENT.

ND LN.OVL,^D128*^D10*2		;MAX. NO. OF OVERLAYS ALLOWED


	LOC	0
DI.HDR:!BLOCK	1		;CODE ,, LENGTH
DI.RGN:!BLOCK	1		;NO OF REGIONS
DI.VER:!BLOCK	1		;VERSION #
DI.LPT:!BLOCK	1		;-LENGTH AND BLOCK NUMBER OF LINK NUMBER TABLE
DI.NPT:!BLOCK	1		;-LENGTH AND BLOCK NUMBER OF LINK NAME TABLE
DI.WPT:!BLOCK	1		;[100] -LENGTH AND BLOCK NUMBER OF WRITABLE LINK TABLE
DI.FLG:!BLOCK	1		;[100] FLAGS
	OD.RLC==1B0		;[100] RELOCATABLE OVERLAYS WERE REQUESTED
	OD.WRT==1B1		;[100] WRITABLE OVERLAYS WERE REQUESTED
DI.LEN==.			;LENGTH OF DIRECTORY
	RELOC


;WRITABLE LINK TABLE. TWO FLAG BITS PER LINK, INDEXED BY LINK NUMBER.

	OW.WRT==1B34		;[100] THIS LINK IS WRITABLE
	OW.PAG==1B35		;[100] THIS LINK IS CURRENTLY PAGED TO nnnOVL.TMP
WR.LEN==<LN.OVL+^D17>/^D18	;[100] LENGTH OF WRITABLE LINK TABLE


;PREAMBLE OF EACH LINK SECTION

	LOC	0
PH.HDR:!BLOCK	1		;0,,LENGTH
PH.RGN:!BLOCK	1		;REGION NUMBER
PH.NUM:!BLOCK	1		;LINK NUMBER
PH.NAM:!BLOCK	1		;LOGICAL NAME
PH.BPT:!BLOCK	1		;BACK POINTER
PH.FPT:!BLOCK	1		;FORWARD POINTER
PH.EPT:!BLOCK	1		;EQUIVALENCE POINTER
PH.CST:!BLOCK	1		;ADDRESS OF CONTROL SECTION
PH.FLG:!BLOCK	1		;FLAGS
PH.ADD:!BLOCK	1		;ADDRESS LOADED AT
PH.LLN:!BLOCK	1		;[100] LENGTH OF LINK
PH.OVL:!BLOCK	1		;BLOCK # FOR CODE
PH.SYM:!BLOCK	1		;BLOCK # FOR SYMBOLS (FUTURE)
PH.REL:!BLOCK	1		;BLOCK # FOR RELOC FIXUP
PH.ORL:!BLOCK	1		;BLOCK # FOR OTHER RELOC TABLES
PH.GLB:!BLOCK	1		;NOT USED
PH.RDX:!BLOCK	1		;BLOCK # FOR DDT SYMBOL TABLE
PH.RDR:!BLOCK	1		;BLOCK # FOR RELOC FOR DDT SYMBOLS
PH.NFL:!BLOCK	1		;NEXT FREE LOCATION
PH.LEN==.			;[100] LENGTH OF PREAMBLE
	RELOC
SUBTTL	IN-MEMORY OVERLAY FILE OFFSETS


	LOC	0
CS.HDR:!			;HEADER (LH)
CS.LLN:!BLOCK	1		;[100] LENGTH (RH)
CS.RGN:!BLOCK	1		;REGION #
CS.NUM:!BLOCK	1		;LINK NUMBER
CS.LNM:!BLOCK	1		;LOGICAL NAME
CS.BPT:!			;BACK POINTER
CS.FPT:!			;FORWARD POINTER
CS.PTR:!BLOCK	1		;..
CS.SYM:!BLOCK	1		;SYMBOL TABLE PTR.
CS.FLG:!			;FLAGS
	CF.RLO==1B17		;OTHER RELOCATION STILL TO DO
CS.STA:!BLOCK	1		;START ADDRESS (RH)
CS.SIZ:!			;LENGTH (LH)
CS.ADR:!			;ADDRESS (RH)
CS.COR:!BLOCK	1		;..
CS.EXT:!BLOCK	1		;AOBJN PTR TO EXTERNAL TRANSFER TABLES
CS.INT:!BLOCK	1		;AOBJN PTR TO INTERNAL TRANSFER TABLES
CS.DDT:!BLOCK	1		;POINTER TO DDT SYMBOLS ON DSK
CS.RLC:!BLOCK	1		;HOLD OFFSET IF RELOCATED
CS.OVL:!BLOCK	1		;[100] COPY OF PH.OVL FOR WRITABLE OVERLAYS
CS.OSY:!BLOCK	1		;[100] ORIGINAL COPY OF CS.SYM
CS.LEN==.			;[100] LENGTH OF CONTROL SECTION
	RELOC


;EXTTAB ENTRY OFFSETS

	LOC	0
ET.OVL:!BLOCK	1		;JSP T1,.OVRLA
ET.FLG:!			;FLAGS (BITS 0-8)
	F.LIC==400000,,0	;LINK IN CORE
	F.MDL==200000,,0	;ROUTINE IN MULTIPLE LINKS
	F.RLC==100000,,0	;LINK IS RELOCATED
ET.RGN:!			;REGION # (BITS 9-17)
ET.ADR:!BLOCK	1		;ADDRESS IF IN CORE (RH)
ET.NUM:!			;NUMBER (LH)
ET.MDL:!			;ONLY IF MULTIPLY-DEFINED (POINTS TO TABLE)
ET.CST:!BLOCK	1		;THIS CONTROL SECTION (RH)
ET.BRF:!			;BACK REFERENCE (LH)
ET.FRF:!			;FORWARD REFERENCE (RH)
ET.NAM:!			;EXTERNAL REQUEST NAME (IF UNDEFINED)
ET.REF:!BLOCK	1		;LINKED REFERENCES
ET.LEN==.			;LENGTH OF EXTTAB
	RELOC
;EXTTAB OFFSETS WHEN CALLED BY A JSP

DEFINE DEFJT(MNEM)<
  IRP MNEM,<JT.'MNEM==ET.'MNEM-1>
>

DEFJT	<FLG,ADR,CST,MDL,NUM,REF,NAM>

PURGE	DEFJT			;DONE WITH DEFJT MACRO


;INTTAB ENTRY OFFSETS

	LOC	0
IT.FLG:!			;FLAGS (BITS 0-12)
IT.ADD:!BLOCK	1		;ADDRESS IN CORE (RH)
IT.REF:!BLOCK	1		;FORWARD REFERENCE (RH)
IT.LEN==.			;LENGTH OF INTTAB
	RELOC


;MULTIPLY-DEFINED ENTRY OFFSETS

	LOC	0
MT.ADR:!BLOCK	1		;EQUIV TO ET.ADR
MT.NUM:!			;LINK # (EQUIV TO ET.NUM)
MT.CST:!BLOCK	1		;EQUIV TO ET.CST
MT.LEN==.			;LENGTH OF MULTIPLY-DEFINED ENTRY TABLE
	RELOC
	SUBTTL	FUNCT. FUNCTION CODES AND ARGUMENT TYPES


;FUNCT. FUNCTION CODES

F.ILL==0		;ALWAYS ILLEGAL
F.GAD==1		;GET SPECIFIC ADDRESS
F.COR==2		;GET ANY ADDRESS
F.RAD==3		;RETURN SPECIFIC ADDRESS
F.GCH==4		;GET ANY CHANNEL (OBSOLETE WITH EXTENDED CHANNELS)
F.RCH==5		;RETURN SPECIFIC CHANNEL (OBSOLETE WITH EXTENDED CHANNELS)
F.GOT==6		;GET MEMORY FROM OTS
F.ROT==7		;RETURN MEMORY TO OTS
F.RNT==10		;GET INITIAL RUNTIME FROM OTS
F.IFS==11		;GET INITIAL FILE SPEC (TOPS-10 ONLY, OBSOLETE WITH 7.01)
F.CBC==12		;CUT BACK MEMORY
F.RRS==13		;READ DBMS RETAIN STATUS
F.WRS==14		;WRITE DBMS RETAIN STATUS
F.GPG==15		;GET MEMORY ON A PAGE BOUNDARY
F.RPG==16		;RETURN MEMORY ALLOCATED BY F.GPG


;FUNCT. (AND FORTRAN AND COBOL) ARGUMENT TYPES

A.UND==0		;UNDEFINED (UNKNOWN)
A.LOG==1		;FORTRAN LOGICAL
A.SPI==2		;SINGLE PRECISION INTEGER
A.SPR==4		;SINGLE PRECISION REAL
A.OCT==6		;SINGLE PRECISION OCTAL
A.LBL==7		;LABEL OR SECTION ADDRESS
A.DPR==10		;DOUBLE PRECISION REAL
A.DPI==11		;DOUBLE PRECISION INTEGER
A.DO==12		;DOUBLE PRECISION OCTAL
A.CMP==14		;COMPLEX
A.DSC==15		;[104] STRING DESCRIPTOR
A.AS==17		;LITERAL STRING
	SUBTTL	THE END


	END