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

   1 ; Copyright (C) 2008-2009
   2 ; Philipp Klaus Krause, Marco Bodrato
   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 _memmove
  32
  33 ; The Z80 has the ldir and lddr instructions, which are perfect for implementing memmove().
  34
  35 _memmove:
  36         pop     af
  37         pop     hl
  38         pop     de
  39         pop     bc
  40         push    bc
  41         push    de
  42         push    hl
  43         push    af
  44         ld      a, c
  45         or      a, b
  46         ret     Z
  47         push    hl
  48         sbc     hl, de          ; or above cleared carry.
  49         add     hl, de          ; same carry as the line before
  50         jr      C, memmove_up
  51 memmove_down:
  52         dec     bc
  53         add     hl, bc
  54         ex      de, hl
  55         add     hl, bc
  56         inc     bc
  57         lddr
  58         pop     hl
  59         ret
  60 memmove_up:
  61         ex      de, hl
  62         ldir
  63         pop     hl
  64         ret
  65