Table of Contents

LIN$NS

Table Of Contents

  • [00002] PROC LIN$NS
  • [00003] LIN$NS - LINE HEADER FORMAT.
  • [00007] LINE HEADER FORMAT.

Source Code

LIN$NS.txt 
  1. *DECK LIN$NS
  2. PROC LIN$NS;                 # LINE HEADER FORMAT                      #
  3. # TITLE LIN$NS - LINE HEADER FORMAT.                                   #
  4.  
  5.       BEGIN    # LIN$NS # 
  6. # 
  7. **    LIN$NS - LINE HEADER FORMAT.
  8. * 
  9. *     J.C. LEE    1981
  10. * 
  11. *     THIS SYMPL TEXT CONTAINS DEFS AND FORMAT FOR
  12. *     LINE HEADER.
  13. * 
  14. # 
  15.       CONTROL STEXT;
  16.       DEF LIN$IDENT       # O"77777777" #;  # LINE IDENTIFIER          #
  17.       DEF LIN$HDRL        # 1 #;       # LINE HEADER LENGTH            #
  18.  
  19.       BASED ARRAY LIN$HEADER [0:0] P(LIN$HDRL); 
  20.         BEGIN                # LINE HEADER AND TEXT                    #
  21.         ITEM LIN$HDRWD    U(00,00,60); # LINE HEADER WORD              #
  22.         ITEM LIN$ID       U(00,00,24); # LINE IDENTIFIER               #
  23.         ITEM LIN$F$ENDR   B(00,41,01); # TRUE IF END OF CMD RESPONSE   #
  24.         ITEM LIN$LNSIZE   I(00,42,18); # LINE SIZE IN CM WORDS         #
  25.         ITEM LIN$TXTWD    U(00,00,60); # LINE TEXT WORD                #
  26.         END 
  27.  
  28.       END   # LIN$NS #
  29.       TERM