Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/source/lilows.mac
There are 7 other files named lilows.mac in the archive. Click here to see a list.
; UPD ID= 2543 on 2/21/80 at 2:13 PM by WRIGHT                          
TITLE	LILOWS	LIBOL.SHR ADDRESS RESOLUTIONS



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1975, 1981 BY DIGITAL EQUIPMENT CORPORATION
;AUTHOR D.B.TOLMAN

;THIS ROUTINE RESOLVES EXTERNAL REFERENCES GENERATED BY THE COMPILER
;TO ROUTINES IN LIBOL.SHR AND LIBOL.LOW

;IN THE NON /R CASE ( IE. LIBOL.SHR IS TO BE USES ) THE COMPILER
;WILL GENERATE AN EXTERNAL REFERENCE TO LILOW., CAUSING THIS 
;ROUTINE TO BE LOADED AND THE REFERENCES TO BE RESOLVED

;NOTE :::: THIS ROUTINE MUST APPEAR FIRST ON LIBOL.REL IN ORDER FOR
;EVERYTHING TO WORK OUT

	

	SEARCH	LBLPRM,COMUNI

	%%COMU==:%%COMU
	%%LBLP==:%%LBLP

	MCS==:MCS

	ENTRY	LILOW.
LILOW.:

	;DEFINE SELECT LIBOL.LOW ADDRESSES

	LOWAD%

	EXTERNAL	USRTB%		;USER LIBOL DISPATCH TABLE
	EXTERNAL	LIDSP.		;HIGH-SEG DISPATCH TABLE

	PRGEND
TITLE	LIDISP	LIBOL.SHR ADDRESS RESOLUTIONS

	SEARCH	LBLPRM,COMUNI

	%%COMU==:%%COMU
	%%LBLP==:%%LBLP

	MCS==:MCS

	ENTRY	LIDSP.
LIDSP.:

	;DEFINE DISPATCH TABLE ADDRESSES

	DISAD%

	END