                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 229/233 ------           
       06271  0 70000 1 05414 TLT30  CPY TLTZ,1                    COPY BUFFER,                       F2104170    
       06272  1 77777 1 06273        TXI TLT40,1,-1                )--., ==.,,.*                      F2104180    
 D     06273  3 00000 1 06271 TLT40  TXH TLT30,1                                                      F2104190    
       06274  0 02000 4 00001        TRA 1,4                       RETURN,                            F2104200    
       06275  0 00000 0 01130 TLT50  HTR 600                       BUFFER.SIZE                        F2104210    
                                         ES FORFLOW                                                   F2104220    
                        06276 BNX    BSS 1                         BEGINNING OF NEST INDEX            F2104230    
                        06277 BNA    BSS 1                         BEGINNING OF NEST ADDRESS          F2104240    
                        06300 ENA    BSS 1                         END OF NEST ADDRESS--4---)         F2104250    
                        06301 G      BSS 1                         GAMMA OF S0ME TIFG0 ENTRY          F2104260    
                        06302 XDG    BSS 1                         INDEX OF DO WITH)G-IN=IMMED.       F2104270    
                        06303 LDG    BSS 1                         RANGE. LEVEL OF XDG.  .---=.       F2104280    
                        06304 A      BSS 1                         AN ADDRESS-T0 WHICH.G TRANSFERS.   F2104290    
                        06305 XDA    BSS 1                         1NDEX OF DO WITH A-IN IMMED.-==.   F2104300    
                        06306 LDA    BSS 1                         RANGE. LEVEL OF XDA.. .L.4--)      F2104310    
                        06307 TIFX   BSS 1                         CURRENT TIFG0 INDEX.               F2104320    
       06310  0 00000 0 00000                                                                                     
       06311 -0 53400 1 00030 SV00   LXD DOTAG-1,1                                                                
       06312 -0 63400 1 06335        SXD SV80,1 ,                                                     F2104340    
       06313 -0 63400 1 06342        SXD SV95,1                                                       F2104360    
       06314 -0 63400 1 06512        SXD TRA40,1                                                      F2104370    
       06315 -0 53400 1 05506        LXD L(1350,1                  INITIALIZE XRA                     F2104380    
       06316 -0 63400 1 06327        SXD SV44,1                    SAVE CURRENT4DO INDEX              F2104390    
       06317 -0 63400 1 06347 SV10   SXD SV98,1                    SAVE NEST-INDEX .-.-.              F2104400    
       06320  0 50000 1 02537 SV20   CLA DOTAGZ,1                  0BTAIN-FIRST-WORD CURRENT          F2104410    
       06321 -0 32000 0 05515        ANA TAGMSK                    DO AND INSPECT-TAG-===-=H          F2104420    
       06322  0 10000 0 06341        TZE SV90                      IF ZER0, G0-T0 INDEXING            F2104430    
       06323 -0 53400 4 06347        LXD SV98,4                    0THERWISE,-NEST.INDEX=IN XRC       F2104440    
       06324  0 50000 4 02540 SV30   CLA DOTAGZ+1,4                0BTAIN.SYM OF-XRC,=.. .= .=--)     F2104450    
       06325 -0 53400 2 05477        LXD L(3),2                    INITIALIZE XRB-COUNTER             F2104460    
       06326  0 34000 1 02543 SV40   CAS DOTAGZ+4,1                AND TEST-FOR-SYM-EQUALS VAR.N      F2104470    
 D     06327 -3 00000 0 06331 SV44   TXL SV50,0                    CURRENT)DO-INDEX ST0RAGE.4=.=.     F2104480    
 D     06330 -3 00000 0 06350 SV48   TXL SF00,0                    INDEX ST0- OF N-IN)CUR=-DO         F2104490    
       06331  1 00001 1 06332 SV50   TXI SV60,1,1                  TAKE NEXT.N, COUNT -==. .-.        F2104500    
       06332  2 00001 2 06326 SV60   TIX SV40,2,1                  IN XRB AND-G0-BACK.                F2104510    
       06333 -0 53400 1 06327 SV65   LXD SV44,1                    SYM N0T VAR.N., PUT CURRENT        F2104520    
       06334  1 77767 4 06335 SV70   TXI SV80,4,-9                 DO INDEX IN XRA AN0 INDEX-)        F2104530    
 D     06335 -3 00000 4 06341 SV80   TXL SV90,4                    XRC. IF.TABLE-ENDS, G070.SU00      F2104340    
       06336  0 50000 4 02544        CLA DOTAGZ+5,4                0THERW(SE-TEST-FOR,NEW)NEST,V.     F210.S30    
       06337 -0 73400 2 00000        PDX 0,2                       IF N0T NEW NEST,-G0-BACK-T0.       F2104,60    
       06340  3 00001 2 06324        TXH SV30,2,1                  TEST SYM7-0THERWISE.=--. ).)       F2104370    
       06341  1 77767 1 06342 SV90   TXI SV95,1,-9                 TAKE NEXT DOWN DO-7F               F2104580    
 D     06342 -3 00000 1 06572 SV95   TXL TS4VAL,1                  P0SSIBLE. 0THERWISE, EX)T          F2104590    
       06343 -0 63400 1 06327        SXD SV44,1                    SAVE CURRENT-DO.INDEX...)          F2104600    
       06344  0 50000 1 02544        CLA DOTAGZ+5,1                            ) -. .--4--)           F2104610    
       06345 -0 73400 2 00000        PDX 0,2                       INSPECT LEVEL.                     F2104620    
       06346  3 00001 2 06320        TXH SV20,2,1                  IF N0T NEW.NEST, TRA SV20          F2104630    
 D     06347 -3 00000 0 06317 SV98   TXL SV10,0                    1F NEW NEST, SV10)7NEST.INDEX ST0 )F2104640    
       06350 -0 63400 1 06330 SF00   SXD SV48,1                    SAVE INDEX.OF-N.IN-CURRENT=DO S44..F21046S0    
       06351 -0 63400 2 06360        SXD SF10,2                    SAVE N COUNTER.  )).-..---1,--.    F2104660    
       06352 -0 63400 4 06363        SXD SF15,4                                )                      F2104670    
       06353 -0 75400 4 00000        PXD 0,4                       SAVE INDEX OF SYH80L DO            F2104680    
       06354  0 60100 0 06471        STO SFES1                     IN FULL WORD. -.)--. .4.           F2104690    
       06355 -0 53400 1 06327        LXD SV44,1                    08TAIN INDEX OF CURRENT DO         F2104700    
