Google
 

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