                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 308/312 ------           
       01217 -0 32000 0 01424        ANA DECMSK            C0NTAIN C1 AND C2,D1AND D2.                F2403750    
       01220  0 60100 4 00203        STO WRKSC+7,4         N0NBCD CHARACTERS.-.--= =.-                F2403760    
       01221 -0 75400 2 00000        PXD 0,2               ARE STORED IN DECREMENT                    F2403770    
       01222 -2 00006 4 01225        TNX SUB090,4,6        AND ORDER OF ITEMS IS N0W                  F2403780    
       01223  0 60100 0 00176        STO WRKSC+2           C1,S1,C2,S2,C3,S3,D1,D2.                   F2403790    
 D     01224 -3 00000 0 01215 SUB085 TXL SUB080,0                                                     F2403800    
       01225  0 60100 0 00203 SUB090 STO WRKSC+7                                                      F2403810    
       01226 -0 53400 4 01224        LXD SUB085,4          RESTORE LINKAGE INDEX                      F2403820    
       01227 -3 00001 1 01231        TXL SUB100+1,1,1      TRA IF READING ERROR.                      F2403830    
       01230  0 02000 4 00001 SUB100 TRA 1,4               RETURN                                     F2403840    
       01231  0 07400 4 00004        TSX DIAG,4            DRUM 4 READING ERROR 5 TIMES.              F2403850    
       01232 +000006001356    SUBORG OCT 000006001356      DECR. IS 6, ADDR. IS 0RG TAU3              F2403860    
       01233 +000007000454           OCT 000007000454      DECR. IS 7, ADDR IS 0RG TAU2               F2403870    
       01234 +000010000000           OCT 000010000000      DECR IS 8, ADDR IS 0RG TAU1.               F2403880    
 A     01235  0 00000 0 00000 SUBES1 HTR                   ERASABLE ST, FOR DRUM ADDR.                F2403890    
 A     01236  0 00000 0 00000 SUBES2 HTR                   ERASABLE ST, F0 DRUM CHECK1                F2403900    
 A     01237  0 00000 0 00000 SUBTAG HTR                                            ---               F2403910    
                                         C0SE ROUTINE FORHS NAHE OF EACH N0NTRIVIAL C0EFF. IN FIXC0N  F2403920    
                                         TABLE, AND SETS SENSE LIGHTS ACCORDINGLY.                 -1 F2403930    
       01240  0 53400 1 01435  C0SE  LXA L(6),1            INDEX T0 SELECT SUBSCRIPTS IN TURN         F2403940    
       01241  0 53400 2 01432        LXA L(3),2            INITIALISE SENSE LT. SELECTION1 .-.        F2403950    
       01242 -0 63400 4 01411        SXD LINKC,4                                      .               F2403960    
       01243  0 50000 1 00202  C0SE5 CLA WRKSC+6,1         SELECT A S.C. C0EFF.                       F2403970    
       01244  0 10000 0 01253        TZE C0SE08            TRA IF ND SUBSC. IN THIS DIHENSI0N         F2403980    
       01245  0 40200 0 01421        SUB L1DEC                                           -..)-        F2403990    
       01246  0 10000 0 01253        TZE C0SE08            TRA IF C0EFF. IS ONE.                      F2404000    
       01247  0 76000 2 00144        PSE 100,2             SET C0RRESP0NDING SENSE LIGHT.             F2404010    
       01250  0 50000 1 00202        CLA WRKSC+6,1         ENTER C0EFF IN FIXC0N IF   -..             F2404020    
       01251  0 07400 4 01054        TSX FIXC0N,4          N0T ALREADY THERE.                         F2404030    
       01252  0 60100 2 00450        STO OR000+12,2        STORE NAHE OF FIXC0N ENTRY.                F2404040    
       01253  2 00002 1 01254 C0SE08 TIX C0SE10,1,2                                                   F2404050    
       01254  2 00001 2 01243 C0SE10 TIX C0SE5,2,1         REPEAT FOR ALL SUBSCRIPTS.                 F2404060    
       01255 -0 53400 4 01411        LXD LINKC,4                                                      F2404070    
       01256  0 02000 4 00001        TRA 1,4               RETURN                                     F2404080    
                                         ROUTINE COMPILES SETS OF INSTRUCTIONS, GIVEN STARTING L0CN.  F2404090    
                                         OF APPROPRIATE SKELET0N IN ACC., AND N0. OF INSTR. IN IRA    F2404100    
       01257 -0 63400 4 01313  LXC   SXD LXC19,4                                            .- .4-)   F2404110    
       01260  0 60100 0 01412        STO ERLXC             SAVE L0CATION OF INSTR. SKELET0N.          F2404120    
       01261 -0 75400 1 00000        PXD 0,1               N0. OF INST T0 BE COMPILED.     .          F2404130    
       01262  0 77100 0 00022        ARS 18                                                           F2404140    
       01263  0 40000 0 01412        ADD ERLXC             FORH ADDRESS WHICH GIVES                   F2404150    
       01264  0 62100 0 01267        STA LXC10             APPROPRIATE SKELETAL WORDS.                F2404160    
       01265  0 50000 0 01427  LXC08 CLA L(0)              SET CIT SYMBOLIC L0CN. T0 ZER0             F2404170    
       01266  0 60100 0 01050        STO CIL00                                  -    -  -             F2404180    
       01267  0 56000 1 00000  LXC10 LDQ 0,1               SELECT NEXT SKELETAL WORD.                 F2404190    
       01270  0 76300 0 00000        LLS 0                 FOR COMPILATION. SET SIGN IN AC.           F2404200    
       01271 -0 76300 0 00022        LGL 18                BCD. 0PERATION IS IN DECREMENTI.           F2404210    
       01272 -0 60000 0 01051        STQ CIL01             STORE 0PERATION                            F2404220    
       01273 -0 12000 0 01314        TMI LXC20             CIT IS SHIFT TYPE INSTRUCTIQN.             F2404230    
       01274  0 62100 0 01275        STA LXC15             CIT IS SYMB0LIC ADDRESS TYPE.              F2404240    
 A     01275  0 50000 0 00000  LXC15 CLA                   ADDR. IS L0CATION OF SYMB0LIC ADDRESS      F2404250    
       01276  0 60100 0 01052        STO CIL02             OF CIT.                             -      F2404260    
       01277  0 50000 0 01427        CLA L(0)                                                         F2404270    
       01300  0 60100 0 01053        STO CIL03             SET CIT TAG T0 ZER0.                       F2404280    
