.title $$tens Conversion table for dtoa, atof .ident /000001/ .enabl lc,gbl ;+ ; ; Internal ; ; Index Conversion table for floating point ; ; Usage ; ; extern double $$tens[]; ; ; ; Description ; ; $$tens[i] has 10^i for the range 0..35 ;- ; ; Edit history ; 000001 07-Mar-83 MM Lost the original. .psect c$mwcn $$tens:: $ = 0 .rept 35.+1. .irp z,<$> .flt4 1E'z .endm $ = $+1 .endr .end