Path: utzoo!attcan!uunet!aplcen!uakari.primate.wisc.edu!zaphod.mps.ohio-state.edu!usc!apple!well!jax
From: jax@well.sf.ca.us (Jack J. Woehr)
Newsgroups: comp.lang.forth
Subject: Re: RTX Uploading: HELP!!!
Message-ID: <20138@well.sf.ca.us>
Date: 6 Sep 90 06:07:51 GMT
References: <1990Aug16.132954.17287@mlb.semi.harris.com> <15346.26e3b9ed@levels.sait.edu.au>
Lines: 70

etrmg@levels.sait.edu.au writes:

.. <stuff> ..

>The program is loading nicely now & have almost had the sucker run.  I just
>have to figure out how to load a table into an array using EBForth.  
>That's another new thing for me.  I'll give CREATE a try, but am a bit confused
>about how to do repetitive things while "creating".

	Ron ...

	I dunno if the following is still true about EBForth but
I hadn't heard that they had fixed it. Just in case, let me repeat
a posting I made in May.
	.
	.
	.

	.
	On the Harris RTX2001AEB Evaluation Board which I was shipped
as part of Phase I, GOES> is gone and DOES> doesn't.

	I called Harris Semiconductor and they forwarded me a memo
dated 5/2 from Susan Motes superceding a memo of 5/1, detailing the
correct definitions of DOES DOES> and GOES>.

	The Harris definitions are wrong.
	The following definitions are correct.

----------------------------< cut here >-----------------------------

\	CREATE ... DOES> works when you compile a table to the
\ dictionary.
\	VARIABLE ... GOES> works when the storage will be in data
\ segement.
\	The two examples, ARRAY (self-indexing cell array) and
\ TABLE (self-indexing comma-table) show correct syntax.

HEX

: DOES R> U2/ USE ;

: GOES> ( ---)
   COMPILE DOES BE01 , COMPILE @ 1 -OPT ! ; IMMEDIATE

: DOES> COMPILE DOES BE01 , 1 -OPT ! ; IMMEDIATE

: ARRAY ( #cells ---)
   VARIABLE 1- CELLS ALLOT
   GOES> SWAP CELLS + ;

: TABLE ( ---) CREATE DOES> SWAP CELLS + ;

\ i.e. ...
\           40 ARRAY FOO ok
\           0 FOO . 1 FOO . 2 FOO .
\           4300 4302 4304 ok
\           ok
\           ok
\           TABLE ZOG 1234 , 5678 , 9ABC , ok
\           0 ZOG @ . 1 ZOG @ . 2 ZOG @ .
\           1234 5678 9ABC ok
\

DECIMAL
-----------------------------------------------------------------------
 <jax@well.{UUCP,sf.ca.us} ><  Member, >        /// ///\\\    \\\  ///
 <well!jax@lll-winken.arpa >< X3J14 TC >       /// ///  \\\    \\\/// 
 <JAX on GEnie             >< for ANS  > \\\  /// ///====\\\   ///\\\ 
 <SYSOP RCFB (303) 278-0364><  Forth   >  \\\/// ///      \\\ ///  \\\