Re: FP number syntax

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