Subversion Repositories or1k

#include "defines.h"

#ifdef __H8300H__

        .h8300h

#endif

#ifdef __H8300S__

        .h8300s

#endif

; A0P pointer to cursor

; A1P thing to copy

        .global _memset

_memset:

;       MOVP    @(2/4,r7),A2P   ; dst

;       MOVP    @(4/8,r7),A1    ; src thing

;       MOVP    @(6/12,r7),A3P  ; len

        MOVP    A2P,A2P

        beq     quit

        ; A3 points to the end of the area

        MOVP    A0P,A3P

        ADDP    A2P,A3P

        ; see if we can do it in words

        ; by oring in the start of the buffer to the end address

        or      A0L,A2L

        btst    #0,A2L

        bne     byteloop

        ; we can do it a word at a time

        mov.b   A1L,A1H

wordloop:

        mov.w   A1,@-A3P

        CMPP    A3P,A0P

        bne     wordloop

quit:   rts

byteloop:

        mov.b   A1L,@-A3P

        CMPP    A3P,A0P

        bne     byteloop

        rts