1                                        ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 301/305 ------           
 U     00000    00000 0        SECTION TWO.                                                                       
                                         BLOCK FOUR OF SECTION TWO.                                               
                                            MASTER RECORD CARD = FN045                                F2400000    
                                         BLOCK 4                                                      F2400005    
                                         THIS PART COMPILES THE SUBROUTINES WHICH COMPUTE             F2400010    
                                         INDEX LOAD VALUES FOR PURE RELC0NS.                          F2400020    
                                         THE LOAD VALUE FOR SUBSCRIPTS (C1I,C2J,C3K) IS               F2400030    
                                         (C1I-1)+(C2D1J-D1)+(C3D1D2K-D1D2)+1                          F2400040    
                                         TABLE IRV, PRODUCED BY BLOCK 3, GIVES A LIST OF THE          F2400050    
                                         SUBROUTINES REQUIRED.                                        F2400060    
                        00030        ORG 24                                                           F2400070    
                        00030  CIB   BSS 100                                                          F2400080    
                        00174  WRKSC BSS 8                                                            F2400090    
                        00204  BOB   BSS 152                                                          F2400100    
                        00434  OR000 BSS 28                                                           F2400110    
                        00450        ORG 296                                                          F2400120    
 M     00450 +010000000001     OR012 OCT 010000000001                                                 F2400130    
 M     00451 +060000000003     OR013 OCT 060000000003                                                 F2400140    
                        00456        ORG 302                                                          F2400150    
 M     00456 +010000000002     OR018 OCT 010000000002                                                 F2400160    
                        00466        ORG 310                                                          F2400170    
 M     00466 +010000000003     OR026 OCT 010000000003                                                 F2400180    
       00467  0 00000 0 00000        HTR 0                                                            F2400190    
       00470  0 50000 0 01430 START1 CLA L(1)              SAVE STATUS OF SENSE-LIGHT3                F2400200    
       00471 -0 76000 0 00143        MSE 99                S0 THAT IT CAN BE USED                     F2400210    
       00472  0 02000 0 00474        TRA START             IN THIS BLOCK.                             F2400220    
       00473  0 60100 0 01415        STO SENSE1                                                       F2400230    
       00474  0 07400 4 00752  START TSX RDRM,4            READ TABLE IRV (80B ALS0)                  F2400240    
       00475  0 02000 0 00542        TRA FINISH+9          RETURN HERE IF N0 ENTRIES.                 F2400250    
       00476 -0 53400 1 01007        LXD 1CNT,1            LOAD IRA WITH N0. OF IRV ENTRIES           F2400260    
       00477  0 07400 4 00710        TSX INITFX,4          FORM END TEST FQR FIXC0N SEARCH            F2400270    
       00500 -0 53400 2 01427        LXD L(0),2            BEGIN WITH FIRST TABLE B0B ENTRY.          F2400280    
       00501  0 50000 2 00204 REPETE CLA BOB,2             SELECT TABLE IRV ENTRY.                    F2400290    
       00502  0 62100 0 01375        STA NAME1             PUT SUBC0M NAHE IN NAME 1.                 F2400300    
       00503  0 77100 0 00022        ARS 18                PUT TAU REFERENCE                          F2400310    
       00504  0 62100 0 01376        STA TAG1              IN TAG1.                                   F2400320    
       00505 -0 63400 2 01414  ENTRY SXD BX,2                                                         F2400330    
       00506 -0 63400 1 01413        SXD AX,1                                                         F2400340    
       00507  0 07400 4 01143        TSX SUBCOM,4          READ TAU ENTRY FR0H DRUM.                  F2400350    
       00510  0 07400 4 00562        TSX COMPIL,4          COMPILE SUBROUTINE FR0 COMPUTING           F2400360    
       00511 -0 53400 2 01414        LXD BX,2              LOAD VALUE.                                F2400370    
       00512 -0 53400 1 01413        LXD AX,1                                                         F2400380    
       00513  1 77777 2 00514        TXI TEST,2,-1         STEP DOWN COUNT THR0UGH TABLE IRV.         F2400390    
       00514 -2 00001 1 00531  TEST  TNX FINISH,1,1        END OF TABLE IRV.                          F2400400    
       00515  0 50000 2 00204        CLA BOB,2             REDUNDANT.                                 F2400410    
       00516  0 07400 4 00735        TSX LINKTR,4          COMPILE SUBROUTINE RETURN.                 F2400420    
       00517  0 02000 0 00501        TRA REPETE                                                       F2400430    
       00520  0 62100 0 01377        STA TAG2              THE INSTRUCTIQNS FR0M HERE                 F2400440    
       00521  0 40200 0 01376        SUB TAG1              THR0UGH                                    F2400450    
       00522  0 10000 0 00527        TZE EQUAL             TRA ENTRY                                  F2400460    
       00523  0 07400 4 00735        TSX LINKTR,4          ARE                                        F2400470    
       00524  0 50000 0 01377        CLA TAG2              REDUNDANT.                                 F2400480    
       00525  0 60100 0 01376        STO TAG1                                                         F2400490    
       00526  0 02000 0 00505        TRA ENTRY                                                        F2400500    
