Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
lnkini.c09
There is 1 other file named lnkini.c09 in the archive. Click here to see a list.
REP 2/1 ;09C1
SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN/PY/PAH 6-Jan-83
WIT
SUBTTL D.M.NIXON/DMN/RKH/SRM/JBC/JNG/DZN/PY/PAH/HD 12-Sept-84
REP 6/1 ;09C2
;COPYRIGHT (C) 1973, 1983 BY
WIT
;COPYRIGHT (C) 1973, 1984 BY
REP 38/1 ;09C3
DECEVR==2050 ;DEC EDIT VERSION
WIT
DECEVR==2075 ;DEC EDIT VERSION
REP 33/3 ;09C4
WIT
;2070 Check only right half of .JBERR - Conditionalize .SGNAM
;2075 Eliminate .SGNAM, .SGPPN, .SGDEV and add fatal error if GETTAB fails.
REP 10/4 ;09C5
MOVE R3,.SGNAM ;SAVE NAME OF INITIAL SEGMENT
WIT
;**;[2075] remove 3 lines of code at LINK:+4 9-Sept-84 HD
REP 14/4 ;09C6
SKIPE .JBERR ;[1744] ANY COMPILATION ERRORS?
JRST LOASUP ;[1744] YES THEN SUPPRESS LOADING
WIT
HRRZ T1,.JBERR ;[2070] get any compilation errors
JUMPG T1,LOASUP ;[2070] go suppress loading if any errors
REP 11/5 ;09C7
;NOW SET UP THE GETSEG BLOCKS FROM THE ARGUMENTS THE USER TYPED TO THE
;RUN COMMAND, WHICH ARE LEFT IN THE ACS. IF THE .GTR?? GETTABS ARE
;AVAILABLE, THE INFORMATION SET UP HERE WILL BE OVERWRITTEN. IF WE
;ARE RUNNING ON A PRE-7.01 MONITOR, HOWEVER, DOING THE GETSEG ON THE
;SAME ARGS THAT THE USER TYPED WILL MAXIMIZE OUR CHANCES OF FINDING THE
;OTHER SEGMENTS, ESPECIALLY IF SFDS ARE INVOLVED.
MOVEM .SGDEV,SEGBLK ;[1126] STORE DEVICE THE USER TYPED
MOVEM .SGDEV,ERRBLK ;[1126] AND A COPY FOR LNK999
MOVEM R3,FSTSEG ;SAVE SEGMENT NAME
MOVEM R3,SEGBLK+1 ;[600] ALSO FOR RESTART LOGIC
MOVEM .SGPPN,SEGBLK+4 ;AND PPN
MOVEM .SGPPN,ERRBLK+4
WIT
;**;[2075] remove 6 lines of code and comments at f1+26 9-Sept-84 HD
REP 6/6 ;09C8
JRST GETHSO ;CAN'T
SKIPN T1 ;THERE?
JRST GETHSO ;NO, GIVE UP
WIT
;**;[2075] replace 1 line at GETUFD+3 9-Sept-84 HD
JRST E$$GTF ;[2075] can't
SKIPN T1 ;THERE?
JRST GETHSO
REP 12/6 ;09C9
JRST GETHSO ;NOT THERE FORGET IT
SKIPN T1 ;AVAILABLE?
JRST GETHSO ;NOPE, DON'T USE THIS INFO
WIT
;**;[2075] replace 1 line at GETUFD+11 9-Sept-84 HD
JRST E$$GTF ;[2075] CAN'T
SKIPN T1 ;AVAILABLE?
;**;[2075] replace 1 line at GETUFD+13 9-Sept-84 HD
JRST E$$GTF ;[2075] NEED A DEVICE
REP 19/6 ;09C10
JRST GETHSO ;[1126] CAN'T, LEAVE WELL ENOUGH ALONE
SKIPN T1 ;[1126] RETURN ANYTHING?
JRST GETHSO ;[1126] NO, IGNORE IT
WIT
;**;[2075] replace 1 line at GETUFD+20 9-Sept-84 HD
JRST E$$GTF ;[2075] CAN'T
SKIPN T1 ;[1126] RETURN ANYTHING?
;**;[2075] replace 1 line at GETUFD+22 9-Sept-84 HD
JRST E$$GTF ;[2075] CAN'T
INS 12/19 ;09C11
E$$GTF: .OERR. [ASCIZ/?LNKGTF GETTAB failed while trying to get program information
/] ;[2075]
EXIT ;[2075]
REP 11/33 ;09C12
IFE FTSINGLE,<
MOVE .SGDEV,SEGBLK ;[600] SETUP ACS FOR INITIALIZATION
MOVE .SGNAM,SEGBLK+1 ;[600] ..
MOVE .SGPPN,SEGBLK+4 ;[600] ..
>
WIT
;**;[2075] remove 5 lines a START1 9-Sept-84 HD
SUM 226559