*DECK DB$MLDV 
          IDENT  DB$MLDV
          COMMENT LOAD OVERLAYS FOR MASTER DIRECTORY UTILITY
          TITLE  DB$MLDV -- LOAD OVERLAYS FOR MASTER DIRECTORY UTILITY
          ENTRY  DB$FOLE
          ENTRY  DB.MABT
  
*#
* *   DB$MLDV -- OVERLAY LINKAGES FOR DBMSTRD    PAGE  1
*CALL LOADOVL 
*CALL LOADOVLE
          SPACE  5,8
*         OVERLAY ENTRY POINT LIST
  
DB$M10E   OVENT  DB$M10M,1,0
DB$M20E   OVENT  DB$M20M,2,0
DB$M30E   OVENT  DB$M30M,3,0
DB$M40E   OVENT  DB$M40M,4,0
DB=MABT   OVENT  DB$MABT,5,0
  
  
  
************************************************************************
*                                                                      *
*     E M B E D D E D   P R O C E D U R E   -   D B . M A B T .        *
*                                                                      *
************************************************************************
  
*#
* *   DB.MABT - LINKAGE TO DB$MABT               PAGE  1
* *   BOB MCALLESTER                             DATE  03/30/84 
* 
* DC  PURPOSE 
* 
*     SAVE PARAMETERS IN THE 0,0 OVERLAY WHERE THEY CAN BE ACCESSED 
*     BY DB$MABT EVEN THOUGH IT OVERLAYS THE THE CALLING PROCEDURE. 
* 
* DC  ENTRY CONDITIONS
* 
* D   PARAMETERS
* 
*     SEE DB$MABT 
* 
* DC  EXIT CONDITIONS 
* 
*     DB$MABT ABORTS.  THERE IS NO EXIT.
* 
* DC  CALLING ROUTINES
* 
*     CALLED IN LIEU OF DB$MABT THROUGH A "BECOMES" SUBSTITUTION
*     THAT IS SPECIFIED IN SKELETON.
* 
* DC  CALLED ROUTINES 
* 
*     DB=MABT WHICH LOADS AND EXECUTES DB$MABT. 
* 
* DC  DESCRIPTION 
* 
*     SAVE THE PARAMETERS AND CALL DB$MABT. 
*#
  
*         LOCAL VARIABLES 
  
 PARAM1   CON    0           FIRST PARAMETER
 PARAM2   CON    0           SECOND PARAMETER 
 APLIST   CON    PARAM1      PARAMETER POINTER LIST 
          CON    PARAM2 
  
  
  
*     B E G I N   D B . M A B T   E X E C U T A B L E   C O D E . 
  
  
 DB.MABT  EQ   *+1S17 
*                            (X1) = LOCATION OF FIRST PARAMETER 
          SA2    A1+1        (X2) = LOCATION OF SECOND PARAMETER
          SA3    X1          (X3) = FIRST PARAMETER 
          SA4    X2          (X4) = SECOND PARAMETER
          BX6    X3 
          BX7    X4 
          SA6    PARAM1 
          SA7    PARAM2 
          SA1    APLIST 
          RJ     DB=MABT     CALL DB$MABT VIA DB=MABT 
  
          EQ   *+1S17        ABORT IF DB$MABT RETURNS 
  
  
          END 
