mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
30 lines
640 B
Plaintext
30 lines
640 B
Plaintext
$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;
|
||
|