sys/src/libc/68000/strlen.s

   1         TEXT    strlen(SB), $0
   2         MOVL    s+0(FP), A1
   3
   4         TSTB    (A1)+
   5         BEQ     null
   6         MOVL    A1, A2
   7
   8 l1:
   9         TSTB    (A1)+
  10         BNE     l1
  11
  12         SUBL    A2, A1
  13         MOVL    A1, R0
  14         RTS
  15
  16 null:
  17         MOVL    $0, R0
  18         RTS