                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 059/059 ------           
       03205  0 16200 0 03207        TQP 1D0001                    IF PLUS--SKIP NEXT,                4F11287     
       03206 -0 50100 0 01453        ORA 2E17                      IF MINUS--OR SIGN INTO BIT 18.     4F11288     
       03207  0 76700 0 00022 1D0001 ALS 18                        THEN ADJUST AND STORE              4F11289     
       03210  0 60200 0 01141        SLW E+11                      BACK INTO E+11.                    4F11290     
       03211  0 07400 4 00431        TSX TAU1IX,4                * GO SEARCH TAU1 TABLE.              4F11291     
       03212  0 76700 0 00030        ALS 24                        POSITION TAU1 TAG, AND             4F11292     
       03213 -0 60200 0 01126        ORS E                         PLACE TAU1 TAG IN TAG WORD.        4F11293     
       03214 -0 50000 0 01132        CAL E+4                       TAKE SUBSCRIPT, AND                4F11294     
 D     03215  1 00000 0 03117        TXI 3D0350,0                  GO TO FORTAG SECTION.              4F11295     
       03216 -0 50000 0 01471 NOTAG  CAL FNIND                     POSITION SIGMA1 TAG, AND           4F11296     
       03217 -0 60200 0 01126        ORS E                         PLACE SIGMA1 TAG IN TAGE WORD.     4F11297     
       03220 -0 53400 1 02730 SAEXIT LXD SXR1,1                    RESTORE THE C(XR1)                 4F11298     
       03221 -0 53400 2 02731        LXD SXR2,2                    RESTORE THE C(XR2)                 4F11299     
       03222 -0 53400 4 02732        LXD SXR4,4                    RESTORE THE C(XR4)                 4F11300     
       03223  0 02000 4 00001        TRA 1,4                     * EXIT TO MAIN ROUTINE.              4F11301     
                                          END OF PROGRAM SS000.                                       4F11302     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11303     
                                                                                                      4F11304     
                                         SUBX00,4/ CALLERS=C3000,C3300.                               4F11305     
                                         SUBX00 ADDS BLANKS TO THE NAMES OF SUBROUTINES.              4F11306     
       03224  0 53400 3 01414 SUBX00 LXA L(6),3                    PREPARE TO COUNT CHARS AND SHIFTS. 4F11307     
       03225  0 56000 0 01112        LDQ 1G                        PICKUP SUBROUTINE NAME.            4F11308     
       03226 -0 75400 0 00000 SUBX01 PXD ,0                        CLEAR THE AC, AND                  4F11309     
       03227 -0 76300 0 00006        LGL 6                         SEARCH FOR A BLANK                 4F11310     
       03230  0 40200 0 01430        SUB BLANK                     CHARACTER IN THIS NAME.            4F11311     
       03231  0 10000 0 03235        TZE SUBX03                    IF NOT BLANK, THEN                 4F11312     
       03232  1 00006 1 03233        TXI SUBX02,1,6                UPDATE SHIFT COUNT, AND            4F11313     
       03233  2 00001 2 03226 SUBX02 TIX SUBX01,2,1                CONTINUE UNTIL 6 CHARS ARE COUNTED.4F11314     
       03234  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER AFTER 6TH CHAR.   4F11315     
       03235  0 56000 0 01526 SUBX03 LDQ BLANKS                    IF LESS THEN 6 CHARACTERRS IN NAME,4F11316     
       03236 -0 76300 1 00044        LGL 36,1                      SHIFT ENOUGH BLANKS INTO THE AC,   4F11317     
       03237 -0 60200 0 01112        ORS 1G                        AND FILL OUT NAME WITH BLANKS.     4F11318     
       03240  0 02000 4 00001        TRA 1,4                     * RETURN TO CALLER.                  4F11319     
                                          END OF PROGRAM SUBX00.                                      4F11320     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11321     
                                                                                                      4F11322     
                                         TESTFX,1/ CALLERS=SS000,C3000,IFFIX.                         4F11323     
                                         TESTFX TEST FOR FIXED OR FLOATING POINT VARIABLES.           4F11324     
       03241 -0 50000 0 01331 TESTFX CAL FIRSTC                    COMPARE FIRST CHARACTER            4F11325     
       03242  0 34000 0 01423        CAS L(H)                      WITH H.                            4F11326     
       03243  0 34000 0 01425        CAS L(O)                      IF GREATER THEN H, COMPARE WITH O. 4F11327     
       03244  0 02000 1 00001        TRA 1,1                     * IF NOT GREATER THEN H, LESS THEN O,4F11328     
       03245  0 02000 1 00001        TRA 1,1                     * THEN TAKE FLOATING POINT EXIT.     4F11329     
       03246  0 02000 1 00002        TRA 2,1                     * OTHERWISE, TAKE FIXED POINT EXIT.  4F11330     
                                          END OF PROGRAM TESTFX.                                      4F11331     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F11332     
                                                                                                      4F11333     
                                         TEST..,4/ CALLS=DIAG. CALLERS=C0100,C0200,C0300,C0400,C1000, 4F11334     
                                         C1100,C1200,C1400,C1500,C1600,C3000,C3100,C3200,C3400,LPR.   4F11335     
                                         TEST.. TESTS THE CHARACTER IN THE AC(30-35).                 4F11336     
                                         TEST CHARACTER IN THE AC FOR COMMA OR ENDMARK.               4F11337     
       03247  0 34000 0 01376 TESTA0 CAS COMMA                                                        4F11338     
       03250  0 02000 0 03252        TRA TESTA1                                                       4F11339     
