Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!sdd.hp.com!uakari.primate.wisc.edu!uflorida!mlb.semi.harris.com!forth.mlb.semi.harris.com!rvn
From: rvn@forth.mlb.semi.harris.com (Rick VanNorman)
Newsgroups: comp.lang.forth
Subject: Re: RTX Uploading: HELP!!!
Message-ID: <1990Aug16.132954.17287@mlb.semi.harris.com>
Date: 16 Aug 90 13:29:54 GMT
Sender: news@mlb.semi.harris.com
Organization: Harris Semiconductor, Melbourne FL
Lines: 42

In article <15263.26c6f6b2@levels.sait.edu.au>, Ronn writes:

> I was going thru a posting awhile back on using pacing characters with the
> RTX-2001 Contest board using EBFORTH.  I was looking at the XQUIT and QUIT
> definitions only to find a word named "RUN" after "QUERY".
>
> Of course RUN isn't in the system definitions or anywhere.  So can anybody
> tell me what I'm missing here.  I can't seem to get the word onto the board
> because it won't accept RUN.

The definition of RUN is headerless in the system ROM, and the source
code was accidentally left out of the manual.  Here is the source code
to RUN:

: RUN
   STATE @ IF    ]  STATE @ NOT  IF  INTERPRET  THEN
           ELSE  INTERPRET  THEN ;

: QUIT
   0 STATE !
   BEGIN
      CR QUERY RUN
      STATE @ 0= IF  ." ok " THEN
   AGAIN ;

This was patterned after the F83 model of QUIT.

>  Also, has anyone else had difficulty uploading stuff to this board.  I seem
> to find myself unable to get anything into it except by typing by hand.
> I'm using PC-Talk  . . .BTW

Internally, we have only used Procomm to talk to the board.  We set
Procomm to half duplex, and use the upload ascii file with a 1/2 second
delay for each line (and don't transmit linefeeds (0ah), only carriage
returns (0dh)).

I hope this helps.

Rick VanNorman
Lead Engineer, Software Development
Harris Semiconductor
Melbourne, Florida, USA