Subversion Repositories forwardcom

/*********************************  strcat.as  ********************************
* Author:        Agner Fog
* date created:  2018-03-25
* Last modified: 2018-03-25
* Version:       1.00
* Project:       ForwardCom library libc.li
* Description:   strcat function. Copy zero-terminated string src to the end of string dest
* C declaration: char *strcat(char *dest, const char *src)
*
* Copyright 2018 GNU General Public License http://www.gnu.org/licenses
*****************************************************************************/

extern _strlen: function, reguse = 0xF, 0x7
extern _memcpy: function, reguse = 0x1F, 1

code section execute align = 4

// r0 = destination
// r1 = source
_strcat function public reguse = 0xBF, 0x7
int64 r5 = r0                // save destination
int64 r4 = r1                // save source
call _strlen                 // length of destination
int64 r7 = r5 + r0           // end of destination
int64 r0 = r4
call _strlen                 // length of source
int64 r2 = r0 + 1            // add 1 for terminating zero
int64 r0 = r7
int64 r1 = r4
call _memcpy
int64 r0 = r5                // return destination
return
_strcat end

code end