ASMB,L,C
      HED COMPILER LIBRARY - GET MAIN MEMORY
* 
*************************************************************** 
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  ALL RIGHTS     * 
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE-  * 
* REPRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * 
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.   * 
*************************************************************** 
* 
*     SOURCE:  92064-18261
* 
* 
* 
      NAM GMS.C,7 92064-16089 780726 REV. 1901 $CLIB
      EXT LIMEM 
      ENT GMS.C 
* 
*  THIS COMPILER LIBRARY ROUTINE RETURNS THE FREE MEMORY BOUNDS FOR 
*  THE CURRENT SEGMENT OF A SEGMENTED PROGRAM.
* 
*       CALLING SEQUENCE:  JSB GMS.C
*                RETURNS:  A = FWAM 
*                          B = LWAM 
* 
* 
GMS.C NOP           ENTRY 
      JSB LIMEM     GET BOUNDS FROM SUP 
      DEF *+6 
      DEF ZERO
      DEF DUM 
      DEF DUM 
      DEF FWAM
      DEF NUMWD 
      CCB           COMPUTE LWAM
      ADB NUMWD     FROM NUMBER 
      ADB FWAM      AND DIMIT 
      LDA FWAM      FWAM TO A 
      JMP GMS.C,I   RETURN
* 
ZERO  NOP 
DUM   NOP 
FWAM  NOP 
NUMWD NOP 
A     EQU 0 
B     EQU 1 
      END 
                      