ASMB,R,L
*     NAME  : $MDBU 
*     SOURCE: 92064-18035 
*     RELOC:  PART OF 92064-16013 
*     PROGMR: E.J.W.
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976.  ALL RIGHTS      * 
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,       * 
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT * 
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.        * 
*  **************************************************************** 
* 
* 
      NAM $MDBU,0  92064-16013  REV.1650  761020
      ENT $QCHK,$ALC,$RTN 
      EXT $WORK 
* 
$ALC  JMP $WORK     DO NOTHING ON INITIALIZATION
      ISZ $ALC
      CCA           (A) = -1 FOR NO MEMORY EVER 
      CLB           (B) =  0 FOR MAXIMUM MEMORY = 0 
      JMP $ALC,I    RETURN
* 
$RTN  NOP           DO NOTHING ON MEMORY BLOCK RETURN 
      ISZ $RTN
      ISZ $RTN
      JMP $RTN,I    RETURN
* 
$QCHK NOP 
      ISZ $QCHK     NO OVERFLOW, RETURN OK
      JMP $QCHK,I   RETURN
* 
      BSS 0         SIZE OF MODULE
      END 
                                                                                                                                                                            