                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 082/082 ------           
       04740  0 00000 0 02067        PZE ENT                       WORD2--NTR0(81, OR UNIT, OR 00)    4F12488     
       04741  0 00000 0 01366        PZE SET                       WORD3--800(FORMAT NUMBER)          4F12489     
       04742  0 00000 0 01406        PZE L(0)                      WORD4--000000                      4F12490     
       04743  0 07400 4 02372        TSX JIF,4                   * GO JUMP IFN, AND SET SL AND TL.    4F12491     
                                         BXT = EXIT SWITCH TO RSC OR LAST, USED BY WBT,RBT,WRD.       4F12492     
 D     04744  1 00000 0 05141 BXT    TXI RSC,0                   * EXIT TO SCAN LIST, IF THERE IS ONE.4F12493     
                                          END OF PROGRAM RDC.                                         4F12494     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12495     
                                                                                                      4F12496     
                                         RIT/  CALLS=INPUT,BEG,VRD. USES=RDC.                         4F12497     
                                         RIT PROCESSES READ INPUT TAPE STATEMENTS.                    4F12498     
       04745  0 07400 2 06002 RIT    TSX INPUT,2                 * GO COMPILE CAL *, AND XIT (LEV).   4F12499     
       04746  0 07400 4 05603        TSX BEG,4                   * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12500     
       04747  0 07400 4 06036        TSX VRD,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F12501     
       04750  0 62100 0 02067        STA ENT                       IF CONSTANT, SET ENT= NTRO(UNIT).  4F12502     
       04751  0 50000 0 06137        CLA TSH                       PICKUP (TSH) TO SET TSA, AND       4F12503     
 D     04752  1 00000 0 04677        TXI TSC,0                   * CONTINUE BY USING PROGRAM RDC.     4F12504     
                                         END OF PROGRAM RIT.                                          4F12505     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12506     
                                                                                                      4F12507     
                                         RDP/ CALLS=OUTPUT. USES=RDC.                                 4F12508     
                                         RDP PROCESSES PRINT STATEMENTS.                              4F12509     
       04753 -0 75400 0 00000 RDP    PXD ,0                        RESET ENT                          4F12510     
       04754  0 62100 0 02067        STA ENT                       TO NTR000.                         4F12511     
       04755  0 07400 2 06004        TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12512     
       04756  0 50000 0 06135        CLA SPH                       PICKUP (SPH), AND                  4F12513     
                                         TSD = ENTRY POINT USED BY WOT, PDC.                          4F12514     
       04757  0 60100 0 06143 TSD    STO TSA                       SET TSA.                           4F12515     
       04760 -0 50000 0 06131        CAL FIL                       MOVE (FIL)                         4F12516     
       04761  0 60200 0 06141        SLW END                       INTO END.                          4F12517     
       04762  0 50000 0 06126        CLA BDC                       PICKUP (BDC) TO SET TTA, AND       4F12518     
 D     04763  1 00000 0 04703        TXI TTC,0                   * CONTINUE BY USING PROGRAM RDC.     4F12519     
                                         END OF PROGRAM RDP,                                          4F12520     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12521     
                                                                                                      4F12522     
                                         WOT/ CALLS=OUTPUT,BEG,VRD. USES=RDP.                         4F12523     
                                         PROCESSES WRITE OUTPUT TAPE STATEMENTS.                      4F12524     
       04764  0 07400 2 06004 WOT    TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12525     
       04765  0 07400 4 05603        TSX BEG,4                   * SCAN AND TEST TYPE OF UNIT SYMBOL. 4F12526     
       04766  0 07400 4 06036        TSX VRD,4                   * IF VARIABLE, ENTER FORVAR AND CITS.4F12527     
       04767  0 62100 0 02067        STA ENT                       IF CONSTANT, SET ENT= NTRO(UNIT).  4F12528     
       04770  0 50000 0 06136        CLA STH                       PICKUP (STH) TO SET TSA, AND       4F12529     
 D     04771  1 00000 0 04757        TXI TSD,0                   * CONTINUE BY USING PROGRAM RDP.     4F12530     
                                          END OF PROGRAM WOT.                                         4F12531     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F12532     
                                                                                                      4F12533     
                                         PDC/ CALLS=OUTPUT. USES=RDP.                                 4F12534     
                                         PROCESSES PUNCH STATEMENTS.                                  4F12535     
       04772 -0 75400 0 00000 PDC    PXD ,0                        RESET ENT                          4F12536     
       04773  0 62100 0 02067        STA ENT                       TO NTR000.                         4F12537     
       04774  0 07400 2 06004        TSX OUTPUT,2                * GO COMPILE CAL *, AND XIT (LEV).   4F12538     
       04775  0 50000 0 06134        CLA SCH                       PICKUP (SCH) TO SET TSA. AND       4F12539     
 D     04776  1 00000 0 04757        TXI TSD,0                   * CONTINUE BY USING PROGRAM RDP.     4F12540     
                                         END OF PROGRAM PDC.                                          4F12541     
