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

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 2026-09-05 13:08 +0900
Organization A noiseless patient Spider
Message-ID <87o6ecfiho.fsf@localhost> (permalink)
References <117cof5$tinj$1@dont-email.me>

Show all headers | 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