Path: utzoo!attcan!uunet!willett!ForthNet
From: ForthNet@willett.UUCP (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: Forth Engines / Harris
Message-ID: <1313.UUL1.3#5129@willett.UUCP>
Date: 11 Jul 90 03:01:54 GMT
Organization: String, Scotch tape, and Paperclips.  (in Pgh, PA)
Lines: 80


 Date: 07-06-90 (18:04)              Number: 648 (Echo)
   To: JAN HOFLAND                   Refer#: NONE
 From: JACK BROWN                      Read: NO
 Subj: ASCII UPLOAD TO RTX           Status: PUBLIC MESSAGE

 To have  high speed upload to the RTX 2001A Contest board we need to
 look at the definitions of ABORT on page 116 of the EBFORTH Manual
   HEX
 : ABORT
   0 SPR@+ FF00 AND  SPR!  \ Clear parameter stack
   'IDLE @ EXECUTE ;

 and the defintion of QUIT on page 119 of the EBFORTH Manual

   HEX
 : QUIT
   0 STATE !
   -1 SPR@+ 0FF AND SPR!  \ clear return stack
   BEGIN CR QUERY RUN
         STATE @ 0= IF ." OK " THEN
   AGAIN ;

 Write your on version of QUIT to emit a pacing character just before the
 QUERY  like so:

 : XQUIT
   0 STATE !
   -1 SPR@+ 0FF AND SPR!  \ clear return stack
   BEGIN CR  xx  EMIT     \ where xx is desired pacing character
         QUERY RUN
         STATE @ 0= IF ." ok " THEN  \ lower case ok identifies  XQUIT
   AGAIN ;

 Then revector 'IDLE to XQUIT

    ' XQUIT 'IDLE !

 and execute  ABORT

 Configure you COMM program to use your choosen pacing character  xx

 and watch the code blast through at 115200 baud!

 The same technique works with the New micros f68hc11 board except you
 have to do a little hacking to get some of the system values... here is
 the code for the V3.3 roms.  I used the " ~ "  for the pacing character
 for debugging purposes.

 004C CONSTANT UABORT
 0054 CONSTANT WARNING

 : XQUIT  ( -- )
    0 BLK ! [COMPILE] [
    BEGIN
    [ F573 , ]      (  RP!)
    CR
    7E ( ~) EMIT
    QUERY   INTERPRET
    STATE @  0=
    IF ." ok" THEN
    AGAIN ;

 : XABORT ( -- )
    [ F57C , ]      ( SP! )
    [COMPILE] FORTH
    DEFINITIONS
    XQUIT ;

 ' XABORT CFA UABORT !
   -1 WARNING !

 ABORT
 ---
  * QDeLuxe 1.01 #260s  Do you belong to FIG? Why not join today.

 NET/Mail : British Columbia Forth Board - Burnaby BC - (604)434-5886   
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: uunet!willett!dwp or willett!dwp@hobbes.cert.sei.cmu.edu