shithub: riscv

ref: 5c448c618a89ab8933838da1b5b97ed7c4a42e08
dir: /sys/src/ape/lib/ap/68020/memset.s/

View raw version
	TEXT	memset(SB), $0
	MOVL	n+8(FP), R0
	BLE	return
	MOVL	s1+0(FP), A1
	CLRL	R1
	MOVB	c+7(FP), R1
	BEQ	l1

/*
 * create 4 replicated copies
 * of the byte in R1
 */
	MOVL	R1, R2
	ASLL	$8, R2
	ORL	R2, R1
	MOVL	R1, R2
	SWAP	R2
	ORL	R2, R1

/*
 * quad-long-at-a-time set
 * destination allignment is not
 * very important.
 */
l1:
	SUBL	$16, R0
	BLT	l2
	MOVL	R1, (A1)+
	MOVL	R1, (A1)+
	MOVL	R1, (A1)+
	MOVL	R1, (A1)+
	BRA	l1

/*
 * cleanup byte-at-a-time
 */
l2:
	ADDL	$15, R0
	BLT	return
l3:
	MOVB	R1, (A1)+
	SUBL	$1, R0
	BGE	l3

return:
	MOVL	s1+0(FP),R0
	RTS