Retro1.org codex

*DECK     CSSUPL
USETEXT TEXTCS
USETEXT TXTAPSS 
      PROC CSSUPL;
# TITLE - UPDATE PAGE LENGTH                                           #
      BEGIN 
# 
**    CSSUPL - UPDATE PAGE LENGTH 
* 
*     D.K. ENDO    82/03/10 
* 
*     THIS PROCEDURE UPDATES THE PAGE LENGTH VALUE IN THE OCB FOR THIS
*     OPERATOR WITH THE VALUE IN THE IN COMING TCH/TCHAR SM.
* 
*     PROC CSSUPL 
* 
*     ENTRY        1. TCH/TCHAR SM
* 
*     EXIT         1. UPDATE PAGE LENGTH IN APPROPRIATE OCB.
* 
# 
#                                                                      #
#                            CSSUPL CODE BEGINS HERE                   #
#                                                                      #
# 
*     SET THE PAGE LENGTH IN THE OCB TO THE PAGE LENGTH IN THE TCH/TCHAR
*     SM. 
# 
      OC$PL[TCHACN[0]] = TCHPL[0];
 
      RETURN;                # **** RETURN ****                        #
      END # CSSUPL #
      TERM