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