*DECK DB$MOE
          IDENT  DB$MOE 
*#
* *   DB$MPOE -- PUSH OVERFLOW ACTION FUNC       PAGE  1
* 
* DC  PARAMETERS
* 
*     DB$MPOE( TRIGGER , CONTG-WRD-TRIG , SUBRT ) 
* 
*         TRIGGER = FLOATING POINT VALUE 0 TO 1 REPRESENTING
*                   TRIGGER VALUE 
*         CONTIG-WRD-TRIG = A POSITIVE, NON ZERO INTEGER REPRESENTING 
*                           THE MAXIMUM NUMBER OF FREE CONTIGUOUS WORDS 
*                           AVAILABLE 
*         SUBROUTINE = SUBROUTINE TO BE CALLED WHEN MEMORY
*                      UTILIZED IS PAST TRIGGER VALUE 
* 
* DC  PURPOSE 
* 
*         CALLS CMM.POE 
*#
          ENTRY  DB$MPOE
DB$MPOE   EQ   *+1S17 
          SA2    X1          (X2) = TRIGGER VALUE 
          SA4    A1+2        (X4) = ADDRESS OF SUBROUTINE 
          SA3    A1+1        (X3) = CONTIGUOUS WORDS AVAILABLE
          SA3    X3 
          RJ     =XCMM.POE
          BX6    X1          (X6) = STACK OVERFLOW ENTRY ID 
          EQ   DB$MPOE
*#
* *   DB$MDOE -- DELETE OVERFLOW ACTION SUBRT    PAGE  1
* 
* DC  PARAMETER 
* 
*         ENTRYID = ENTRY ID WHICH FUNCTION DB$MSOA RETURNED WHEN 
*                   SUBROUTINE WAS STACKED
* 
* DC  PURPOSE 
* 
*         CALLS CMM.DOE 
*         RETURNS STACK OVERFLOW ENTRY ID 
*#
          ENTRY  DB$MDOE
DB$MDOE   EQ   *+1S17 
          SA1    X1 
          RJ     =XCMM.DOE
          EQ   DB$MDOE
          END 
