ASMB,R,Q,C
      HED BATBL SEGMENT 1 
* 
*     NAME:    TG01S
*     SOURCE:  92076-18020
*     RELOC:   PART OF 92076-16002
*     PGMR:    B.J.L. 
* 
*  **************************************************************** 
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  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 TG01S,5 92076-1X020 REV.2001 791103 92076-16002 
* 
      SUP 
* 
*  THE FOLLOWING ROUTINE PROVIDES THE LINKAGE TO
*  THE PROPER SUBROUTINE IN SEGMENT 1.  WHEN TG01S
*  IS LOADED AND RUN, IT GETS THE ADDRESS OF CALSB
*  IN THE B-REG AND JUMPS TO T.LN1 IN T.LNK.  THEN A
*  JSB IS DONE TO CALSB WITH A-REG = SUBROUTINE #.
* 
* 
      EXT T.LN1     ADDRESS IN T.LNK IN MAIN
      EXT T.MES     MESSAGE PRINTING ROUTINE
      EXT T.OVL     CREATE OVERLAY DIRECTORIES SUBROUTINE 
* 
TG01S LDB SUBAD     GET ADDRESS OF CALSB. 
      JMP T.LN1     GO BACK TO MAIN.
* 
SUBAD DEF CALSB 
SUB0  DEF T.MES 
SUB1  DEF T.OVL 
* 
CALSB NOP 
      LDB SUB0
      SZA 
      LDB SUB1
      JSB 1,I 
      JMP CALSB,I 
* 
      END TG01S 
                                                                                                                                                                                                