git.sur5r.net Git - cc65/blob - libsrc/pce/memcpy.s

   1 ;
   2 ; This file, instead of "common/memcpy.s", will be assembled for the pce
   3 ; target.  This version is smaller and faster because it uses the HuC6280's
   4 ; block-copy instructions.
   5 ;
   6 ; 2003-08-20, Ullrich von Bassewitz
   7 ; 2015-10-11, Greg King
   8 ;
   9 ; void* __fastcall__ memcpy (void* dest, const void* src, size_t size);
  10 ;
  11 ; NOTE:  This function contains entry points for memmove, which will resort
  12 ; to memcpy for an incrementing copy.  Don't change this module without looking
  13 ; at "pce/memmove.s"!
  14 ;
  15
  16         .export         _memcpy
  17         .export         memcpy_increment, memcpy_transfer, memcpy_getparams
  18
  19         .import         popax
  20         .importzp       sp, ptr1, ptr2, ptr3
  21
  22
  23 ; The structure of the transfer instructions
  24
  25         .struct
  26 opcode          .byte
  27 source          .addr
  28 destination     .addr
  29 length          .word
  30         .endstruct
  31
  32 ; ----------------------------------------------------------------------
  33 _memcpy:
  34         jsr     memcpy_getparams
  35
  36 memcpy_increment:
  37         ldy     #$73                    ; TII
  38
  39 memcpy_transfer:
  40         sty     transfer+opcode
  41
  42         lda     ptr1
  43         ldx     ptr1+1
  44         sta     transfer+source
  45         stx     transfer+source+1
  46
  47         lda     ptr2
  48         ldx     ptr2+1
  49         sta     transfer+destination
  50         stx     transfer+destination+1
  51
  52         lda     ptr3
  53         ldx     ptr3+1
  54         sta     transfer+length
  55         stx     transfer+length+1
  56
  57         jmp     transfer
  58
  59 ; ----------------------------------------------------------------------
  60 ; Get the parameters from the stack, as follows:
  61 ;
  62 ;       size --> ptr3
  63 ;       src  --> ptr1
  64 ;       dest --> ptr2
  65 ;
  66 ; The first argument (dest) will remain on the stack; and, is returned in .XA!
  67
  68 memcpy_getparams:
  69         sta     ptr3
  70         stx     ptr3+1                  ; save size
  71
  72         jsr     popax
  73         sta     ptr1
  74         stx     ptr1+1                  ; save src
  75
  76 ; (Direct stack access is four cycles faster [total cycle count].)
  77
  78         ldy     #1                      ; save dest
  79         lda     (sp),y                  ; get high byte
  80         tax
  81         lda     (sp)                    ; get low byte
  82         sta     ptr2
  83         stx     ptr2+1
  84         rts                             ; return dest address (for memmove)
  85
  86 ; ----------------------------------------------------------------------
  87 ; The transfer instructions use inline arguments.
  88 ; Therefore, we must build the instruction in the DATA segment.
  89
  90 .data
  91
  92 transfer:
  93         tii     $FFFF, $FFFF, $0001
  94         jmp     popax                   ; get pointer; and, return it as result