                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 378/382 ------           
       00164  0 53400 3 02173 PEC10  LXA M1CON,3         LOAD 0 INTO IRA, IRB                         F3B01070    
       00165  0 50000 0 05743        CLA ERAS+1          PUT UCHTG TABLE LENGTH IN ADDRESS AND        F3B01080    
       00166 -0 50100 0 02331        ORA FORTAG-1        FORTAG TABLE LENGTH IN DECREMENT             F3B01090    
       00167  0 76000 0 00006        COM 0               P0RTIONS OF ACCUM.                           F3B01100    
       00170  0 40000 0 02215        ADD M1CON+18        0BTAIN 25 COMP OF FORTAG                     F3B01110    
       00171  0 62200 0 00213        STD PEC16           LENGTH AND UCHTG LENGTH AND                  F3B01120    
       00172  0 76700 0 00022        ALS 18              STORE IN DEC OF TEST INST.                   F3B01130    
       00173  0 62200 0 00211        STD PEC14                                                        F3B01140    
       00174  0 50000 1 02332 PEC11  CLA FORTAG,1        SUCCESSIVE DUPLICATES IN                     F3B01150    
       00175  0 34000 1 02333        CAS FORTAG+1,1      FORTAG TABLE N0T COMPARED T0                 F3B01160    
       00176  0 02000 0 00200        TRA PEC12           UCHTG TABLE ENTRIES.                         F3801170    
       00177  1 77777 1 00174        TXI PEC11,1,-1      IRA KEEPS TRACK OF FORTAG ENTRIES.           F3B01180    
       00200  0 76700 0 00022 PEC12  ALS 18              IRC KEEPS TRACK OF UCHTG ENTRIES.            F3B01190    
       00201  0 60100 0 05742        STO ERAS            M0VE TAG OF CURRENT FORTAG ENTRY             F3B01200    
       00202  0 53400 4 02173        LXA M1CON,4         INTO DECREMENT AND COMPARE WITH              F3B01210    
       00203  0 50000 4 05267 PEC13  CLA UCHTG+1,4       TAG1 IN DECREMENT OF UCHTG                   F3B01220    
       00204 -0 32000 0 02210        ANA M1CON+13        ENTRIES. IF TAGS ARE EQUAL,                  F3B01230    
       00205  0 34000 0 05742        CAS ERAS            TEST FORTAG INTERNAL                         F3B01240    
       00206  1 77775 4 00211        TXI PEC14,4,-3      FORMULA LIES WITHIN RANGE                    F3B01250    
       00207  0 02000 0 00243        TRA PEC30           GIVEN IN FIRST WORD                          F3B01260    
       00210  1 77775 4 00211        TXI PEC14,4,-3      OF UCHTG ENTRY.                              F3B01270    
 D     00211  3 00000 4 00203 PEC14  TXH PEC13,4         2S COMP OF UCHTG LENGTH IN DECREMENT.        F3B01280    
       00212  1 77777 1 00213 PEC15  TXI PEC16,1,-1      END OF UCHTG TABLE.                          F3B01290    
 D     00213  3 00000 1 00174 PEC16  TXH PEC11,1         2S COMP OF FORTAG LENGTH IN DECREMENT.       F3B01300    
                                         END OF EDIT, COMPUTE CHTGE2                                  F3B01310    
       00214 -0 75400 2 00000 PEC17  PXD 0,2             END OF FORTAG TABLE.                         F3B01320    
       00215  0 60100 0 02277        STO CHTGL           SAVE VALUE OF IR8 FR0H                       F3B01330    
       00216  0 50000 0 02173        CLA M1CON           EDIT CHG TAG TABLE ROUTINE                   F3B01340    
       00217  0 60100 0 02300        STO CHTGE1          AS TABLE LENGTH C0NTR0L                      F3B01350    
       00220  0 53400 4 02173        LXA M1CON,4         WORD FOR CHANGE TAG TABLE                    F3B01360    
       00221  0 50000 4 05744        CLA CHTG,4          SEARCH ROUTINE AT H12500.                    F3B01370    
       00222  0 60100 0 02302        STO CHTGFN          CALCULATE NUMBER QF ENTRIES                  F3B01380    
       00223  1 77776 4 00224 PEC18  TXI PEC18+1,4,-2    IN EDITED CHG TAG TABLE WITH                 F3B01390    
       00224 -0 75400 4 00000        PXD 0,4             SAME INTERNAL FORMULA                        F3B01400    
       00225  0 40200 0 02277        SUB CHTGL           NUMBER AND RECORD IN                         F3B01410    
       00226  0 10000 0 00232        TZE PEC19           C0NTR0L WORDS CHTGE1 AND CHTGE2              F3B01420    
       00227  0 50000 4 05744        CLA CHTG,4          T0 PREVENT SEARCHING ENTIRE                  F3B01430    
       00230  0 40200 0 02302        SUB CHTGFN          EDITED CHG TAG TABLE IN                      F3B01440    
       00231  0 10000 0 00223        TZE PEC18           SEARCH AT M12500.                            F3B01450    
       00232 -0 75400 4 00000 PEC19  PXD 0,4                                                          F3B01460    
       00233  0 60100 0 02301        STO CHTGE2                                                       F3B01470    
       00234  0 02000 0 00271        TRA RST000                                                       F3B01480    
                                         ROUTINE FOR EHPTY UCHTG TABLE                                F3B01490    
       00235  0 50000 0 02173 PEC20  CLA M1CON           PLACE ZER0S INTO 3 C0NTR0L                   F3B01500    
       00236  0 60100 0 02277        STO CHTGL           WORDS FOR CHANGE TAG TABLE SEARCH            F3B01510    
       00237  0 60100 0 02300        STO CHTGE1          ROUTINE T0 INDICATE N0 ENTRIES               F3801520    
       00240  0 60100 0 02301        STO CHTGE2          IN EDITED CHG TAG TABLE.                     F3801530    
       00241  0 76000 0 00143        PSE 99              SENSE LIGHT 3 TURNED 0N T0 INDICATE          F3B01540    
       00242  0 02000 0 00271        TRA RST000          N0 ENTRIES IN EDITED CHG TAG TABLE           F3B01550    
                                         SEARCH FOR INT FMLA N0 OF CUR. FORTAG ENTRY IN UCHTG         F3B01560    
       00243  0 50000 1 02332 PEC30  CLA FORTAG,1        TAG OF FORTAG ENTRY EQUAL                    F3B01570    
       00244 -0 32000 0 02210        ANA M1CON+13        T0 TAG1 OF UCHTG ENTRY.                      F3B01580    
       00245  0 60100 0 02276        STO COMBOX          TEST FORTAG INTERNAL FORMULA                 F3B01590    
       00246  0 50000 4 05266        CLA UCHTG,4         NUMBER LIES WITHIN RANGE                     F3B01600    
