Retro1.org codex

*DECK     TXTSMCS 
PROC TXTSMCS; 
# TITLE TXTSMCS - SUPERVISORY MESSAGES FOR CS.  # 
      CONTROL    STEXT; 
 
      BEGIN # TXTSMCS # 
# 
**    TXTSMCS - SUPERVISORY MESSAGES FOR CS.
* 
*     S. H. FISCHER.         81/08/05.
*     C. J. BRION            82/04/08.
* 
*     THIS SYMPL TEXT PROVIDES THE SUPERVISORY MESSAGE DEFINITIONS
*     NEEDED BY CS WHEN COMMUNICATING WITH NPU S. 
* 
*     PROC TXTSMCS
* 
# 
 
      DEF MSBFCSL  # 100 #;  # THIS IS ONE HALF OF *MSGBUF* IN TEXTSS  #
      DEF ACTCSNP$ # 2 #;    # ACT VALUE FOR SMS CS TO NPU #
 
 
*CALL SMCSDEF 
 
 
 
 
      COMMON BACSSM;
 
      BEGIN  # BACSSM # 
 
 
      BASED ARRAY CSSM [00:01] S(MSBFCSL);
 
      BEGIN  # CSSM # 
*CALL SMCS
      END  # CSSM # 
 
 
      END  # BACSSM # 
 
      END  # TXTSMCS #
      TERM