$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;