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