Retro1.org codex

*DECK NPNPIDP 
USETEXT NIPDEF
USETEXT DRHDR 
USETEXT OVERLAY 
USETEXT PARAMP
USETEXT PARAMS
USETEXT SUPMSG
      PRGM NPNPIDD ;
  # 
***** 
*     1.PROC NAME                  AUTHOR              DATE 
*       NPNPIDD                    LIEM T NGUYEN       84/03/13 
* 
*     2.FUNCTIONAL DESCRIPTION: 
*       PROCESS NPI/DD OR NPI/PP SUPERVISORY MESSAGE FROM ANOTHER HOST. 
* 
*     3.METHOD: 
*       CALL XDUMPFL TO DUMP NIP-S FIELD LENGTH.
*       CALL OMSG TO ISSUE DAYFILE MESSAGE. 
*       CALL ODAYFL TO DUMP CONTENTS OF WORKLIST. 
* 
*     4.ROUTNIE CALLED: 
*       ODAYFL               DUMP CONTENTS OF WORKLIST
*       OMSG                 ISSUE DAYFILE MESSAGE
*       OVLCALL              LOAD AND EXECUTE OVERLAYS
*       XDUMPFL              DUMP NIP-S FIELD LENGTH
*       XTRACE               RECORD PROCEDURE CALL
* 
*     5.DAYFILE MESSAGES: 
*       "A - A NETWORK PROTOCOL VIOLATION"
* 
 #
      XREF
        BEGIN 
        PROC OMSG ; 
        PROC OVLCALL;                  # LOAD AND EXECUTE OVERLAY      #
        PROC XDUMPFL;                  # DUMP NIP-S FIELD LENGTH       #
        PROC XTRACE ; 
        LABEL RJMAIN ;
        END 
 
      ARRAY MSGNPI S(4) ; 
        BEGIN 
        ITEM MSG1 C (0,0,35) = ["NIP A-A NETWORK PROTOCOL VIOLATION"] ; 
        ITEM MSG2 U (3,48,12) =[0] ;
        END 
 
      BEGIN 
      CONTROL IFEQ DEBUG,1; 
        XTRACE("NPIDP") ; 
      CONTROL FI; 
 
        XDUMPFL;                       # DUMP NIP-S FIELD LENGTH       #
      OMSG(MSGNPI,0) ;
 
        PARAMS1 = PARAMP1;             # ADDR OF NPI/DD/PP SUP MSG     #
        P<DRHDRWD> = PARAMS1;          # TEMPLATE FOR BUFFER           #
        PARAMS2 = BLKBS[0];            # SIZE OF BUFFER                #
        OVLNAME = ODAYFLP;             # NAME OF OVERLAY TO LOAD       #
        OVLCALL;                       # LOAD AND EXECUTE OVERLAY      #
 
      GOTO RJMAIN ; 
      END 
      TERM