| Deutsch English Français Italiano |
|
<099ee41be09b247d3b231cf91377b7a2@www.novabbs.com> View for Bookmarking (what is this?) Look up another Usenet article |
Path: ...!weretis.net!feeder9.news.weretis.net!news.nk.ca!rocksolid2!i2pn2.org!.POSTED!not-for-mail From: mhx@iae.nl (mhx) Newsgroups: comp.lang.forth Subject: Re: FP number syntax Date: Wed, 1 Jan 2025 13:47:29 +0000 Organization: novaBBS Message-ID: <099ee41be09b247d3b231cf91377b7a2@www.novabbs.com> References: <f3d930ef062d020cd12825545af27eb8cccf9160@i2pn2.org> <0d58f9f2c2e7ce33f032cbda245a1eee4782552f@i2pn2.org> <874j2rpcl3.fsf@nightsong.com> <372725cbde75de8c5e4f86e726b42d159b3bba93@i2pn2.org> <87zfkinuvb.fsf@nightsong.com> <2024Dec26.225518@mips.complang.tuwien.ac.at> <87v7v6neim.fsf@nightsong.com> <2024Dec31.225135@mips.complang.tuwien.ac.at> <de87b7eda8b747dc2af39527cc81f37f9b106f02@i2pn2.org> <vl2djv$2etn5$1@dont-email.me> <f1177289a653abe2c0af3e0774e842218d5c5137@i2pn2.org> <2025Jan1.124716@mips.complang.tuwien.ac.at> <a14794a0c4fafbe96161b6c336747a6212c226d4@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="1499766"; mail-complaints-to="usenet@i2pn2.org"; posting-account="J+nubxJRM7ncpF4l6KLO+OONWmFAYJHVJegfwQXJ8vc"; User-Agent: Rocksolid Light X-Spam-Checker-Version: SpamAssassin 4.0.0 X-Rslight-Posting-User: 4e0dc1fdad1ead10b39e7eb5db19bf73d73e3ab3 X-Rslight-Site: $2y$10$ehS5ZwMDE4F3Rar3EgxUpu8o7gnyfO0xBh34TJUiag4ix69KGdLgS Bytes: 3334 Lines: 43 I have used DPL sporadically: Searching for: DPL D:\dfwforth\examples\eforth\eforth.frt(420): VARIABLE DPL ( numeric input D:\dfwforth\examples\eforth\eforth.frt(641): >R >R D# 0 DUP R> R> D# -1 DPL D:\dfwforth\examples\eforth\eforth.frt(645): THEN D# 1 - DPL ! CHAR+ DPL @ D:\dfwforth\examples\eforth\eforth.frt(797): IF DPL @ 0< ( single? ) D:\dfwforth\examples\eforth\eforth.frt(891): IF DPL @ 0< D:\dfwforth\examples\eforth\emeta.frt(216): : #O ( d -- n | d ) DPL @ 0< IF D:\dfwforth\examples\eforth\emeta.frt(217): : #I ( n | d ) DPL @ 0< IF DROP [I] D:\dfwforth\examples\graphics\readps.frt(145): : inch DPL @ 0> IF D:\dfwforth\examples\graphics\readps.frt(146): Xmax gain * #10 DPL @ 0 MAX D:\dfwforth\examples\sod64\cross.frt(377): VARIABLE DPL D:\dfwforth\examples\sod64\cross.frt(380): -1 DPL ! D:\dfwforth\examples\sod64\cross.frt(390): DUP IF OVER C@ '.' = IF 1 /STRING D:\dfwforth\examples\sod64\cross.frt(415): DPL @ -1 <> ABORT" cross :: 128 bit D:\dfwforth\examples\sod64\kernel.frt(513): VARIABLE DPL ( -- a-addr ) D:\dfwforth\examples\sod64\kernel.frt(987): \G f is true if and only if the D:\dfwforth\examples\sod64\kernel.frt(990): -1 DPL ! D:\dfwforth\examples\sod64\kernel.frt(1000): DUP IF OVER C@ #46 = IF 1 - DUP D:\dfwforth\include\ix86asm.frt(176): DPL @ -1 = 0= \ double word? D:\dfwforth\include\ix86asm.frt(178): -1 DPL ! D:\dfwforth\include\ix86asm.frt(197): DPL @ -1 = 0= \ double word? D:\dfwforth\include\ix86asm.frt(199): -1 DPL ! D:\dfwforth\include\ix86asm.frt(247): : d# 4033 -1 DPL ! D:\dfwforth\include\ix86asm.frt(248): : d#) 4050 CLEAR double -1 DPL ! ; D:\dfwforth\include\ix86asm.frt(249): : sd#) 4060 CLEAR double -1 DPL ! ; Found 25 occurrence(s) in 6 file(s), 35346 ms Given it is in the assembler and the postscript plotter, I would not be a happy customer when it proved to be lacking. -marcel