Re: Average of a [stack]

On 2024-07-11, ahmed <melahi_ahmed@yahoo.fr> wrote:

Thanks for the explanation.
How can I get FOR and NEXT with MinForth? I have MF384.
>
Ahmed

In pforth (pfe), that's why I use to test code made for eforth:

: >MARK ( --A ) HERE 0 , ;
: AHEAD ( --A ) COMPILE branch >MARK ; IMMEDIATE
: AFT ( a --a A ) DROP [COMPILE] AHEAD [COMPILE] BEGIN SWAP ; IMMEDIATE

: FOR ( RUNTIME: N -- )
        COMPILE ABS  \ NO NEGATIVES
        COMPILE LIT 0 , COMPILE SWAP
        [COMPILE] ?DO ; IMMEDIATE

: NEXT
        COMPILE LIT -1 ,
        [COMPILE] +LOOP ; IMMEDIATE