User Tools

Site Tools


cdc:nos2.source:nam5871:kds_ns

KDS$NS

Table Of Contents

  • [00002] PROC KDS$NS
  • [00004] KDS$NS - K-DISPLAY BUFFER/PAGE-WAIT BUFFER.
  • [00008] K-DISPLAY BUFFER/PAGE-WAIT BUFFER.

Source Code

KDS$NS.txt
  1. *DECK KDS$NS
  2. PROC KDS$NS; # K-DISPLAY BUFFER/PAGE-WAIT BUFFER #
  3.  
  4. # TITLE KDS$NS - K-DISPLAY BUFFER/PAGE-WAIT BUFFER. #
  5.  
  6. BEGIN # KDS$NS #
  7. #
  8. ** KDS$NS - K-DISPLAY BUFFER/PAGE-WAIT BUFFER.
  9. *
  10. * J.C. LEE 1981
  11. *
  12. * THIS SYMPL TEXT CONTAINS K-DISPLAY/PAGE-WAIT
  13. * BUFFER DEFS AND HEADER FORMATS.
  14. *
  15. #
  16.  
  17. CONTROL STEXT;
  18.  
  19. DEF KDB$IDENT # 1 #; # K-DISPLAY BUFFER IDENTIFIER #
  20. DEF KDB$HDRL # 1 #; # K-DISPLAY BUFFER HEADER LENGTH#
  21. DEF KDB$MAX$LN # 160 #; # MAXIMUM NO OF LINES ALLOWED #
  22. DEF PWB$IDENT # 7 #; # PAGE-WAIT BUFFER IDENTIFIER #
  23. DEF PWB$HDRL # 1 #; # PAGE-WAIT BUFFER HEADER LENGTH#
  24. DEF PWB$MAX$LN # 160 #; # MAXIMUM NO OF LINES ALLOWED #
  25.  
  26. BASED ARRAY KDS$BUFFER [0:0] P(KDB$HDRL);
  27. BEGIN # K-DISPLAY BUFFER HEADER FORMAT #
  28. ITEM KDB$HDRWD U(00,00,60); # KDB HEADER WORD #
  29. ITEM KDB$ID U(00,00,06); # KDB IDENTIFIER #
  30. ITEM KDB$WC U(00,06,12); # KDB CURRENT WORD COUNT #
  31. ITEM KDB$LC U(00,18,12); # KDB CURRENT LINE COUNT #
  32. END
  33.  
  34. BASED ARRAY PWB$BUFFER [0:0] P(PWB$HDRL);
  35. BEGIN # PAGE-WAIT BUFFER HEADER FORMAT #
  36. ITEM PWB$HDRWD U(00,00,60); # PWB HEADER WORD #
  37. ITEM PWB$ID U(00,00,06); # PWB IDENTIFIER #
  38. ITEM PWB$WC U(00,06,12); # PWB CURRENT WORD COUNT #
  39. ITEM PWB$LC U(00,18,12); # PWB CURRENT LINE COUNT #
  40. END
  41.  
  42. END # KDS$NS #
  43. TERM
cdc/nos2.source/nam5871/kds_ns.txt ยท Last modified: 2023/08/05 17:22 by Site Administrator