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