ASMB,L        ** COR.A ** 
      HED COR.A  ROUTINE
*     NAME:   COR.A 
*     SOURCE: 92067-18044 
*     RELOC:  PART OF 92067-16035 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  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 COR.A,6 92067-16035 REV.1805 770621 
      ENT COR.A 
      EXT .ZPRV 
* 
*     ROUTINE TO FIND THE ADDRESS OF THE FIRST WORD OF AVAIL MEM. 
*     FOR A GIVEN ID SEGMENT
* 
*     CALLING SEQUENCE: 
* 
*     LDA IDSEG     GET ID SEGMENT ADDRESS TO A 
*     JSB COR.A     CALL THIS ROUTINE 
*     RETURN A= FIRST WORD OF AVAIL MEM (MEM2 FROM ID)
* 
COR.A NOP 
      JSB .ZPRV 
      DEF LIBX
      ADA .14       INDEX TO THE NAME 5 WORD
      XLB A,I       GET THE WORD
      BLF,BLF       ROTATE THE
      BLF,SLB       SHORT ID FLAG TO LOW B AND TEST 
      INA,RSS       SHORT SO INDEX TO MEM 
      ADA .8        LONG SO INDEX TO MEM
      INA           INDEX TO MEM2 
      XLA A,I       SET IT IN A 
LIBX  JMP COR.A,I   RETURN
      DEF COR.A 
* 
.14   DEC 14
.8    DEC 8 
A     EQU 0 
      END 
                                                                                                                    