                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 364/368 ------           
       07146  0 50000 0 05252        CLA 0REDO             CHECK T0 SEE IT                            F2528070    
 A     07147  0 77100 0 00000 BITP02 ARS                   DEFINED BY DO, RELC0N,                     F2528080    
       07150  0 76000 0 00001        LBT                   0R DORC. RETURN AS  N0T                    F2528090    
       07151  0 02000 4 00001        TRA 1,4               DEFINED IF N0T DEFINED.                    F2528100    
       07152  0 50000 0 05253        CLA DEFDO             DEFINED. CHECK T0 SEE                      F2528110    
 A     07153  0 77100 0 00000 BITP04 ARS                   IF DEFINED BY DO,                          F2528120    
       07154  0 76000 0 00001        LBT                                                              F2528130    
       07155  0 02000 0 07167        TRA BITP30            DEFINED AS RELC0N.                         F2528140    
       07156  0 50000 2 03651        CLA TAG2+2,2          DEFINED BY DO, CHECK                       F2528150    
       07157 -0 73400 2 00000        PDX 0,2               T0 SEE IF N1 IS                            F2528160    
       07160  0 50000 0 05254 BITP10 CLA N1SBX             VARIABLE. IF S0, RETURN                    F2528170    
       07161  3 00007 0 00100        TXH 64,0,7            AS UNDEFINED.                              F2528180    
 A     07162  0 77100 0 00000 BITP14 ARS                   IF N0T,                                    F2528190    
       07163  0 76000 0 00001        LBT                   C0NTINUE.                                  F2528200    
       07164  0 02000 0 07151        TRA BITP02+2          SYMB0L HAS VARIABLE N1.                    F2528210    
       07165  0 50000 2 01100 BITP20 CLA DOTAGZ+2,2        DOSUB, N2.                                 F2528220    
 D     07166 -3 00000 0 07170 BITP25 TXL BITP40,0          SUBMLEFT IN ACC.                           F2528230    
       07167  0 50000 1 03643 BITP30 CLA WRKSC+5,1         RELC0N S SYMBOL FR0M WRKSC.                F2528240    
       07170 -0 53400 4 07166 BITP40 LXD BITP25,4          RESTORE LINKAGE                            F2528250    
       07171  0 02000 4 00002        TRA 2,4               SYMB0L IN ACC.                             F2528260    
                                         *************************************************************F2528270    
                                         C0SE TESTS C0EFFICIENTS AND 0BTAINS 0BJECT PROGRAH SYMB0LS FRF2528280    
                                         TH0SE GREATER THAN 1                                         F2528290    
       07172  0 53400 1 05106 C0SE   LXA L(6),1            C0EFFICIENT INDEX.                         F2528300    
       07173  0 53400 2 05131        LXA L(3),2            SENSE LIGHT INDEX.                         F2528310    
       07174 -0 63400 4 05236        SXD LINKC,4           STORE LINKAGE.                             F2528320    
       07175  0 50000 1 03644 C0SE5  CLA WRKSC+6,1         IS0LATE C0EFFIEIENT,                       F2528330    
       07176  0 10000 0 07205        TZE C0SE08            N0 SUB FOR THIS DIH.                       F2528340    
       07177  0 40200 0 05061        SUB L1DEC                                                        F2528350    
       07200  0 10000 0 07205        TZE C0SE08            C=1, CHECK NEXT C.                         F2528360    
       07201  0 76000 2 00144        PSE 100,2             C N0T = 1, SENSE LIGHT.                    F2528370    
       07202  0 50000 1 03644        CLA WRKSC+6,1         ASS1GN FIXC0N SYH8QL                       F2528380    
       07203  0 07400 4 04601        TSX FIXC0N,4          FOR C N0T = 1. STORE IN                    F2528390    
       07204  0 60100 2 07602        STO OR000+12,2        OR0+910, 0R 11.                            F2528400    
       07205  2 00002 1 07206 C0SE08 TIX C0SE10,1,2        BUMP C0EF. INDEX.                          F2528410    
       07206  2 00001 2 07175 C0SE10 TIX C0SE5,2,1         BUMP S.6. TEST AND LOOP,                   F2528420    
       07207 -0 53400 4 05236        LXD LINKC,4           RESTORE LINKAGE                            F2528430    
       07210  0 02000 4 00001        TRA 1,4               AND RETURN.                                F2528440    
                                         *************************************************************F2528450    
                                         TESTL0 0BTAINS THE TEST L0CATIQN T0 BE THE SYMB0LIC ADDR*SS OF2528460    
                                         OF THE STD INITIALIZING INSTRUCT10N,                         F2528470    
       07211  0 50000 2 03652 TESTL0 CLA TAG2+3,2          INITIALIZE INDEX                           F2528480    
       07212 -0 73400 2 00000        PDX 0,2               FOR TEST DGTAG.                            F2528490    
       07213  0 50000 0 05133        CLA L(0)              IS0LATE                                    F2528500    
       07214  0 56000 2 01104        LDQ DOTAGZ+6,2        SXD                                        F2528510    
       07215 -0 77300 0 00003        RQL 3                 L0CATION                                   F2528520    
       07216 -0 76300 0 00006        LGL 6                 AND PUT                                    F2528530    
       07217  0 76700 0 00003        ALS 3                 IN TETL0C                                  F2528540    
       07220  0 60100 0 05255        STO TETL0C            ADDRESS                                    F2528550    
       07221  0 50000 2 01076        CLA DOTAGZ,2          PUT TXL                                    F2528560    
       07222 -0 32000 0 05141        ANA ADMSK             L0CATION                                   F2528570    
       07223  0 76700 0 00022        ALS 18                IN TETL0C                                  F2528580    
       07224 -0 60200 0 05255        ORS TETL0C            DECREMENT.                                 F2528590    
       07225  0 02000 4 00001        TRA 1,4                                                          F2528600    
