                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 095/095 ------           
       05772  0 02000 4 00001 NOTTM  TRA 1,4                     * EXIT TO CALLER.                    4F13189     
                                         END OF PROGRAM ETMSW(LTMSW).                                 4F13190     
                                         *****************************                               *4F13191     
                                                                                                      4F13192     
                                         IFFIX,1/ USES=TESTFX, CALLERS=CMA,VRA(VRD),                  4F13193     
       05773 -0 50000 0 00030 IFFIX  CAL EIFNO                     SET                                4F13194     
       05774  0 60000 0 01347        STZ G                         G TO                               4F13195     
       05775  0 62200 0 01347        STD G                         (0(IFN)000),                       4F13196     
       05776 -0 50000 0 07404        CAL SYM                       MOVE SYMBOL                        4F13197     
       05777  0 60200 0 01350        SLW G+1                       INTO G+1.                          4F13198     
       06000 -0 50000 0 07310        CAL CHR-6                     PICKUP 1ST CHARACTER OF SYMBOL, AND4F13199     
 D     06001  1 00000 0 03242        TXI TESTFX+1,0              * GO TEST FOR FIXED OR FLOATING PT.  4F13200     
                                         END OF PROGRAM IFFIX.                                        4F13201     
                                         *****************************                               *4F13202     
                                                                                                      4F13203     
                                         INPUT(OUTPUT),2/ CALLS=GIF,CIT,LIB,                          4F13204     
                                         CALLERS =RDC,RIT,RDP,WOT,PDC,WBT,RBT,WRD,RDD.                4F13205     
                                         INPUT = ENTRY POINT USED BY RDC,RIT,RBT,RDD,                 4F13206     
       06002  0 50000 0 01414 INPUT  CLA L(6)                      PICKUP 6 TO                        4F13207     
 TD    06003  1 00000 0 06005        TXI OUTPUT+1                  GO SET INOUT FOR FORVAL ENTRY.     4F13208     
                                         OUTPUT = ENTRY POINT USED BY RDP,WOT,PDC,WBT,WRD.            4F13209     
       06004  0 50000 0 01413 OUTPUT CLA L(5)                      PICKUP 5 TO                        4F13210     
       06005  0 60100 0 05536        STO INOUT                     SET INOUT FOR FORVAR ENTRY.        4F13211     
       06006  0 07400 4 02375        TSX GIF,4                   * SET SL = IFN,000.                  4F13212     
       06007  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13213     
       06010  0 00000 0 01367        PZE SL                        WORD1--0(IFN)000                   4F13214     
       06011  0 00000 0 01537        PZE CAL                       WORD2--CAL000                      4F13215     
       06012  0 00000 0 01510        PZE 15P                       WORD3--*00000                      4F13216     
       06013  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F13217     
       06014  0 07400 4 06023        TSX LIB,4                   * MAKE CLOSUB ENTRY, AND COMPILE=    4F13218     
       06015  0 00000 0 01406        PZE L(0)                      WORD1--000000                      4F13219     
       06016  0 00000 0 06125        PZE XIT                       WORD2--XIT000                      4F13220     
       06017  0 00000 0 06132        PZE LEV                       WORD3--(LEV)                       4F13221     
       06020  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F13222     
       06021  0 60000 0 01367        STZ SL                        CLEAR SL, AND                      4F13223     
       06022  0 02000 2 00001        TRA 1,2                     * EXIT TO CALLER.                    4F13224     
                                         END OF PROGRAM  INPUT(OUTPUT),                               4F13225     
                                         ****************************                                *4F13226     
                                                                                                      4F13227     
                                         LIB,1/ CALLS=TET00,CIT, CALLERS=RDC,EMK,INPUT(OUTPUT),       4F13228     
       06023 -0 50000 4 00003 LIB    CAL 3,4                       MOVE NAME OF SUBROUTINE,           4F13229     
       06024  0 62100 0 06025        STA LIC                       ADDRESS OF WHICH                   4F13230     
       06025 -0 50000 0 00000 LIC    CAL **                        IS IN WORD3 OF CALLING SEQ,        4F13231     
       06026  0 60200 0 01347        SLW G                         INTO G, AND                        4F13232     
       06027  0 07400 1 03321        TSX TET00,1                 * GO ENTER IN THE                    4F13233     
       06030  0 00000 0 00011        PZE 9                         CLOSUB TABLE.                      4F13234     
 D     06031  1 00000 0 01731        TXI CIT,0                   * MAKE CIT ENTRY, AND EXIT TO CALLER.4F13235     
                                         END OF PROGRAM L1B.                                          4F13236     
                                         *****************************                               *4F13237     
                                                                                                      4F13238     
                                         VRA(VRD),4/ CALLS=IFFIX,DIAG,TET00,CIT,DRTABS,JIF,           4F13239     
                                         CALLERS =RIT,WOT,EFT,                                        4F13240     
                                         VRA = ENTRY POINT USED BY EFT.                               4F13241     
       06032  0 50000 0 02400 VRA    CLA L(TL)                     RESET TPOA ADDRESS                 4F13242     
