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

41
CPM OPERATING SYSTEMS/CPM 68K/1.2 SOURCE/6/ATOL.C Normal file
View File

@@ -0,0 +1,41 @@
/* atol - convert decimal number in ascii to long integer */
#include "portab.h"
#include "ctype.h"
LONG atol(str) /* CLEAR FUNCTION ***********/
REG BYTE *str;
{
REG LONG val;
REG WORD isneg;
val = 0L;
isneg = FALSE;
while( isspace(*str) )
str++;
if( *str == '+' )
str++;
else if( *str == '-' ) {
str++;
isneg++;
}
while( *str >= '0' && *str <= '9' )
val = 10 * val + ( *str++ - '0' );
if( isneg )
val = -val;
return( val );
}
&& *str <= '9' )
val = 10 * val + ( *str++ - '0' );
if( isneg )
val = -val;
return( val );
}
&& *str <= '9' )
val = 10 * val + ( *str++ - '0' );
if( isneg )
val = -val;
return( val );
}