printa( ddbyte, chars )
unsigned long ddbyte;
int chars;
{
int i;
static char hexchars[] = { "0123456789ABCDEF" };

for( i=(chars-1); i>=0; i-- )
  pchar( hexchars[ ( ( ddbyte >> (i*4) ) & 0x0fl ) ] );
}