Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - lnkcor.c12
There are no other files named lnkcor.c12 in the archive.
 REP 2/1	;12C1
	SUBTTL	D.M.NIXON/DMN/JLd/JBC/JNG/DZN/PAH/PY/HD/JBS	31-Oct-83
 WIT
	SUBTTL	D.M.NIXON/DMN/JLd/JBC/JNG/DZN/PAH/PY/HD/JBS	20-May-85
 REP 6/1	;12C2
	;COPYRIGHT (C) 1974, 1983 BY
 WIT
	;COPYRIGHT (C) 1974, 1985 BY
 REP 43/1	;12C3
	DECEVR==2051		;DEC EDIT VERSION
 WIT
	DECEVR==2104		;DEC EDIT VERSION
 INS 28/3	;12C4
	;1275	Fix core management bug when expanding a zero length area with PAGE
 REP 24/4	;12C5

 WIT
	;2104 	Check lower widow limit before attempting symbol table fixup.
 INS 13/15	;12C6
	;**;[1275] Add 1 line after MOVPG1+5 Lines	PY 	28-Jan-81
		JUMPE	P2,MOVPG4	;[1275] DON'T MOVE IF AREA CONTAINS NO PAGES
 REP 33/15	;12C7
		SPOP	<P3,P2,P1>	;[650] RESTORE ACS USED
 WIT
	;**;[1275] Replace 1 Line a MOVPG3+10 Lines	PY	28-Jan-81
	MOVPG4:	SPOP	<P3,P2,P1>	;[650] RESTORE ACS USED
 INS 11/68	;12C8
		SUBI	T2,.L-1		;[2104] GET BACK LOWER ADDRESS
		CAMGE	T2,LW.LS	;[2104] IS IT ABOVE LOWER WINDOW BOUND?
		POPJ	P,		;[2104] NO - NOTHING TO DO THEN
		ADDI	T2,.L-1		;[2104] PUT T2 BACK TO HIGHEST LOC
 SUM 104995