Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #135094 > unrolled thread

ANN: DX-Forth 4.64

Back to article view | Back to comp.lang.forth

Contents

  ANN: DX-Forth 4.64 dxf <dxforth@gmail.com> - 2026-05-25 15:32 +1000
    Re: ANN: DX-Forth 4.64 Hans Bezemer <the.beez.speaks@gmail.com> - 2026-06-06 16:35 +0200
      Re: ANN: DX-Forth 4.64 dxf <dxforth@gmail.com> - 2026-06-07 12:29 +1000
        Re: ANN: DX-Forth 4.64 Hans Bezemer <the.beez.speaks@gmail.com> - 2026-06-07 14:14 +0200
          Re: ANN: DX-Forth 4.64 dxf <dxforth@gmail.com> - 2026-06-08 12:59 +1000

#135094 — ANN: DX-Forth 4.64

DX-Forth is a Forth language compiler and development system
for MS-DOS and CP/M-80 operating systems.  It is intended to
be a complete, easy to use, programming tool for the creation
of turnkey applications.

What's new:

+ added  - removed  * fixed  ! changed  = updated

v4.64  2026-05-25

+  -CHAR ?FREE
+  Key codes (KEYS.SCR)
+  Quad number package (QUAD.SCR)
+  Double number package (DOUBLE.SCR)
+  Floating point locals (FLOCALS.SCR)
+  Forth Inc punctuation (PUNCT.SCR)

+  Support for low TPA systems (see README.1ST) (CP/M)

Download:

DXCPM464.ZIP (CP/M-80)
DXDOS464.ZIP (MS-DOS)

https://drive.google.com/drive/folders/1kh2WcPUc3hQpLcz7TQ-YQiowrozvxfGw

* Cross-posted to comp.lang.forth, comp.os.cpm

[toc] | [next] | [standalone]

#135134

On 25-05-2026 07:32, dxf wrote:
> +  -CHAR ?FREE
> +  Key codes (KEYS.SCR)
> +  Quad number package (QUAD.SCR)
> +  Double number package (DOUBLE.SCR)
> +  Floating point locals (FLOCALS.SCR)
> +  Forth Inc punctuation (PUNCT.SCR)

I bet your "END" equals my ";THEN" (aka "THEN EXIT")?

Hans Bezemer

[toc] | [prev] | [next] | [standalone]

#135137

On 7/06/2026 12:35 am, Hans Bezemer wrote:
> On 25-05-2026 07:32, dxf wrote:
>> +  -CHAR ?FREE
>> +  Key codes (KEYS.SCR)
>> +  Quad number package (QUAD.SCR)
>> +  Double number package (DOUBLE.SCR)
>> +  Floating point locals (FLOCALS.SCR)
>> +  Forth Inc punctuation (PUNCT.SCR)
> 
> I bet your "END" equals my ";THEN" (aka "THEN EXIT")?

If you mean "EXIT THEN" then yes :)

I've had END for about 10 years ago and it's been used a lot.  Moore
realized most use of 'ELSE' was in fact redundant - why branch to the
end of a definition when one can simply EXIT?  While 'EXIT THEN' has
been around forever and one sees it used occasionally, it's a bit of
a mouthful.  I chose the name 'END' as a) it fits and b) it hadn't
been used in forth since the mid/late 70's.  END was the original
name for UNTIL .

[toc] | [prev] | [next] | [standalone]

#135140

On 07-06-2026 04:29, dxf wrote:
>> I bet your "END" equals my ";THEN" (aka "THEN EXIT")?
> If you mean "EXIT THEN" then yes :)

Yeah - a case of brain fog. I'm getting older. It happens :(

> I've had END for about 10 years ago and it's been used a lot.  Moore
> realized most use of 'ELSE' was in fact redundant - why branch to the
> end of a definition when one can simply EXIT?

In my case it was a neat way to do "tail call recursion". If the last 
word of the "IF" part could be replaced by a "BRANCH" it was faster and 
tighter. I added it on June 8th, 2017. Not quite 10 years, but close 
enough ;-)

> While 'EXIT THEN' has
> been around forever and one sees it used occasionally, it's a bit of
> a mouthful.  I chose the name 'END' as a) it fits and b) it hadn't
> been used in forth since the mid/late 70's.  END was the original
> name for UNTIL .

I supported "END" as well. Can't say in what capacity because I removed 
it November 1st, 1997 -- along with "ENDIF" and "R". ;-)

BTW, ported parts of QUAD.SCR to 4tH. And wrote a TTESTER file for it 
(if you're interested). Hope you don't mind. Of course -- full credits 
in the source.

But that's why the "END" question came up!

Hans Bezemer

[toc] | [prev] | [next] | [standalone]

#135145

On 7/06/2026 10:14 pm, Hans Bezemer wrote:
> ... 
> BTW, ported parts of QUAD.SCR to 4tH. And wrote a TTESTER file for it (if you're interested). Hope you don't mind. Of course -- full credits in the source.
> 
> But that's why the "END" question came up!

I was curious as to the connection :)  Thanks for the tester!  While I do
some tests, getting me to do formal testing is a bit like herding cats.  I
figure I'll find bugs - sooner if I use the thing.  While I didn't expect
to use QUAD anytime soon, I did spot a typo/bug whose fixing led to various
improvements elsewhere in the distribution.  Silver linings and all that...

[toc] | [prev] | [standalone]

Back to top | Article view | comp.lang.forth

csiph-web