Retro1.org codex

*DECK UPACNB4 
USETEXT NIPDEF
USETEXT ACNB
USETEXT PARAMS
USETEXT SUPMSG
PRGM UPACNB4; 
 STARTIMS;
 #
*1DC  UPACNB4 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        UPACNB4             C. BITTNER          82/09/01 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        UPDATE ACNB WITH INFORMATION FROM CR/RCN/N.
* 
*     3. METHOD USED
*        BASE CR/RCN/N MESSAGE
*        UPDATE ACNB WITH CR/RCN/N INFORMATION
* 
*     4. ENTRY PARAMETERS 
*        PARAMS1 - ACNB ADDRESS 
*        PARAMS2 - SM BUFFER (CR/RCN/N) 
* 
*     5. EXIT PARAMETERS
*        NONE 
* 
*     6. COMDECKS CALLED AND SYMPL TEXTS USED 
*          NIPDEF            CONSTANT DEFINITIONS 
*          ACNB              APPLICATION CONNECTION BLOCK TEMPLATE
*          PARAMS            BUFFER FOR PASSING PARAMS TO/FROM SEC OVL. 
*          SUPMSG            SUPERVISORY MESSAGE TEMPLATE 
* 
*     7. ROUTINES AND OVERLAYS CALLED 
*          XTRACE            TRACE PROCEDURE CALL 
* 
*     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
*        THIS IS A SECONDARY OVERLAY CALLED BY HCSTTP.
*        W A R N I N G - THIS PROGRAM CANNOT EXCEED THE SECONDARY 
*CALL OSSIZE
 #
STOPIMS;
 
# 
      EXTERNAL VARIABLES
# 
 XREF 
   BEGIN
   PROC XTRACE;              # TRACE PROCEDURE CALL                    #
   LABEL RJMAIN;             # RETURN ADDR IN OVLCALL                  #
   END
 
# 
      INTERNAL VARIABLES
# 
      ITEM BUFADDR;          # SM BUFFER ADDRESS                       #
 
      BEGIN 
 
      CONTROL IFEQ DEBUG,1; 
        XTRACE("ACNB4");
      CONTROL FI; 
 
      P<ACNB> = PARAMS1;     # BASE ACNB                               #
 
      BUFADDR = PARAMS2;     # ADDR OF SM BUFFER                       #
      P<SUPMSG> = BUFADDR + AIPHSIZE + ABHSIZE;  # FWA OF CR/RCN/N     #
      P<SMNVF> = P<SUPMSG>; 
      ACNBICT[0] = CRICT[0];  # INPUT CHAR TYPE FOR CONN               #
      ACNBNXP[0] = CRNXP[0];  # NO TRANSPARENT DATA FLAG               #
      ACNBALN[0] = CRALN[0]; # CONNECTION LIST NUMBER                  #
      GOTO RJMAIN;           # RETURN TO CALLING PROGRAM               #
      END 
TERM