                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 302/306 ------           
       00527  0 07400 4 00674  EQUAL TSX ST0TP,4                                                      F2400510    
       00530  0 02000 0 00513        TRA TEST-1                                                       F2400520    
       00531  0 07400 4 00735 FINISH TSX LINKTR,4          FORM LAST SUBROUTINE RETURN,               F2400530    
       00532  0 50000 0 01071        CLA FC08+1            FIXC0N WORD COUNT                          F2400540    
       00533  0 76600 0 00302        WRS 194                                                          F2400550    
       00534 -0 32000 0 01424        ANA DECMSK            ADJUST F1XC0N WDRDCT                       F2400560    
       00535  0 40000 0 01421        ADD L1DEC                                                        F2400570    
       00536  0 77100 0 00021        ARS 17                WRITE FIXC0N WORDCT AND                    F2400580    
       00537  0 60100 0 01401        STO AD1               ITS CHECKSUH 0N DRUM, IN                   F2400590    
       00540  0 70000 0 01401        CPY AD1               ITS 0RIGINAL P0SITION, AT THE              F2400600    
       00541  0 70000 0 01401        CPY AD1               BEGINNING.                                 F2400610    
       00542  0 07400 4 01021        TSX CITSP,4           WRITE CIT BUFFER 0N TAPE                   F2400620    
       00543  0 77000 0 00222        WEF 146               WRITE E.0.F. 0NCIT TAPE                    F2400630    
       00544  0 76600 0 00222        WRS 146                                                          F2400640    
       00545  0 70000 0 01400        CPY RECCNT            WRITE CIT RECORDCOUNT AND                  F2400650    
       00546  0 70000 0 01400        CPY RECCNT            CHECKSUM 0N CIT TAPE                       F2400660    
       00547  0 77000 0 00222        WEF 146               WRITE E.0.F. 0N CIT TAPE.                  F2400670    
       00550  0 53400 1 01400        LXA RECCNT,1          BACKSPACE CIT TAPE                         F2400680    
       00551  1 00003 1 00552        TXI BST,1,3           UNTIL 1ST CIT RECORD                       F2400690    
       00552  0 76400 0 00222  BST   BST 146               THAT THIS BLOCK COMPILED.                  F24007DO    
       00553  2 00001 1 00552        TIX BST,1,1                                                      F2400710    
       00554  0 76000 0 00140        PSE 96                TURN OFF ALL SENSE LIGHTS.                 F2400720    
       00555  0 50000 0 01415        CLA SENSE1            RESET LIGHT 3 T0 THE STATUS                F2400730    
       00556  0 10000 0 00560        TZE END               IT HELD BEFORE THE                         F2400740    
       00557  0 76000 0 00143        PSE 99                C0MMENCEMENT OF THIS BLOCK.                F2400750    
       00560  0 76200 0 00221  END   RDS 145               SKIP 0VER DIAGN0STIC RECORD 0N SYSTEM TAPE ..--=.-=    
       00561  0 02000 0 00004        TRA 4                                                                        
       00562 -0 63400 1 01402 COMPIL SXD 1XB0X,1                                                      F2400770    
       00563 -0 63400 2 01403        SXD 2XB0X,2                                                      F2400780    
       00564 -0 63400 4 01012        SXD LINK1,4           SAVE LINKAGE                               F2400790    
       00565  0 76000 0 00140        PSE 96                TURN ALL SENSE LIGHTS OFF                  F2400800    
       00566  0 07400 4 01240        TSX C0SE,4            0BTAIN NAME OF I0EFF. IN FIXC0N.           F2400810    
       00567  0 50000 0 01426        CLA L(CLA)                                                       F2400820    
       00570  0 60100 0 01051        STO CIL01             THIS ROUTINE COMPILES                      F2400830    
       00571  0 50000 0 00451        CLA OR000+13          THE INSTRUCTION                            F2400840    
       00572 -0 32000 0 01422        ANA 6ONES                                                        F2400850    
       00573  0 60100 0 01052        STO CIL02             CLA 6)+3,                                  F2400860    
       00574  0 50000 0 01432        CLA L(3)              WITH ZER0 TAG,                             F2400870    
       00575  0 76700 0 00022        ALS 18                                                           F2400880    
       00576  0 60100 0 01053        STO CIL03             T0GETHER WITH A SYMB0LIC                   F240A890    
       00577  0 50000 0 01375        CLA NAME1             L0CATION OF                                F2400900    
       00600 -0 50100 0 01420        ORA BCD10                                                        F2400910    
       00601  0 60100 0 01050 ST0L0C STO CIL00             10)+NAHE1                                  F240A6I0    
       00602  0 07400 4 01015        TSX CIT,4             ENTER INSTR. IN CIT                        F2400930    
       00603  0 50000 0 01425        CLA L(STO)                                                       F2400940    
       00604  0 60100 0 01051        STO CIL01             THIS ROUTINE COMPILES THE                  F2400950    
       00605  0 50000 0 00466        CLA OR000+26          INSTRUCTION.                               F2400960    
       00606  0 73400 1 00000        PAX 0,1                                                          F2400970    
       00607 -0 32000 0 01422        ANA 6ONES             ST0 1)+3                                   F2400980    
       00610 -0 63400 1 01053        SXD CIL03,1           THESE COMPILED INSTR. PLACE                F2400990    
       00611  0 60100 0 01052        STO CIL02             1 IN ERASABLE ST0RAGE                      F2401000    
 T     00612 -0 75400 0 00000        PXD 0                                                            F2401010    
       00613  0 60100 0 01050        STO CIL00                                                        F2401020    
       00614  0 07400 4 01015        TSX CIT,4             ENTER INSTR. IN CIT                        F2401030    
