Upload

Digital Research

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

@@ -0,0 +1,30 @@
+$title('MP/M II V2.0 Status Process -  Resident Portion')
+status:
+do;
+
+$include (copyrt.lit)
+/*
+  Revised:
+    14 Sept 81  by Thomas Rolander
+*/
+
+$include (proces.lit)
+$include (queue.lit)
+
+/*
+  Status Process Data Segment
+*/
+  declare bdos$entry address
+    data (0);
+
+  declare status$pd process$descriptor public
+    data (0,rtr$status,190,0,
+             'MP',0cdh /* ('M'+80h) */,'STAT',
+             0a0h /* ' '+80h */,0,0,0);
+  declare status$cqcb structure (
+    cqueue,
+    buf (2) byte )
+    initial (0,'MPMSTAT ',2,1);
+
+end status;
+