Retro1.org codex

*DECK SMB$NS
PROC SMB$NS;
# TITLE SMB$NS - SM TEXT.                                              #
 
      BEGIN    # SMB$NS # 
# 
**    SMB$NS - SM TEXT. 
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT MAINLY CALLS COMDECKS, AND DEFINES
*     COMMON BLOCKS FOR APPLICATION BLOCK HEADER (ABH), 
*     AND SM MESSAGE. 
* 
# 
      CONTROL STEXT;
      DEF MAX$SMSIZE      # 64 #;      # MAXIMUM SM LENGTH IN CM WORDS #
*CALL SMAPDEF 
*CALL MISCOM
 
      BASED ARRAY SMB [0:63] S(1);
        BEGIN 
        ITEM SMBWORD      U(00,00,60);
        END 
 
      COMMON SMB$COM; 
 
      BEGIN # SMB$COM # 
 
      ITEM SM$REISSUE B;     # SET IF SM IS TO BE REISSUED             #
      ARRAY ABH$WORD [0:0] S(1);
        BEGIN                # APPLICATION BLOCK HEADER WORD           #
*CALL HEADER
        END 
      ARRAY SMB$BUFFER [0:0] S(MAX$SMSIZE); 
        BEGIN                # SM BUFFER                               #
*CALL SUPMSG
*CALL SMNS
*CALL SMAPPL
        END 
      END # SMB$COM COMMON #
      END TERM