ASMB,L        ** COR.A ** 
      HED COR.A  ROUTINE
*     NAME:   MCORA 
*     SOURCE: 92064-18216 
*     RELOC:  92064-16081 
*     PGMR:   G.A.A.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1975.  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 MCORA,7  92064-16081  REV.1709  741120
      ENT COR.A 
* 
*     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 
      ADA .14       INDEX TO THE NAME 5 WORD
      LDB 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 
      LDA A,I       SET IT IN A 
      JMP COR.A,I   RETURN
* 
.14   DEC 14
.8    DEC 8 
A     EQU 0 
      END 
                                                                                                                                                                                                