#define EXTERN extern
#include "/mfd.h"

integer takefracasm( integer, fraction );

boolean aritherror;

fraction makefraction ( integer p , integer q ) 
{register fraction Result; makefraction_regmem 
  integer n ; 
  boolean negative  ; 

  if ( p >= 0 ) 
    negative = false ; 
  else {
    p = - (integer) p ; 
    negative = true ; 
  } 
  if ( q <= 0 ) 
  {
    q = - (integer) q ; 
    negative = ! negative ; 
  } 
  n = p / q ; 
  if ( n >= 8 ) 
  {
    aritherror = true ; 
    if ( negative ) 
    Result = -2147483647L ; 
    else Result = 2147483647L ; 
  } 
  else {
    if ( negative )
      Result = - (integer) makef( p, q );
    else
      Result = (integer) makef( p, q );
  } 
  return(Result) ; 
} 
fraction old_makefraction ( integer p , integer q ) 
{register fraction Result; makefraction_regmem 
  integer f, n, becareful ; 
  boolean negative  ; 

  if ( p >= 0 ) 
    negative = false ; 
  else {
    p = - (integer) p ; 
    negative = true ; 
  } 
  if ( q <= 0 ) 
  {
    q = - (integer) q ; 
    negative = ! negative ; 
  } 
  n = p / q ; 
  p = p % q ;
  if ( n >= 8 ) 
  {
    aritherror = true ; 
    if ( negative ) 
    Result = -2147483647L ; 
    else Result = 2147483647L ; 
  } 
  else {
    n = ( n - 1 ) * 268435456L ; 
    f = 1 ; 
    do {
	becareful = p - q ; 
      p = becareful + p ; 
      if ( p >= 0 ) 
      f = f + f + 1 ; 
      else {
	f = f + f ; 
	p = p + q ; 
      } 
    } while ( ! ( f >= 268435456L ) ) ; 
    becareful = p - q ; 
    if ( becareful + p >= 0 ) 
    incr ( f ) ; 
    if ( negative ) 
    Result = - (integer) ( f + n ) ; 
    else Result = f + n ; 
  } 
  return(Result) ; 
} 
integer takefraction ( integer q , fraction f ) 
{register integer Result; takefraction_regmem 
  integer p  ; 
  boolean negative  ; 
  integer n  ; 
  integer becareful  ; 
  if ( f >= 0 ) 
  negative = false ; 
  else {
      
    f = - (integer) f ; 
    negative = true ; 
  } 
  if ( q < 0 ) 
  {
    q = - (integer) q ; 
    negative = ! negative ; 
  } 
  if ( f < 268435456L ) 
  n = 0 ; 
  else {
      
    n = f / 268435456L ; 
    f = f % 268435456L ; 
    if ( q <= 2147483647L / n ) 
    n = n * q ; 
    else {
	
      aritherror = true ; 
      n = 2147483647L ; 
    } 
  } 
  p = (integer) takef(q,f);
  becareful = n - 2147483647L ; 
  if ( becareful + p > 0 ) 
  {
    aritherror = true ; 
    n = 2147483647L - p ; 
  } 
  if ( negative ) 
  Result = - (integer) ( n + p ) ; 
  else Result = n + p ; 
  return(Result) ; 
} 
integer old_takefraction ( integer q , fraction f ) 
{register integer Result; takefraction_regmem 
  integer p  ; 
  boolean negative  ; 
  integer n  ; 
  integer becareful  ; 
  if ( f >= 0 ) 
  negative = false ; 
  else {
      
    f = - (integer) f ; 
    negative = true ; 
  } 
  if ( q < 0 ) 
  {
    q = - (integer) q ; 
    negative = ! negative ; 
  } 
  if ( f < 268435456L ) 
  n = 0 ; 
  else {
      
    n = f / 268435456L ; 
    f = f % 268435456L ; 
    if ( q <= 2147483647L / n ) 
    n = n * q ; 
    else {
	
      aritherror = true ; 
      n = 2147483647L ; 
    } 
  } 
  f = f + 268435456L ; 
  p = 134217728L ; 
  if ( q < 1073741824L ) 
  do {
      if ( odd ( f ) ) 
    p = half ( p + q ) ; 
    else p = half ( p ) ; 
    f = half ( f ) ; 
  } while ( ! ( f == 1 ) ) ; 
  else do {
      if ( odd ( f ) ) 
    p = p + half ( q - p ) ; 
    else p = half ( p ) ; 
    f = half ( f ) ; 
  } while ( ! ( f == 1 ) ) ; 
  becareful = n - 2147483647L ; 
  if ( becareful + p > 0 ) 
  {
    aritherror = true ; 
    n = 2147483647L - p ; 
  } 
  if ( negative ) 
  Result = - (integer) ( n + p ) ; 
  else Result = n + p ; 
  return(Result) ; 
} 
integer takescaled ( integer q , scaled f ) 
{register integer Result; takescaled_regmem 
  integer p  ; 
  boolean negative  ; 
  integer n  ; 
  integer becareful  ; 
  if ( f >= 0 ) 
  negative = false ; 
  else {
      
    f = - (integer) f ; 
    negative = true ; 
  } 
  if ( q < 0 ) 
  {
    q = - (integer) q ; 
    negative = ! negative ; 
  } 
  if ( f < 65536L ) 
  n = 0 ; 
  else {
      
    n = f / 65536L ; 
    f = f % 65536L ; 
    if ( q <= 2147483647L / n ) 
    n = n * q ; 
    else {
	
      aritherror = true ; 
      n = 2147483647L ; 
    } 
  } 
  p = (integer) takes(q,f);
  becareful = n - 2147483647L ; 
  if ( becareful + p > 0 ) 
  {
    aritherror = true ; 
    n = 2147483647L - p ; 
  } 
  if ( negative ) 
  Result = - (integer) ( n + p ) ; 
  else Result = n + p ; 
  return(Result) ; 
} 
integer old_takescaled ( integer q , scaled f ) 
{register integer Result; takescaled_regmem 
  integer p  ; 
  boolean negative  ; 
  integer n  ; 
  integer becareful  ; 
  if ( f >= 0 ) 
  negative = false ; 
  else {
      
    f = - (integer) f ; 
    negative = true ; 
  } 
  if ( q < 0 ) 
  {
    q = - (integer) q ; 
    negative = ! negative ; 
  } 
  if ( f < 65536L ) 
  n = 0 ; 
  else {
      
    n = f / 65536L ; 
    f = f % 65536L ; 
    if ( q <= 2147483647L / n ) 
    n = n * q ; 
    else {
	
      aritherror = true ; 
      n = 2147483647L ; 
    } 
  } 
  f = f + 65536L ; 
  p = 32768L ; 
  if ( q < 1073741824L ) 
  do {
      if ( odd ( f ) ) 
    p = half ( p + q ) ; 
    else p = half ( p ) ; 
    f = half ( f ) ; 
  } while ( ! ( f == 1 ) ) ; 
  else do {
      if ( odd ( f ) ) 
    p = p + half ( q - p ) ; 
    else p = half ( p ) ; 
    f = half ( f ) ; 
  } while ( ! ( f == 1 ) ) ; 
  becareful = n - 2147483647L ; 
  if ( becareful + p > 0 ) 
  {
    aritherror = true ; 
    n = 2147483647L - p ; 
  } 
  if ( negative ) 
  Result = - (integer) ( n + p ) ; 
  else Result = n + p ; 
  return(Result) ; 
} 
scaled makescaled ( integer p , integer q ) 
{register scaled Result; makescaled_regmem 
  integer n  ; 
  boolean negative  ; 

  if ( p >= 0 ) 
  negative = false ; 
  else {
      
    p = - (integer) p ; 
    negative = true ; 
  } 
  if ( q <= 0 ) 
  {
	;
#ifdef DEBUG
    if ( q == 0 ) 
    confusion ( 47 ) ; 
#endif /* DEBUG */
    q = - (integer) q ; 
    negative = ! negative ; 
  } 
  n = p / q ; 
  if ( n >= 32768L ) 
  {
    aritherror = true ; 
    if ( negative ) 
    Result = -2147483647L ; 
    else Result = 2147483647L ; 
  } 
  else {
    if ( negative ) 
      Result = - (integer) makes( p, q ); 
    else
      Result = (integer) makes( p, q);
  } 
  return(Result) ; 
} 
scaled old_makescaled ( integer p , integer q ) 
{register scaled Result; makescaled_regmem 
  integer f  ; 
  integer n  ; 
  boolean negative  ; 
  integer becareful  ; 
  if ( p >= 0 ) 
  negative = false ; 
  else {
      
    p = - (integer) p ; 
    negative = true ; 
  } 
  if ( q <= 0 ) 
  {
	;
#ifdef DEBUG
    if ( q == 0 ) 
    confusion ( 47 ) ; 
#endif /* DEBUG */
    q = - (integer) q ; 
    negative = ! negative ; 
  } 
  n = p / q ; 
  p = p % q ;
  if ( n >= 32768L ) 
  {
    aritherror = true ; 
    if ( negative ) 
    Result = -2147483647L ; 
    else Result = 2147483647L ; 
  } 
  else {
    n = ( n - 1 ) * 65536L ; 
    f = 1 ; 
    do {
	becareful = p - q ; 
      p = becareful + p ; 
      if ( p >= 0 ) 
      f = f + f + 1 ; 
      else {
	  
	f = f + f ; 
	p = p + q ; 
      } 
    } while ( ! ( f >= 65536L ) ) ; 
    becareful = p - q ; 
    if ( becareful + p >= 0 ) 
    incr ( f ) ; 
    if ( negative ) 
    Result = - (integer) ( f + n ) ; 
    else Result = f + n ; 
  } 
  return(Result) ; 
} 

void main(int argc,char **argv)
   {
   integer x,y;
   x = atoi(argv[1]);
   y = atoi(argv[2]);

   printf("%d / %d = %d -- %d\n",(integer)x,(integer)y,
      makefraction((integer)x,(integer)y),
      old_makefraction((integer)x,(integer)y));
   printf("%d * %d = %d -- %d\n",(integer)y,
      (integer)makefraction((integer)x,(integer)y),
      takefraction((integer)y,(integer)makefraction((integer)x,(integer)y)),
      old_takefraction((integer)y,
         (integer)old_makefraction((integer)x,(integer)y) ));
   printf("%d * %d = %d -- %d\n",(integer)y,
      (integer)makefraction((integer)x,(integer)y),
      takefracasm((integer)y,(integer)makefraction((integer)x,(integer)y)),
      old_takefraction((integer)y,
         (integer)old_makefraction((integer)x,(integer)y) ));
   printf("%d / %d = %d -- %d\n",(integer)x,(integer)y,
      makescaled((integer)x,(integer)y),
      old_makescaled((integer)x,(integer)y));
   printf("%d * %d = %d -- %d\n",(integer)y,
      (integer)makescaled((integer)x,(integer)y),
      takescaled((integer)y,(integer)makescaled((integer)x,(integer)y)),
      old_takescaled((integer)y,
         (integer)old_makescaled((integer)x,(integer)y) ));
   }