cdc:nos2.source:nam5871:kds_ns
Table of Contents
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
- *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
cdc/nos2.source/nam5871/kds_ns.txt ยท Last modified: 2023/08/05 17:22 by Site Administrator