                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 044/044 ------           
                                                                                                      4F10478     
                                         C0160,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C1000,C1200,  4F10479     
                                         C1500,C3000,C3100,C0150.                                     4F10480     
                                         C0160 ASSEMBLES LEFT-ADJUSTED IN 1G, THE CHAR IN THE AC AND  4F10481     
                                         SUCCESSIVE NB CHARS STARTING IN THE MQ, UNTIL A ,()= OR ENDMK4F10482     
                                         IS MET AND LEFT IN THE AC. ALSO MARKS END OF WORD WITH A     4F10483     
                                         BLANK, IF LESS THEN 6 CHARACTERS.                            4F10484     
       01624 -0 63400 2 01631 C0160  SXD C016X,2                  SAVE THE C(XR2), AND                4F10485     
       01625  0 53400 2 01406        LXA L(0),2                   SET XR2 TO CONTROL SHIFTING.        4F10486     
       01626  0 60000 0 01112        STZ 1G                       CLEAR WORKING STORAGE.              4F10487     
       01627  0 53400 4 02652 C0161  LXA CTESTX,4                 TEST                                4F10488     
       01630  0 34000 4 01406 C0162  CAS CTEST,4                  CHARACTER                           4F10489     
       01631  1 00000 0 01633 C016X  TXI C0163,0,**               IN THE AC                           4F10490     
 D     01632  1 00000 0 01642        TXI C0165,0                  AGAINST                             4F10491     
       01633  2 00001 4 01630 C0163  TIX C0162,4,1                ALL PUNCTUATIONS.                   4F10492     
       01634 -3 00036 2 01636        TXL C0164,2,30               IF SYMBOL EXCEEDS 6 CHARACTERS,     4F10493     
       01635  0 07400 4 03400        TSX DIAG,4                 * GO TO THE DIAGNOSTIC.               4F10494     
       01636  0 76700 2 00036 C0164  ALS 30,2                     BUILD LEFT-ADJUSTED                 4F10495     
       01637 -0 60200 0 01112        ORS 1G                       SYMBOL IN WORKING STORAGE.          4F10496     
       01640  0 07400 4 01707        TSX C0190,4                * GET NEXT NB CHARACTER IN THE AC.    4F10497     
       01641  1 00006 2 01627        TXI C0161,2,6                UPDATE SHIFT COUNT, AND CONTINUE.   4F10498     
       01642  3 00000 2 01644 C0165  TXH C0167,2,0                IF PUNCTUATION IS 1ST CHARACTER.    4F10499     
       01643  0 07400 4 03400 C0166  TSX DIAG,4                 * OR ILLEGAL, GO TO THE DIAGNOSTIC.   4F10500     
       01644 -3 00005 4 01643 C0167  TXL C0166,4,5                IF LEGAL PUNCTUATION, THEN          4F10501     
       01645  0 60100 0 01115        STO 1H                       SAVE, AND                           4F10502     
       01646  0 50000 0 01430        CLA BLANK                    ADD A BLANK                         4F10503     
       01647  0 76700 2 00036        ALS 30,2                     TO SYMBOLS THAT ARE LESS            4F10504     
       01650 -0 60200 0 01112        ORS 1G                       THEN 6 CHARACTERS IN LENGTH.        4F10505     
       01651  0 50000 0 01115        CLA 1H                       PICKUP PUNCTUATION MARK,            4F10506     
       01652 -0 53400 2 01631        LXD C016X,2                  RESTORE THE C(XR2), AND             4F10507     
       01653  0 02000 2 00001        TRA 1,2                    * RETURN TO CALLER.                   4F10508     
                                          END OF PROGRAM C0160.                                       4F10509     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10510     
                                                                                                      4F10511     
                                         C0180,2/ CALLS=C0190,DIAG. CALLERS=C0100,C0200,C0300,C0400,  4F10512     
                                         C1000,C1100,C1200,C1400,C1500,C0150.                         4F10513     
                                         C0180 CONVERTS SUCCESSIVE NUMERICS STARTING IN THE MQ TO     4F10514     
                                         BINARY, PLACES RESULT IN 1G, AND LEAVES 1ST NON-NUMERIC IN   4F10515     
                                         THE AC. 1ST NUMERIC IS ASSUMED TO BE ALREADY IN THE AC.      4F10516     
       01654  0 07400 4 01707 C0180X TSX C0190,4                * OBTAIN 1ST NUMERIC IN THE AC.       4F105165    
       01655  0 60100 0 01112 C0180  STO 1G                       PLACE 1ST NUMERIC IN 1G.            4F10517     
       01656  0 07400 4 01707        TSX C0190,4                * EXAMINE NEXT NON-BLANK CHARACTER,   4F10518     
       01657  0 34000 0 01417        CAS L(9)                     AND IF NON-NUMERIC, THEN            4F10519     
       01660  0 02000 2 00001        TRA 1,2                    * RETURN TO CALLER.                   4F10520     
       01661  0 76100 0 00000        NOP                          IF NUMERIC, THEN                    4F10521     
       01662  0 60100 0 01113        STO 2G                       SAVE DIGIT IN 2G.                   4F10522     
       01663  0 50000 0 01112        CLA 1G                       MULTIPLY                            4F10523     
       01664  0 76700 0 00002        ALS 2                        C(1G)                               4F10524     
       01665  0 40000 0 01112        ADD 1G                       BY                                  4F10525     
       01666  0 76700 0 00001        ALS 1                        10,                                 4F10526     
       01667  0 40000 0 01113        ADD 2G                       AND ADD CURRENT DIGIT.              4F10527     
       01670  1 76626 0 01655  DCF   TXI C0180,0,-F               REPEAT PROCESS FOR NEXT CHARACTER.  4F10528     
                                          END OF PROGRAM C0180.                                       4F10529     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10530     
