*DECK DBP$X0
          IDENT  DBP$X0 
 DBP$X0   TITLE  DATABASE PROCEDURE INTERFACE FOR THE (X,0) OVERLAY 
          COMMENT  DATABASE PROCEDURE INTERFACE FOR (X,0) OVERLAYS
          SPACE  3
 LINK     MACRO  EP,CEP 
* PATCHES IN THE ENTRY POINT ADDRESSES TO THE CALLING ENTRY POINT.
* ASSUMES THAT CEP+1 HAS A RIGHT JUSTIFIED -RJ- WHOSE ADDRESS WILL BE 
* REPLACED, THIS CORRESPONDS TO THE PRELINK MACRO IN DBP$00.
* THIS ASSUMES THAT X0 CONTAINS A LEFT-JUSTIFIED 42 BIT MASK. 
          SA1    =X_CEP+1 
          SX6    =X_EP
          BX1    X0*X1
          BX6    X6+X1
          SA6    A1 
          ENDM
          EJECT 
***       DBP$LNK                  DATABASE PROCEDURE LINKAGE ROUTINE 
*                                  IT PATCHES IN ADDRESSES OF CRM PROCS 
*                                  IN THIS OVERLAY. ALSO PATCHES IN TRAP
*                                  ADDRESSES, SETS UP ENTRY POINTS IN 
*                                  DBP$00 TO CALL THE X,0 CRM PROCS.
*         ENTRY              NONE 
* 
*         EXIT               APPROPRIATE LINKAGES SET UP
          SPACE  3
          ENTRY  DBP$LNK
 DBP$LNK  JP     *+1S17 
          MX0    42                FORM MASK FOR LINK MACRO 
          LINK   GET,Q$GET
          LINK   GETN,Q$GETN
          LINK   PUT,Q$PUT
          LINK   REPLC,Q$REPLC
          LINK   DLTE,Q$DLTE
          LINK   CLOSEM,Q$CLOSE 
          LINK   OPENM,Q$OPEN 
          LINK   FILEIS,Q$FIS 
          LINK   FILEDA,Q$FDA 
          LINK   FILESQ,Q$FSQ 
          LINK   FILEAK,Q$FAK 
          LINK   STARTM,Q$START 
          LINK   STOREF,Q$STORE 
          LINK   IFETCH,Q$FETCH 
          LINK   REWND,Q$REWND
          RJ     CLR.INS           CLEAR INSTRUCTION STACK
 CLR.INS  DATA   0
          EQ     DBP$LNK
          END 
