seppdroid/Digital-Research-Source-Code
1
0
Fork 0
mirror of https://github.com/SEPPDROID/Digital-Research-Source-Code.git synced 2025-10-23 08:24:18 +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

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

@@ -0,0 +1,29 @@
#include <portab.h>
BYTE *__prtint(pobj, buf, base, signed, f)
WORD *pobj;
BYTE *buf;
WORD base;
WORD signed;
BYTE *(*f)();
{
MLOCAL 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;
k += ( (k < 10) ? '0' : 'A'-10 );
*p++ = k;
}
*p = 0;
return (p);
}