ASMB,R,L,C    ** LIMEM ** 
      HED LIMEM - MEMORY LIMITS 
*     NAME:   LIMEM 
*     SOURCE: 92067-18256 
*     RELOC:  PART OF 92067-16035 
*     PGMR:   S.K.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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.       *
*  ***************************************************************
* 
* 
*  LIMEM RETURNS THE FIRST WORD OF AVAILABLE MEMORY (IF SEGMENTED 
*  PROGRAM, IT IS HIGH WORD LARGEST SEGMENT + 1) AND THE NUMBER 
*  OF WORDS IN AVAILABLE MEMORY UPTO THE END OF PROGRAM PARTITION 
* 
*  CALLING SEQUENCE:  CALL LIMEM(IWHCH,IFWAM,IWRDS) 
*  WHERE:  IF IWHCH IS < 0 THEN JUST RETURN,  IFWAM,IWRDS ARE 
*          MEANINGLESS. 
*          IF IWHCH IS >= 0 THEN LIMEM RETURNS: 
*               IFWAM = FIRST WORD OF AVAILABLE MEMORY
*               IWRDS = NUMBER OF WORDS IN AVAILABLE MEMORY 
* 
* 
* 
      NAM LIMEM,7 92067-16035 REV.1913 790126 
      ENT LIMEM 
* 
      EXT EXEC,.ENTR
* 
IWHCH NOP 
IFWAM NOP 
IWRDS NOP 
* 
LIMEM NOP 
      JSB .ENTR     GET PARAMETERS
      DEF IWHCH 
      LDA IWHCH,I 
      SSA           GET MEMORY LIMITS?
      JMP LIMEM,I   NO, RETURN
* 
      JSB EXEC
      DEF *+5 
      DEF .26       GET LIMITS
      DEF IFWAM,I   FIRST WORD OF AVAIL MEM 
      DEF IWRDS,I   # OF WORDS
      DEF IWHCH     # OF PAGES
      JMP LIMEM,I   RETURN
* 
.26   DEC 26
      END 
                                                                                                                                                