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