                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 343/347 ------           
       06445 +000000002215           OCT 2215              2R                                         F2516750    
       06446 +000000002200           OCT 2200              2R                                         F2516760    
                                         *************************************************************F2516770    
                                         CN3IJ COMPUTES THE INDEX INCREMENTING VALUE FOR EACH PASS THRF2516780    
                                         THR0UGH A DQ LOOP.  THIS IS THE N0RHAL TXI DECREMENT. --- )..F2516790    
       06447  0 56000 2 01102 CN3IJ  LDQ DOTAGZ+4,2        COMPUTES DECREMENT AND           )         F2516800    
       06450  0 76300 0 00022        LLS 18                LEAVES IT IN ACCUMULAT0R.                  F2516810    
       06451  3 00002 1 06457        TXH CN3IJ5,1,2        IF POSIND=3, S1 POS.                       F2516820    
       06452  0 20000 0 03644        MPY WRKSC+6           01N3 FOR S2 0R S3.                         F2516830    
       06453  0 76500 0 00022        LRS 18                                                           F2516840    
       06454  3 00001 1 06457        TXH CN3IJ5,1,1        POSIND=2 S2 POS.                           F2516850    
       06455  0 20000 0 03645        MPY WRKSC+7           D2D1N3 FOR S3.                             F2516860    
       06456  0 76500 0 00022        LRS 18                                                           F2516870    
       06457 -0 75400 1 00000 CN3IJ5 PXD 0,1               PLACE TWICE                                F2516880    
       06460  0 76700 0 00001        ALS 1                 )MSIND IN                                  F2516890    
       06461 -0 73400 1 00000        PDX 0,1               INDEX REGISTLR.                            F2516900    
       06462  0 20000 1 03644        MPY WRKSC+6,1         CN3D1D2 0R CN3D1 0R CN3.                   F2516910    
       06463  0 77100 0 00001        ARS 1                                                            F2516920    
       06464  0 02000 4 00001        TRA 1,4               RESULT IS N3G.                             F2516930    
                                         *************************************************************F2516940    
                                         CIL023 FILLS OUT THE L0CATION, ADDRESS, AND TAG NAHE WORDS FOF2516950    
                                         FOR N0N-L0CATION COMPILED INSTRUCTIONS ADDRESSING THE FOLLOWIF2516960    
                                         ING INSTRUCTIONS                                             F2516970    
       06465  0 50000 0 05133 CIL023 CLA L(0)              ROUTINE PLACES SPECIAL                     F2516980    
       06466  0 60100 0 05176        STO CIL00                                                        F2516990    
       06467  0 50000 0 05061        CLA L1DEC             SYMBOL FOR ADDRESS                         F2517000    
       06470  0 60100 0 05201        STO CIL03                                                        F2517010    
       06471  0 50000 0 05077        CLA BCD15             AND INITIALIZES L0C. WORD                  F2517020    
       06472  0 60100 0 05200        STO CIL02             AND PLACES TAG IN                          F2517030    
       06473  0 50000 0 03652        CLA TAG3              TAG WD. THIS IS DOEN                       F2517040    
       06474  0 62100 0 05201        STA CIL03             FOR INST. OF K DECREMENT.                  F2517050    
       06475  0 02000 4 00001        TRA 1,4                                      ).                  F2517060    
                                         *************************************************************F2517070    
                                         TGA MAKES AN ENTRY IN APPENDED TAGTAG SH0WING THE L0CATION OFF2317080    
                                         A GIVEN VARIABLE 0ECREMENT TXI 0R TIX.  FOR REFERENCE BY THE F2517090    
                                         ALPHA STATE WHEN COMPILING CECREHENT INITIALIZATION          F2517100    
                                         INSTRUCTIONS.                                                F2517110    
       06476  0 76700 0 00022 TGA    ALS 18                FOR RX L0C.                                F2517120    
       06477  0 77100 0 00003 TGAT   ARS 3                 FOR TX L0C, DIV VCT0R BY 8.                F2517130    
       06500  0 60100 0 05202        STO ERTGA                                                        F2517140    
       06501  0 53400 1 05240        LXA POSIND,1                                                     F2517150    
       06502  0 50000 0 05237        CLA XTG               (DLCULATES X L0C OF TTGA.                  F2517160    
       06503  0 77100 0 00002        ARS 2                 INDEX QUANTITY FOR TTGA IS                 F2517170    
       06504 -0 73400 2 00000        PDX 0,2               ONE F0URTH THAT FOR TTG.                   F2517180    
       06505  0 50000 0 05202        CLA ERTGA                                                        F2517190    
       06506  2 00001 1 06511 TGA5   TIX TGA10,1,1         SHIFT LEFT FOR S1 0R S2                    F2517200    
 M     06507 -0 60200 2 02646 TGA8   ORS MXTGA,2           A0DRESS IS 0RIGIN PLUS MAX                 F2517210    
       06510  0 02000 4 00001        TRA 1,4               A0D TG WD. LINKAGE TRANSFER.               F2517220    
       06511  0 76700 0 00006 TGA10  ALS 6                                                            F2517230    
       06512  0 02000 0 06506        TRA TGA5                                                         F2517240    
                                         *************************************************************F23172S0    
                                         EDCB COMPILES TXI-SXD-TIX INSTRUCTIONS AND STORES THE SXD L0CF2517260    
                                         ATION FOR BLOCKS B,C,D, 0R E WHEN THE DECREMENTS ARE C0NSTANTF2517270    
                                         AND KN0WN.                                                   F2517280    
