Google
 

Trailing-Edge - PDP-10 Archives - cobol12c - 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

	SEARCH	COPYRT
	SALL

;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1975, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE.

;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
	SEARCH	COPYRT

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

	MCS==:MCS

	ENTRY	LIDSP.
LIDSP.:

	;DEFINE DISPATCH TABLE ADDRESSES

	DISAD%

	.COPYRIGHT		;Put standard copyright statement in REL file

	END