                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 011/011 ------           
       00270  0 40200 0 00616        SUB LIB5                                                         F6R00520    
       00271  0 10000 0 00617        TZE LIB6          IF SL(1)=(, GO TO LIB6                         F6R00530    
       00272  0 40000 0 00616        ADD LIB5                                                         F6R00540    
       00273  0 40200 0 00722        SUB DATA7                                                        F6R00550    
       00274  0 12000 0 00301        TPL ME1           GO TO ME1 IF SL(1) GREATER THEN 15 (I.E.,ALPHA-F6R00560    
       00275  0 40000 0 00722        ADD DATA7                                                        F6R00570    
       00276 -0 77300 0 00001        RQL 1             SL(1) LESS THEN 15, NOT ZERO, ASSEMBLE SYMBOL. F6R00580    
       00277  0 07400 1 00603        TSX SUB1,1        AND GO TO SUB1 (TIV TYPE ENTRY).               F6R00590    
       00300  0 02000 0 00306        TRA ADD12                                                        F6R00600    
       00301 -0 50000 0 00775  ME1   CAL DATA2                                                        F6R00610    
       00302  0 02000 0 00306        TRA ADD12                                                        F6R00620    
       00303 -0 76300 0 00015  ADD10 LGL 13           IFN. ASSEMBLE SYMBOL AND GO TO SUB2.            F6R00630    
       00304  0 07400 1 00654        TSX SUB2,1                                                       F6R00640    
       00305 -0 76300 0 00044  ADD09 LGL 36           SYMBOLIC LOC EQUAL ZERO. PUT BLANKS IN ACC.     F6R00650    
       00306  0 60200 0 01005  ADD12 SLW E1003        STORE ACC. IN E1003.                            F6R00660    
       00307  0 56000 0 00776  IN245 LDQ DATA3        SELECT OP IN MQ.                                F6R00670    
       00310  0 50200 0 00717        CLS DATA8                                                        F6R00680    
       00311 -0 76300 0 00022        LGL 18                                                           F6R00690    
       00312 -0 60000 0 01001        STQ E0777        STORE DECREMENT IN E0777.                       F6R00700    
       00313  0 56000 0 00710        LDQ DATA6        LOAD MQ WITH BLANKS                             F6R00710    
       00314 -0 76300 0 00006        LGL 6                                                            F6R00720    
       00315  0 76700 0 00006        ALS 6                                                            F6R00730    
       00316  0 60100 0 01006        STO E1004        STORE IN E1004.                                 F6R00740    
       00317  0 34000 0 00707        CAS DATA9        IS OP EQUAL OCT.                                F6R00750    
       00320  0 02000 0 00325        TRA ADD13        OP LESS THEN OCT                                F6R00760    
       00321  0 02000 0 00566        TRA ADD14        OP EQUAL OCT. GO TO ADD14.                      F6R00770    
       00322  0 34000 0 00706        CAS DAT10        OP GREATER THEN OCT. SEE IF OP=BCD.             F6R00780    
       00323  0 02000 0 00325        TRA ADD13                                                        F6R00790    
       00324  0 02000 0 00525        TRA ADD15        OP EQUAL BCD. GO TO ADD15.                      F6R00800    
       00325  0 56000 0 00777  ADD13 LDQ DATA4        OP NOT BCD OR OCT.                              F6R00810    
 T     00326 -0 75400 0 00000        PXD              SELECT SA IN MQ.                                F6R00820    
       00327 -0 76300 0 00006        LGL 6                                                            F6R00830    
       00330 -0 10000 0 00343        TNZ IN301        SA(1) NOT EQUAL ZERO. GO TO IN301.              F6R00840    
       00331 -0 76300 0 00014        LGL 12           SA(1) EQUAL ZERO. TEST FOR INTERNAL             F6R00850    
       00332 -0 10000 0 00352        TNZ IN310        FORMULA NUMBER TYPE. IF YES, GO TO IN310.       F6R00860    
       00333  0 56000 0 00710        LDQ DATA6        SA(1),SA(2),SA(3) EQUAL ZERO. LOAD MQ WITH      F6R00870    
       00334  0 50000 0 01000        CLA DATA5        TEST FOR NOW-ZERO TAG OR RELATIVE ADDRESS.      F6R00880    
       00335 -0 10000 0 00510        TNZ IN446        NOT EQUAL ZERO. GO TO IN446                     F6R00890    
       00336  0 50000 0 01001        CLA E0777        RA EQUAL ZERO. TEST FOR NON-ZERO DECREMENT.     F6R00900    
       00337 -0 10000 0 00362        TNZ IN320        NOT ZERO, GO TO IN320                           F6R00910    
       00340 -0 50000 0 00715        CAL DT713        ZERO, OR A BLANK TO RT-HAND END OF E1004.       F6R00920    
       00341 -0 60200 0 01006        ORS E1004                                                        F6R00930    
       00342  0 02000 0 00431        TRA IN367                                                        F6R00940    
       00343  0 34000 0 00717  IN301 CAS DATA8        TEST IF SA(1)=16.                               F6R00950    
       00344  0 02000 0 00355        TRA IN313        GREATER THEN 16(TRUE SYMBOL). GO TO IN313.      F6R00960    
       00345  0 07400 4 00004        TSX 4,4          EQUAL IS ERROR.                                 F6R00970    
       00346  0 07400 1 00603        TSX SUB1,1       LESS THEN 16 (TIV ENTRY TYPE). GO TO SUB1.      F6R00980    
       00347  0 76500 0 00036        LRS 30           RETURN FROM SUB1.                               F6R00990    
       00350 -0 77300 0 00001        RQL 1                                                            F6R01000    
       00351  0 02000 0 00355        TRA IN313                                                        F6R01010    
       00352  0 07400 1 00654  IN310 TSX SUB2,1       INTERNAL FORMULA NO. TYPE.                      F6R01020    
 T     00353 -0 75400 0 00000        PXD                                                              F6R01030    
       00354 -0 76300 0 00006        LGL 6                                                            F6R01040    
       00355 -0 60200 0 01006  IN313 ORS E1004                                                        F6R01050    
