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:  92060-18066 
* 
* 
* 
      NAM GMS.C,7 92060-16103 781006 REV. 1901 $CLIB
      EXT COR.A,ID.AD 
      EXT C.OLY     ADDRESS OF LAST SEGMENT LOADED
* 
      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 
      LDB C.OLY     GET THE ADDRESS OF THE CURRENT OVERLAY
      JSB ID.AD     TRANSLATE TO  AN ID SEGMENT ADDRESS 
      LDA B         PUT IN A
      SZA,RSS       IF NONE 
      LDA XEQT      USE THE MAIN
      JSB COR.A     GET THE FWAM TO A 
      LDB BKLWA                 B=LWAM
      JMP GMS.C,I   EXIT
* 
BKLWA EQU 1777B 
XEQT  EQU 1717B 
A     EQU 0 
B     EQU 1 
      END 
                                                                                                                                                                                                                    