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-18258 
* 
* 
* 
        NAM GMM.C,7 92064-16089 780921 REV. 1901 $CLIB
      EXT LIMEM 
        ENT GMM.C 
* 
*  THIS COMPILER LIBRARY ROUTINE SCANS THE CALLER-PROVIDED SEGMENTS'
*  ID SEGMENTS AND RETURNS THE AMOUNT OF MAIN MEMORY BETWEEN THE
*  HIGHEST USED AND THE END OF MAIN MEMORY.  THIS IS THE AREA THAT
*  MAY BE USED AS SYMBOL TABLE AREA BY THE CALLER.
* 
*       CALLING SEQUENCE:  JSB GMM.C
*                          DEF #SEGS     NUMBER OF SEGMENTS 
*                          DEF <ENTRY>   ENTRY POINT OF A ROUTINE WHICH 
*                                        HAS THE FOLLOWING CALLING SEQUENCE:
*                RETURNS:  A = FWAM 
*                          B = LWAM 
* 
* 
*                          JSB <ENTRY>
*                          DEF SEG#      SEGMENT NUMBER  (POSITIVE) 
*                                          SEG# < #SEGS 
* 
*                RETURNS:  B = ADDRESS OF THE REFERENCED SEGMENT'S
*                              (SEG#) NAME (5 CHARACTERS) 
* 
*      DEF <ENTRY>  not reqd if #SEGS is zero 
* 
GMM.C NOP           ENTRY 
      JSB LIMEM     GET DATA FROM SUP 
      DEF *+4 
      DEF NSEG      JUST A ZERO 
      DEF CMIN
      DEF ENTRY 
      CCB           COMPUTE THE LWAM
      ADB ENTRY 
      ADB CMIN      FROM THE # OF WORDS AND ORG 
      ISZ GMM.C     STEP RETURN ADDRESS 
      XIF 
      LDA CMIN      A=FWAM
      ISZ GMM.C 
      JMP GMM.C,I   EXIT
* 
BKLWA EQU 1777B 
A     EQU 0 
B     EQU 1 
CMIN  NOP 
ENTRY NOP 
NSEG  NOP 
      END 
              