Google
 

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - lnk572.cor
There are no other files named lnk572.cor in the archive.
-!LNKHST.MAC_LNKHST.MAC
-3,3
;SUBTTL	D.M.NIXON/DMN/JLd/RKH/JBC/JNG	20-Sep-76
-12,12
DECEVR==572		;DEC EDIT VERSION
-1091

;572	JNG	20-Sep-76	QAR EVS
;	Make sure LS addr in core before doing POLISH symbol fixup.
;	Routines: LNKLOD,LNKOLD
-!LNKLOD.MAC_LNKLOD.MAC
-2,2
SUBTTL	D.M.NIXON/DMN/JLd/JBC/RKH/JNG	20-Sep-76
-16,16
DECEVR==572		;DEC EDIT VERSION
-133
;572	Make sure LS addr in core before doing fixups
-1095,1095
;**;[572] Change @ SYSTF3+1P3L	JNG	20-Sep-76
	MOVE	W3,2(P1)	;[572] AND FIXUP VALUE
-1149,1149
;**;[572] Replace @ SYSTFL+8L	JNG	20-Sep-76
	HRRZ	T2,W3		;[572] GET RELATIVE LS ADDRESS
	JUMPE	T2,CPOPJ	;[572] GIVE UP IF NONE
	CAML	T2,LW.LS	;[572] IS IT STILL IN CORE?
-1150:	IORM	T4,0(T1)	;[543] YES, SET MULTIPLY DEFINED
-1154,1154
;**;[572] Delete @ SYSTF4+1L	JNG	20-Sep-76
-1168,1168
;**;[572] Change @ SYSTF4+15L	JNG	20-Sep-76
	MOVE	W3,2(P1)	;[572] W3 IS ADDITIVE DEFINITION
-!LNKOLD.MAC_LNKOLD.MAC
-2,2
SUBTTL	D.M.NIXON/DMN/JLd/RKH/JBC/JNG	20-Sep-76
-16,16
DECEVR==572		;DEC EDIT VERSION
-140
;572	Make sure LS addr in core before doing POLISH symbol fixup
-2606,2609
;**;[572] Delete @ T.11ST+3L	JNG	20-Sep-76
	ILDB	T2,W2		;[572]  GET CORE ADDR OR GS POINTER
-2639,2639
-2640:;T2 = ADDRESS OF SYMBOL IN GLOBAL TABLE
-2643,2656
;W1 = FIXUP FLAGS

;**;[572] Delete @ T11SYR	JNG	20-Sep-76
T11SYR:	MOVX	W1,FS.FXR	;[445]
	JRST	SY.ASP		;[445] AND DO FIXUP

T11SYL:	MOVX	W1,FS.FXL	;[445]
	JRST	SY.ASP		;[445]

T11SYF:	MOVX	W1,FS.FXF	;[445]
;	JRST	SY.ASP		;[445]

;HERE TO STORE SYMBOL TABLE FIXUP
SY.ASP:	ILDB	T1,W2		;[572] PICK UP LOCAL POINTER
	HRL	T1,T2		;[572] FORM STANDARD GLOBAL,,LOCAL
	PUSH	P,T1		;[572] SAVE OVER GS.GET
	MOVEI	T2,.L		;[572] SET UP FAKE DEFINING TRIPLET
	PUSHJ	P,GS.GET##	;[572]   IN GS AREA SO CAN USE SY.STF
	MOVE	P1,T1		;[572] P1=ADDR OF FAKE DEFINING TRIPLET
	MOVX	T1,PT.SGN!PT.SYM!PS.GLB	;[572] SOME GOOD FLAGS
	MOVEM	T1,0(P1)	;[572] SET IN TRIPLET
				;[572] LEAVE NAME BLANK TO CATCH ERRORS
	MOVEM	W3,2(P1)	;[572] STORE POLISH RESULT AS VALUE
	POP	P,W3		;[572] W1=FLAGS, W3=PTR, P1=DEF. TRPLET
	PUSHJ	P,SY.STF##	;[572] DO ALL NECESSARY SYMBOL FIXUPS
	MOVE	T1,P1		;[572] NOW RETURN FAKE BLOCK
	MOVEI	T2,.L		;[572] T1=ADDR, T2=LENGTH
	PJRST	GS.RET##	;[572] FREE IT UP AND RETURN
-2661,2669
;**;[572] Delete T11STF routine	JNG	20-Sep-76
-2701,2736
;**;[572] Delete SY.ASP routine	JNG	20-Sep-76