Re: Z80 CP/M Forth & loading code from disk

On Mar 21, 2:01 pm, "John Crane" <jc email> wrote:
> "Bruce McFarling" <agil...@[EMAIL PROTECTED]
> wrote in message
> > S" myfile.F" INCLUDED
> > or if it has INCLUDE (1),
> > INCLUDE myfile.F

> Thanks for setting me straight.  Looks like I was on the wrong track.  I
> tried these, but got "undefined word" error on INCLUDE, and
"interpreting a
> compile-only word" on S" .  So, I put S" into a colon definition, but
then
> got "undefined word" on INCLUDED.  I think the gods of Forth have it out
for
> me!

Serve me right for going by memory ... I don't now see how this gets a
file source in any way other than doing a submit, just like Camel.
There is a custom word << that is used to load files in hForth for
DOS, and if you load enough files that gets to the point of getting to
INCLUDED (and INCLUDE) ... but that custom word is not present in CP/
M.

After looking more closely at the hForth extension source files for
the z80 and 8086, it may have been hForth for DOS that I was using.
The non-interpeting-S" idiom of

BL PARSE MULTI.F INCLUDED

is something that definitely rings a bell, and I can't find an
"INCLUDED" in the z80 source.

Indeed, I would have to experiment to see whether hForth for z80 works
with the SUBMIT facility ... the following is how the process works
for CamelForth Z80:

http://www.camelforth.com/page.php?5

QUOTE

Disk I/O is not yet sup****ted under CP/M.  However, CamelForth v1.2
will
accept commands from a CP/M SUBMIT file using the XSUB utility.  The
SUBMIT file should contain the commands

        XSUB
        CAMEL80
        ...Forth source code...

This will run CamelForth/80 under XSUB, which will feed the rest of
the
file to CamelForth as terminal input.  You can automatically return to
CP/M by putting the CamelForth BYE command in the file.  Then you can
save the modified CamelForth image with the CP/M command

        SAVE nn CAMELNEW.COM

'nn' is the decimal number of pages occupied by the CamelForth
dictionary.  You can determine this value while in CamelForth with the
statement

        DECIMAL HERE 0 256 UM/MOD NIP .

Unfortunately, at the moment there's no way to totally automate this
as
part of the SUBMIT file.  And I'm reluctant to add SAVE to CamelForth
when CP/M has a perfectly good SAVE command.

UNQUOTE