summaryrefslogtreecommitdiff
path: root/src/math/i386/remquo.s
blob: 37a24450fb3ef317088c903b26839a765b0cd178 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
.global remquof
.type remquof,@function
remquof:
	mov 12(%esp),%ecx
	fldl 8(%esp)
	fldl 4(%esp)
	mov 11(%esp),%dh
	xor 7(%esp),%dh
	jmp 1f

.global remquol
.type remquol,@function
remquol:
	mov 28(%esp),%ecx
	fldl 16(%esp)
	fldl 4(%esp)
	mov 25(%esp),%dh
	xor 13(%esp),%dh
	jmp 1f

.global remquo
.type remquo,@function
remquo:
	mov 20(%esp),%ecx
	fldl 12(%esp)
	fldl 4(%esp)
	mov 19(%esp),%dh
	xor 11(%esp),%dh
1:      fprem1
	fnstsw %ax
	sahf
	jp 1b
	fstp %st(1)
	mov %ah,%dl
	shr %dl
	and $1,%dl
	mov %ah,%al
	shr $5,%al
	and $2,%al
	or %al,%dl
	mov %ah,%al
	shl $2,%al
	and $4,%al
	or %al,%dl
	test %dh,%dh
	jns 1f
	neg %dl
1:	movsbl %dl,%edx
	mov %edx,(%ecx)
	ret