Upload

Digital Research
2025-10-26 18:04:07 +00:00 · 2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
--- a/SOURCE/UTIL8/QUEUE.LIT
+++ b/SOURCE/UTIL8/QUEUE.LIT
@@ -0,0 +1,47 @@
+$nolist
+/*
+    Queue Literals
+*/
+
+  declare queueheader literally
+               'ql address,
+                name(8) byte,
+                msglen address,
+                nmbmsgs address,
+                dqph address,
+                nqph address';
+
+  declare queuehead literally
+    'structure (queueheader)';
+
+  declare cqueue literally
+               'queueheader,
+                msgin address,
+                msgout address,
+                msgcnt address ';
+
+  declare circularqueue literally
+    'structure (cqueue,
+                buf (1) byte )';
+
+  declare lqueue literally
+               'queueheader,
+                mh address,
+                mt address,
+                bh address';
+
+  declare linkedqueue literally
+    'structure (lqueue,
+                buf (1) byte )';
+
+  declare userqcbhead literally
+    'structure (pointer address,
+                msgadr address )';
+
+  declare userqcb literally
+    'structure (pointer address,
+                msgadr address,
+                name(8) byte)';
+
+$list
+