Mercurial > hg > Members > kono > nitros9-code

view lib/alib/strlen.as @ 3038:c6eafb074443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do not return error for SDC setstat
author darrenatk
date Thu, 22 Jan 2015 00:05:11 -0700
parents 03f26e88b809
children
line wrap: on
line source

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

* String Length: find length of null terminated string.
*  note:null NOT included in count.

* ENTRY: X=start of string

* EXIT: D=length
*       all other regs (except cc) preserved

 nam Find String Length
 ttl Assembler Library Module


 section .text

STRLEN:
 pshs x
 ldd #-1 comp for inital inc

loop
 addd #1 bump count
 tst ,x+ end?
 bne loop

 puls x,pc

 endsect