                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 105/105 ------           
       04047 -0 50000 0 01112 C3353  CAL 1G                     RETREIVE WORD                         4F13723     
       04050 -2 00001 2 04063        TNX C3358,2,1              TEST FOR ALL CHARS COLLECTED          4F13724     
       04051 -2 00001 1 04061        TNX C3356,1,1              TEST FOR SIX CHARS COLLECTED          4F13725     
       04052  0 02000 0 04040        TRA C3352                  NOT SIX CHARS YET, CONTINUE C0LLECTING4F13726     
       04053 -0 53400 4 01614 C3354  LXD FWA,4                  LOAD MQ WITH NEXT F REGION WORD       4F13727     
       04054  0 56000 4 00000        LDQ 0,4                                                          4F13728     
       04055  1 77777 4 04056        TXI C3355,4,-1             UPDATE FWA                            4F13729     
       04056 -0 63400 4 01614 C3355  SXD FWA,4                                                        4F13730     
       04057  0 53400 4 01414        LXA L(6),4                 RESET MQ CHAR COUNT TO SIX            4F13731     
       04060  0 02000 0 04041        TRA C33525                 CONTINUE COLLECTING                   4F13732     
       04061  0 07400 1 04437 C3356  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13733     
       04062  1 00000 0 04036 C3357  TXI C3351,0,**             RETURN TO CONTINUE COLLECTING         4F13734     
       04063 -0 60000 0 01365 C3358  STQ RESIDU                 UPDATE RESIDU                         4F13735     
       04064 -0 63400 4 01724        SXD CHCTR,4                UPDATE CHCTR                          4F13736     
       04065 -2 00001 1 04071        TNX C3360,1,1              TEST FOR SIX CHARS IN AC DEC IR1      4F13737     
       04066  0 56000 0 01526        LDQ BLANKS                 NOT SIX CHARS, PREPARE TO ADD BLANKS  4F13738     
       04067 -0 76300 0 00006 C3359  LGL 6                      ADD BLANKS                            4F13739     
       04070  2 00001 1 04067        TIX C3359,1,1                                                    4F13740     
       04071  0 07400 1 04437 C3360  TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13741     
       04072 -0 50000 0 01531        CAL ALL1                   GET WORD OF ONES                      4F13742     
       04073  0 07400 1 04437        TSX C3390,1                GO TO ENTER WORD IN HOLARG TABLE      4F13743     
                                             LEVEL ANALYSIS                                           4F13744     
       04074 -0 50000 0 00415 LATXL  CAL TXLOP                                                        4F13745     
       04075  0 02000 0 04077        TRA LATXL+3                                                      4F13746     
       04076 -0 50000 0 00422 LATXH  CAL TXHOP                                                        4F13747     
       04077  0 63000 0 04424        STP CM4105                                                       4F13748     
       04100  0 53400 1 01406 LA0000 LXA L(0),A                                                       4F13749     
       04101  0 50000 0 01130        CLA E+2                                                          4F13750     
       04102 -0 76000 0 00142        SLT 2                 IS THIS A FUNCTION NAME                    4F13751     
       04103  0 02000 0 04144        TRA LA0000+36         NO                                         4F13752     
       04104  0 76000 0 00142        SLN 2                 YES - TURN F LITE BACK ON                  4F13753     
       04105 -0 53400 4 00470        LXD BK,C IS           FORSUB EMPTY                               4F13754     
       04106 -3 00000 4 04115        TXL LA0000+13,C,0     YES. GO SET  FS BITS TO 0                  4F13755     
       04107 -0 63400 4 04114        SXD LA0000+12,C                                                  4F13756     
       04110  0 34000 1 00471        CAS FORSUB,A          SEARCH  FN NAME IN FORSUB                  4F13757     
       04111  1 77776 1 04114        TXI LA0000+12,A,-2                                               4F13758     
       04112  0 02000 0 04117        TRA LA0000+15                                                    4F13759     
       04113  1 77776 1 04114        TXI LA0000+12,A,-2                                               4F13760     
       04114  3 00000 1 04110        TXH LA0000+8,A,0                                                 4F13761     
       04115  0 60000 0 05302        STZ FSBITS            SET FSBITS TO 0                            4F13762     
       04116  0 02000 0 04131        TRA LA0000+25                                                    4F13763     
       04117 -0 50000 1 00472        CAL FORSUB+1,A        FN NAME IN FORSUB                          4F13764     
       04120 -0 32000 0 01452        ANA MASK2             EXTRACT TYPE NUMBER                        4F13765     
       04121 -0 53400 4 01122        LXD ARGCTR,C          IS THIS A FUNCTION  STATEMENT              4F13766     
       04122 -3 00000 4 04126        TXL LA0000+22,C,0     NO                                         4F13767     
       04123  0 34000 0 05301        CAS FSTYPE            YES - UPDATE FS TYPE                       4F13768     
       04124  0 62100 0 05301        STA FSTYPE                                                       4F13769     
 D     04125  3 00000 0 00000        TXH 0,0                                                          4F13770     
       04126  0 76700 0 00007        ALS 7                                                            4F13771     
       04127 -0 50100 0 01464        ORA FSIND                                                        4F13772     
       04130  0 60200 0 05302        SLW FSBITS                                                       4F13773     
       04131 -0 53400 1 01117        LXD 3LBAR,A           LOAD LA COUNTERS                           4F13774     
       04132 -0 53400 2 01360        LXD NBAR,B                                                       4F13775     
       04133 -0 53400 4 05300        LXD ABAR,C                                                       4F13776     
