Upload

Digital Research

MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL2/SPRSP.PLM

@@ -0,0 +1,41 @@
+$title('MP/M II V2.0 Spool Process  -  Resident Portion')
+spool:
+do;
+
+$include (copyrt.lit)
+/*
+  Revised:
+    14 Sept 81  by Thomas Rolander
+*/
+
+$include (proces.lit)
+$include (queue.lit)
+
+/*
+  Spool Process Data Segment
+*/
+  declare os address public
+    /* The OS address will be filled in here by the
+       MPM Loader, this address is used by Mon1 & Mon2 */
+    data (0);
+
+  declare spool$pd process$descriptor public
+    /* This is 'data' because it must precede
+       the PRL file code segment            */
+    data (0,0,20,0,
+             'Sp',0efh /* 'o'+80h */,'ol  ',
+             0a0h /* ' '+80h */,0,0,0);
+
+  declare spool$lqcb
+    structure (lqueue,
+               buf (128) byte)
+    data (0,'SPOOLQ  ',62,2);
+
+  declare stpspl$cqcb circularqueue
+    data (0,'STOPSPLR',0,1);
+
+  declare last byte
+    data (0);
+
+end spool;
+