mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 15:27:28 +00:00
88f5a7262c
Files are from RRS; AR5 MUDDLE on ToTS tape 9006256. Some timestamps are from DM _TAPE files.
60 lines
1.7 KiB
Plaintext
60 lines
1.7 KiB
Plaintext
|
||
SUBSYS PACKAGE
|
||
------ -------
|
||
|
||
THIS PACKAGE WILL LET THE TOPS-20 MUDDLE USER EXECUTE ANY 'EXE' FILE
|
||
AS AN INFERIOR TO MUDDLE. AT THE MINUTE SUBSYS IS THE ONLY RSUBR IN THE
|
||
PACKAGE. THIS PACKAGE USES THE JSYS PACKAGE.
|
||
|
||
SUBSYS TAKES ONE OPTIONAL ARGUMENT OF TYPE STRING. THE STRING IS THE
|
||
NAME OF THE NAME OF THE FILE TO RUN AS AN INFERIOR TO MUDDLE. THIS ARGUMENT
|
||
WILL DEFAULT TO "<SYSTEM>EXEC.EXE", THUS <SUBSYS>$ WILL RUN THE EXEC.
|
||
SUBSYS RETURNS THE FORK HANDLE OF THE LOWER FORK WHEN IT QUITS. THE
|
||
FORK HANDLE IS OF TYPE WORD AND WILL BE USED BE OTHER RSURS ADDED TO
|
||
THIS PACKAGE.
|
||
|
||
EX. 1.1
|
||
--- ---
|
||
<SUBSYS> ;"THIS WILL RUN AN EXEC"$
|
||
|
||
EX. 1.2
|
||
___ ___
|
||
<SUBSYS "<MDL>MDL104.EXE"> ;"RUN AN INFERIOR MUDDLE"$
|
||
|
||
|
||
|
||
THE RSUBR "CONTINUE" LETS THE CONTINUE A FORK THAT HE QUIT. IT ACTS
|
||
LIKE A $P FROM DDT. CONTINUE TAKES ONE ARGUMENT OF PRIMTYPE WORD.
|
||
THIS ARGUMENTS IS THE FORK HANDLE OF THE FORK TO RESUME. IT SHOULD
|
||
BE A VALID INFERIOR FORK HANDLE. CONTINUE RETURNS THE FORK HANDLE
|
||
WHEN THE LOWER FORK QUITS.
|
||
|
||
EX. 2.1
|
||
--- ---
|
||
<SET FH <SUBSYS>> ;"RUN AN EXEC AS A LOWER FORK"$
|
||
@;DO SOMETHING
|
||
@POP
|
||
#WORD *400XXX* ;"THIS IS THE FORK HANDLE .FH"
|
||
;"PLAY WITH MDL"
|
||
<CONTINE .FH> ;"CONTINUE THE EXEC"$
|
||
@DIR <FOO>*.* ;DIR OF FOO'S DIRECTORY
|
||
...........
|
||
|
||
|
||
|
||
KILLFORK IS THE RSUBR TO KILL A LOWER FORK, SINCE WHEN YOU QUIT A
|
||
LOWER FORK IT DOESNT DIE. KILLFORK TAKES ONE ARGUMENT OF PRIMTYE
|
||
WORD, THIS IS THE VALID FORK HANDLE OF THE PROCESS TO KILL. KILLFORK
|
||
CAN'T BE UNDONE, ALSO ALL THE INFERIORS OF THE KILLED FORK ARE
|
||
KILLED.
|
||
|
||
EX. 3.1
|
||
--- ---
|
||
|
||
@; LETS KILL THE EXEC FROM EXAMPLE 2!
|
||
@POP
|
||
#WORD *400XXX*
|
||
<KILLFORK .FH> ;"THE EXEC IS KILLED"$
|
||
#WORD *400XXX* ;"FREE FORK HANDLE. NOT GOOD FOR ANYTHING"
|
||
|
||
|