ASMB,R,Q,C HED BATBL SEGMENT 0 * * NAME: TG00S * SOURCE: 92076-18019 * 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 TG00S,5 92076-1X019 REV.2001 791103 92076-16002 * SUP * * THE FOLLOWING ROUTINE PROVIDES THE LINKAGE TO * THE PROPER SUBROUTINE IN SEGMENT 0. WHEN TG00S * 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.GFI GET FILE INFORMATION SUBROUTINE EXT T.BTE BUILD TABLE ENTRIES SUBROUTINE * TG00S LDB SUBAD GET ADDRESS OF CALSB. JMP T.LN1 GO BACK TO MAIN. * SUBAD DEF CALSB SUB0 DEF T.GFI SUB1 DEF T.BTE * CALSB NOP LDB SUB0 SZA LDB SUB1 JSB 1,I JMP CALSB,I * END TG00S