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

59
CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/7/XDOPRTFP.C Normal file
View File

@@ -0,0 +1,59 @@
/****************************************************************************/
/* */
/* X d o p r t f p R o u t i n e */
/* ------------------------------- */
/* */
/* This file contains subroutines called from "_doprt()" which are */
/* specific to floating point. The purpose of having a separate file */
/* is so that these routines may be declared global in a special */
/* version of "s.o", to allow running without the floating point */
/* library routines. */
/* */
/* Entry Points: */
/* */
/* petoa(^float, ^buff, prec); */
/* pftoa(^float, ^buff, prec); */
/* */
/* ^float is a pointer to the floating number to convert */
/* ^buff is a pointer to the buffer */
/* prec is the precision specifier */
/* */
/****************************************************************************/
#include <portab.h> /* */
BYTE *ftoa(); /* Converts float to ascii "F" fmt */
BYTE *etoa(); /* Converts float to ascii "E" fmt */
/************************************/
BYTE *pftoa(addr,buf,prec) /* Print "F" format */
FLOAT *addr; /* -> Number to convert */
BYTE *buf; /* -> Output buffer */
WORD prec; /* Fraction precision specifier */
{ /************************************/
FLOAT fp; /* Float temp */
/************************************/
prec = (prec < 0) ? 6 : prec; /* If < 0, make it 6 */
fp = *addr; /* Load float number */
return(ftoa(fp,buf,prec)); /* Do conversion */
} /************************************/
/* */
BYTE *petoa(addr,buf,prec) /* Print "E" format */
FLOAT *addr; /* -> Number to convert */
BYTE *buf; /* -> Output buffer */
WORD prec; /* Fraction precision specifier */
{ /************************************/
FLOAT fp; /* Floating temp */
prec = (prec < 0) ? 6 : prec; /* If < 0, make it 6 */
fp = *addr; /* Load temp */
return(etoa(fp,buf,prec)); /* Do conversion */
} /************************************/
; /* Load temp */
return(etoa(fp,buf,prec)); /* Do conversion */
} /***********************************/
; /* Load temp */
return(etoa(fp,buf,prec)); /* Do conversion */
} /***********************************/
; /* Load temp */
return(etoa(fp,buf,prec)); /* Do conversion */
} /***********************************/
; /* Load temp */
return(etoa(fp,buf,prec)); /* Do conversion */
} /***