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:  92070-18281 
* 
* 
      NAM OLY.L,7 92070-1X281 REV. 1940 790531 $CLIB
      EXT SEGLD,SAVST 
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
CASE  RSS           TURN SYSTEM INTERRUPT OFF 
      JMP SUPR      JUST ONCE!! 
      JSB SAVST 
      DEF *+1 
      CLA 
      STA CASE
SUPR  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 
                                                                                                                                                                                                                                      