                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 096/096 ------           
       06033  0 62100 0 05102        STA TPOA                      TO TL.                             4F13243     
       06034 -0 50000 0 00415        CAL TXLOP                     PREPARE TO SET OP-SWITCH TO TRA.   4F13244     
       06035  1 77777 4 06037        TXI VRD1,4,-1                 SET RETURN TO TSX+2, AND GO SET OP.4F13245     
                                         VRD = ENTRY POINT USED BY RIT,WOT,                           4F13246     
       06036  0 50000 0 00415 VRD    CLA TXLOP                     PREPARE TO SET OP-SWITCH TO NOP.   4F13247     
       06037  0 63000 0 06052 VRD1   STP VRX                       SET VRX OP-SWITCH.                 4F13248     
       06040 -0 63400 4 06052        SXD VRX,4                     SAVE THE C(XR4) FOR RETURN.        4F13249     
       06041  0 07400 1 05773        TSX IFFIX,1                 * SET UP IFN AND SYMBOL FOR FORVAR.  4F13250     
       06042  0 07400 4 03400        TSX DIAG,4                  * ILLEGAL USE OF FLOATING VARIABLE.  4F13251     
       06043  0 07400 1 03321        TSX TET00,1                 * IF SYMBOL IS FXD-PT, GO MAKE       4F13252     
       06044  0 00000 0 00005        PZE 5                         ENTRY IN FORVAR TABLE.             4F13253     
       06045  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13254     
       06046  0 00000 0 01367        PZE SL                        WORD1-0(IFN)000                    4F13255     
       06047  0 00000 0 01537        PZE CAL                       WORD2-CAL000                       4F13256     
       06050  0 00000 0 07404        PZE SYM                       WORD3-(FXD-PT SYMBOL)              4F13257     
       06051  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F13258     
       06052  3 00000 0 06055 VRX    TXH VDA,0,**                  SWITCH ITXL=TRA, TXH=NOP),         4F13259     
       06053 -0 50000 0 06121        CAL STD                       PICKUP STD000, AND                 4F13260     
       06054  1 00000 0 06076 XRW    TXI RVX,0,**                  GO SET TOP.                        4F13261     
       06055  0 50000 0 06140 VDA    CLA CON                       IF CON                             4F13262     
       06056  0 10000 0 06070        TZE SDA                       IS NOT ZERO,                       4F13263     
       06057  0 60100 0 01347        STO G                         THEN                               4F13264     
       06060  0 07400 4 00417        TSX FXCNIX,4                * ENTER CON IN FIXCON,AND GET TAG,   4F13265     
       06061  0 76700 0 00022        ALS 18                        ADJUST TAG, AND                    4F13266     
       06062  0 60100 0 07402        STO RA                        SET RA.                            4F13267     
       06063  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY.   4F13268     
       06064  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F13269     
       06065  0 00000 0 01532        PZE ADD                       WORD2-ADD000                       4F13270     
       06066  0 00000 0 00013        PZE 2P                        WORD3-200000                       4F13271     
       06067  0 00000 0 07402        PZE RA                        WORD4-(FIXCON TAG)                 4F13272     
       06070  0 07400 4 01731 SDA    TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13273     
       06071  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F13274     
       06072  0 00000 0 01535        PZE ARS                       WORD2-ARSOOO                       4F13275     
       06073  0 00000 0 01406        PZE L(0)                      WORD3-000000                       4F13276     
       06074  0 00000 0 01466        PZE D18                       WORD4-0(18)000                     4F13277     
       06075 -0 50000 0 01571        CAL STA                       PICKUP  STAOOO, AND                4F13278     
       06076  0 60200 0 06142 RVX    SLW TOP                       SET TOP TO STA OR STD.             4F13279     
       06077  0 07400 4 02372        TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL,    4F13280     
       06100  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13281     
       06101  0 00000 0 01406        PZE L(0)                      WORD1- 00600                       4F13282     
       06102  0 00000 0 06142        PZE TOP                       WORD2-STA000 OR STD000             4F13283     
       06103  0 00000 0 01371        PZE TL                        WORD3-0(IFN)000                    4F13264     
       06104  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F13285     
       06105 -0 75400 0 05555 NLA    PXD LAST,0                    CLEAR THE AC                       4F13286     
       06106 -0 53400 4 06052        LXD VRX,4                     RESTORE THE C(XR4), AND            4F13287     
       06107  0 02000 4 00001        TRA 1,4                     * EXIT TO CALLER.                    4F13288     
                                          END OF PROGRAM VRA(VRD),                                    4F13289     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F13290     
                                                                                                      4F13291     
                                         STATEA/5-C0NSTANTS AND VARIABLES USED BY STATE A=            4F13292     
                                                                                                      4F13293     
       06110  222324000000      BCD  BCD 1BCD000                   CONSTANT USED BY IOT.              4F13294     
       06111  226263000000      BST  BCD 1BST000                   CONSTANT USED BY IOT.              4F13295     
       06112  256344000000      ETM  BCD 1ETM000                   CONSTANT USED BY IOT,              4F13296     
