Retro1.org codex

*DECK LIN$NS
PROC LIN$NS;                 # LINE HEADER FORMAT                      #
# TITLE LIN$NS - LINE HEADER FORMAT.                                   #
 
      BEGIN    # LIN$NS # 
# 
**    LIN$NS - LINE HEADER FORMAT.
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS DEFS AND FORMAT FOR
*     LINE HEADER.
* 
# 
      CONTROL STEXT;
      DEF LIN$IDENT       # O"77777777" #;  # LINE IDENTIFIER          #
      DEF LIN$HDRL        # 1 #;       # LINE HEADER LENGTH            #
 
      BASED ARRAY LIN$HEADER [0:0] P(LIN$HDRL); 
        BEGIN                # LINE HEADER AND TEXT                    #
        ITEM LIN$HDRWD    U(00,00,60); # LINE HEADER WORD              #
        ITEM LIN$ID       U(00,00,24); # LINE IDENTIFIER               #
        ITEM LIN$F$ENDR   B(00,41,01); # TRUE IF END OF CMD RESPONSE   #
        ITEM LIN$LNSIZE   I(00,42,18); # LINE SIZE IN CM WORDS         #
        ITEM LIN$TXTWD    U(00,00,60); # LINE TEXT WORD                #
        END 
 
      END   # LIN$NS #
      TERM