Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - lnkxit.c08
There is 1 other file named lnkxit.c08 in the archive. Click here to see a list.
 REP 2/1	;08C1
	SUBTTL	D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN/MFB/PAH/PY/HD/JBS 1-Nov-83
 WIT
	SUBTTL	D.M.NIXON/DMN/JLd/RKH/JBC/JNG/MCHC/DZN/MFB/PAH/PY/HD/JBS 7-May-84
 REP 38/1	;08C2
	DECEVR==2052		;DEC EDIT VERSION
 WIT
	DECEVR==2066		;DEC EDIT VERSION
 INS 97/6	;08C3
	;2054	Keep the LS overflow area on TOPS-20 if it is still mapped.
	;2055	Put the count in T2 before calling DY.GET.
	;2056	Print LNKXCT message when executing prog in non-zero section.
	;2060	Save the PPN and PATH info for the RUN UUO in RUNEX2
	;2061	Fix typo in 2060
	;2066	Fix 2060 to get PPN properly and check for [0,0]
 DEL 9/9	;08C4
	;**;[2032] Replace at LNKX0D		PY	3-Feb-82
 DEL 28/9	;08C5
	;**;[2032] Insert after LNKX0D+9 Lines	PY	3-Feb-82
 DEL 44/9	;08C6
	;**;[2032] Insert before LNKX0E		PY	3-Feb-82
 INS 15/10	;08C7
	IFE TOPS20,<			;[2054]
 INS 31/10	;08C8
	> ;[2054] IFE TOPS20
 DEL 38/10	;08C9
	;;[1423]; Insert two lines at RDJBDA. PAH  4-May-81
 REP 16/15	;08C10
		MOVEI	T1,3*.IPS	;[1401] 3*.IPS INSURES ONE FULL PAGE
 WIT
		MOVEI	T2,3*.IPS	;[2055] 3*.IPS INSURES ONE FULL PAGE
 DEL 11/30	;08C11
	;**;[2040] Insert 2 lines after SYMINI+6 lines	PY	13-Apr-83
 REP 17/53	;08C12
		SKIPE	EXECSW		;[1460] START IT?
		MOVEI	P1,%SS2		;[1460] YES
		SKIPN	R2,THSTRT	;[1450] START ADDR?
 WIT
		SKIPN	EXECSW		;[2056] START IT?
		 JRST	XNOMES		;[2056] NO
		SKIPE	THSTRT		;[2056] IS THERE A START ADDR?
		 PUSHJ	P,EXEMES	;[2056] YES, ANNOUNCE THAT WE'RE EXECUTING
		MOVEI	P1,%SS2		;[2056] NO, DON'T SAY ANYTHING
	XNOMES:	SKIPN	R2,THSTRT	;[2056] START ADDR?
 DEL 31/72	;08C13
	;**;[2043] Add after JBEXE1		HD	12-Jul-83
 DEL 10/76	;08C14
	;**;[2034] Remove 2 Lines at XCMLUP+4 Lines	PY	17-Feb-83
 DEL 35/78	;08C15
	;**;[2034] Remove 14 Lines at XCMADP+2 Lines	PY	17-Feb-83

 REP 7/102	;08C16
		MOVE	T1,[POINT 7,RUNSPC] ;[1144] BUILD TOPS-20 FILE SPEC OF .EXE FILE
 WIT
		MOVE	T1,[POINT 7,RUNSPC] ;[1144] BUILD TOPS-20 FILE SPEC OF EXE FILE
 REP 38/102	;08C17
		MOVE	T1,LODNAM	;[1144]   ..
		SETNM			;[1144]   ..
		SKIPN	DDTMAP		;[1144] SEE IF /DEB:DDT SPECIFIED
		JRST	RUNEX3		;[1144] NO--DON'T SET UP SYMBOL TABLE PTRS
		MOVE	T1,JOB116	;[1144] YES--FORCE-FEED SYMBOL TABLE PTRS TO DDT
		MOVEM	T1,@770001	;[1144]   AT LAST MINUTE FOR LINK DEBUGGERS
		MOVE	T1,JOB117	;[1144]   ..
		MOVEM	T1,@770002	;[1144]   ..
	RUNEX3:	MOVE	R%17,[ACS,,R%0]	;[1144] COPY POKED CODE TO ACS
		BLT	R%17,R%17	;[1144]   ..
 WIT
		MOVE	T1,LODNAM	;[1144]
		SETNM			;[1144]
		SKIPN	DDTMAP		;[1144] SEE IF /DEB:DDT SPECIFIED
		JRST	RUNEX3		;[1144] NO--DON'T SET UP SYMBOL TABLE PTRS
		MOVE	T1,JOB116	;[1144] YES, FORCE-FEED SYM TABLE PTRS TO DDT
		MOVEM	T1,@770001	;[1144]   AT LAST MINUTE FOR LINK DEBUGGERS
		MOVE	T1,JOB117	;[1144]
		MOVEM	T1,@770002	;[1144]
	RUNEX3:	MOVE	R%17,[ACS,,R%0]	;[1144] COPY POKED CODE TO ACS
		BLT	R%17,R%17	;[1144]
 INS 15/104	;08C18
		SKIPN	T2,I.PPN(T1)	;[2066] SET UP PPN - DEFAULT?
		 JRST	RUNEX9		;[2066] YES, USE IT
		TLNN	T2,-1		;[2066] IS THERE A PATH BLOCK?
		 PUSHJ	P,SETPTH	;[2060]	YES, SET IT UP
	RUNEX9:	MOVEM	T2,U%RUNB+4	;[2066] PUT IT IN RUN BLOCK
 INS 37/104	;08C19
	SETPTH:	HRL	T1,T2		;[2061] SET START ADDR OF PATH BLOCK FOR BLT
		HRRI	T1,U%PTH	;[2060] DEST ADDR FOR BLT
		BLT	T1,<U%PTH+<LN.IO-1>> ;[2060] MOVE IT WHERE IT WILL BE SAVE 
		MOVEI	T2,U%PTH	;[2060]	ADDRESS FOR RUN BLOCK
		POPJ	P,
 INS 16/105	;08C20
	U%PTH:	BLOCK LN.IO		;[2060]	PATH BLOCK
 DEL 55/113	;08C21
	;**;[2035] Replace at JBGMV0+27 Lines	PY	17-Feb-83
 SUM 155762