/*
   Assembly connection :
		- calls ext ASM func "length"
		- passes a string of chars
		- gets the result (string's length)
*/

extern unsigned int cdecl length( char*, char );

unsigned int asm2pas( char* str, char* res )  /* public by default*/
{
	unsigned int len;
	int i;
	len = length( str, 13 );  /* in ASM arguments are in reverse */

	for ( i=0; i<len; i++ )  /* copy string */
		res[i+1] = str[i];
	res[0] = len;
									  /* PASCAL string bears length on char[0] */
	return len;
}