/ Double to ascii.

	.globl	__dtoa

/
/ __dtoa(b, s, f, w, d);
/ char *b; double d;
/ Convert a double precision float to
/ characters and store the result in the
/ buffer `b'. The style of the conversion
/ is controled by `s', which may be one
/ of `e', `f' or `g'. The two parameters
/ of the printf call are passed to the
/ routine as `f' and `w'. They control the
/ conversion as in (shudder) fortran.
/
/ This routine is a fake.
/

msg:	.ascii	"No floating point!\n"
	.even

__dtoa:	mov	$msg,-(sp)
	call	error
	iot
