jax@well.sf.ca.us (Jack J. Woehr) (05/05/90)
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 ." Sysop, Realtime Control and Forth Board" FIG {}
{} jax@chariot ." (303) 278-0364 3/12/2400 8-n-1 24 hrs." Chapter {}
{} JAX on GEnie ." Tell them JAX sent you!" Coordinator {}
{} jax@well.sf.ca.us Melbourne FL, Here I come! (X3J14) (Suspended) {}
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}