ASMB,R,L,C          SG#LD 
*     NAME:   SG#LD 
*     SOURCE: 91740-18063 
*     RELOC:  91740-16063 
*     PGMR:   MIKE SCHOENDORF 
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  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 SG#LD,8 91740-16063 REV 1740 770911 
* 
* 
* 
*  ENTRY POINT NAMES
* 
      ENT SG#LD 
* 
* 
*  EXTERNAL REFERENCE NAMES 
* 
      EXT .ENTR,EXEC
* 
* 
*  THIS SUBROUTINE LOADS A SEGMENT OF A PROGRAM 
*  AND TRANSFERS EXECUTION CONTROL TO THE SEGMENT'S 
*  ENTRY POINT. 
* 
* 
      SKP 
SG#LD NOP 
      LDA DZERO 
      STA NAMR
      STA IERR
      LDA SG#LD 
      STA DEGLD 
      JMP ENTD
* 
NAMR  DEF ZERO
IERR  DEF ZERO
* 
DEGLD NOP 
ENTD  JSB .ENTR 
      DEF NAMR
      JSB EXEC      MAKE EXEC CALL TO LOAD SEGMENT
      DEF *+3       RETURN ADDRESS (DOES NOT RETURN HERE) 
      DEF D8        REQUEST CODE
      DEF NAMR,I    SEGMENT'S NAME
* 
* 
D8    DEC 8 
DZERO DEF ZERO
ZERO  NOP 
      END 
                                                                                                                                                                                                                        