/******************************************************************************\
**  $VER: inc/secallib.inc 0.89                                               **
**  Secal Release 0.89                                                        **
**  Secal.lib interface definitions                                           **
**  Copyright (c) 1996 Tibor Kulcsar & Jozsef Makrai (TDS Development)        **
\******************************************************************************/


import _strlen;
import _strcopy;
import _strcopym;
import _strdiff;
import _strdiffi;
import _strcat;
import _strcatm;


#-------------------------------------------------------------------------------


pattern strlen(_str) is					# D0.L=LENGTH, A0=STR END
a0:=_str;
call _strlen;
endp;															# STRLEN



pattern strcopy(_source,_dest) is				# A0=DEST END
safe a0:=_source; a1:=_dest;;
call _strcopy;
endp;															# STRCOPY



pattern strcopym(_source,_dest,_max) is				# A0=DEST END
safe a0:=_source; a1:=_dest; d0.l:=_max;;
call _strcopym;
endp;															# STRCOPYM



pattern strdiff(_source,_dest) is				# D0=FIRST DIFF, OR 0
safe a0:=_source; a1:=_dest;;
call _strdiff;
endp;															# STRDIFF



pattern strdiffi(_source,_dest) is				# D0=FIRST DIFF, OR 0
safe a0:=_source; a1:=_dest;;
call _strdiffi;
endp;															# STRDIFFI



pattern strcat(_source,_dest) is				# A0=DEST END
safe a0:=_source; a1:=_dest;;
call _strcat;
endp;															# STRCAT



pattern strcatm(_source,_dest,_max) is				# A0=DEST END
safe a0:=_source; a1:=_dest; d0.l:=_max;;
call _strcatm;
endp;															# STRCATM


#-------------------------------------------------------------------------------