ASMB,R,Q,C HED BATBL SEGMENT 2 * * NAME: TG02S * SOURCE: 92076-18021 * 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 TG02S,5 92076-1X021 REV.2001 791103 92076-16002 * SUP * * THE FOLLOWING ROUTINE PROVIDES THE LINKAGE TO * THE PROPER SUBROUTINE IN SEGMENT 2. WHEN TG02S * 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.TRF CREATE TRANSFER FILE * TG02S LDB SUBAD GET ADDRESS OF CALSB. JMP T.LN1 GO BACK TO MAIN. * SUBAD DEF CALSB * CALSB NOP JSB T.TRF JMP CALSB,I * END TG02S