                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 085/085 ------           
                                         BSP/ USES=EFT,                                               4F12650     
                                         BSP PROCESSES BACKSPACE TAPE STATEMENTS.                     4F12651     
       05111 -0 50000 0 06111 BSP    CAL BST                      PICKUP BST000 TO SET OP, AND        4F12652     
 D     05112  1 00000 0 05067        TXI TPO,0                  * CONTINUE BY USING PROGRAM EFT,      4F12653     
                                          END OF PROGRAM BSP.                                         4F12654     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12655     
                                         FOR/ CALLS=TET00,                                            4F12657     
                                         FOR PROCESSES FORMAT STATEMENTS.                             4F12658     
       05113 -0 50000 0 00030 FOR    CAL EIFNO                    MOVE EXTERNAL FORMULA NUMBER        4F12659     
       05114  0 62100 0 01366        STA SET                      INTO THE ADDRESS OF SET,            4F12660     
       05115 -0 50000 0 01366        CAL SET                      AND MOVE SET (8000(EFN))            4F12661     
       05116  0 60200 0 01347        SLW G                        INTO G.                             4F12662     
       05117 -0 53400 1 01724        LXD CHCTR,1                  SET XR1 = CHARACTER COUNT.          4F12663     
       05120 -0 53400 2 01614        LXD FWA,2                    SET XR2 = -(CURRENT F-WORD ADDR),   4F12664     
       05121 -3 00001 1 05137        TXL NFFW,1,1                 UNLESS POSITIONED AT THE            4F12665     
       05122  1 77777 1 05123        TXI *+1,1,-1                 BEGINNING OF A FORMAT WORD,         4F12666     
       05123  0 56000 0 01365        LDQ RESIDU                   THEN PICKUP AND                     4F12667     
       05124 -0 50000 0 01526        CAL BLANKS                   PRECEED  WITH BLANKS ANY            4F12668     
       05125 -0 76300 0 00006 NFC    LGL 6                        CHARACTERS                          4F12669     
       05126  2 00001 1 05125        TIX NFC,1,1                  REMAINING IN THE MO, AND            4F12670     
       05127  0 60200 0 01350 NFW    SLW G+1                      MOVE FORMAT WORDS INTO G+1.         4F12671     
       05130  0 07400 1 03321        TSX TET00,1                * GO ENTER THEN IN                    4F12672     
       05131  0 00000 0 00012        PZE 10                       THE FORMAT TABLE.                   4F12673     
       05132 -0 50000 0 01350        CAL G+1                      WHEN THE                            4F12674     
       05133 -0 32000 0 01374        ANA ENDMK                    END OF STATEMENT MARK               4F12675     
       05134  0 40200 0 01374        SUB ENDMK                    HAS BEEN ENTERED.                   4F12676     
       05135  0 10000 0 03440        TZE CA010                  * EXIT TO PROCESS NEXT STATEMENT.     4F12677     
       05136  0 60000 0 01347        STZ G                        PRECEED ALL BUT 1ST ENTRY WITH 0.   4F12678     
       05137 -0 50000 2 00000 NFFW   CAL 0,2                      PICKUP NEXT FORMAT WORD,            4F12679     
       05140  1 77777 2 05127        TXI NFW,2,-1                 UPDATE SCAN INDEX, AND CONTINUE.    4F12680     
                                          END OF PROGRAM FOR.                                         4F12681     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12682     
                                                                                                      4F12683     
                                         RSC/ CALLS=C0190,DIAG,                                       4F12684     
                                         RSC SCANS EACH CHARACTER IN A STATEMENT UNTIL EQUALITY IS    4F12685     
                                         FOUND ON ONE OF THE PUNCTUATION MARKS IN THE CTEST BLOCK IN  4F12686     
                                         COMMON.  THEN A TAGGED EXIT IS MADE THROUGH THE BLOCK OF     4F12687     
                                         CONTROL TRANSFERS INDICATED BY THE ADDRESS STORED IN CEXIT.  4F12688     
                                         RSC = ENTRY POINT FROM THE BXT SWITCH IN RDC, AND FROM SPC.  4F12689     
       05141 -0 50000 0 05361 RSC    CAL FLINE                    RESET TEMPORARY                     4F12690     
       05142  0 62100 0 01372        STA TLINE                    TABLE LINE COUNTER.                 4F12691     
       05143  0 60000 0 07400        STZ DOLEV                    CLEAR DO LEVEL COUNTER.             4F12692     
       05144  0 60000 0 01351        STZ GTAG                     CLEAR GENERALIZED TAG.              4F12693     
                                         LSC = ENTRY POINT FROM SPC.                                  4F12694     
       05145 -0 50000 0 05204 LSC    CAL LISTR                    SET CONTROL TRANSFER                4F12695     
                                         CXS = ENTRY POINT FROM EOS, BEG.                             4F12696     
       05146  0 62100 0 05156 CXS    STA CEXIT                    FOR LIST SCAN.                      4F12697     
                                         NXS = ENTRY POINT FROM LPR, SPC, CMA.                        4F12698     
       05147  0 53400 2 01414 NXS    LXA L(6),2                   RESET SYMBOL CHARACTER COUNT        4F12699     
       05150 -0 63400 2 05637        SXD CSJ,2                    AND SHIFT COUNT.                    4F12700     
       05151  0 60000 0 07404        STZ SYM                      CLEAR SYMBOL WORKING STORAGE.       4F12701     
                                         NXC = ENTRY POINT FROM CMA.                                  4F12702     
       05152  0 07400 4 01707 NXC    TSX C0190,4                * OBTAIN NEXT NB CHARACTER IN THE AC. 4F12703     
       05153  0 53400 4 02652 CLOAD  LXA CTESTX,4                 SET XR4 TO PICK CONTROL CHARACTERS. 4F12704     
