Path: news.eternal-september.org!eternal-september.org!feeder3.eternal-september.org!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: zbigniew2011@gmail.com (LIT)
Newsgroups: comp.lang.forth
Subject: Re: THROW codes and ambiguous conditions
Date: Mon, 9 Jun 2025 12:24:22 +0000
Organization: novaBBS
Message-ID: <5244ae93cb596f4913a998c0ef209935@www.novabbs.com>
References: <f827ba6fc80427f3ce0317835bd8ae47a4445e07@i2pn2.org> <2025Jun8.095626@mips.complang.tuwien.ac.at> <nnd$3684930b$6efa6c20@f38c7dd064d4edad> <15f0ff69ffcb0b25a08cace9d19b8b8522a828b1@i2pn2.org> <nnd$250ea32f$3fb998ef@ec94e1e8dead8ab7> <59e4ae185452968c7865c9f48d631a11d7ec77ee@i2pn2.org>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: i2pn2.org;
	logging-data="3959691"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="ovTHZ/VLht/KDF1nKqB7PmGhjiyfUdv/DKd8kGKFjRY";
User-Agent: Rocksolid Light
X-Spam-Checker-Version: SpamAssassin 4.0.0
X-Rslight-Posting-User: 8e58c9b6d1da98b6162b84d03d2307a6516add15
X-Rslight-Site: $2y$10$V9szfkdBwtYeJUBg0EPGe.0rn0bAJ4epxVpUAYEYnvP6WIcC.GGvO

> Tried to load LIT's Roman code into FigForth for CP/M only to find it
> used
> non-Fig words NIP 2DROP TUCK 1- .  I also needed something akin to S" to
> pass
> the numeric string to the routine.  All edits had to done externally as
> no
> editor was present.  After fixing all that the routine still didn't work
> properly.  It appears LIT's code relies on a non-symmetric DO LOOP -
> which is
> not FigForth standard.  Let's just say I won't be returning to FigForth
> any
> time soon.  Once in a decade is enough to remind me 'Never again' :)

You may want to try this one:
 https://www.forth.org/fig86new.zip
This is the one I'm tinkering with (just presently
I already heavily modified it) and its loops are
pretty standard, I believe (it's from 1982).

It started few years ago, when I was curious could
I make it assemble using MASM (it didn't want to...),
because it was prepared using some 'exotic' one, no
more available.

--