Upload

Digital Research

MPM OPERATING SYSTEMS/MPM II/MPM II SOURCE/UTIL5/MSTS.PLM

@@ -0,0 +1,51 @@
+$title('MP/M II V2.0 Status Program')
+status:
+do;
+
+$include (copyrt.lit)
+/*
+  Revised:
+    14 Sept 81  by Thomas Rolander
+*/
+
+  declare start label;
+  declare jmp$to$start structure (
+    jmp$instr byte,
+    jmp$location address ) data (
+    0C3H,.start-3);
+
+$include (dpgos.lit)
+$include (proces.lit)
+$include (queue.lit)
+$include (memmgr.lit)
+$include (xdos.lit)
+
+$include (mscmn.plm)
+
+  declare ret byte;
+
+  declare last$dseg$byte byte
+    initial (0);
+
+  start:
+    call setup;
+    call crlf;
+    call crlf;
+    call display$text (0,
+      .('****** MP/M II V2.0 Status Display ******','$'));
+    call display$config;
+    call display$ready;
+    call display$DQ;
+    call display$NQ;
+    call display$delay;
+    call display$poll;
+    call display$flag$wait;
+    call display$flag$set;
+    call display$queues;
+    call display$consoles;
+    call display$printers;
+    call display$mem$seg;
+    ret = xdos (terminate,0);
+
+end status;
+