Free42 with IEEE 754-2008 decimal floating-point -- interested in a sneak preview?

[Werner]

A quick hack, using the MANT routine from a previous thread:
Will show all digits in m.mmmExxx format, doesn't change any setting, works for the current 25-digit version as well as for the new 34-digit one.

Code:


00 { 71-Byte Prgm }
01>LBL "SHOW"
02 CLA
03 X<0?
04 "-"
05 ABS
06 ENTER
07 XEQ "MANT"
08 X!=0?
09 STO÷ ST Y
10 AIP
11 FS? 28
12 +"."
13 FC? 28
14 +","
15>LBL 02
16 FP
17 X=0?
18 GTO 01
19 0.1
20>LBL 03
21 X<=Y?
22 GTO 00
23 STO÷ ST Y
24 +"0"
25 GTO 03
26>LBL 00
27 ÷
28 AIP
29 GTO 02
30>LBL 01
31 +
32 X!=0?
33 LOG
34 +"E"
35 AIP
36 AVIEW
37 END

00 { 25-Byte Prgm }
01>LBL "MANT"
02 ABS
03 1
04 X<Y?
05 10^X
06 ÷
07 ENTER
08 X!=0?
09 LOG
10 IP
11 10^X
12 ÷
13 1
14 X>Y?
15 10^X
16 ×
17 END

Werner