;**************************************************************************
;
;	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