Mercurial > hg > Members > kono > nitros9-code

view lib/alib/strcmp.a @ 2668:07441dfebc27 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make tocgen build with lwasm lwasm does not treat a trailing colon as part of the symbol name. Removed trailing colons on symbol references.
author William Astle <lost@l-w.ca>
date Sun, 10 Jun 2012 13:35:44 -0600
parents 7d70b7e1cb21
children aaba193af04f
line wrap: on
line source

**************************************

* 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