ASMB,L
        HED FTN4 - SEGMENT NAME ADDRESS FETCH 
* 
* 
*************************************************************** 
* (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.   * 
*************************************************************** 
* 
      NAM SEG.F,8 92060-16093 770531 REV. 1913
        ENT SEG.F 
* 
*  THIS ROUTINE FORMS A SEGMENT NAME, F4.N, WHERE N IS THE
*  SEGMENT NUMBER PASSED AS AN INPUT PARAMETER.  UPON RETURN, 
*  THE B-REGISTER CONTAINS THE ADDRESS OF THE SEGMENT NAME. 
* 
*       CALLING SEQUENCE:  JSB SEG.F
*                          DEF SEG#      SEGMENT NUMBER 
* 
*                RETURNS:  B = ADDRESS OF THE SEGMENT'S NAME
*                                (5 CHARACTERS) 
* 
* 
SEG.F NOP           ENTRY 
      LDB SEG.F,I   GET ADDRESS OF SEGMENT #
      LDB B,I       GET THE SEGMENT NUMBER
      ADB ".0"      ADD TO FORM ".N"
      STB NAM       SAVE IN NAME ARRAY
      LDB NAMA      GET ADDRESS 
      ISZ SEG.F     STEP RETURN 
      JMP SEG.F,I   RETURN
* 
".0"  ASC 1,.0
NAMA  DEF *+1 
      ASC 1,F4      NAME = F4.N 
NAM   NOP 
      ASC 1,
A     EQU 0 
B     EQU 1 
      END 
                                                                                                                                                                  