/* Asinh.c

inverse hyperbolic sine

Source to ASINH.BIN.  Rebuild with:

	tcc -c -mt asinh
	tlink x02 asinh /t/x/c,asinh.bin,,fp ld

If you are using a coprocessor, you can also build with:

	tcc -c -mt asinh
	tlink x01 asinh f87 /t/x/c,asinh.bin,,fp ld

*/

#include "mathl.h"

void pascal xmain(double far *x)
{
	x[0] = logl(x[1] + sqrtl(x[1]*x[1] + 1));
}