ASMB,L,C
        HED COMPILER LIBRARY - GET SEGMENT
* 
*************************************************************** 
* (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:  92064-18259 
* 
* 
      NAM OLY.C,7 92064-16089 780815 REV. 1901 $CLIB
      EXT SEGLD 
SUP   EQU SEGLD 
      ENT OLY.C 
      ENT C.OLY     ADDRESS OF CURRENT SEGS ID
* 
*  THIS COMPILER LIBRARY ROUTINE LOADS A NEW SEGMENT INTO MEMORY
*  AND TRANSFERS CONTROL TO IT. 
* 
*       CALLING SEQUENCE:  JSB OLY.C
*                          DEF SEGID     POINTER TO SEGMENT NAME
* 
* 
OLY.C NOP           ENTRY 
      LDA OLY.C,I 
      STA C.OLY     SEGMENT NAME
      JSB SEGLD     CALL THE SUPERVISOR 
      DEF *+3 
C.OLY NOP 
      DEF SEGL
      ISZ OLY.C     SHOULD NOT RETURN 
      JMP OLY.C,I   IF IT RETURNS, EXIT 
* 
SEGL  OCT 100010
      END 
                                                                                                                            