                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 094/094 ------           
       05717  0 76400 0 00202        BST 130                       BACKSPACE FORMULA TAPE,            4F13135     
       05720  0 02000 0 05706        TRA CA101                     AND GO BACK TO READ AGAIN.         4F13136     
       05721  2 00001 2 05710 CA103  TIX CA102,2,1                 TEST EXIT FROM LOOP.               4F13137     
       05722  0 76600 0 00333        IOD                           DELAY UNTIL TAPE DISCONNECTS.      4F13138     
       05723 -0 76000 0 00012        RTT                           CHECK READING OF TAPE.             4F13139     
 D     05724  1 00000 0 05713        TXI CA130,0                   IF INCORRECT, GO CHECK ERROR COUNT,4F13140     
       05725  0 53400 2 01420        LXA L(12),2                   PREPARE TO SCAN 12 WORDS OF CARD.  4F13141     
       05726  0 50000 0 01526 CA112  CLA BLANKS                    TEST                               4F13142     
       05727  0 40200 2 01347        SUB FT+12,2                   FOR                                4F13143     
       05730 -0 10000 0 05733        TNZ CA113                     BLANK                              4F13144     
       05731  2 00001 2 05726        TIX CA112,2,1                 CARD.                              4F13145     
       05732  0 02000 0 05702        TRA CA100                     IF BLANK, GO TO READ NEXT CARD.    4F13146     
       05733 -0 50000 0 01333 CA113  CAL FT                        IF NOT BLANK,                      4F13147     
       05734  0 77100 0 00036        ARS 30                        EXAMINE FIRST                      4F13148     
       05735  0 40200 0 01421        SUB L(C)                      CHARACTER TO                       4F13149     
       05736  0 10000 0 05702        TZE CA100                     TEST FOR COMMENT CARD.             4F13150     
       05737  0 02000 4 00001        TRA 1,4                     * EXIT IF NEITHER BLANK NOR COMMENT, 4F13151     
       05740  0 60000 0 01333 CA120  STZ FT                        INDICATE THAT FINAL                4F13152     
       05741 -0 63400 0 02575        SXD ENDWRD,0                  STATEMENT HAS BEEN READ IN.        4F13153     
       05742  0 02000 4 00001        TRA 1,4                     * EXIT TO MAIN ROUTINE TO FINISH.    4F13154     
                                         END OF PROGRAM CA100.                                        4F13155     
                                         ****************************                                *4F13156     
                                                                                                      4F13157     
                                         CC500,4/ CALLER=CC000,                                       4F13156     
                                         CC500 BRINGS NEXT CHARACTER  OF DICTIONARY INTO AC(30-35),   4F13159     
       05743 -0 75400 0 00000 CC500  PXD ,0                        CLEAR THE AC                       4F13160     
       05744  2 00001 2 05752        TIX CC502,2,1                 IF NO DICTIONARY CHARACTERS        4F13161     
       05745 -0 53400 2 01113        LXD 2G,2                      REMAIN IN THE MO, THEN             4F13162     
       05746  0 56000 2 06145        LDQ DIC,2                     REFILL WITH NEXT DICTIONARY WORD,  4F13163     
       05747  1 77777 2 05750        TXI CC501,2,-1                RESET THE                          4F13164     
       05750 -0 63400 2 01113 CC501  SXD 2G,2                      DICTIONARY WORD TAG, AND           4F13165     
       05751  0 53400 2 01414        LXA L(6),2                    SET THE CHARACTER COUNT = 6.       4F13166     
       05752 -0 76300 0 00006 CC502  LGL 6                         SHIFT CHAR INTO AC(30-35),         4F13167     
       05753  0 02000 4 00001        TRA 1,4                     * AND RETURN TO CALLER.              4F13168     
                                         END OF PROGRAM CC500.                                        4F13169     
                                         *****************************                               *4F13170     
                                                                                                      4F13171     
                                         ETMSW(LTMSW)*4/ CALLS=CIT, CALLERS=RDC,LPR,SPC,CMA,EMK,      4F13172     
                                         ETMSW = ENTRY POINT USED BY  RDC,CMA.                        4F13173     
 D     05754 -3 00000 0 05772 ETMSW  TXL NOTTM,0                   SWITCH (TXL=TRA, TXH=NOP),         4F13174     
       05755 -0 50000 0 06112        CAL ETM                       PICKUP ETM00, AND                  4F13175     
       05756  1 00000 0 05761 XR4X   TXI SETOP,0,**                GO SET OP.                         4F13176     
                                         LTMSW = ENTRY POINT USED BY LPR,SPC,CMA,EMK,                 4F13177     
 D     05757 -3 00000 0 05772 LTMSW  TXL NOTTM,0                   SWITCH (TXL=TRA, TXH=NOP),         4F13178     
       05760 -0 50000 0 06113        CAL LTM                       PICKUP LTM000, AND                 4F13179     
       05761  0 60200 0 06142 SETOP  SLW TOP                       SET TOP.                           4F13160     
       05762 -0 63400 4 05756        SXD XR4X,4                    SAVE THE C(XR4), AND               4F13161     
       05763  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F13182     
       05764  0 00000 0 01367        PZE SL                        WORD1--0(IFN)000                   4F13183     
       05765  0 00000 0 06142        PZE TOP                       WORD2--ETM000 OR LTM000            4F13184     
       05766  0 00000 0 01406        PZE L(0)                      WORD3--000000                      4F13165     
       05767  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F13186     
       05770  0 60000 0 01367        STZ SL                        CLEAR SL,                          4F13187     
       05771 -0 53400 4 05756        LXD XR4X,4                    RESTORE THE C(XR4), AND            4F13188     
