                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 295/299 ------           
       07506  0 60100 0 07656        STO E1            PUT TRAST0 INDICAT0R IN                        F2308530    
       07507  0 50000 0 07512        CLA SPCKEY        ACC. AND                                       F2308540    
       07510  0 07400 4 07620        TSX LIST,4        TSX T0 LISTING ROUTINE.                        F2308550    
       07511  0 02000 0 07447        TRA SPC065        0N RETURN, GO TO TEST FINISH.                  F2308560    
 A     07512  0 00000 0 00000 SPCKEY HTR               ST0RAGE FOR TABLEKEY                           F2308570    
                                          SUBROUTINE TRAWRD                                           F2308580    
       07513 -0 63400 4 07545 TRAWRD SXD TRAW65,4                                                     F2308590    
       07514  0 50000 0 06665        CLA L(0)                                                         F2308600    
       07515  0 60100 0 06657        STO TRABIT        INITIALIZE.                                    F2308610    
       07516  0 50000 1 06404        CLA DOTAGZ+5,1    LEVEL OF DOTAG                                 F2308620    
       07517  0 62200 0 07526        STD TRAW30                                                       F2308630    
       07520 -0 50000 1 06406 TRAW10 CAL DOTAGZ+7,1    0BTAIN T2 WORD.                                F2308640    
       07521 -0 60200 0 06657        ORS TRABIT        0R INTO TRABIT                                 F2308650    
       07522  1 77767 1 07523        TXI TRAW20,1,-9   TAKE NEXT DO                                   F2308660    
 D     07523 -3 00000 1 07546 TRAW20 TXL TRAW70,1      IF NONE, EXIT (0EC HAS DOTAG IX)               F2308670    
       07524  0 50000 1 06404        CLA DOTAGZ+5,1    0DTAIN L WORD                                  F2308680    
       07525 -0 73400 4 00000        PDX 0,4           PUT L IN XRC.                                  F2308690    
 D     07526 -3 00000 4 07546 TRAW30 TXL TRAW70,4      EXIT IF DO IS N0T INRANGE R1 (DEC HAS LEV DO)  F2308700    
       07527 -3 00001 2 07520        TXL TRAW10,2,1    IF COMPLETE TEST, G0 BACK (N0 TRAWORD SKIP)    F2308710    
       07530  0 50000 1 06400 TRAW35 CLA DOTAGZ+1,1    IF INCOMPLETE TEST, IS THIS A          .. -    F2308720    
       07531  0 40200 0 06633        SUB RSYM2         DO T0 BE SKIPPED                               F2308730    
       07532  0 10000 0 07536        TZE TRAW38        IF S0, GO TO TRAW38                            F2308740    
       07533  0 50000 1 06400        CLA DOTAGZ+1,1    TEST RSYM3                                     F2308750    
       07534  0 40200 0 06634        SUB RSYM3         IF N0 SKIP                                     F2308760    
       07535 -0 10000 0 07520        TNZ TRAW10        G0 BACK.                                       F2308770    
       07536  0 50000 1 06404 TRAW38 CLA DOTAGZ+5,1    THIS DO IS T0 8E SKIPPED.                      F2308780    
       07537  0 62200 0 07544        STD TRAW60        PUT LEVEL OF THIS DO IN TEST INSTR,            F2308790    
       07540  1 77767 1 07541 TRAW40 TXI TRAW50,1,-9   TAKE NEXT DO IF ANY                            F2308800    
 D     07541 -3 00000 1 07546 TRAW50 TXL TRAW70,1      IF N0T, EXIT. 0THERWISE, (DEC HAS DO IX)       F2308810    
       07542  0 50000 1 06404        CLA DOTAGZ+5,1    0DTAIN L WORD                                  F2308820    
       07543 -0 73400 4 00000        PDX 0,4           PUT L IN XRC                                   F2308830    
 D     07544  3 00000 4 07540 TRAW60 TXH TRAW40,4      IF DO IS IN RANGE OF R2, G0 BACK.              F2308840    
 D     07545 -3 00000 0 07526 TRAW65 TXL TRAW30,0      0THERWISE, GQ T0 TRAW30                        F2308850    
       07546 -0 53400 4 07545 TRAW70 LXD TRAW65,4                                                     F2308860    
       07547  0 50000 0 06672        CLA L(36)         0BTAIN 36 IN DECREMENT                         F2308870    
       07550  0 40200 0 06645        SUB TL2           36-TL2 (LEVEL OF DOTAG)                        F2308880    
       07551  0 77100 0 00022        ARS 18            IN ADDRESS                                     F23A1190    
       07552  0 62100 0 07561        STA TRAW90        INITIALIZE SHIFT                               F2308900    
       07553  0 50000 0 06645        CLA TL2           0BTAIN TL2                                     F2308910    
       07554  0 77100 0 00022        ARS 18            IN ADDRESS                                     F2308920    
       07555  0 62100 0 07560        STA TRAW80        INITIALIZE SHIFT                               F2308930    
       07556  0 50000 0 06665        CLA L(0)          ACC C0NTAINS ZER0                              F2308940    
       07557  0 56000 0 06702        LDQ 35ONES        MQ C0NTAINS ALL ONES                           F2308950    
 A     07560  0 76300 0 00000 TRAW80 LLS               PUT TL2 ONES IN ACC (LEV. DOTAG)               F2308960    
 A     07561  0 76700 0 00000 TRAW90 ALS               P0SITION ONES IN ACC                           F2308970    
       07562 -0 32000 0 06657        ANA TRABIT        AND IN TRANSFER BITS                           F2308980    
       07563  0 02000 4 00001        TRA 1,4           G0 BACK T0 CALLING INSTR PLUS ONE.             F2308990    
                                         SUBROUTINES TINFOR AND TINFXX                                F2309000    
       07564  0 50000 1 06377 TINFOR CLA DOTAGZ,1      C(XRA)=INDEX OF DQ T0 BE                       F2309010    
       07565  0 73400 1 00000        PAX 0,1           SEARCHED. SEPARATE ALPHA                       F2309020    
       07566 -0 32000 0 06704        ANA DECMSK        AND BETA                                       F2309030    
       07567  0 60100 0 06662        STO A             AND STORE IN A                                 F2309040    
       07570 -0 75400 1 00000        PXD 0,1                                                          F2309050    
       07571  0 60100 0 06663        STO B             B                                              F2309060    
