; A0, A1 point to the 2 strings
		Move.b	(A0)+,D1	; get the length of string 1
		Move.b	(A1)+,D2	; get the length of string 2
		Cmp.b	D1,D2		; are they the same length?
		Beq	CompareChars 	; yes, go ahead and compare them
		Move	#0,D0		; set the result to false
		Bra	Done		; and exit

CompareChars     			; compare Str1<->Str2
		Cmp.b	(A0)+,(A1)+	; do the characters match?      
		Beq	Done		; yes, see if weˇ¦re at end of string
		Dbra	D1,CompareChars
		Move	#1,D0		; they match, set the result true

DONE		sne	D0		; Result is true if strings match,          
		false otherwise

    Source: geocities.com/hk/tings_garden/CS2113

               ( geocities.com/hk/tings_garden)                   ( geocities.com/hk)