xref: /minix3/lib/libc/arch/vax/string/bcopy.S (revision e415d488727a332a2c69df018aa35e2cecf4148a)
1*e415d488SLionel Sambuc/*	$NetBSD: bcopy.S,v 1.4 2011/01/25 02:38:15 matt Exp $	*/
22fe8fb19SBen Gras/*
32fe8fb19SBen Gras * Copyright (c) 1983, 1993
42fe8fb19SBen Gras *	The Regents of the University of California.  All rights reserved.
52fe8fb19SBen Gras *
62fe8fb19SBen Gras * Redistribution and use in source and binary forms, with or without
72fe8fb19SBen Gras * modification, are permitted provided that the following conditions
82fe8fb19SBen Gras * are met:
92fe8fb19SBen Gras * 1. Redistributions of source code must retain the above copyright
102fe8fb19SBen Gras *    notice, this list of conditions and the following disclaimer.
112fe8fb19SBen Gras * 2. Redistributions in binary form must reproduce the above copyright
122fe8fb19SBen Gras *    notice, this list of conditions and the following disclaimer in the
132fe8fb19SBen Gras *    documentation and/or other materials provided with the distribution.
142fe8fb19SBen Gras * 3. Neither the name of the University nor the names of its contributors
152fe8fb19SBen Gras *    may be used to endorse or promote products derived from this software
162fe8fb19SBen Gras *    without specific prior written permission.
172fe8fb19SBen Gras *
182fe8fb19SBen Gras * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
192fe8fb19SBen Gras * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
202fe8fb19SBen Gras * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
212fe8fb19SBen Gras * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
222fe8fb19SBen Gras * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
232fe8fb19SBen Gras * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
242fe8fb19SBen Gras * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
252fe8fb19SBen Gras * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
262fe8fb19SBen Gras * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
272fe8fb19SBen Gras * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
282fe8fb19SBen Gras * SUCH DAMAGE.
292fe8fb19SBen Gras */
302fe8fb19SBen Gras
312fe8fb19SBen Gras/* bcopy(from, to, size) */
322fe8fb19SBen Gras
332fe8fb19SBen Gras#include "DEFS.h"
342fe8fb19SBen Gras
35*e415d488SLionel Sambuc#if defined(LIBC_SCCS)
36*e415d488SLionel Sambuc	/* .asciz "@(#)bcopy.s	8.1 (Berkeley) 6/4/93" */
37*e415d488SLionel SambucRCSID("$NetBSD: bcopy.S,v 1.4 2011/01/25 02:38:15 matt Exp $")
38*e415d488SLionel Sambuc#endif
39*e415d488SLionel Sambuc
40*e415d488SLionel Sambuc
412fe8fb19SBen GrasENTRY(bcopy, R6)
422fe8fb19SBen Gras	movl	4(%ap),%r1
432fe8fb19SBen Gras	movl	8(%ap),%r3
442fe8fb19SBen Gras	movl	12(%ap),%r6
452fe8fb19SBen Gras	cmpl	%r1,%r3
462fe8fb19SBen Gras	bgtr	2f		# normal forward case
472fe8fb19SBen Gras	blss	3f		# overlapping, must do backwards
482fe8fb19SBen Gras	ret			# equal, nothing to do
492fe8fb19SBen Gras1:
502fe8fb19SBen Gras	subl2	%r0,%r6
512fe8fb19SBen Gras	movc3	%r0,(%r1),(%r3)
522fe8fb19SBen Gras2:
532fe8fb19SBen Gras	movzwl	$65535,%r0
542fe8fb19SBen Gras	cmpl	%r6,%r0
552fe8fb19SBen Gras	jgtr	1b
562fe8fb19SBen Gras	movc3	%r6,(%r1),(%r3)
572fe8fb19SBen Gras	ret
582fe8fb19SBen Gras3:
592fe8fb19SBen Gras	addl2	%r6,%r1
602fe8fb19SBen Gras	addl2	%r6,%r3
612fe8fb19SBen Gras	movzwl	$65535,%r0
622fe8fb19SBen Gras	jbr	5f
632fe8fb19SBen Gras4:
642fe8fb19SBen Gras	subl2	%r0,%r6
652fe8fb19SBen Gras	subl2	%r0,%r1
662fe8fb19SBen Gras	subl2	%r0,%r3
672fe8fb19SBen Gras	movc3	%r0,(%r1),(%r3)
682fe8fb19SBen Gras	movzwl	$65535,%r0
692fe8fb19SBen Gras	subl2	%r0,%r1
702fe8fb19SBen Gras	subl2	%r0,%r3
712fe8fb19SBen Gras5:
722fe8fb19SBen Gras	cmpl	%r6,%r0
732fe8fb19SBen Gras	jgtr	4b
742fe8fb19SBen Gras	subl2	%r6,%r1
752fe8fb19SBen Gras	subl2	%r6,%r3
762fe8fb19SBen Gras	movc3	%r6,(%r1),(%r3)
772fe8fb19SBen Gras	ret
78*e415d488SLionel SambucEND(bcopy)
79