*DECK DB$MV 
          IDENT  DB$MV
*#
* *   DB$MV--CMM VAR POS INTERFACE ROUTINES      PAGE  1
* *   C O GIMBER                                 DATE  10/6/75
* 
* DC  PURPOSE 
* 
*     TO INTERFACE WITH CMM VARIABLE POSITION ROUTINES. 
* 
* DC  ENTRY CONDITIONS, EXIT CONDITIONS, AND CALLED ROUTINES. 
*#
  
*#
* 
* D   DB$MV1A(SIZE,POINTER) -- CREATE VARYING POSITION TYPE 1 BLOCK 
*                           -- MAY GROW OR SHRINK AT LWA
* 
*         SIZE = SIZE OF BLOCK. 
*         POINTER = SUPPLIED BLOCK POINTER
*                   PASSED IN SYMPL AS P<BLOCK> 
*         CALLS CMM.ALV 
*#
          ENTRY  DB$MV1A
DB$MV1A   EQ   *+1S17 
          SA4    A1+1        (X4) = BLOCK POINTER (AUX1)
          SA2    X1          (X2) = SIZE OF BLOCK 
          SX3    301B        (X3) = SIZE AND TYPE CODES 
          RJ     =XCMM.ALV
          EQ     DB$MV1A
*#
* 
* D   DB$MV2A(SIZE,SUBROUTINE) -- CREATE VARYING POSITION TYPE 2 BLOCK
*                              -- MAY GROW OR SHRINK AT LWA 
* 
*         SIZE = SIZE OF BLOCK. 
*         SUBROUTINE = SUPPLIED POINTER MAINTENANCE SUBROUTINE
*         CALLS CMM.ALV 
*#
          ENTRY  DB$MV2A
DB$MV2A   EQ   *+1S17 
          SA4    A1+1        (X4) = POINTER MAINTENANCE SUBROUTINE
          SA2    X1          (X2) = SIZE OF BLOCK 
          SX3    302B        (X3) = SIZE AND TYPE CODES 
          RJ     =XCMM.ALV
          EQ     DB$MV2A
*#
* 
* D   DB$MVF(FWA) -- FREE VARYING POSITION BLOCK
* 
*         FWA = FWA OF BLOCK TO BE FREED
*         CALLS CMM.FRV 
*#
          ENTRY  DB$MVF 
DB$MVF    EQ   *+1S17 
          SA1    X1          (X1) = FWA OF BLOCK TO BE FREED
          RJ     =XCMM.FRV
          EQ     DB$MVF 
*#
* 
* D   DB$MVG(FWA,WORDS) -- GROW VARYING POSITION AT LWA 
* 
*         FWA = FWA OF BLOCK TO GROW
*         WORDS = NUMBER OF WORDS TO ADD TO BLOCK AT LWA
*         CALLS CMM.GLV 
*#
          ENTRY  DB$MVG 
DB$MVG    EQ   *+1S17 
          SA2    A1+1 
          SA1    X1          (X1) = FWA OF BLOCK TO GROW
          SA2    X2          (X2) = NUMBER OF WORDS 
          RJ     =XCMM.GLV
          EQ     DB$MVG 
*#
* 
* D   DB$MVS(FWA,WORDS) -- SHRINK VARYING POSITION BLOCK AT LWA 
* 
*         FWA = FWA OF BLOCK TO SHRINK
*         WORDS = NUMBER OF WORDS TO REMOVE FROM BLOCK AT LWA 
*         CALLS CMM.SLV 
*#
          ENTRY  DB$MVS 
DB$MVS    EQ   *+1S17 
          SA2    A1+1 
          SA1    X1          (X1) = FWA OF BLOCK TO SHRINK
          SA2    X2          (X2) = NUMBER OF WORDS 
          RJ     =XCMM.SLV
          EQ     DB$MVS 
          END 
