Table of Contents

XENDRPV

Table Of Contents

  • [00006] PRGM XENDRPV
  • [00055] PROC XCLOST
  • [00056] PROC XDUMP
  • [00057] PROC XDPIP
  • [00058] PROC XTERMST

Source Code

XENDRPV.txt 
  1. *DECK XENDRPV 
  2. USETEXT NIPDEF
  3. USETEXT PIT 
  4. USETEXT PT
  5. USETEXT BPIPBUF 
  6. PRGM XENDRPV;                # TERMINATION IN RPV MODE                 #
  7.  
  8.  STARTIMS;
  9.  #
  10. *1DC  XENDRPV 
  11. * 
  12. *     1. PROC NAME           AUTHOR              DATE 
  13. *        XENDRPV             P.C.TAM             78/07/18 
  14. * 
  15. *     2. FUNCTIONAL DESCRIPTION.
  16. *        PROCESSING TERMINATION IN RPV MODE.
  17. * 
  18. *     3. METHOD USED. 
  19. *        TAKE A DUMP OF NIP, LOG STATISTICS, STOP.
  20. * 
  21. *     4. ENTRY PARAMETERS.
  22. *        NONE.
  23. * 
  24. *     5. EXIT PARAMETERS. 
  25. *        NONE.
  26. * 
  27. *     6. COMDECKS CALLED AND SYMPL TEXTS USED.
  28. *        NIPDEF    OPSIZE 
  29. * 
  30. *     7. ROUTINES CALLED. 
  31. *        XTERMST             TERMINATION STATISTICS 
  32. *        XCLOST              CLOSE ZZZZZDN FILE 
  33. *        XDPIP               DUMP PIP TO ZZZZZPP
  34. * 
  35. *     8. DAYFILE MESSAGES.
  36. *        NONE.
  37. * 
  38. *        THIS PROGRAM IS A PRIMARY OVERLAY LOADED BY SUBROUTINE OVLCALL.
  39. *        WHEN EXECUTION HAS COMPLETED, A JUMP IS MADE TO LOCATION RJMAIN
  40. *        TO RETURN TO THE CALLING PROGRAM.
  41. * 
  42. *        W A R N I N G - THIS ROUTINE IS LOADED WITH XCLOST,
  43. *                        AND XTERMST.  THE SUM OF THEIR SIZES 
  44. *                        CANNOT EXCEED THE PRIMARY
  45. *CALL OPSIZE
  46. * 
  47. * 
  48.  #
  49.  STOPIMS; 
  50. # 
  51.       EXTERNAL VARIABLES
  52. # 
  53.       XREF
  54.         BEGIN 
  55.         PROC XCLOST;         # CLOSE ZZZZZDN TRACE FILE                #
  56.         PROC XDUMP;          # DUMP FL                                 #
  57.         PROC XDPIP;          # FORMAT PIP DUMP FILE ZZZZZPP            #
  58.         PROC XTERMST;        # LOG STATISTICS                          #
  59.         END 
  60.  
  61. # 
  62.       INTERNAL VARIABLES
  63. # 
  64.       ITEM I;                          # INDUCTION VARIABLE            #
  65.       ITEM NUMPIP;                     # NUMBER OF PIPS RUNNING        #
  66.       CONTROL EJECT;
  67.  
  68.       BEGIN # XENDRPV # 
  69.  
  70.       NAMFAIL = TRUE;        # SET NAM FAILED FLAG                     #
  71. # 
  72.       DUMP FIELD LENGTH 
  73. # 
  74.       XDUMP;
  75. # 
  76.       LOG STATISTICS
  77. # 
  78.       CONTROL IFEQ STAT,1;
  79.       XTERMST;
  80.       CONTROL FI; 
  81. # 
  82.       CLOSE ZZZZZDN TRACE FILE
  83. # 
  84.       CONTROL IFEQ ZZDN,1;
  85.       XCLOST(BPFET) ; 
  86.       CONTROL FI ;
  87. # 
  88.       COUNT NUMBER OF PIPS RUNNING
  89. # 
  90.       NUMPIP = 0; 
  91.       FOR I = 1 STEP 1 UNTIL MAXPIP 
  92.       DO                               # CHECK EACH PIT ENTRY          #
  93.         BEGIN 
  94.         IF PITPUF[I]
  95.            AND NOT PITC[I]
  96.         THEN                           # PIP IS STILL RUNNING          #
  97.           BEGIN 
  98.           NUMPIP = NUMPIP + 1;
  99.           END 
  100.         END 
  101. # 
  102.       FRMAT PIP DUMP FILE ZZZZZPP 
  103. # 
  104.       XDPIP(PITDUMPA[0],NUMPIP);
  105.  
  106.       STOP; 
  107.  
  108.       END # XENDRPV # 
  109.  
  110.       TERM