                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 379/383 ------           
       00247 -0 32000 0 02210        ANA M1CON+13        GIVEN IN FIRST WORD OF UCHTG                 F3B01610    
       00250  0 34000 0 02276        CAS COMBOX          ENTRY. IF RANGE C0NDITION IS                 F3B01620    
       00251  1 77775 4 00211        TXI PEC14,4,-3      SATISFIED, PRODUCE ENTRY                     F3B01630    
       00252  1 77775 4 00211        TXI PEC14,4,-3      FOR EDITED CHG TAG TABLE.                    F3B01640    
       00253  0 50000 4 05266        CLA UCHTG,4         EDITED CHG TAG ENTRY C0NSISTS                F3B01650    
       00254  0 76700 0 00026        ALS 22              OF 2 WORDS. FIRST WORD HAS                   F3B01660    
       00255  0 77100 0 00004        ARS 4               INTERNAL FORMULA NUMBER                      F3B01670    
       00256  0 34000 0 02276        CAS COMBOX          IN DECREMENT AND ZER0S IN                    F3B01680    
       00257  0 02000 0 00262        TRA PEC31           ADDRESS. SEC0ND WORD HAS                     F3B01690    
       00260  0 02000 0 00262        TRA PEC31           TAG1 IN DECREMENT AND TAG2                   F3B01700    
       00261  1 77775 4 00211        TXI PEC14,4,-3      IN ADDRESS TAKEN FR0H 2ND                    F3801710    
       00262  0 50000 0 02276 PEC31  CLA COMBOX          WORD OF UCHTG ENTRY. C0NTINUE                F3B01720    
       00263  0 60100 2 05744        STO CHTG,2          WITH FORTAG AND UCHTG TAG                    F3B01730    
       00264  0 50000 4 05267        CLA UCHTG+1,4       COMPARIS0N LOOP UNTIL FORTAG                 F3B01740    
       00265  0 60100 2 05745        STO CHTG+1,2        TABLE EXHAUSTED.                             F3B01750    
       00266  1 77776 2 00267        TXI PEC32,2,-2                                                   F3B01760    
       00267  3 76646 2 00212 PEC32  TXH PEC15,2,-602    CHTG BLOCK EXCEEDS ALL0CATED 600 WORDS       F3B01770    
       00270  0 07400 4 00004        TSX 4,4             CHTG BLOCK EXCEEDS ALL0CATED 600 WORDS.      F3B01780    
                                         SXTX TABLE READ ROUTINE                                      F3B01790    
       00271 -0 76000 0 00142 RST000 MSE 98              TES, IF D0 FILE EHPTY.                       F3B01800    
       00272  0 02000 0 00274        TRA RST005-1        SENSE LIGHT 2 QN INDICATES                   F3801810    
       00273  0 02000 0 00340        TRA M10200          N0 SXTX ENTRIES.                             F3B01820    
       00274  0 53400 4 02167        LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR.             F3B01830    
       00275  0 76200 0 00301 RST005 RDS 193             SXDTX TABLE 0N LOGICAL DRUM 1,               F3B01840    
       00276  0 46000 0 02216        LDA M1CON+19        STARTING AT L0CATION 202                     F3B01850    
       00277  0 70000 0 05742        CPY ERAS            1ST WORD IS 0RIGIN + 2+ TAB LENGTH.          F3801860    
       00300  0 70000 0 05743        CPY ERAS+1          2ND DR WD IS CK SUH FOR 1ST WD.              F3801870    
       00301 -0 50000 0 05742        CAL ERAS            SXDTX TABLE ENTRY HAS 3 WORDS.               F3801880    
       00302  0 40200 0 05743        SUB ERAS+1          THIRD WORD IS CHECK SUH.                     F3B01890    
       00303  0 10000 0 00306        TZE RST020          TEST THAT FIRST 2 WORDS OFF                  F3801900    
       00304  2 00001 4 00275        TIX RST005,4,1      DRUM READ C0RRECTLY.                         F3801910    
       00305  0 07400 4 00004        TSX 4,4             DRUM READ 5 TIMES UNSUCCESSFULLY.            F3B01920    
       00306  0 53400 4 02167 RST020 LXA M1ECTR,4        LOAD 5 INTO IRC DR RD ERROR CTR              F3801930    
       00307  0 50000 0 05742 RST021 CLA ERAS            SUBTRACT 0RIGIN+2 FR0H FIRST                 F3B01040    
       00310  0 40200 0 02217        SUB M1CON+20        WORD T0 GET SXDTX TABLE LENGTH.              F3801950    
       00311 -0 10000 0 00314        TNZ RST030                                                       F3801960    
       00312  0 60100 0 02303        STO SXTXL           STORE 0 AS SXDTX LENGTH IF N0                F3801970    
       00313  0 02000 0 00340        TRA M10200          )ENTRIS AND GD1TD READ AIL RTN.              F337UMH3    
       00314  0 60100 0 02303 RST030 STO SXTXL           STORE SXDTX LENGTH AND LOAD                  F3B01990    
       00315  0 73400 3 00000        PAX 0,3             SX0TX LENGTH INTO IRA, IRB.                  F3802000    
       00316  0 40200 0 00327        SUB RST040+3        CALC. ADDRESS T0 READ IN SXTX TABLE.         F3802010    
       00317  0 62100 0 00324        STA RST040          INITIAL WORD OF TABLE IS                     F3B02020    
       00320  0 62100 0 00466        STA M10305          FORTAG + 300. INIT)ALIZE                     F3802030    
       00321  0 62100 0 00474        STA M10310+1        ADDRESSES FOR SXTX TABLE SEARCH.             F3802040    
       00322  0 76200 0 00301        RDS 193             READ SXTX ENTRIES FR0H                       F3802050    
       00323  0 46000 0 02217        LDA M1CON+20        DRUM 1, L0C. 204.                            F3B02060    
       00324  0 70000 2 00000 RST040 CPY 0,2             CPY LOOP                                     F3B02070    
       00325  2 00001 2 00324        TIX RST040,2,1      SXTX TABLE LENGTH IN IRB.                    F3802080    
       00326  0 53400 2 02173        LXA M1CON,2                                                      F3B02090    
       00327 -0 50000 2 03006        CAL SXTX,2          TEST LOGICAL SUM OF 1ST TWO                  F3802100    
       00330  0 36100 2 03007        ACL SXTX+1,2        WORDS EQUAL CHECK SUH IN 3RD                 F3802110    
       00331  0 40200 2 03010        SUB SXTX+2,2        WORD FOR EACH SXTX ENTRY.                    F3802120    
       00332  0 10000 0 00335        TZE RST060          PROGRAM AUT0HAT)CALLY TRIES                  F3B02130    
       00333  2 00001 4 00307        TIX RST021,4,1      RE-READING DRUM 3 TIMES IF ERROR.            F3802140    
