                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 043/043 ------           
       01554  304751000000    L(HPR) BCD 1HPR000                    SYMBOLIC OPERATION CODE.          4F10424     
       01555  432421000000    L(LDA) BCD 1LDA000                                                      4F10425     
       01556  432450000000    L(LDQ) BCD 1LDQ000                    SYMBOLIC OPERATION CODE.          4F10426     
       01557  434362000000    L(LLS) BCD 1LLS000                    SYMBOLIC OPERATION CODE.          4F10427     
       01560  435162000000    L(LRS) BCD 1LRS000                    SYMBOLIC OPERATION CODE.          4F10428     
       01561  436724000000    L(LXD) BCD 1LXD000                    SYMBOLIC OPERATION CODE.          4F10429     
       01562  444770000000    L(MPY) BCD 1MPY000                    SYMBOLIC OPERATION CODE.          4F10430     
       01563  446225000000    L(MSE) BCD 1MSE000                    SYMBOLIC OPERATION CODE.          4F10431     
       01564  465121000000    L(ORA) BCD 1ORA000                    SYMBOLIC OPERATION CODE.          4F10432     
       01565  476225000000    L(PSE) BCD 1PSE000                    SYMBOLIC OPERATION CODE.          4F10433     
       01566  476724000000    L(PXD) BCD 1PXD000                    SYMBOLIC OPERATION CODE.          4F10434     
       01567  464751460000    L(OPR) BCD 1OPRO00                    SYMBOLIC OPERATION CODE.          4F10435     
       01570  506724000000    L(QXD) BCD 1QXD000                    SYMBOLIC OPERATION CODE.          4F10436     
       01571  626321000000    L(STA) BCD 1STA000                    SYMBOLIC OPERATION CODE.          4F10437     
       01572  626346000000    L(STO) BCD 1STO000                    SYMBOLIC OPERATION CODE.          4F10438     
       01573  626350000000    L(STQ) BCD 1STQ000                    SYMBOLIC OPERATION CODE.          4F10439     
       01574  626422000000    L(SUB) BCD 1SUB000                    SYMBOLIC OPERATION CODE.          4F10440     
       01575  626724000000    L(SXD) BCD 1SXD000                    SYMBOLIC OPERATION CODE.          4F10441     
       01576  633167000000    L(TIX) BCD 1TIX000                                                      4F10442     
       01577  634665000000    L(TOV) BCD 1TOV000                    SYMBOLIC OPERATION CODE.          4F10443     
       01600  635046000000    L(TQO) BCD 1TQO000                    SYMBOLIC OPERATION CODE.          4F10444     
       01601  635121000000    L(TRA) BCD 1TRA000                    SYMBOLIC OPERATION CODE.          4F10445     
       01602  636267000000    L(TSX) BCD 1TSX000                    SYMBOLIC OPERATION CODE.          4F10446     
       01603  642621000000    L(UFA) BCD 1UFA000                    SYMBOLIC OPERATION CODE.          4F10447     
                                          END OF COMMON CONSTANTS USED BY SECTION ONE.                4F10448     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10449     
                                                                                                      4F10450     
                                         COMMON/3-SUBROUTINES USED BY SECTION ONE*                    4F10451     
                                                                                                      4F10452     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10453     
                                                                                                      4F10454     
                                         C0150,2/ CALLS=C0190,DIAG,C0180,C0160. CALLER=C0100.         4F10455     
                                         C0150 INSPECTS 1ST NB CHAR STARTING IN MQ. IF NUMERIC, SETS I4F10456     
                                         = 0, AND CONVERTS SUCCESSIVE NUMERICS TO BINARY. IF NON-     4F10457     
                                         NUMERIC, SETS I = -O, AND PACKS INTO 1G SUCCESSIVE CHARACTERS4F10458     
                                         UNTIL A ,()= OR ENDMK IS MET, AND LEFT IN THE AC.            4F10459     
       01604 -0 63400 2 01607 C0150  SXD C015X,2                    SAVE THE C(XR2).                  4F10460     
       01605  0 07400 4 01707        TSX C0190,4                  * TEST 1ST NON-BLANK CHARACTER      4F10461     
       01606  0 34000 0 01417        CAS L(9)                       FOR NUMERIC OR NON-NUMERIC.       4F10462     
       01607  1 00000 0 01615 C015X  TXI C0151,0,**                 IF NON-NUMERIC, TRANSFER.         4F10463     
       01610  0 76100 0 00000        NOP                            IF NUMERIC, THEN                  4F10464     
       01611  0 07400 2 01655        TSX C0180,2                  * GO CONVERT TO BINARY.             4F10465     
       01612  0 60100 0 01113        STO 2G                         SAVE NEXT NON-NUERIC CHARACTER.   4F10466     
       01613  0 50000 0 01406        CLA L(0)                       PREPARE TO SET I TO +0.           4F10467     
       01614  1 00000 0 01620  FWA   TXI C0152,0,**                 GO SET I FOR NUMERIC.             4F10468     
       01615  0 07400 2 01624 C0151  TSX C0160,2                  * ASSEMBLE NON-NUMERICS IN 1G.      4F10469     
       01616  0 60100 0 01112        STO 1G                         SAVE PUNCTUATION MARK, AND        4F10470     
       01617  0 50200 0 01406        CLS L(0)                       PREPARE TO SET I TO -0.           4F10471     
       01620  0 60100 0 01353 C0152  STO I                          SET I = +0, OR -0.                4F10472     
       01621  0 50000 0 01113        CLA 2G                         PICKUP NEXT CHARACTER,            4F10473     
       01622 -0 53400 2 01607        LXD C015X,2                    RESTORE THE C(XR2), AND           4F10474     
       01623  0 02000 2 00001        TRA 1,2                      * RETURN TO CALLER.                 4F10475     
                                          END OF PROGRAM C0150.                                       4F10476     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10477     
