*DECK KDS$NS
PROC KDS$NS;                 # K-DISPLAY BUFFER/PAGE-WAIT BUFFER       #
  
# TITLE KDS$NS - K-DISPLAY BUFFER/PAGE-WAIT BUFFER.                    #
  
      BEGIN    # KDS$NS # 
# 
**    KDS$NS - K-DISPLAY BUFFER/PAGE-WAIT BUFFER. 
* 
*     J.C. LEE    1981
* 
*     THIS SYMPL TEXT CONTAINS K-DISPLAY/PAGE-WAIT
*     BUFFER DEFS AND HEADER FORMATS. 
* 
# 
  
      CONTROL STEXT;
  
      DEF KDB$IDENT       # 1 #;       # K-DISPLAY BUFFER IDENTIFIER   #
      DEF KDB$HDRL        # 1 #;       # K-DISPLAY BUFFER HEADER LENGTH#
      DEF KDB$MAX$LN      # 160 #;     # MAXIMUM NO OF LINES ALLOWED   #
      DEF PWB$IDENT       # 7 #;       # PAGE-WAIT BUFFER IDENTIFIER   #
      DEF PWB$HDRL        # 1 #;       # PAGE-WAIT BUFFER HEADER LENGTH#
      DEF PWB$MAX$LN      # 160 #;     # MAXIMUM NO OF LINES ALLOWED   #
  
      BASED ARRAY KDS$BUFFER [0:0] P(KDB$HDRL); 
        BEGIN                # K-DISPLAY BUFFER HEADER FORMAT          #
        ITEM KDB$HDRWD    U(00,00,60); # KDB HEADER WORD               #
        ITEM KDB$ID       U(00,00,06); # KDB IDENTIFIER                #
        ITEM KDB$WC       U(00,06,12); # KDB CURRENT WORD COUNT        #
        ITEM KDB$LC       U(00,18,12); # KDB CURRENT LINE COUNT        #
        END 
  
      BASED ARRAY PWB$BUFFER [0:0] P(PWB$HDRL); 
        BEGIN                # PAGE-WAIT BUFFER HEADER FORMAT          #
        ITEM PWB$HDRWD    U(00,00,60); # PWB HEADER WORD               #
        ITEM PWB$ID       U(00,00,06); # PWB IDENTIFIER                #
        ITEM PWB$WC       U(00,06,12); # PWB CURRENT WORD COUNT        #
        ITEM PWB$LC       U(00,18,12); # PWB CURRENT LINE COUNT        #
        END 
  
      END   # KDS$NS #
      TERM
