Retro1.org codex

*DECK NPREGST 
USETEXT NHEADER 
USETEXT NIPDEF
USETEXT OVERLAY 
USETEXT PARAMP
USETEXT PARAMS
USETEXT SUPMSG
USETEXT PT
PRGM NPREGST; 
#     PROCESS SUPERVISORY MESSAGE REG/ST                               #
 
 STARTIMS;
 #
*1DC  NPREGST 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        NPREGST             E.T.WAN             81/05/26 
*                            L.T.NGUYEN          81/09/30 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        PROCESS SUPERVISORY MESSAGE REG/ST 
* 
*     3. METHOD USED
*        CALL NCREGCP TO SEND SUPERVISORY MESSAGE REG/CP/U TO THE 
*        SPECIFIC COUPLER.
* 
*     4. ENTRY PARAMETERS 
*        PARAMP1             DATA BLOCK HEADER ADDRESS
* 
*     5. EXIT PARAMETERS
*        NONE 
* 
*     6. COMDECKS CALLED
*        NHEADER
*        NIPDEF 
*        OVERLAY
*        PARAMP 
*        PARAMS 
*        OPSIZE 
* 
*     7. ROUTINES AND OVERLAYS CALLED 
*        NCREGCP     OVL     SEND REG/CP SM TO PIP
*        OVLCALL             LOAD OVERLAY 
*        XTRACE              RECORD TRACES
* 
*     8. DAYFILE MESSAGES 
*        NONE 
* 
*        THIS PROGRAM IS A PRIMARY OVERLAY LOADED BY SUBROUTINE OVLCALL.
*        WHEN EXECUTION HAS COMPLETED, A JUMP IS MADE TO LOCATION RJMAIN
*        TO RETURN TO THE CALLING PROGRAM.
* 
*        W A R N I N G - THIS PROGRAM CANNOT EXCEED THE PRIMARY 
*CALL OPSIZE
* 
*        THIS OVERLAY IS CALLED BY NPNIPSM. 
* 
 #
 STOPIMS; 
 
# 
****  EXTERNAL ENTRY POINTS 
# 
 
      XREF
        BEGIN 
        PROC MRELS;          # RELEASE BUFFER SPACE                    #
        PROC OVLCALL;        # LOAD OVERLAY                            #
        LABEL RJMAIN;        # RETURN ADDRESS IN OVLCALL               #
        PROC XTRACE;         # RECORD TRACES                           #
        END 
 
#********************************************************************#
 
 
 
 
 
 
      BEGIN # NPREGST # 
      CONTROL IFEQ DEBUG,1; 
        XTRACE("NPRST") ; 
      CONTROL FI; 
 
      P<NHEADER> = PARAMP1 + DBHSIZE;  # NETWORK HEADER ADDRESS        #
      OVLNAME = NCREGCPP;    # SEND REG/CP TO PIP                      #
      PARAMS1 = DN[0];       # COUPLER NODE                            #
      PARAMS2 = 0 ; # DO NOT SET RESPONSE BIT # 
      OVLCALL;
 
      GOTO RJMAIN;           # RETURN TO CALLING PROGRAM               #
      END # NPREGST # 
 
TERM