--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/alib/strcmp.a	Tue Mar 30 02:44:42 2010 +0000
@@ -0,0 +1,43 @@
+**************************************
+
+* STRCMP: compare two null terminated strings.
+
+* NOTE: This routine first finds the length of both
+*       strings and passes the length of the longer
+*       one to strncmp.
+
+* OTHER MODULES NEEDED: STRNCMP, STRLEN
+
+
+* ENTRY: X=start of 1st string
+*        Y=start of 2nd string
+
+* EXIT: CC zero set  if equal (beq)
+*          carry + zero clear if 1>2 (bhi)
+*          carry set if 1<2 (blo)
+
+
+ nam Compare Strings
+ ttl Assembler Library Module
+
+
+ psect STRCMP,0,0,0,0,0
+
+STRCMP:
+ pshs d
+ lbsr STRLEN find len of str1
+ pshs d
+ exg y,x find len of str2
+ lbsr STRLEN
+ exg y,x restore ptrs
+ cmpd ,s
+ bhi ok
+ ldd ,s get bigger value
+
+ok
+ leas 2,s clean stack
+ lbsr STRNCMP go compare
+ puls d,pc go home
+
+ endsect
+