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