Queue diagnostic routines

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.