Google
 

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