                                         ------ SCANNED 10/8/06 304349-VOLUME_I.PDF PAGE 051/051 ------           
                                         JIF(GIF),4/ CALLERS=RDC,EFT,LPR,SPC,CMA,EMK,INPUT(OUTPUT),   4F10856     
                                         VRA(VRD),C3200.                                              4F10857     
                                         JIF = ENTRY POINT USED BY RDC,LPR,SPC,CMA,EMK,VRA(VRD),C3200.4F10858     
       02372 -0 50000 0 00030 JIF    CAL EIFNO                     INCREASE THE                       4F10859     
       02373  0 40000 0 01454        ADD D1                        INTERNAL FORMULA NUMBER            4F10860     
       02374  0 62200 0 00030        STD EIFNO                     BY 1.                              4F10861     
                                         GIF = ENTRY POINT USED BY EFT,INPUT(OUTPUT).                 4F10862     
       02375 -0 50000 0 00030 GIF    CAL EIFNO                     PICKUP IFN,                        4F10863     
       02376 -0 32000 0 01507        ANA 1BAR                      CLEAR SL, AND                      4F10864     
       02377  0 60200 0 01367 L(SL)  SLW SL                        PLACE IFN IN THE DECREMENTS        4F10865     
       02400  0 62200 0 01371 L(TL)  STD TL                        OF SL AND TL.                      4F10866     
       02401  0 02000 4 00001        TRA 1,4                     * EXIT TO CALLER.                    4F10867     
                                          END OF PROGRAM JIF(GIF).                                    4F10868     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10869     
                                                                                                      4F10870     
                                         MTR000/ MONITOR ROUTINE FOR CALLING STATES FROM DRUM.        4F10871     
                                         STATEA= ENTRY POINT FOR STATE A.                             4F10872     
       02402  0 53400 4 01412 STATEA LXA L(4),4                    SET C(XR4) = 4, THEN               4F10873     
 D     02403  1 00000 0 02411        TXI MTR1,0                    GO GET PARAMETERS.                 4F10874     
                                         STATEB= ENTRY POINT FOR STATE B.                             4F10875     
       02404  0 53400 4 01410 STATEB LXA L(2),4                    SET C(XR4) = 2, THEN               4F10876     
 D     02405  1 00000 0 02411        TXI MTR1,0                    GO GET PARAMETERS.                 4F10877     
                                         STATEC= ENTRY POINT FOR STATE C.                             4F10878     
       02406  0 53400 4 01407 STATEC LXA L(1),4                    SET C(XR4) = 1, THEN               4F10879     
       02407  1 00000 0 02411 MTRCSL TXI MTR1,0,**                 GO GET PARAMETERS.                 4F10880     
                                         STATED= ENTRY POINT FOR STATE D.                             4F10881     
       02410  0 53400 4 01411 STATED LXA L(3),4                    SET C(XR4) = 3, THEN               4F10882     
       02411  0 50000 4 02437 MTR1   CLA ZETA+4,4                  OBTAIN THE NUMBER OF WORDS IN THE  4F10883     
       02412  0 62200 0 02407        STD MTRCSL                    CURRENT STATE, AND SAVE.           4F10884     
       02413  0 77100 0 00022        ARS 18                        ADD THE NUMBER OF WORDS IN THE     4F10885     
       02414  0 40000 0 02430        ADD MTR3                      CURRENT STATE TO THE MEMORY ORIGIN 4F10886     
       02415  0 62100 0 02425        STA MTR2                      TO SET ADDRESS OF COPY LOOP.       4F10887     
       02416  0 53400 1 01413        LXA DRMERC,1                  SET FOR FIVE ATTEMPTS.             4F10888     
       02417  0 76200 4 00305 MTR15  RDR 5,4                       READ SELECT CURRENT LOGICAL DRUM.  4F10889     
       02420 -0 53400 2 02407        LXD MTRCSL,2                  LENGTH OF CURRENT STATE TO XR2.    4F10890     
       02421  0 46000 4 02437        LDA ZETA+4,4                  THEN COPY                          4F10891     
       02422 -0 75400 0 00000        PXD ,0                        CURRENT STATE                      4F10892     
       02423 -0 70000 0 01103        CAD DRCKSM                    FROM DRUM                          4F10893     
       02424  0 76000 0 00006        COM                           INTO MEMORY                        4F10894     
       02425 -0 70000 2 00000 MTR2   CAD **,2                      WHILE COMPUTING                    4F10895     
       02426  2 00001 2 02425        TIX MTR2,2,1                  LOGICAL CHECKSUM.                  4F10896     
       02427  0 76000 0 00006        COM                           IF THIS EQUALS DRUM CHECKSUM,      4F10897     
       02430  0 10000 0 03440 MTR3   TZE MEMORG                  * THEN ENTER CURRENT STATE.          4F10898     
       02431  2 00001 1 02417        TIX MTR15,1,1                 CHECKSUM FAILED, TRY UP TO 5 TIMES.4F10899     
       02432  1 75346 4 03400 MTRERR TXI DIAG,4,-MTRERR          * GO TO DIAGNOSTIC AFTER 5 FAILURES. 4F10900     
                                                                                                      4F10901     
       02433  0 02663 0 00000 ZETA   PZE DEL(A),,ENDADR-ORGA                                          4F10902     
       02434  0 02663 0 01322        PZE DEL(D),,ENDADR-ORGD                                          4F10903     
       02435  0 02663 0 02210        PZE DEL(B),,ENDADR-ORGB                                          4F10904     
       02436  0 02663 0 02373        PZE DEL(C),,ENDADR-ORGC                                          4F10905     
                                          END OF PROGRAM MTR000.                                      4F10906     
                                         * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *4F10907     
                                                                                                      4F10908     
                                         RA000,4/ CALLERS=LPR,ARITH.                                  4F10909     
