Retro1.org codex

*DECK HIS$NS
PROC HIS$NS;                 # HISTORY BUFFER FORMAT                   #
 
#  TITLE HIS$NS - HISTORY BUFFER FORMAT.                               #
 
      BEGIN    # HIS$NS # 
# 
**    HIS$NS - HISTORY BUFFER FORMAT. 
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS THE HISTORY BUFFER DEF 
*     AND FORMAT. 
* 
# 
 
      CONTROL STEXT;
 
      DEF HIS$IDENT       # 2 #;       # HISTORY BUFFER IDENTIFIER     #
      DEF HIS$HDRL        # 12 #;      # HISTORY BUFFER HEADER LENGTH  #
      DEF HIS$MAX$LN      # 124 #;     # MAXIMUM NO OF LINES ALLOWED   #
      DEF HIS$HDRWDL      # 1 #;       # BUFFER HEADER WORD LENGTH     #
      DEF HIS$LN1TL       # 3 #;       # HISTORY LINE 1 TEXT LENGTH    #
      DEF HIS$LN2TL       # 6 #;       # HISTORY LINE 2 TEXT LENGTH    #
 
      BASED ARRAY HIS$BUFFER [0:0] P(HIS$HDRWDL); 
        BEGIN                # HISTORY BUFFER HEADER FORMAT            #
        ITEM HIS$HDRWD    U(00,00,60); # HEADER WORD                   #
        ITEM HIS$ID       U(00,00,06); # HISTORY BUFFER IDENTIFIER     #
        ITEM HIS$WC       U(00,06,12); # CURRENT WORD COUNT            #
        ITEM HIS$LC       U(00,18,12); # CURRENT LINE COUNT            #
        ITEM HIS$LN1HDR   U(01,00,60); # HISTORY LINE 1 HEADER         #
        ITEM HIS$LN1TXT   C(02,00,28); # HISTORY LINE 1 TEXT           #
        ITEM HIS$LN1END   U(04,48,12); # LINE TERMINATOR               #
        ITEM HIS$LN2HDR   U(05,00,60); # HISTORY LINE 2 HEADER         #
        ITEM HIS$LN2TXT   C(06,00,58); # HISTORY LINE 2 TEXT           #
        ITEM HIS$LN2END   U(11,48,12); # LINE TERMINATOR               #
        END 
 
      END   # HIS$NS #
      TERM