                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 435/439 ------           
       00746  0 60100 0 01224        STO FFLCOM+2        3RD. WORD OF COMPILER                        F3B04850    
       00747  0 07400 4 01022        TSX CIT00,4         COMPILE INSTRUCTION-4                        F3B04860    
       00750  0 00000 0 01141        HTR L(0)            ZERO                                         F3B04870    
       00751  0 00000 0 01156        HTR L(LXD)          LXD INSTRUCTION                              F3B04880    
       00752  0 00000 0 01224        HTR FFLCOM+2                                                     F3B04890    
       00753  0 00000 0 01225        HTR FFLCOM+3                                                     F3B04900    
       00754  1 77776 1 00755        TXI M31030,1,-2     STEP UP COUNT FOR NEXT TSXCOM ENTRY          F3B04910    
       00755 -0 63400 1 01226 M31030 SXD TSXCOM-2,1      SAVE NEW WORD COUNT                          F3B04920    
       00756  0 02000 0 00727        TRA M31005          BACK T0 SEARCH REMAING ENTRIES               F3B04930    
       00757  0 07400 4 01022 M31035 TSX CIT00,4             TYPE I ENTRY                             F3B04940    
       00760  0 00000 0 01141        HTR L(0)            ZERO                                         F3B04950    
       00761  0 00000 0 01157        HTR L(SXD)          SXD                                          F3B04960    
       00762  0 00000 0 01152        HTR L(6H)           +060000000000                                F3B04970    
       00763  0 00000 0 01155        HTR L(5.4)          000004000004                                 F3B04980    
       00764  0 50000 1 01231        CLA TSXCOM+1,1      SECOND WORD OF ENTRY                         F3B04990    
       00765 -0 32000 0 01163        ANA AMASK           SAVE ADDRESS                                 F3805000    
       00766 -0 50100 0 01153        ORA L(10H)          ADD 120000000000                             F3B05010    
       00767  0 60100 0 01224        STO FFLCOM+2        IN 3RD. WORD QF COMPILER                     F3B05020    
       00770  0 07400 4 01022        TSX CIT00,4         FOR NEXT INSTRUCTION                         F3B05030    
       00771  0 00000 0 01141        HTR L(0)            ZERO                                         F3B05040    
       00772  0 00000 0 01160        HTR L(TSX)          TSX                                          F3B05050    
       00773  0 00000 0 01224        HTR FFLCOM+2        12(8) PLUS ADDRESS                           F3805060    
       00774  0 00000 0 01145        HTR L(4)            +000000000004                                F3B05070    
       00775  0 50000 1 01231 M31050 CLA TSXCOM+1,1      SECOND WORD                                  F3B05080    
       00776 -0 32000 0 01163        ANA AMASK           SAVE ADDRESS                                 F3B05000    
       00777  0 60100 0 01225        STO FFLCOM+3        STORE IN 4TH. WORD OF COMPILED INSTR.        F3805100    
       01000 -0 50100 0 01154        ORA L(12H)          ADD 12(8) AND DT0RE IN 3RD.                  F3B05110    
       01001  0 60100 0 01224        STO FFLCOM+2        WORD OF INSTRUCTION IN COMPILER              F3805120    
       01002  0 07400 4 01022        TSX CIT00,4                                                      F3B05130    
       01003  0 00000 0 01141        HTR L(0)            ZERO                                         F3B05140    
       01004  0 00000 0 01161        HTR L(LXP)          LXP                                          F3B05150    
       01005  0 00000 0 01224        HTR FFLCOM+2        12(8) PLUS ADDDRESS                          F3B05160    
       01006  0 00000 0 01225        HTR FFLCOM+3        ADDRESS                                      F3B05170    
       01007  1 77776 1 01010        TXI M31063-1,1,-2   RESET IR1 FOR NEXT ENTRY                     F3B05180    
       01010 -0 63400 1 01226        SXD TSXCOM-2,1      SAVE WORD COUNT                              F3B05190    
       01011  0 07400 4 01022 M31063 TSX CIT00,4       COMPILE INSTRUCTION                            F3B05200    
       01012  0 00000 0 01141        HTR L(0)            ZERO000000000                                F3B05210    
       01013  0 00000 0 01156        HTR L(LXD)          LXD                                          F3B05220    
       01014  0 00000 0 01152        HTR L(6H)           +060000000000                                F3B05230    
       01015  0 00000 0 01155        HTR L(5.4)          000004000004                                 F3B05240    
       01016  0 02000 0 00727        TRA M31005          CONT) UE TABLE SEARCH                        F3B05230    
       01017 -0 53400 1 01211 M31080 LXD E3M3,1          END OF TSXCOM TABLE SEARCH                   F3B05260    
       01020 -0 53400 4 01210        LXD E2M3,4          RESTORE IR COUNTS FR0H LINKAGE               F3805270    
       01021  0 02000 4 00001        TRA 1,4             AND G0 BACK TQ HAIN ROUT)NE                  F3805280    
                                         COMPILING ROUTINE,CIT00                                      F3B05290    
       01022 -0 60000 0 01204 CIT00  STQ E1C             SAVE CONTENTS OF MQ                          F3B05300    
       01023 -0 63400 1 01205        SXD E2C,1           SAVE CONTENTS OF IR1                         F3B03310    
       01024 -0 63400 2 01206        SXD E3C,2           SAVE CONTENTS OF IR12                        F3B05320    
       01025 -0 53400 2 01207        LXD BBOX,2          2S COMPLIMENT OF N0. OF WORDS OF ENTRY       F3B05330    
       01026  3 77634 2 01036        TXH CIT04,2,-100    TEST IF LESS THAN 100 AND GREATER            F3B05340    
       01027 -3 00000 2 01036        TXL CIT04,2,0       THAN ZERO . IF S0. COMPILE )NSTRUCTION       F3B033S0    
       01030  0 76600 0 00224        WRS 148                                                          F3B05360    
       01031  0 53400 1 01141        LXA M1CON,1         SET COUNT IN IR 1 T0 ZERO                    F3B05370    
       01032  0 70000 1 02526 CIT01  CPY CIB,1           REFILL BUFFER                                F3B05380    
