*------------------------------------------------------------------------------ * NAME STR_COMPI *------------------------------------------------------------------------------ * DEPENDENCY STR_COMP * PURPOSE To compare two strings for approximate equality * DESCRIPTION Comprare the strings at (A1) and (A2) for approximate equality. * Numbers in the string are considered and letter case is ignored. * Equivalent to 'IF (A1$ == A2$)' * INPUTS : * A1.L = First string * A2.L = Second string * OUTPUTS : * D0 = Result of comparison. * -1 = A1 string is < A2 string * 0 = A1 string == A2 string * +1 = A1 string > A2 string * A1.L = First string (preserved) * A2.L = Second string (preserved) *------------------------------------------------------------------------------ str_compare movem.l a0-a2,-(a7) ; Must preserve workers moveq #3,d0 ; Include numbers, case is significant bra sc_params ; Jump into STR_COMP to do it all