Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
lnknew.c09
There is 1 other file named lnknew.c09 in the archive. Click here to see a list.
REP 2/1 ;09C1
SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG/DZN/PAH/PY 27-Jan-83
WIT
SUBTTL D.M.NIXON/DMN/JLd/TXR/JNG/DZN/PAH/PY 20-Jul-83
REP 36/1 ;09C2
DECEVR==2031 ;DEC EDIT VERSION
WIT
DECEVR==2073 ;DEC EDIT VERSION
INS 94/2 ;09C3
;2072 Skip unused byte when relocating the address in type 102X blocks.
;2073 Add contents of WRTDAT, not address of WRTDAT in WRTPTR.
REP 19/24 ;09C4
DEFINE NEWBLK(RBSIZ,RBNUM,RELTYP)<
MOVE P1,[POINT RBSIZ,RB,-1] ;;HOW TO ACCESS RELOC BYTES
WIT
;**;[2072] Replace 2 lines at T1004Z+25L. PAH 19-Jul-84
DEFINE NEWBLK(RBSIZ,RBNUM,RELTYP,ROFF<0>)< ;;[2072]
MOVE P1,[POINT RBSIZ,RB,<RBSIZ*ROFF>-1] ;;[2072]
REP 21/25 ;09C5
T.1020::
NEWBLK(2,^D9,RLADD) ;[1405]
T.1021::
NEWBLK(3,6,RLADD) ;[1405]
T.1022::
NEWBLK(6,3,RLADD) ;[1405]
T.1023::
NEWBLK(9,2,RLADD) ;[1405]
WIT
T.1020::
;**;[2072] Change 1 line at T.1020+1. PAH 19-Jul-84
NEWBLK(2,^D9,RLADD,1) ;[2072]
T.1021::
;**;[2072] Change 1 line at T.1021+1. PAH 19-Jul-84
NEWBLK(3,6,RLADD,1) ;[2072]
T.1022::
;**;[2072] Change 1 line at T.1022+1. PAH 19-Jul-84
NEWBLK(6,3,RLADD,1) ;[2072]
T.1023::
;**;[2072] Change 1 line at T.1023+1. PAH 19-Jul-84
NEWBLK(9,2,RLADD,1) ;[2072]
REP 67/27 ;09C6
HLRM T1,W1 ;[1405] RELOCATED LEFT HALF
WIT
;**;[2072] Change 1 line at RLADD+8L. PAH 19-Jul-84
HRLM T1,W1 ;[2072] RELOCATED LEFT HALF
REP 70/31 ;09C7
ADD T1,[POINT 2,@WRTDAT,35] ;[1704] ADD TEMPLATE BYTE POINTER TO ADDR
WIT
;**;[2073] Replace after WRTPTR+1 Line PY 20-Jul-84
ADD T1,WRTDAT ;[2073] ADD BASE ADDRESS
HRLI T1,(POINT 2,0,35) ;[2073] ADD TEMPLATE BYTE POINTER
SUM 115184