mirror of
https://github.com/autc04/Retro68.git
synced 2024-12-02 18:53:22 +00:00
25 lines
449 B
C
25 lines
449 B
C
|
/*
|
||
|
|
* [atw] multiply 64 bit accumulator by 10 and add digit.
|
||
|
|
* The KA/CA way to do this should be to use
|
||
|
|
* a 64-bit integer internally and use "adjust" to
|
||
|
|
* convert it to float at the end of processing.
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <_ansi.h>
|
||
|
|
#include "std.h"
|
||
|
|
|
||
|
|
int
|
||
|
|
_DEFUN (__ten_mul, (acc, digit),
|
||
|
|
double *acc _AND
|
||
|
|
int digit)
|
||
|
|
{
|
||
|
|
/*
|
||
|
|
* [atw] Crude, but effective (at least on a KB)...
|
||
|
|
*/
|
||
|
|
|
||
|
|
*acc *= 10;
|
||
|
|
*acc += digit;
|
||
|
|
|
||
|
|
return 0; /* no overflow */
|
||
|
|
}
|