Files
Sepp J Morris 31738079c4 Upload
Digital Research
2020-11-06 18:50:37 +01:00

26 lines
588 B
C

/****************************************************************************
* STRCAT - concatenate strings
*
* BYTE *strcat(s1,s2) copies s2 to end of s1
* BYTE *s1, *s2;
*
* Assumes null terminated strings. No check is made for string area
* overflow.
****************************************************************************/
#include <portab.h>
BYTE * strcat(s1,s2) /* CLEAR FUNCTION ***********/
BYTE *s1;
REG BYTE *s2;
{
REG BYTE *cp;
for( cp=s1; *cp; cp++ ) /* save s1 for return. */
;
while( (*cp++ = *s2++) ) /* copy until eos(s2). */
;
return(s1);
}