/*
	This C callable subroutine concatenates one dm string onto
    	another with a length limit.

	The C Runtime Library for the ADSP21xx family of processors.
	
	Gordon A. Sterling		(617) 461 - 3076
	Development Tools Engineering

	Created on 3/25/93

    	#include <string.h>;
    	char *strncat(char *s1, const char *s2, int n);
*/
 	
.MODULE/IMAGE		__String_Ncat_Routine;

#include "lib_glob.h"
#include "str_glob.h"

.ENTRY		strncat_;

strncat_:	I6=AR;			/* Point to output array	*/
		I1=AY1;			/* Point to input array		*/
		M5=1;			/* Used for copy		*/

		AF=PASS -1, AY1=DM(I6,M5);
		DO __find_end UNTIL EQ;
__find_end:	   AR=PASS AY1, AY1=DM(I6,M5);

		M5=-3;			/* Backup to NULL character	*/
		MODIFY(I6,M5);
		M5=1;

		AY1=DM(I1,dm_1);	/* Read first character		*/
		DO __copy_dm_dm UNTIL EQ;
		   AF=PASS AY1, DM(I6,M5)=AY1;/* Test for NULL and write*/
		   IF EQ JUMP __pop_loops;
__copy_dm_dm:	   AY1=DM(I1,dm_1);	/* Read next character		*/

__restore_state:RTS;

__pop_loops:	POP LOOP, POP PC;
		JUMP __restore_state;
.ENDMOD;