Trailing-Edge
-
PDP-10 Archives
-
CFS_TSU04_19910205_1of1
-
update/dbmall/xdbind.fix
There is 1 other file named xdbind.fix in the archive. Click here to see a list.
;**************************************************************************
;
; This patch puts hooks in DBBIND so that XDML can receive certain
; information during the BIND process.
; It should be replaced with code in DBBIND that will call
; out to hooks whose addresses are in XSTAT.
;
;**************************************************************************
.EDIT XDBIND
.DATE 1-Jun-84
.MODULE DBBIND
.INSERT SR.WIN+1,AFTER,<PUSHJ P,WINWAL>
PUSH P,16 ; SAVE <AP>
MOVEI 16,[-2,,0
7
11]+1
PUSHJ P,$RL.PX## ; FUNCT $RL.PX,<CRU,OIC>
POP P,16 ; RESTOR <AP>
.ENDI
.INSERT RDLOOP+41,AFTER,<HRRM 13,0(12)>
PUSH P,16 ; SAVE <AP>
MOVEI 16,[-3,,0
7
13
11]+1
PUSHJ P,$DL.PX## ; FUNCT $DL.PX,<CRU,CIC,OIC>
POP P,16 ; RESTOR <AP>
.ENDI
.INSERT ROLOOP+33,AFTER,<MOVEM 11,6(13)>
PUSH P,16 ; SAVE <AP>
MOVEI 16,[-2,,0
7
13]+1
PUSHJ P,$OL.PX## ; FUNCT $OL.PX,<CRU,CIC>
POP P,16 ; RESTOR <AP>
.ENDI
.INSERT YBLK1+1,AFTER,<MOVEM 13,4(11)>
PUSH P,16 ; SAVE <AP>
MOVEI 16,[-3,,0
7
13
11]+1
PUSHJ P,$YL.PX## ; FUNCT $YL.PX,<CRU,CIC,OIC>
POP P,16 ; RESTOR <AP>
.ENDI
.INSERT OMLOOP+43,AFTER,<HRLM 2,0(12)>
PUSH P,16 ; SAVE <AP>
MOVEI 16,[-2,,0
7
13]+1
PUSHJ P,$ML.PX## ; FUNCT $ML.PX,<CRU,CIC>
POP P,16 ; RESTOR <AP>
.ENDI
.MODULE AR.WAL
;[1137] CHANGE SALOOP+50 TO AW.EX-2
.INSERT AW.EX-2,AFTER,<HRRM 13,0(10)>
PUSH P,16 ; SAVE <AP>
MOVEI 16,[-2,,0
7
13]+1
PUSHJ P,$AL.PX## ; FUNCT $AL.PX,<CRU,CIC>
POP P,16 ; RESTOR <AP>
.ENDI
.MODULE TRN.WA
.INSERT TKL.EX,BEFORE,<HLRZ 1,1(11)>
PUSH P,16 ; SAVE <AP>
MOVEI 16,[-2,,0
7
11]+1
PUSHJ P,$EL.PX## ; FUNCT $EL.PX,<CRU,OIC>
POP P,16 ; RESTOR <AP>
.ENDI
.ENDE