Category : UNIX Files
Archive   : UUPC11YS.ZIP
Filename : ARBMATH.C

 
Output of file : ARBMATH.C contained in archive : UUPC11YS.ZIP
/*--------------------------------------------------------------------*/
/* a r b m a t h . c */
/* */
/* Arbitary length math routines for UUPC/extended */
/* */
/* Copyright (c) 1990, 1991 Andrew H. Derbyshire */
/*--------------------------------------------------------------------*/

/*--------------------------------------------------------------------*/
/* Standard library includes */
/*--------------------------------------------------------------------*/

#include
#include

/*--------------------------------------------------------------------*/
/* UUPC/extended include files */
/*--------------------------------------------------------------------*/

#include "lib.h"
#include "arbmath.h"

/*--------------------------------------------------------------------*/
/* Global variables */
/*--------------------------------------------------------------------*/

currentfile();

/*--------------------------------------------------------------------*/
/* a d i v */
/* */
/* Perform arbitary length division */
/* */
/* Returns true if input number was non-zero */
/*--------------------------------------------------------------------*/

boolean adiv( unsigned char *number,
const unsigned divisor,
unsigned *remain,
const unsigned digits)
{
size_t subscript;
boolean nonzero = FALSE;
*remain = 0;

for ( subscript = 0; subscript < digits; subscript++)
{
unsigned digit = *remain * 0x100 + number[subscript];
nonzero = nonzero || number[subscript];
*remain = digit % divisor;
number[subscript] = (unsigned char) (digit / divisor);
} /* for */
return nonzero;
} /* div */

/*--------------------------------------------------------------------*/
/* m u l t */
/* */
/* Perform arbitary length multiplication */
/*--------------------------------------------------------------------*/

void mult(unsigned char *number,
const unsigned range,
const unsigned digits)
{
int subscript = digits;
unsigned carry = 0;

while( subscript-- > 0)
{
unsigned digit = number[subscript] * range + carry;
number[subscript] = (unsigned char) (digit % 0x100);
carry = digit / 0x100;
} /* while */


if ( carry != 0 ) /* Big trouble if overflow occurs */
panic();
} /* mult */

/*--------------------------------------------------------------------*/
/* a d d */
/* */
/* Perform arbitiary length addition */
/*--------------------------------------------------------------------*/

void add(unsigned char *number,
const unsigned range,
const unsigned digits)
{
int subscript = digits;
unsigned carry = range;

while(( carry > 0) && ( subscript-- > 0))
{
unsigned digit = number[subscript] + carry;
number[subscript] = (unsigned char) (digit % 0x100);
carry = digit / 0x100;
} /* while */

if ( carry != 0 ) /* Big trouble if overflow occurs */
panic();

} /* add */


  3 Responses to “Category : UNIX Files
Archive   : UUPC11YS.ZIP
Filename : ARBMATH.C
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/