ASMB,R,L,C
*     NAME:   LIMEM 
*     SOURCE: 91740-18055 
*     RELOC:  91740-16055 
*     PGMR:   MIKE SCHOENDORF 
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  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 LIMEM,8 91740-16055 REV 1740 770912 
* 
* 
*  ENTRY POINT NAMES
* 
      ENT LIMEM 
* 
* 
*  EXTERNAL REFERENCE NAMES 
* 
      EXT DB#PC,LIST
* 
* 
*  THIS SUBROUTINE GETS AND RETURNS THE LAST AVAILABLE
*  WORD OF USER MEMORY AND THE NUMBER OF WORDS OF 
*  AVAILABLE MEMORY.
* 
* 
      SKP 
LIMEM NOP 
      LDA LIMEM,I   GET RETURN ADDRESS
      ISZ LIMEM 
      STA LIM2
      LDB LIMEM,I 
      ISZ LIMEM 
      LDB 1,I       GET AVAILABLE MEMORY? 
      SSB 
      JMP LIM2,I    NO, RELEASE MEMORY
      JSB DB#PC     FIND LONGEST SEGMENT
      DEF *+4       RETURN ADDRESS
      DEF LIST      # OF NAMES IN LIST
      DEF FWAMM     FWAM THAT MAY BE USED BY PROGRAM
      DEF LWAMM     LWA OF USER MEMORY
      LDA FWAMM     GET FWAM
      SZA,RSS       =0? 
      JMP ERRLM     YES, ERROR
      LDB LIMEM,I 
      ISZ LIMEM 
      STA 1,I       RETURN FWAM 
      CMA,INA 
      ADA LWAMM 
      INA 
ERRLM LDB LIMEM,I 
      STA 1,I       RETURN # WORDS OF AVAILABLE MEMORY
      JMP LIM2,I
* 
B6    OCT 6 
* 
FWAMM NOP 
LIM2  NOP 
LWAMM NOP 
      END 
                                                                                                                              