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) {} {}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}