From: the.beez.speaks@gmail.com   
      
   On 04-07-2024 16:04, dxf wrote:   
   > Test REPRESENT corner cases   
   >   
   > : t0 ( r u -- )   
   >    pad 16 [char] x fill   
   >    pad swap represent drop   
   >    swap cr ." Exp: " . ."  Sign: " . pad 16 dump ;   
   >   
   > \ Ideally it rounds-down to 0.0   
   > : t1 ( -- )  0.4e 0 t0 ;   
   >   
   > \ Ideally it rounds-up to 1.0   
   > : t2 ( -- )  0.9e 0 t0 ;   
   >   
   > \ Ideally it returns the full string -Inf   
   > : t3 ( -- )  -1e 0e f/ 1 t0 ;   
   >   
   > : testall  t1 t2 t3 ;   
   >   
   > testall   
   >   
   >   
   > --   
   > Win32Forth: a 32 Bit Forth for Windows 95/98/ME/NT4/W2K/XP/VISTA/W7/W8/W10   
   > Version: 6.15.05 Build: 4   
   >   
   > testall   
   > Exp: 0  Sign: 0   
   >    195FE0 | 34 78 78 78 78 78 78 78  78 78 78 78 78 78 78 78 |   
   xxxxxxxxxxxxxxx|   
   > Exp: 0  Sign: 0   
   >    195FE0 | 39 78 78 78 78 78 78 78  78 78 78 78 78 78 78 78 |   
   xxxxxxxxxxxxxxx|   
   > Exp: 2147483647  Sign: -1   
   >    195FE0 | 49 78 78 78 78 78 78 78  78 78 78 78 78 78 78 78 |   
   xxxxxxxxxxxxxxx| ok   
   >    ok   
   >   
   > --   
   > NT/FORTH (C) 2005  Peter Fälth  Version 1.6-983-824 Compiled on 2017-12-03   
   >   
   > testall   
   > Exp: 1  Sign: 0   
   >   Address  0  1  2  3   4  5  6  7   8  9  A  B   C  D  E  F     
   0123456789ABCDEF|   
   > 013F1120                            30 78 78 78  78 78 78 78 |   
   .......0xxxxxxx|   
   > 013F1130  78 78 78 78  78 78 78 78                           |   
   xxxxxxx........|   
   >   
   > Exp: 1  Sign: 0   
   >   Address  0  1  2  3   4  5  6  7   8  9  A  B   C  D  E  F     
   0123456789ABCDEF|   
   > 013F1120                            31 78 78 78  78 78 78 78 |   
   .......1xxxxxxx|   
   > 013F1130  78 78 78 78  78 78 78 78                           |   
   xxxxxxx........|   
   >   
   > Exp: 0  Sign: 0   
   >   Address  0  1  2  3   4  5  6  7   8  9  A  B   C  D  E  F     
   0123456789ABCDEF|   
   > 013F1120                            2D 78 78 78  78 78 78 78 |   
   .......-xxxxxxx|   
   > 013F1130  78 78 78 78  78 78 78 78                           |   
   xxxxxxx........|   
   >   ok   
   >   
   > --   
   >   VFX Forth 64 for Windows x64   
   >    © MicroProcessor Engineering Ltd, 1998-2023   
   >   Version: 5.43 [build 4241]   
   >   Build date: 22 December 2023   
   >   
   > testall   
   > Exp: 1  Sign: 0   
   > 0000:0000:01C2:EB00  30 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30    
   0000000000000000   
   >   
   > Exp: 1  Sign: 0   
   > 0000:0000:01C2:EB00  31 30 30 30 30 30 30 30  30 30 30 30 30 30 30 30    
   1000000000000000   
   >   
   > Exp: 3  Sign: -1   
   > 0000:0000:01C2:EB00  49 6E 66 20 20 20 20 20  20 20 20 20 20 20 20 20  Inf   
   >   ok   
   > NDP Potential Exception: NDP SW = 0524   
      
   4tH preprocessor, ZEN float, Ed's FPout, XDUMP:   
      
   p4th -x reprtest.4pp   
      
   Exp: 1  Sign: 0   
      
   --addr---  00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F  chars   
   0000-0100  30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30  0000000000000000   
      
   Exp: 1  Sign: 0   
      
   --addr---  00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F  chars   
   0000-0100  31 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30  1000000000000000   
   Divide by zero   
   Executing;	Word 566: Unhandled exception   
      
   Hans Bezemer   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)