Retro1.org codex

*DECK UPDACNB 
USETEXT NIPDEF
USETEXT ACNB
USETEXT PARAMS
USETEXT SUPMSG
PROC UPDACNB;                # UPDATE ACNB                             #
STARTIMS; 
 #
*1DC  UPDACNB 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        UPDACNB             C. BITTNER          81/07/24 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        UPDATE ACNB PARAMETERS 
* 
*     3. METHOD USED
*        UPDATE ACNB PARAMETERS FROM TEXT OF CR/ITE/N MESSAGE 
* 
*     4. ENTRY PARAMETERS 
*        PARAMS1 - ACNB ADDRESS 
*        PARAMS2 - ADDRESS OF SM BUFFER (CR/ITE/N)
* 
*     5. EXIT PARAMETERS
*        NONE 
* 
*     6. COMDECKS AND SYMPL TEXTS USED
*        NIPDEF              ACNB 
*        PARAMS              SUPMSG 
* 
*     7. ROUTINES CALLED
*        XTRACE - TRACE PROCEDURE CALL
* 
*     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
*        THIS PROCEDURE IS CALLED BY COMPCON VIA HCSTTP.
* 
 #
STOPIMS;
 
# 
      EXTERNAL VARIABLES
# 
 XREF 
   BEGIN
   PROC XTRACE;              # TRACE PROCEDURE CALL                    #
   END
 
# 
      INTERNAL VARIABLES
# 
      ITEM BUFADDR;          # SM BUFFER ADDRESS                       #
 
 
 
#**********************************************************************#
 
 
      BEGIN 
 
      CONTROL IFEQ DEBUG,1; 
        XTRACE("UPDAC") ; 
      CONTROL FI; 
 
      P<ACNB> = PARAMS1;     # BASE ACNB                               #
      BUFADDR = PARAMS2;
      P<SUPMSG> = BUFADDR + AIPHSIZE + ABHSIZE;  # ADDR OF CR/ITE/N    #
      P<SMNVF> = P<SUPMSG>; 
      ACNBICT[0] = CRICT[0]; # INPUT CHARACTER TYPE FOR CONN           #
      ACNBVCBO[0] = CRVCB[0];# VCB ORDINAL                             #
      ACNBNXP[0] = CRNXP[0];  # NO TRANSPARENT DATA FLAG               #
 
      ACNBALN[0] = CRALN[0]; # LIST NUMBER FOR CONNECTION              #
      IF PFCSFC[0] EQ CRRAPN
      THEN
        BEGIN 
        ACNBABL[0] = CRRAABL[0] ; 
        END 
 
 
      RETURN ;               # RETURN TO CALLING PROGRAM               #
      END 
TERM