Trailing-Edge
-
PDP-10 Archives
-
BB-H506E-SM
-
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
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