static char ascnum[] = "0123456789ABCDEF";

phex(lval)
register unsigned long lval;
{
	register unsigned long n;
	register short depth = 0;

	if ((n = lval / 16) != 0)
		phex(n);
	putchar(ascnum[lval - (n * 16)]);
}