#ident "%W% %G% %U%"
/*
/* Copyright John Moyer 1996
/* permission is granted to use this for any purpose provided proper
/* credit is given to the author
*/

#include <stdio.h>
#include <stdlib.h>
#include <stddef.h>
#include <string.h>
#include <math.h>

#include "bignum.h"

int mulbignum( BigNum *x1, BigNum *y1, BigNum *z1)
{
int i, j;

int2bcd(0,z1);

bcdmul(x1->x,y1->x,z1->x,x1->c,y1->c);

if (x1->isign == y1->isign)
  {
  z1->isign = 1;
  }
else
  {
  z1->isign = -1;
  }

for ( z1->c = 0, i = ISIZE -1 ; i >= 0; i-- )
  if ( z1->x[i] != 0 )
    {
    z1->c = i+1;
    break;
    }

return 0;
}