Path: news.eternal-september.org!eternal-september.org!.POSTED!not-for-mail
From: anthk <anthk@openbsd.home>
Newsgroups: comp.lang.forth
Subject: Re: Average of a [stack]
Date: Wed, 14 May 2025 05:51:35 -0000 (UTC)
Organization: A noiseless patient Spider
Lines: 22
Message-ID: <slrn1027f7f.2c2c.anthk@openbsd.home.localhost>
References: <v3raig$1bhkt$1@dont-email.me>
 <1ae05d1531d54df162c500815909ee37@www.novabbs.com>
 <v6n0pr$2363u$1@dont-email.me> <668f55eb$1@news.ausics.net>
 <8e8cfdb3c12f69e3a540a2817fdf8a48@www.novabbs.com>
 <6cb6b7766253730ea2f384fe48bc77c9@www.novabbs.com>
 <0745dbc99527d05661cd2fec5431980c@www.novabbs.com>
 <bc0623489b27ee52a13215b1a3c64360@www.novabbs.com>
 <e548140694f740bb847f686d6f8db3d3@www.novabbs.com>
 <6707ff1c65be5addceaddaab211099cc@www.novabbs.com>
 <46650539943a987516281bb1aaa2b8bf@www.novabbs.com>
Injection-Date: Wed, 14 May 2025 07:51:35 +0200 (CEST)
Injection-Info: dont-email.me; posting-host="7e32319b20dfb1e254981a76c7bf64c1";
	logging-data="2472392"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/hxQxYoCmeJA8BpvR91Hsq"
User-Agent: slrn/1.0.3 (OpenBSD)
Cancel-Lock: sha1:6FwWjChOjG6Frg7aJxwO4bxgt7k=

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