git.gag.com Git - fw/sdcc/blob - device/lib/z80/strlen.s

   1 ; Copyright (C) 2008-2009
   2 ; Philipp Klaus Krause
   3
   4 ; This file is part of the sdcc Library.  This library is free
   5 ; software; you can redistribute it and/or modify it under the
   6 ; terms of the GNU General Public License as published by the
   7 ; Free Software Foundation; either version 2, or (at your option)
   8 ; any later version.
   9
  10 ; This library is distributed in the hope that it will be useful,
  11 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 ; GNU General Public License for more details.
  14
  15 ; You should have received a copy of the GNU General Public License along
  16 ; with this library; see the file COPYING.  If not, write to the Free
  17 ; Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
  18 ; USA.
  19
  20 ; As a special exception, you may use this file as part of a free software
  21 ; library without restriction.  Specifically, if other files instantiate
  22 ; templates or use macros or inline functions from this file, or you compile
  23 ; this file and link it with other files to produce an executable, this
  24 ; file does not by itself cause the resulting executable to be covered by
  25 ; the GNU General Public License.  This exception does not however
  26 ; invalidate any other reasons why the executable file might be covered by
  27 ; the GNU General Public License.
  28
  29         .area   _CODE
  30
  31         .globl _strlen
  32
  33 ; The Z80 has the cpir instruction, which is perfect for implementing strlen().
  34
  35 _strlen:
  36         pop     bc
  37         pop     hl
  38         push    hl
  39         push    bc
  40         xor     a, a
  41         ld      b, a
  42         ld      c, a
  43         cpir
  44         ld      hl, #-1
  45         sbc     hl, bc  ; C flag still cleared from xor above.
  46         ret
  47