                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 288/292 ------           
       06752  0 76200 0 00222 RDRDS  RDS TAPE2                                                        F2304750    
       06753  0 70000 1 06377 RDCPY  CPY DOTAGZ,1      READ IN DOTAG                                  F2304760    
       06754  1 77777 1 06753        TXI RDCPY,1,-1                                                   F2304770    
       06755  0 02000 0 06757        TRA RDEOF                                                        F2304780    
       06756  0 02000 0 06752        TRA RDRDS                                                        F2304790    
       06757 -0 63400 1 03670 RDEOF  SXD DOTAG-1,1     DOTAG INDEX(1350-N0 DOTAG ENTRIES)             F2304800    
       06760  0 76200 0 00222        RDS TAPE2         SPACE TAPE.                                    F2304810    
       06761  0 76200 0 00222        RDS TAPE2                                                        F2304820    
       06762  0 76600 0 00333        WRS 219                                                          F2304830    
       06763 -0 76000 0 00012        RTT                                                              F2304840    
       06764  0 02000 0 06766        TRA RDER          0N                                             F2304850    
       06765  0 02000 0 06772        TRA DOPASS                                                       F2304860    
       06766  2 00001 2 06730 RDER   TIX RDP0S,2,1     TRY TWICE M0RE.                                F2304870    
       06767  0 07400 4 00004        TSX DIAG,4  TAPE 2, READING DOTAG.      ERROR. GO TO D1AGN0STIC. F2304885    
 A     06770  0 00000 0 00000 RDES1  HTR               RECORD COUNT                                   F2304890    
 A     06771  0 00000 0 00000 RDES2  HTR               RECORD COUNT                                   F2304900    
       06772 -0 53400 1 03670 DOPASS LXD DOTAG-1,1     DOTAG INDEX.                                   F2304910    
       06773 -0 63400 1 07110        SXD SYM40,1       INITIALIZE.                                    F2304920    
       06774 -0 63400 1 07160        SXD SYM130,1      .                                              F2304930    
       06775 -0 63400 1 07222        SXD SYM220,1      .                                              F2304940    
       06776 -0 63400 1 07523        SXD TRAW20,1      .                                              F2304950    
       06777 -0 63400 1 07541        SXD TRAW50,1      ,                                              F2304960    
       07000 -0 63400 1 07420        SXD SPC040,1      .                                              F2304970    
       07001 -0 63400 1 07455        SXD SPC090,1      .                                              F2304980    
       07002 -0 53400 1 00030        LXD NAME-1,1      .                                              F2304990    
       07003 -0 63400 1 07261        SXD GETN20,1      .                                              F2305000    
                                         THIS ROUTINEMAKES A PASS 0VER FORTAG AND FOR EACH N0N-       F2305010    
                                         NEGATIVE TAG, 0BTAINS THE C0RRESP0NDING SUBSCRIPT COMPINATIONF2305020    
                                         FR0M THE TAU DRUM. THE SYMB0LS ARE PUT INTO THE L0CATIONS    F2305030    
                                         RSYM1, RSYM2, RSYM3, AND L0CATION TAGIND IS INIT1ALIZED.     F2305040    
                                         C0NTR0L THEN G0ES T0 ROUTINE SYMONE. UP0N RETURN, THIS ENTRY F2305050    
                                         IN FORTAG AND ALL 0THER N0N- NEGATIVE ENTRIES  C0NTAINING    F2305060    
                                         THIS TAG ARE SET NEGATIVE.                                   F2305070    
       07004 -0 53400 1 00733 TAGPAS LXD FORTAG-1,1                                                   F2305080    
       07005 -0 63400 1 07601        SXD TINF30,1                                                     F2305090    
       07006 -0 63400 1 07073        SXD TAGP80,1                                                     F2305100    
       07007 -0 63400 1 07076        SXD TAGP98,1                                                     F2305110    
       07010 -0 53400 1 06674        LXD L(1500,1                                                     F2305120    
       07011  0 50000 1 03670 TAGP10 CLA FORTZ,1                                                      F2305130    
       07012 -0 12000 0 07075        TMI TAGP94        IF NEG, GET NEXT FORTAG                        F2305140    
       07013 -0 32000 0 06703        ANA ADDMSK        TAG                                            F2305150    
       07014  0 60100 0 06626        STO TAG                                                          F2305160    
       07015 -0 63400 1 07077        SXD TAGX,1        SAVE CURRENT FORTAG IX                         F2305170    
       07016  0 07400 4 07701        TSX SUBCOM,4      00TAIN AND DISPERSE THE TAU TABLES.            F2305180    
       07017 -0 53400 4 06670        LXD L(3),4                                                       F2305190    
       07020 -0 75400 0 00000        PXD 0,0                                                          F2305200    
       07021  0 60100 4 06635 TAGP20 STO RSYM1+3,4     INITIALIZE RSYM L0CATIONS WITH ZER0.           F2305210    
       07022  2 00001 4 07021        TIX TAGP20,4,1                                                   F2305220    
       07023 -0 53400 1 06671        LXD L(6),1                                                       F2305230    
       07024 -0 53400 2 06670        LXD L(3),2                                                       F2305240    
       07025 -0 53400 4 06665        LXD L(0),4                                                       F2305250    
       07026  0 50000 1 06644 TAGP30 CLA S1+6,1        GET SYMB0L                                     F2305260    
       07027  0 10000 0 07041        TZE TAGP40        IF ZER0, GET NEXT SYMB0L                       F2305270    
       07030  3 00002 2 07037        TXH TAGP34,2,2    AT RSYM2 AND RSYM3 PASS,                       F2305280    
