home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / intel8051 / i51slen.asm < prev    next >
Assembly Source File  |  2020-01-01  |  132b  |  12 lines
  1. ; find length of string, return A
  2. strlen:    mov    r2,#0
  3. len2:    movx    a,@dptr
  4.     jz    len1
  5.     inc    dptr
  6.     inc    r2
  7.     sjmp    len2
  8. len1:    mov    a,r2
  9.     ret
  10. ;
  11.  
  12.