Trailing-Edge
-
PDP-10 Archives
-
FORTRAN-10_V7wLink_Feb83
-
lnkexo.mac
There are 5 other files named lnkexo.mac in the archive. Click here to see a list.
TITLE LNKEXO - PORTAL ENTRY FOR EXECUTE ONLY
SUBTTL D.M.NIXON/DMN/JBC/JNG/DZN/PAH 11-Jan-83
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1973, 1983 BY DIGITAL EQUIPMENT CORPORATION
SEARCH MACTEN,UUOSYM,LNKPAR
SALL
CUSTVR==0 ;CUSTMER VERSION
DECVER==5 ;DEC VERSION
DECMVR==1 ;DEC MINOR VERSION
DECEVR==2026 ;DEC EDIT VERSION
SEGMENT
.JBHSA==0 ;STARTING ADDRESS IN HIGH SEGMENT
.JBHDA==10 ;LENGTH OF VESTIGIAL JOBDATA AREA
SUBTTL REVISION HISTORY
;START OF VERSION 1A
;131 CHANGE ORDER OF VECTOR FOR 5.07 MONITOR
;START OF VERSION 2A
;230 ADD CHECK THAT LOW SEG DATA BASE IS SAME SIZE IN ALL SEGMENTS
;START OF VERSION 2B
;355 LABEL EDIT 230
;363 UPDATE MINOR VERSION #
;START OF VERSION 3A
;560 Release on both TOPS-10 and TOPS-20 as LINK version 3A(560)
;START OF VERSION 4
;600 Correct the LNKLNS message (delete initial tab).
;731 SEARCH MACTEN,UUOSYM
;765 Release on both TOPS-10 and TOPS-20 as LINK version 4(765)
;START OF VERSION 4A
;1174 Label and clean up all error messages.
;1217 Clean up the listings for release.
;1220 Release on both TOPS-10 and TOPS-20 as version 4A(1220).
;Start of Version 5.1
;2026 Update copyright statement.
SUBTTL HERE FOR EXECUTE ONLY ENTRY
;THIS ROUTINE MUST BE AT %HISEG (400000 USUALLY) PLUS .JBHDA
;ENTRIES ARE
; UUO ENTRY
; CPOPJ RETURN
; SEGMENT START
;ENTER WITH T1 = OFFSET (ON START ONLY)
; T2 = HIGH SEG ORIGIN+.JBHDA
; T3 = TOP OF LOW SEG DATA BASE
PORTAL LNKLOG## ;UUO ENTRY
PORTAL [POPJ P,] ;CPOPJ RETURN
PORTAL .+1
CAIE T3,EZCOR## ;SEE IF SAME SIZE
E$$LNS::.OERR. [ASCIZ /%LNKLNS Low segment data base not same size/] ;[1174]
SKIPE T3,-.JBHDA+.JBHSM(T2) ;[600] MONITOR BUG
MOVEM T3,.JBSYM ;[600] DOES NOT SET THIS UP
ADD T1,-.JBHDA+.JBHSA(T2) ;START ADDRESS
JRST (T1) ;START AT NORMAL OR CCL
SUBTTL THE END
END