.title strlen String length .ident /000001/ ; ;+ ; ; Index Compute length of a string ; ; Usage ; ; int ; strlen(s); ; char *s; ; ; Description ; ; Return the length of the argument string. ; ; Bugs ; ;- ; ; Edit history ; 000001 05-Mar-80 MM Initial edit ; .psect c$code strlen:: mov 2(sp),r0 mov r0,r1 10$: tstb (r0)+ bne 10$ sub r1,r0 dec r0 return .end