mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-25 17:34:06 +00:00
51 lines
1.0 KiB
Plaintext
51 lines
1.0 KiB
Plaintext
$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;
|
||
|