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