Retro1.org codex

*DECK NS$ABH
USETEXT SMB$NS
 
PROC NS$ABH((TLC));          # FORMAT ABH FOR HOST SM                  #
 
 
# TITLE NS$ABH - FORMAT ABH FOR HOST SM.                               #
 
      BEGIN    # NS$ABH # 
# 
**    NS$ABH - FORMAT ABH FOR HOST SM.
* 
*     J.C. LEE    1981
* 
*     THIS ROUTINE FORMATS THE ABH FOR HOST SM. 
* 
*     PROC NS$ABH(TLC)
* 
*     ENTRY:  
*       TLC = SM TEXT LENGTH IN CM WORDS .
* 
*     EXIT: 
*       NONE. 
* 
*     METHOD: 
*       CLEAR ABH WORD. 
*       SET ABT, ACT, TLC.
* 
# 
      $BEGIN
      XREF
        BEGIN 
        PROC NS$DBG;         # TRACE PROCEDURE CALL                    #
        END 
      $END
 
 
      ITEM TLC        U;     # SUPERVISORY MESSAGE TEXT LENGTH         #
 
CONTROL EJECT;
 
      $BEGIN
      NS$DBG("ABH");         # TRACE CALL                              #
      $END
 
      ABHWORD[0] = 0; 
      ABHABT[0] = APPCMD;              # BLOCK TYPE-SUPERVISORY MESSAGE#
      ABHACT[0] = CT60TRANS;           # CHARACTER TYPE-TRANSPARENT 60 #
      ABHTLC[0] = TLC;                 # TEXT LENGTH IN 60-BIT WORDS   #
      SPMSG0[0] = 0;
 
      RETURN; 
      END   # NS$ABH #
      TERM