home *** CD-ROM | disk | FTP | other *** search
/ Kyūkyoku!! X68000 Emulator / X68000Book.dat / mac / OLS / X68000 / Ko-Window / kow142s.lzh / parts / KanjiStrlen.s < prev    next >
Text File  |  1992-03-02  |  540b  |  33 lines
  1. * KanjiLib 1991 by H.Ogasawara(COR.)
  2. * &
  3. *//////////////////////////////////*
  4. * 2âoâCâgö╝èpæ╬ë₧ strlen()
  5. *
  6.         .global    _KanjiStrlen
  7. _KanjiStrlen:
  8. _strlen_2:
  9.         move.l    4(sp),a0
  10.         moveq.l    #0,d0
  11.  
  12. str_looptop:
  13.         move.b    (a0)+,d1
  14.         beq        str_exit
  15.         addq.w    #1,d0
  16.         cmp.b    #$80,d1
  17.         bcs        str_looptop
  18.         beq        str_skip1byte
  19.         cmp.b    #$a0,d1
  20.         bcs        str_zenkaku
  21.         cmp.b    #$e0,d1
  22.         bcs        str_looptop
  23.         cmp.b    #$f0,d1
  24.         bcc        str_skip1byte
  25. str_zenkaku:
  26.         addq.w    #1,d0
  27. str_skip1byte:
  28.         tst.b    (a0)+
  29.         bne        str_looptop
  30.  
  31. str_exit:
  32.         rts
  33.