The code in QUEUES/Qdiags.fth is only compiled if the equate
DIAGS?
is non-zero.
queue aligned equ /qdhead \ -- len
The head of the list is the original queue header forced
to an aligned length.
cell BUFFHDRSIZE + aligned equ /qdentry \ -- len
Each entry in the list consists of a link field, plus the
original PBUF header. The entry must be aligned.
: .q \ *queue --
Display queue info.
: @qlen \ *queue -- len
Count queue length.
: .qlen \ *queue txtaddr --
Display the queue length.
: .qs \ --
Display the lengths of the FreeIoQ and the FreePbufQ.