Re: [Flashforth-devel] Windowsterminal FlashForth -> fehlende Befehle ?

[Mikael N. <mik...@fl...>]

Hi Peter. 

*/ and */mod can be found in ff/forth/math.fs.
I always use the unsigned versions. 
These are faster and have been suitable for my applications. 

: query tib dup ti# accept 'source 2! 0 >in ! ; 

: (d.) ( d -- a u )  tuck dabs <# #s rot sign #> ;
: s.r ( adr len wid -- ) over - 0 max spaces type ;
: d.r ( d wid -- ) >r (d.) r> s.r ;
: .r ( n wid -- ) >r s>d r> d.r ;

How are you flashing the 328p without a programmer ? 

BR Mikael 

On 2022-12-21 21:27, Peter Höhne wrote:

> Hallo liebe Forthfreunde,
> 
> ich hatte den Entschluss gefasst ein Windowsterminal für mehrere Forthversionen zu schreiben.
> Darin habe ich neben eForth auch AmForth und Ihr Flashfort für den Arduino UNO/328p integriert. 
> 
> Das Umschalten inklusive Flashen des gewünschten Forth's erfolgt automatisch aus dem Programm ohne zusätzlichen Programmer oder der Arduino-IDE. Auch Stepschritte oder Teilprogramme sind bei Programmdurchlauf möglich. 
> 
> Um diese 3 Varianten besser gegenüberstellen zu können habe ich die eForth-Examples von Dr. Ting verwendet und für alle 3 Versionen aufbereitet. Sie funktionieren auch ganz gut, leider habe ich in Flashforth einige Probleme mit "nicht vorhandenen eForth-Befehlen"  wie  ->   */,   .r,  */mod,   .r   und   query 
> 
> z.B. wie in den Examples: 
> 
> Example 7  ->     : NT    ( nNT -- $ )    100 3055 */  ;
> Example 11 ->    : year ( year --, compute Julian date and leap year ) 
> dup 1949 - 1461 4 */mod   ( days since 1/1/1949 )
> Example 15 ->    : charakter ( n -- )   dup emit hex dup 3 .r 
> Example 17 ->   : getNumber ( -- n ) 
> begin cr ." Geben Sie eine Nummer ein:"  ( Nachricht ) 
> query bl word number?  Könnten Sie mir hier eventuell weiterhelfen? Ich wäre Ihnen sehr verbunden!
> Vielleicht gibt es dafür Ersatz oder Umschreibebefehle? vielen Dank für Ihre Bemühungen
> mit freundlichen Grüßen
> Peter Höhne PS: falls sie die kpl. Examples sehen wollen, den Ordner mit den FF-Examples hatte ich beigefügt
> das --> zip-File wurde aber nicht angenommen, kann es aber gern als doc-File nachsende. 
> 
> _______________________________________________
> Flashforth-devel mailing list
> Fla...@li...
> https://lists.sourceforge.net/lists/listinfo/flashforth-devel

-- 
--
Mikael