Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
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 27-Feb-78
;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, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
.JBHSA==0 ;STARTING ADDRESS IN HIGH SEGMENT
.JBHDA==10 ;LENGTH OF VESTIGIAL JOBDATA AREA
SEARCH MACTEN,UUOSYM,LNKPAR
CUSTVR==0 ;CUSTMER VERSION
DECVER==4 ;DEC VERSION
DECMVR==0 ;DEC MINOR VERSION
DECEVR==765 ;DEC EDIT VERSION
SEGMENT
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)
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
OUTSTR [ASCIZ/%LNKLNS Low seg data base not same size/] ;[600]
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
END