11. STR_COMPI

*------------------------------------------------------------------------------
* 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