                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 187/187 ------           
       01304 -2 00001 4 01310        TNX PROFOR,4,1   FINISHED, GET OUT OF LOOP                       F1P01080    
       01305  2 00001 1 01303        TIX FL11,1,1                                                     F1P01090    
       01306  1 00061 1 01302        TXI FL10,1,49                                                    F1P01100    
       01307  0 07400 4 00004 ERROR  TSX DIAG,4                  INDEX RAN OUT AT CK SUM              F1P01110    
                                         ROUTINE TO PROCESS FORMAT TABLE                              F1P01120    
       01310  0 07400 1 07505 PROFOR TSX TAP00,1                                                      F1P01130    
       01311  0 00000 0 00012        HTR 10                                                           F1P01140    
       01312  0 00000 0 04551            OTA                                                          F1P01150    
       01313  0 07400 1 07656        TSX WAT00,1                                                      F1P01160    
       01314  0 00000 0 00012        HTR 10                                                           F1P01170    
       01315  0 00000 0 04551            OTA                                                          F1P01180    
                                         ROUTINE TO CONVERT DIM TABLES TO SIZ TABLE.                  F1P01190    
       01316 -0 53400 4 00452 ADD00  LXD DIM1IX-3,4           ENTRY COUNT                             F1P01200    
       01317 -3 00000 4 01346        TXL ADD07,4,0         TABLE EMPTY                                F1P01210    
       01320  0 53400 2 07735 ADD01  LXA L(5),2                                                       F1P01220    
       01321  0 76200 0 00303 ADD02  RDR 3                                                            F1P01230    
       01322  0 53400 1 07730        LXA L(0),1                                                       F1P01240    
       01323  0 46000 0 00453        LDA ORGDM1                                                       F1P01250    
       01324 -0 75400 0 00000        PXD 0,0                                                          F1P01260    
       01325  0 70000 1 04551 ADD03  CPY OTA,1             COPY NAME                                  F1P01270    
       01326  0 70000 1 04552        CPY OTA+1,1           COPY N1                                    F1P01280    
       01327  1 77776 1 01330        TXI ADD04,1,-2                                                   F1P01290    
       01330 -0 70000 0 02106 ADD04  CAD GARBGE            COPY AND SUM CK SUMS                       F1P01300    
       01331  2 00001 4 01325        TIX ADD03,4,1                                                    F1P01310    
       01332  0 76000 0 00006        COM                                                              F1P01320    
       01333 -0 53400 4 00452        LXD DIM1IX-3,4                                                   F1P01330    
       01334  0 53400 1 07730        LXA L(0),1                                                       F1P01340    
       01335  0 36100 1 04551 ADD05  ACL OTA,1             SUM ENTRIES                                F1P01350    
       01336  0 36100 1 04552        ACL OTA+1,1                                                      F1P01360    
       01337  1 77776 1 01340        TXI ADD06,1,-2                                                   F1P01370    
       01340  2 00001 4 01335 ADD06  TIX ADD05,4,1                                                    F1P01380    
       01341  0 76000 0 00006        COM                                                              F1P01390    
       01342  0 10000 0 01347        TZE ADD08                                                        F1P01400    
       01343 -0 53400 4 00452        LXD DIM1IX-3,4        CHECK SUM ERROR,  TRY AGAIN                F1P01410    
       01344  2 00001 2 01321        TIX ADD02,2,1                                                    F1P01420    
       01345  0 07400 4 00004        TSX DIAG,4            REPEATED CK SUM ERRORS IN READING DRUM     F1P01430    
       01346  0 53400 1 07730 ADD07  LXA L(0),1                                                       F1P01440    
       01347 -0 63400 1 02110 ADD08  SXD NEWBAS,1                                                     F1P01450    
                                         NOW READ DIM2 TABLE                                          F1P01460    
       01350 -0 53400 4 00457        LXD DIM2IX-3,4                                                   F1P01470    
       01351 -3 00000 4 01413        TXL ADD18,4,0         TABLE EMPTY                                F1P01480    
       01352  0 53400 2 07735 ADD09  LXA L(5),2                                                       F1P01490    
       01353  0 76200 0 00303 ADD10  RDR 3                                                            F1P01500    
       01354 -0 53400 1 02110        LXD NEWBAS,1                                                     F1P01510    
       01355  0 46000 0 00460        LDA ORGDM2                                                       F1P01520    
       01356 -0 75400 0 00000        PXD 0,0                                                          F1P01530    
       01357  0 70000 1 04551 ADD11  CPY OTA,1             COPY NAME                                  F1P01540    
       01360  0 70000 1 04552        CPY OTA+1,1           COPY N1 N2                                 F1P01550    
       01361  1 77776 1 01362        TXI ADD12,1,-2                                                   F1P01560    
       01362 -0 70000 0 02106 ADD12  CAD GARBGE            COPY AND SUM CK SUMS                       F1P01570    
       01363  2 00001 4 01357        TIX ADD11,4,1                                                    F1P01580    
       01364  0 76000 0 00006        COM                                                              F1P01590    
       01365 -0 53400 4 00457        LXD DIM2IX-3,4                                                   F1P01600    
       01366 -0 53400 1 02110        LXD NEWBAS,1                                                     F1P01610    
