                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 074/074 ------           
                                         C0901= ENTRY POINT USED BY C1300.                            4F12059     
       04171  0 60000 0 01112 C0901  STZ 1G                        CLEAR 1G.                          4F12060     
       04172  0 07400 4 01707 C0902  TSX C0190,4                 * TEST NEXT NON-BLANK CHARACTER      4F12061     
       04173  0 34000 0 01374        CAS ENDMK                     FOR END OF STATEMENT MARK.         4F12062     
       04174  0 02000 0 03272        TRA ERR77P                  * MACHINE ERROR, GO TO DIAGNOSTIC.   4F12063     
       04175  1 74341 0 04202 C090X  TXI C0903,0,-CA010+1          IF NOT END OF STATEMENT, THEN      4F12064     
       04176  0 40000 0 01112        ADD 1G                        ADD 1G TO DIGIT,                   4F12065     
       04177  0 76700 0 00003        ALS 3                         MULTIPLY BY 8.                     4F12066     
       04200  0 60100 0 01112        STO 1G                        AND STORE BACK IN 1G.              4F12067     
 D     04201  1 00000 0 04172        TXI C0902,0                   CONTINUE UNTIL END OF STATEMENT.   4F12068     
       04202  0 50000 0 01112 C0903  CLA 1G                        THEN PLACE OCTAL ALPHA             4F12069     
       04203  0 76700 0 00017        ALS 15                        IN THE DECREMENT                   4F12070     
       04204  0 60100 0 01105        STO 1C                        OF 1C FOR FUTURE CIT ENTRY.        4F12071     
       04205 -0 53400 4 00030        LXD EIFNO,4                   PLACE THE CURRENT INTERNAL FORMULA 4F12072     
       04206 -0 75400 4 00000        PXD ,4                        NUMBER IN THE DECREMENT            4F12073     
       04207  0 60100 0 01106        STO 1C+1                      OF 1C+1,WITH ZEROS ELSEWHERE.      4F12074     
       04210  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12075     
       04211  0 00000 0 01106        PZE 1C+1                      WORD1--DECR = INTFORMNO (LOCATION) 4F12076     
       04212  0 00000 0 01554        PZE L(HPR)                    WORD2--HPR000 (OP AND DECR)        4F12077     
       04213  0 00000 0 01406        PZE L(0)                      WORD3--000000 (ADDRESS)            4F12078     
       04214  0 00000 0 01105        PZE 1C                        WORD4--DECR = ALPHA, REST ZEROS.   4F12079     
       04215  0 02000 2 00001        TRA 1,2                     * EXIT TO CA000, OR TO C1300.        4F12080     
                                          END OF PROGRAM C0900.                                       4F12081     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12082     
                                                                                                      4F12083     
                                         C1000/ USES=C0200. CALLS=GETIFN,C0190,C0180,DIAG,C0190,TEST..4F12084     
                                         CIT00.                                                       4F12085     
                                         C1000 PROCESSES ASSIGN STATEMENTS.                           4F12086     
       04216  0 07400 4 02366 C1000  TSX GETIFN,4                * GET INTERNAL FORMULA NUMBER IN 1C  4F12087     
       04217  0 60100 0 01107        STO 1C+2                       AND 1C+2,WITH ZEROS ELSEWHERE.    4F12088     
       04220  0 50000 0 01414        CLA L(6)                      STORE 6 IN                         4F12089     
       04221  0 62100 0 01105        STA 1C                        ADDRESS OF 1C.                     4F12090     
       04222  0 07400 2 01654        TSX C0180X,2                * GO FORM BINARY EQUIV OF ALPHA.     4F12091     
       04223  0 40200 0 01432        SUB L(T)                      IF NEXT CHARACTER IS NOT T, THEN   4F12093     
       04224  0 10000 0 04226        TZE *+2                       THIS IS AN                         4F12094     
       04225  0 07400 4 03400        TSX DIAG,4                  * ERROR - GO TO THE DIAGNOSTIC.      4F12095     
       04226  0 07400 4 01707        TSX C0190,4                 * EXAMINE NEXT NON-BLANK CHARACTER   4F12096     
       04227  0 40200 0 01406        SUB L(0)                      AND IF IT IS NOT 0, THEN           4F12097     
       04230 -0 10000 0 04225        TNZ *-3                       ERROR, GO TO DIAGNOSTIC.           4F12098     
       04231  0 50000 0 01112        CLA 1G                        PUT BIN EQUIV OF ALPHA             4F12099     
       04232  0 60100 0 01106        STO 1C+1                      IN ADDRESS OF 1C+1.                4F12100     
       04233  0 07400 4 01707        TSX C0190,4                 * PROCEED TO ASSEMBLE IN 1G          4F12101     
       04234  0 07400 2 01624        TSX C0160,2                 * THE SYMBOL N.                      4F12102     
       04235  0 07400 4 03271        TSX TESTD0,4                * THE NEXT NB CHAR SHOULD BE ENDMK.  4F12103     
       04236  0 07400 4 01731        TSX CIT00,4                 * GO MAKE THE FOLLOWING CIT ENTRY=   4F12104     
       04237  0 00000 0 01107        PZE 1C+2                      WORD1--DECR = INTFORMNO (LOCATION) 4F12105     
       04240  0 00000 0 01541        PZE L(CLA)                    WORD2--CLA000 (OP AND DECR)        4F12106     
       04241  0 00000 0 01406        PZE L(0)                      WORD3--000000 (ADDRESS)            4F12107     
       04242  0 00000 0 01406        PZE L(0)                      WORD4--000000 (RELADDR AND TAG).   4F12108     
       04243  0 07400 4 01731        TSX CIT00,4                 * STORE SECOND COMPILED INSTRUCTION= 4F12109     
       04244  0 00000 0 01406        PZE L(0)                      WORD1--000000  (ALL ZEROS)         4F12110     
       04245  0 00000 0 01572        PZE L(STO)                    WORD2--STO000 (OP AND DECR)        4F12111     
       04246  0 00000 0 01112        PZE 1G                        WORD3--SYMBOL N (ADDRESS)          4F12112     
       04247  0 00000 0 01406        PZE L(0)                      WORD4--000000 (REL ADDR AND TAG).  4F12113     
