Retro1.org codex

*DECK UPDNCNB 
USETEXT NIPDEF
USETEXT NCNB
USETEXT SUPMSG
USETEXT PARAMS
PRGM UPDNCNB;                # UPDATE NCNB WITH TERMINAL CHAR CHANGES  #
STARTIMS; 
 #
*1DC  UPDNCNB 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        UPDNCNB             C. BITTNER          82/09/01 
* 
*     2. FUNCTIONAL DESCRIPTION 
*        UPDATE ACNB WITH TERMINAL CHARACTERISTIC CHANGES 
* 
*     3. METHOD USED
*        BASE SM (CHC/TE) 
*        UPDATE NCNB
* 
*     4. ENTRY PARAMETERS 
*        PARAMS1 - NCNB ADDRESS 
*        PARAMS2 - FWA OF CHC/TE
* 
*     5. EXIT PARAMETERS
*        NONE 
* 
*     6. COMDECKS CALLED AND SYMPL TEXTS USED 
*        NIPDEF     NCNB     SUPMSG 
*        PARAMS     OSSIZE
* 
*     7. ROUTINES CALLED
*        XTRACE - TRACE PROCEDURE CALL
* 
*     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
*        THIS SECONDARY OVERLAY IS CALLED BY NCSTTP.
*        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 ADDRESS IN OVLCALL               #
   END
 
 
# 
 PARAMS1 - NCNB ADDRESS 
 PARAMS2 - SM BUFFER ADDRESS- CHC/TE
# 
 
#**********************************************************************#
 
      BEGIN 
 
      CONTROL IFEQ DEBUG,1; 
        XTRACE("UNCNB");
      CONTROL FI; 
 
      P<SMNIP> = PARAMS2 + BLKHSIZE + ABHSIZE;  # FWA OF CHC/TE        #
      P<NCNB> = PARAMS1;     # BASE NCNB                               #
      NCNBTC[0] = CHCTC[0];  # UPDATE NEW TERMINAL CLASS               #
      NCNBPW[0] = CHCPW[0];  # UPDATE NEW PAGE WIDTH                   #
      NCNBPL[0] = CHCPL[0];  # UPDATE NEW PAGE LENGTH                  #
      GOTO RJMAIN;           # RETURN TO CALLING PROGRAM               #
      END 
TERM