Re: [Flashforth-devel] Flashfort and UNO-TFT display/ili9341

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

Here you have the 0if and 0until. I found them in bitflipser/optiforth.

\ 0if and 0until for Atmega

: 0if ( -- addr) $f009 i, ['] if #8 + execute ; immediate
: 0until ( addr -- ) $f009 i, postpone again ; immediate

Mikael

On 2024-08-22 06:15, Mikael Nordman wrote:

> On 2024-08-21 21:58, Peter Höhne via Flashforth-devel wrote:
> 
>> I can't offer more at the moment, because in Flashforth there are the 
>> commands:
>> 0until, 0if, do, loop and pick unfortunately not!
> 
> https://sourceforge.net/p/flashforth/code/ci/master/tree/avr/forth/pick.fs
> 
> https://sourceforge.net/p/flashforth/code/ci/master/tree/avr/forth/doloop.fs
> 
> Unfortunately the DO..LOOP is not for ATMEGA256 if you plan to use 
> that, but I could create it.
> 
> 0until and 0if could be created, but could you give  a reference to 
> those words.
> Google could not find it immediately.