.seg
sp := r15
SP := rr14
fp := r13
FP := rr12
.psec
.code
_strcpy::
{
ldm r4,|_stkseg+4|(sp),#4 // rr4 - s1 , rr6 - s2
ldl rr2,rr6
subl rr0,rr0
cpirb rl0,@rr2,r1,eq
neg r1 // strlen(s2) + 1
ldl rr2,rr4 // return value s1
ldirb @rr4,@rr6,r1
ret
}