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

Groups > comp.lang.forth > #135563

Re: FigForth v1.4 for the PDP-11 with fix for modern systems

Path csiph.com!eternal-september.org!feeder.eternal-september.org!nntp.eternal-september.org!.POSTED!not-for-mail
From David Meyer <papa@sdf.org>
Newsgroups comp.lang.forth
Subject Re: FigForth v1.4 for the PDP-11 with fix for modern systems
Date Sat, 05 Sep 2026 13:08:03 +0900
Organization A noiseless patient Spider
Lines 33
Message-ID <87o6ecfiho.fsf@localhost> (permalink)
References <117cof5$tinj$1@dont-email.me>
MIME-Version 1.0
Content-Type text/plain
Injection-Date Sat, 05 Sep 2026 04:00:26 +0000 (UTC)
Injection-Info dont-email.me; logging-data="1279643"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18/yLpg4U3CoQ7k3IVIPmZw"; posting-host="be1df81625be9d04ec1b095f1b0c9451"
User-Agent Gnus/5.13 (Gnus v5.13)
Cancel-Lock sha1:XQQFK/BhyWsAkjI/iGR5xHCjEdc= sha1:CXjKfiQqFkxV/vb3j8ujkLRqnAY= sha256:p8QZ1fS8XopRJEfST9s4b+ijtcKAYw+dKczdb6h/Dhw= sha1:dyKc8vOldMN/chz1LZn70cpZH2g= sha256:oV+Y1VFnZnB2IUCdrohGN/ZKtozf1LM8WNOdap3og6I=
Xref csiph.com comp.lang.forth:135563

Show key headers only | View raw

I encountered the same problem with VAX fig-Forth. I fixed it with Forth
code.


SYS$COMMON:[CONTRIB.FORTH]30001.FIG;1

( VAX fig-Forth VLIST fix                                  1/2 )
( 16-APR-2025 David Meyer <papa@sdf.org> +JMJ                  )
( VLIST prints word names with 128 added to the char. code for )
( the last char. of each name. Fix by reimplementing ID. to    )
( print correct code for last char. of word name.              )
( VLIST reimplentation is identical to assembly original       )
( except for calling fixed ID.                                 )
: ID. ( nfa -- )          ( AND each char. code with 127       )
  (ID) 0 DO DUP I + C@ 127 AND EMIT LOOP DROP SPACE ;
-->

SYS$COMMON:[CONTRIB.FORTH]30002.FIG;1

( VAX fig-Forth VLIST fix                                  2/2 )
( 16-APR-2025 David Meyer <papa@sdf.org> +JMJ                  )
: VLIST ( -- )
  CR 128 OUT ! CONTEXT @ @ BEGIN
    DUP (ID) SWAP DROP OUT @ + 76 > IF CR ENDIF
    DUP ID. SPACE SPACE PFA LFA @ DUP 0= ?TERMINAL OR
  UNTIL
  DROP CR ;


-- 
David Meyer
Takarazuka, Japan
papa@sdf.org

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

FigForth v1.4 for the PDP-11 with fix for modern systems ECNeilson <eric@neilsonhart.com> - 2026-09-03 16:22 -0500
  Re: FigForth v1.4 for the PDP-11 with fix for modern systems David Meyer <papa@sdf.org> - 2026-09-05 13:08 +0900
    Re: FigForth v1.4 for the PDP-11 with fix for modern systems ECNeilson <eric@neilsonhart.com> - 2026-09-05 21:16 -0500
  Re: FigForth v1.4 for the PDP-11 with fix for modern systems legalize+jeeves@mail.xmission.com (Richard) - 2026-09-17 17:25 +0000
    Re: FigForth v1.4 for the PDP-11 with fix for modern systems albert@spenarnc.xs4all.nl - 2026-09-18 11:23 +0200
      Re: FigForth v1.4 for the PDP-11 with fix for modern systems legalize+jeeves@mail.xmission.com (Richard) - 2026-09-18 14:12 +0000
    Re: FigForth v1.4 for the PDP-11 with fix for modern systems ECNeilson <eric@neilsonhart.com> - 2026-09-28 21:36 -0500
      Re: FigForth v1.4 for the PDP-11 with fix for modern systems ECNeilson <eric@neilsonhart.com> - 2026-10-03 23:26 -0500

csiph-web