.seg
sp := r15
SP := rr14
fp := r13
FP := rr12
.psec
.code
_strlen::
{
ldl rr4,|_stkseg+4|(sp) // s
xor r2,r2
ld r1,r2
cpirb rl1,@rr4,r2,eq
neg r2
dec r2,#1
ret
}