.title $$tens Conversion table for dtoa, atof .ident /000002/ .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. ; 000002 02-Feb-87 JMC Change c$mwcn .psect to d type .psect c$mwcn,d ;02 $$tens:: $ = 0 .rept 35.+1. .irp z,<$> .flt4 1E'z .endm $ = $+1 .endr .end