Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-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