summaryrefslogblamecommitdiff
path: root/src/math/i386/remquo.s
blob: 598e75490ff0af45e4cbd627b0cba218ba26cb37 (plain) (tree)
1
2
3
4
5
6
7
8



                         

                    

                        





                         

                     

                        





                         
                     


                        
              


                  
















                       
           
.global remquof
.type remquof,@function
remquof:
	mov 12(%esp),%ecx
	flds 8(%esp)
	flds 4(%esp)
	mov 11(%esp),%dh
	xor 7(%esp),%dh
	jmp 1f

.global remquol
.type remquol,@function
remquol:
	mov 28(%esp),%ecx
	fldt 16(%esp)
	fldt 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