seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-24 08:54:17 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upload

Browse Source 
Digital Research
This commit is contained in:
Sepp J Morris
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/prtint.c Normal file
View File

@@ -0,0 +1,32 @@
#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);
}