.seg
sp := r15
SP := rr14
fp := r13
FP := rr12
.psec
.code
_strchr::
{
ldm r2,|_stkseg+4|(sp),#3 // rr2 - s , rl4 - c
jr ~start
~loop:
inc r3,#1 // nxt byte
~start:
cpb rl4,@rr2
ret eq
testb @rr2
jr nz,~loop // no end of string
subl rr2,rr2
ret
}