Table of Contents

NPREGST

Table Of Contents

  • [00009] PRGM NPREGST
  • [00067] PROC MRELS
  • [00068] PROC OVLCALL
  • [00070] PROC XTRACE

Source Code

NPREGST.txt 
  1. *DECK NPREGST 
  2. USETEXT NHEADER 
  3. USETEXT NIPDEF
  4. USETEXT OVERLAY 
  5. USETEXT PARAMP
  6. USETEXT PARAMS
  7. USETEXT SUPMSG
  8. USETEXT PT
  9. PRGM NPREGST; 
  10. #     PROCESS SUPERVISORY MESSAGE REG/ST                               #
  11.  
  12.  STARTIMS;
  13.  #
  14. *1DC  NPREGST 
  15. * 
  16. *     1. PROC NAME           AUTHOR              DATE 
  17. *        NPREGST             E.T.WAN             81/05/26 
  18. *                            L.T.NGUYEN          81/09/30 
  19. * 
  20. *     2. FUNCTIONAL DESCRIPTION 
  21. *        PROCESS SUPERVISORY MESSAGE REG/ST 
  22. * 
  23. *     3. METHOD USED
  24. *        CALL NCREGCP TO SEND SUPERVISORY MESSAGE REG/CP/U TO THE 
  25. *        SPECIFIC COUPLER.
  26. * 
  27. *     4. ENTRY PARAMETERS 
  28. *        PARAMP1             DATA BLOCK HEADER ADDRESS
  29. * 
  30. *     5. EXIT PARAMETERS
  31. *        NONE 
  32. * 
  33. *     6. COMDECKS CALLED
  34. *        NHEADER
  35. *        NIPDEF 
  36. *        OVERLAY
  37. *        PARAMP 
  38. *        PARAMS 
  39. *        OPSIZE 
  40. * 
  41. *     7. ROUTINES AND OVERLAYS CALLED 
  42. *        NCREGCP     OVL     SEND REG/CP SM TO PIP
  43. *        OVLCALL             LOAD OVERLAY 
  44. *        XTRACE              RECORD TRACES
  45. * 
  46. *     8. DAYFILE MESSAGES 
  47. *        NONE 
  48. * 
  49. *        THIS PROGRAM IS A PRIMARY OVERLAY LOADED BY SUBROUTINE OVLCALL.
  50. *        WHEN EXECUTION HAS COMPLETED, A JUMP IS MADE TO LOCATION RJMAIN
  51. *        TO RETURN TO THE CALLING PROGRAM.
  52. * 
  53. *        W A R N I N G - THIS PROGRAM CANNOT EXCEED THE PRIMARY 
  54. *CALL OPSIZE
  55. * 
  56. *        THIS OVERLAY IS CALLED BY NPNIPSM. 
  57. * 
  58.  #
  59.  STOPIMS; 
  60.  
  61. # 
  62. ****  EXTERNAL ENTRY POINTS 
  63. # 
  64.  
  65.       XREF
  66.         BEGIN 
  67.         PROC MRELS;          # RELEASE BUFFER SPACE                    #
  68.         PROC OVLCALL;        # LOAD OVERLAY                            #
  69.         LABEL RJMAIN;        # RETURN ADDRESS IN OVLCALL               #
  70.         PROC XTRACE;         # RECORD TRACES                           #
  71.         END 
  72.  
  73. #********************************************************************#
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.       BEGIN # NPREGST # 
  81.       CONTROL IFEQ DEBUG,1; 
  82.         XTRACE("NPRST") ; 
  83.       CONTROL FI; 
  84.  
  85.       P<NHEADER> = PARAMP1 + DBHSIZE;  # NETWORK HEADER ADDRESS        #
  86.       OVLNAME = NCREGCPP;    # SEND REG/CP TO PIP                      #
  87.       PARAMS1 = DN[0];       # COUPLER NODE                            #
  88.       PARAMS2 = 0 ; # DO NOT SET RESPONSE BIT # 
  89.       OVLCALL;
  90.  
  91.       GOTO RJMAIN;           # RETURN TO CALLING PROGRAM               #
  92.       END # NPREGST # 
  93.  
  94. TERM