mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 00:14:25 +00:00
33 lines
402 B
C
33 lines
402 B
C
|
|
#include "portab.h"
|
|
|
|
BYTE *__prtint(pobj, buf, base, signed, f)
|
|
WORD *pobj;
|
|
BYTE *buf;
|
|
WORD base;
|
|
WORD signed;
|
|
BYTE *(*f)();
|
|
{
|
|
BYTE digs[15];
|
|
REG BYTE *dp;
|
|
REG WORD k;
|
|
REG BYTE *p;
|
|
|
|
dp = (*f)(pobj, &buf, base, signed, digs);
|
|
|
|
if (dp == digs)
|
|
*dp++ = 0;
|
|
p = buf;
|
|
while (dp != digs)
|
|
{
|
|
k = *--dp + '0'; /* HY */
|
|
if (k > '9')
|
|
k += 'A'-10-'0';
|
|
|
|
*p++ = k;
|
|
}
|
|
*p = 0;
|
|
return (p);
|
|
}
|
|
|