Path: csiph.com!eternal-september.org!feeder.eternal-september.org!nntp.eternal-september.org!.POSTED!not-for-mail From: David Meyer 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> 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 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 +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 +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