                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 083/083 ------           
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4FI2542     
                                                                                                      4F12543     
                                         WBT/ CALLS=OUTPUT,BRW,CIT,                                   4F12544     
                                         WBT PROCESSES WRITE TAPE STATEMENTS,                         4F12545     
       04777 -0 50000 0 06124 WBT    CAL WTB                       MOVE WTB000                        4F12546     
       05000  0 60200 0 07401        SLW OP                        INTO OP.                           4F12547     
       05001  0 07400 2 06004        TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT  (LEV),  4F12548     
       05002 -0 50000 0 01475        CAL BTA                       PICKUP BINARY TAPE ADDRESS, AND    4F12549     
       05003  0 07400 4 05646        TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12550     
       05004  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12551     
       05005  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12552     
       05006  0 00000 0 01544        PZE CPY                       WORD2-CPY000                       4F12553     
       05007  0 00000 0 00001        PZE ZER                       WORD3-600000                       4F12554     
       05010  0 00000 0 01457        PZE D2                        WORD4-002000                       4F12555     
 D     05011  1 00000 0 04744        TXI BXT,0                   * EXIT TO SCAN LIST, IF THERE IS ONE,4F12556     
                                          END OF PROGRAM WBT,                                         4F12557     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4FI2558     
                                                                                                      4F12559     
                                         RBT/ CALLS=INPUT,BRW,CIT,                                    4F12560     
                                         RBT PROCESSES READ TAPE STATEMENTS.                          4F12561     
       05012 -0 50000 0 06117 RBT    CAL RTB                       MOVE RTB000                        4F12562     
       05013  0 60200 0 07401        SLW OP                        INT OP.                            4F12563     
       05014  0 07400 2 06002        TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV),   4F12564     
       05015 -0 50000 0 01475        CAL BTA                       PICKUP BINARY TAPE ADDRESS, AND    4F12565     
       05016  0 07400 4 05646        TSX BRW,4                   * COMPILE INSTRS TO SET UNIT DESIG.  4F12566     
       05017  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12567     
       05020  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12568     
       05021  0 00000 0 01544        PZE CPY                       WORD2-CPY000                       4F12569     
       05022  0 00000 0 01500        PZE DMP                       WORD3-100000                       4F12570     
       05023  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F12571     
       05024  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12572     
       05025  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12573     
       05026  0 00000 0 06125        PZE XIT                       WORD2-XIT000                       4F12574     
       05027  0 00000 0 01510        PZE 15P                       WORD3-*00000                       4F12575     
       05030  0 00000 0 01461        PZE D3CN                      WORD4-003000                       4F12576     
       05031  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12577     
       05032  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12578     
       05033  0 00000 0 01554        PZE HPR                       WORD2-HPR000                       4F12579     
       05034  0 00000 0 01406        PZE L(0)                      WORD3-000000                       4F12580     
       05035  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F12581     
       05036  0 07400 4 01731        TSX CIT,4                   * GO MAKE THE FOLLOWING CIT ENTRY=   4F12582     
       05037  0 00000 0 01406        PZE L(0)                      WORD1-000000                       4F12583     
       05040  0 00000 0 06125        PZE XIT                       WORD2-XIT000                       4F12584     
       05041  0 00000 0 01371        PZE TL                        WORD3-0(IFN)0(248)                 4F12585     
       05042  0 00000 0 01406        PZE L(0)                      WORD4-000000                       4F12586     
 D     05043  1 00000 0 04744        TXI BXT,0                   * EXIT  TO SCAN LIST,  IF THERE IS 0N4F12587     
                                         END OF PROGRAM RBT.                                          4F12588     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4FI2589     
                                                                                                      4F12590     
                                         WRD/ CALLS=OUTPUT,BRW,CIT,                                   4F12591     
                                         WRD PROCESSES WRITE DRUM STATEMENTS.                         4F12592     
       05044  0 07400 2 06004 WRD    TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV),   4F12593     
       05045 -0 50000 0 06122        CAL WDR                       PICKUP  WDR000, AND                4F12594     
                                         XDR= ENTRY POINT USED BY RDD.                                4F12595     
