Digital Research
This commit is contained in:
2020-11-06 18:50:37 +01:00
parent 621ed8ccaf
commit 31738079c4
8481 changed files with 1888323 additions and 0 deletions

View File

@@ -0,0 +1,18 @@
/**********************************************************************
* STRLEN - finds the number of non-null characters in s.
*
* WORD strlen(s)
* BYTE *s;
**********************************************************************/
#include "portab.h"
WORD strlen(str) /* CLEAR FUNCTION ***********/
REG BYTE *str;
{
REG BYTE *p;
for( p = str; *p; p++ ) /* advance *p until NULL. */
;
return((WORD)p-str);
}