sys/src/libc/68020/vlop.s


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

TEXT	_mulv(SB), $0
	MOVL	r+0(FP), A0
	MOVL	a+8(FP), R0

	WORD	$0x4c2f
	WORD	$0x0401
	WORD	$0x0014
/*
 *	MULUL	b+16(FP), R0:R1
 *	philw made me do it!
 */

	MOVL	a+4(FP), R2
	MULUL	b+16(FP), R2
	ADDL	R2, R1

	MOVL	a+8(FP), R2
	MULUL	b+12(FP), R2
	ADDL	R2, R1

	MOVL	R1, (A0)+
	MOVL	R0, (A0)
	RTS