[Simh] exit fig-forth monitor in RST/E

[Paul Koning]

> On Jan 3, 2016, at 3:48 PM, Christian Gauger-Cosgrove <captainkirk359 at gmail.com> wrote:
> 
> On 3 January 2016 at 14:20, Johnny Billquist <bqt at softjar.se> wrote:
>> I never saw the FORTH RTS, but that is pretty cool. I'm absolutely sure
>> there must be a way to switch to another RTS from the FORTH RTS as well.
>> You'll just have to search documentation, experiment, search for strings in
>> the binary, and other creative things.
>> 
>> Tried something like "SWITCH DCL"? :-)
>> 
> That doesn't work. I should know, I've tried a lot to try and leave
> FIG-FORTH on my own RSTS/E system.
> 
> The kludge-tastic way I usually exit the FORTH RTS is by using it on a
> multiplexer line and issuing HANGUP KBn: from an operator account on
> KB0:; it works but it's a horrible, horrible way of doing it.

I wonder if it's documented in some obscure spot, or if we neglected to do so.  The answer is: the word "CCL" passes the string that follows to RSTS as a command to execute.  So any CCL command (anything added with define/command/system) will work.  Normally "switch" is such a command, so you would do "ccl switch" (or the equivalent "ccl switch dcl").

> I suspect there's a reason that FORTH.RTS is sitting in UNSUPP$:
> (unsupported utilities)...

Actually, it's because I ported it to RSTS as an internal tool, and managed to get it shipped so long as DEC wouldn't have to support it.  There are two FORTH programs that should be included: one is ODT which is like the Basic ODT tool except that it handles large files, and the other is SDA which is an interactive crashdump analyzer inspired by (but not derived from) the VMS tool by that name.  I don't remember if the sources are distributed; if not, SDA does have a HELP command that should give you some ideas.

This Forth implementation is a port of Fig-FORTH by John S. James, with some RSTS-specific magic added.  I just realized the file header says that it is in the public domain, so I suppose I should post the source...

	paul