                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 384/388 ------           
       00654  0 07400 4 00004        TSX 4,4             N0ZOF-WORDS-N0T A MULTIPLE OF 4              F3B04310    
       00655 -0 76000 0 00141 M11055 MSE 97              END OF AIL FILE IF LIGHT 1 0N,               F3B04320    
       00656  0 02000 0 00661        TRA M11060                                                       F3B04330    
       00657  0 76000 0 00141        PSE 97              AIL AT EOF. C0NTINUE                         F3B04340    
       00660  0 02000 0 00636        TRA M11030          COMPILING D0 INSTR.                          F3B04350    
       00661  0 50000 2 02476 M11060 CLA DO,2            GET NEXT D0 INST SAME BLOCK                  F3B04360    
       00662 -0 32000 0 02210        ANA M1CON+13        AS PREVI0US ONE.                             F3B04370    
       00663  0 34000 0 02312        CAS M1DOFN          AIL AND D0 FMLA N0S IN DECREMENTS.           F3B04380    
       00664  0 02000 0 00626        TRA M11010          D0 FMLA N0. GREATER AIL N0.                  F3B04390    
       00665  0 76100 0 00000        NOP                 D0 FMLA N0. EQUALS AIL N0.                   F3B04400    
       00666  0 02000 0 00636        TRA M11030          D0 FMLA N0. LESS AIL NQ.                     F3B04410    
       00667  1 77777 1 00670 M11070 TXI M11070+1,1,-1                                                F3B04420    
       00670  0 50000 1 02332        CLA AIL,1           TEST IF CURRENT AIL 0PER RDS                 F3B04430    
       00671  0 40200 0 02241        SUB M1ABC+17                                                     F3B04440    
       00672  0 10000 0 00677        TZE M11080                                                       F3B04450    
       00673  0 50000 1 02332        CLA AIL,1           TEST IF CURRENT AIL 0PER WRS                 F3B04460    
       00674  0 40200 0 02252        SUB M1ABC+26                                                     F3B04470    
       00675  0 10000 0 00677        TZE M11080                                                       F3B04480    
       00676  1 00001 1 00751        TXI M12000,1,1      RESTORE IRA CURRENT AIL VALUE.               F3B04490    
       00677  1 00001 1 00700 M11080 TXI ERR3,1,1        T0 TEST IF SPACING TAPE.                     F3B04500    
       00700  0 50000 2 02476 ERR3   CLA DO,2            TEST IF B0TH AIL AND D0 HAVE SAME FORMULA N0.F3B04510    
       00701 -0 32000 0 02211        ANA M1CON+14        DETERMINE IF D0 0R AIL INSTR COMPILED FIRST. F3B04520    
       00702  0 10000 0 00704        TZE RET2            LXD BEFORE RDS HAS ZER0 L0CATION.            F3B04530    
       00703  0 02000 0 00751        TRA M12000          T0 COMPILE AIL INSTRUCTION.                  F3B04540    
       00704  0 50000 0 02213 RET2   CLA M1CON+16        INCREASE AIL 1ST WD ADDRESS                  F3B04550    
       00705 -0 60200 1 02332        ORS AIL,1           FOR SEC. 4 PURP0SES.                         F3B04560    
       00706  0 02000 0 00636        TRA M11030          T0 COMPILE D0 INSTR.                         F3B04570    
                                         COMPILING ROUTINE,CIT00                                      F3B04580    
       00707 -0 60000 0 02317 CIT00  STQ E1C             E1C CELL FOR SAVING MQ.                      F3B04590    
       00710 -0 63400 1 02320        SXD E2C,1           E2C CELL FOR SAVING IRA.                     F3B04600    
       00711 -0 63400 2 02321        SXD E3C,2           E3C CELL FOR SAVING IRB.                     F3B04610    
       00712 -0 53400 2 02322        LXD BB0X,2          2S COMP N0. ALREADY IN BLOCK.                F3B04620    
       00713  3 77634 2 00723        TXH CIT04,2,-100    TR N0. WDS IN BLOCK LESS 100.                F3B04630    
       00714 -3 00000 2 00723        TXL CIT04,2,0       TR N0. WDS IN BLOCK EQUALS 0.                F3B04640    
       00715  0 76600 0 00223        WRS 147             WRITE-OUT BLOCK OF 100                       F3B04650    
       00716  0 53400 1 02173        LXA M1CON,1         WORDS WHICH HAKE UP                          F3B04660    
       00717  0 70000 1 02642 CIT01  CPY CIB,1           25 COMPILED INSTR. 0N TP 3.                  F3B04670    
       00720  1 77777 1 00721        TXI CIT02,1,-1                                                   F3B04680    
       00721  1 00001 2 00722 CIT02  TXI CIT03,2,1       WRITING OF CIB BUFFER                        F3B04690    
       00722  3 00001 2 00717 CIT03  TXH CIT01,2,1       FINISHED WHEN IR8 IS 0.                      F3B04700    
       00723  0 53400 1 02177 CIT04  LXA M1CON+4,1       ROUTINE T0 PLACE 4 WORDS                     F3B04710    
       00724  0 50000 0 02174        CLA M1CON+1         OF COMPILED INSTR IN CIB                     F3B04720    
       00725  0 62100 0 00726        STA CIT05           BUFFER OF 100 WORDS,                         F3B04730    
       00726  0 50000 4 00000 CIT05  CLA 0,4             IRC C0NTAINS 2S COMP L0C OF                  F3B04740    
       00727  0 62100 0 00730        STA CIT06           CALLING SEQ LESS 1,                          F3B04750    
 A     00730  0 50000 0 00000 CIT06  CLA                 INSTR ADDRESS SEQUENT1ALLY                   F3B04760    
       00731  0 60100 2 02642        STO CIB,2           H1CW, M1CW+1, M1CW+2                         F3B04770    
       00732  0 50000 0 00726        CLA CIT05           AND M1CW+3.                                  F3B04780    
       00733  0 40000 0 02174        ADD M1CON+1                                                      F3B04790    
       00734  0 62100 0 00726        STA CIT05                                                        F3804800    
       00735  1 77777 2 00736        TXI CIT07,2,-1                                                   F3B04810    
       00736  2 00001 1 00726 CIT07  TIX CIT05,1,1       IRA LOADED WITH 4.                           F3B04820    
       00737 -0 63400 2 02322        SXD BB0X,2          2S COMPL N0. WORDS ALREADY IN BLOCK.         F3B04830    
       00740  0 56000 0 02317        LDQ E1C             RESTORE MQ, IRA, IRB.                        F3B04840    
