d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added wait-statements for floating-point library

Browse source
This commit is contained in:
eck 1990-04-17 13:57:23 +00:00
parent 010ada1c23
commit e625c3bdb8
1 changed files with 88 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

88
mach/i86/libem/fp8087.s
View file

@ -21,7 +21,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
flds 2(bx) flds 2(bx)
wait
fadds 6(bx) fadds 6(bx)
wait
fstps 6(bx) fstps 6(bx)
wait wait
ret ret
@ -29,7 +31,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
fldd 2(bx) fldd 2(bx)
wait
faddd 10(bx) faddd 10(bx)
wait
fstpd 10(bx) fstpd 10(bx)
wait wait
ret ret
@ -38,7 +42,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
flds 6(bx) flds 6(bx)
wait
fsubs 2(bx) fsubs 2(bx)
wait
fstps 6(bx) fstps 6(bx)
wait wait
ret ret
@ -47,7 +53,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
fldd 10(bx) fldd 10(bx)
wait
fsubd 2(bx) fsubd 2(bx)
wait
fstpd 10(bx) fstpd 10(bx)
wait wait
ret ret
@ -56,7 +64,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
flds 2(bx) flds 2(bx)
wait
fmuls 6(bx) fmuls 6(bx)
wait
fstps 6(bx) fstps 6(bx)
wait wait
ret ret
@ -64,7 +74,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
fldd 2(bx) fldd 2(bx)
wait
fmuld 10(bx) fmuld 10(bx)
wait
fstpd 10(bx) fstpd 10(bx)
wait wait
ret ret
@ -73,7 +85,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
flds 6(bx) flds 6(bx)
wait
fdivs 2(bx) fdivs 2(bx)
wait
fstps 6(bx) fstps 6(bx)
wait wait
ret ret
@ -82,7 +96,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
fldd 10(bx) fldd 10(bx)
wait
fdivd 2(bx) fdivd 2(bx)
wait
fstpd 10(bx) fstpd 10(bx)
wait wait
ret ret
@ -91,7 +107,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
flds 2(bx) flds 2(bx)
wait
fchs fchs
wait
fstps 2(bx) fstps 2(bx)
wait wait
ret ret
@ -100,7 +118,9 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
fldd 2(bx) fldd 2(bx)
wait
fchs fchs
wait
fstpd 2(bx) fstpd 2(bx)
wait wait
ret ret
@ -110,36 +130,48 @@ bigmin:
push bx ! make room for FP status word push bx ! make room for FP status word
wait wait
flds 4(bx) flds 4(bx)
wait
fmuls 8(bx) ! multiply fmuls 8(bx) ! multiply
wait
fld st ! copy result fld st ! copy result
wait
ftst ! test sign; handle negative separately ftst ! test sign; handle negative separately
wait
fstsw -2(bx) fstsw -2(bx)
wait wait
mov ax,-2(bx) mov ax,-2(bx)
sahf ! result of test in condition codes sahf ! result of test in condition codes
jb 1f jb 1f
frndint ! this one rounds (?) frndint ! this one rounds (?)
wait
fcom st(1) ! compare with original; if <=, then OK fcom st(1) ! compare with original; if <=, then OK
wait
fstsw -2(bx) fstsw -2(bx)
wait wait
mov ax,-2(bx) mov ax,-2(bx)
sahf sahf
jbe 2f jbe 2f
fisubs (one) ! else subtract 1 fisubs (one) ! else subtract 1
wait
jmp 2f jmp 2f
1: ! here, negative case 1: ! here, negative case
frndint ! this one rounds (?) frndint ! this one rounds (?)
wait
fcom st(1) ! compare with original; if >=, then OK fcom st(1) ! compare with original; if >=, then OK
wait
fstsw -2(bx) fstsw -2(bx)
wait wait
mov ax,-2(bx) mov ax,-2(bx)
sahf sahf
jae 2f jae 2f
fiadds (one) ! else add 1 fiadds (one) ! else add 1
wait
2: 2:
fsub st(1),st ! subtract integer part fsub st(1),st ! subtract integer part
wait
mov bx,2(bx) mov bx,2(bx)
fstps (bx) fstps (bx)
wait
fstps 4(bx) fstps 4(bx)
wait wait
pop bx pop bx
@ -150,36 +182,47 @@ bigmin:
push bx ! make room for FP status word push bx ! make room for FP status word
wait wait
fldd 4(bx) fldd 4(bx)
wait
fmuld 12(bx) ! multiply fmuld 12(bx) ! multiply
wait
fld st ! and copy result fld st ! and copy result
wait
ftst ! test sign; handle negative separately ftst ! test sign; handle negative separately
wait
fstsw -2(bx) fstsw -2(bx)
wait wait
mov ax,-2(bx) mov ax,-2(bx)
sahf ! result of test in condition codes sahf ! result of test in condition codes
jb 1f jb 1f
frndint ! this one rounds (?) frndint ! this one rounds (?)
wait
fcom st(1) ! compare with original; if <=, then OK fcom st(1) ! compare with original; if <=, then OK
wait
fstsw -2(bx) fstsw -2(bx)
wait wait
mov ax,-2(bx) mov ax,-2(bx)
sahf sahf
jbe 2f jbe 2f
fisubs (one) ! else subtract 1 fisubs (one) ! else subtract 1
wait
jmp 2f jmp 2f
1: ! here, negative case 1: ! here, negative case
frndint ! this one rounds (?) frndint ! this one rounds (?)
wait
fcom st(1) ! compare with original; if >=, then OK fcom st(1) ! compare with original; if >=, then OK
wait
fstsw -2(bx) fstsw -2(bx)
wait wait
mov ax,-2(bx) mov ax,-2(bx)
sahf sahf
jae 2f jae 2f
fiadds (one) ! else add 1 fiadds (one) ! else add 1
wait
2: 2:
fsub st(1),st ! subtract integer part fsub st(1),st ! subtract integer part
mov bx,2(bx) mov bx,2(bx)
fstpd (bx) fstpd (bx)
wait
fstpd 8(bx) fstpd 8(bx)
wait wait
pop bx pop bx
@ -313,12 +356,16 @@ bigmin:
mov bx,sp mov bx,sp
cmp 2(bx),2 cmp 2(bx),2
jne 1f jne 1f
wait
filds 4(bx) filds 4(bx)
wait
fstps 2(bx) fstps 2(bx)
wait wait
ret ret
1: 1:
wait
fildl 4(bx) fildl 4(bx)
wait
fstps 4(bx) fstps 4(bx)
wait wait
ret ret
@ -327,12 +374,16 @@ bigmin:
mov bx,sp mov bx,sp
cmp 2(bx),2 cmp 2(bx),2
jne 1f jne 1f
wait
filds 4(bx) filds 4(bx)
wait
fstpd 2(bx) fstpd 2(bx)
wait wait
ret ret
1: 1:
wait
fildl 4(bx) fildl 4(bx)
wait
fstpd 2(bx) fstpd 2(bx)
wait wait
ret ret
@ -344,18 +395,25 @@ bigmin:
mov ax,4(bx) mov ax,4(bx)
mov 2(bx),ax mov 2(bx),ax
mov 4(bx),0 mov 4(bx),0
wait
fildl 2(bx) fildl 2(bx)
wait
fstps 2(bx) fstps 2(bx)
wait wait
ret ret
1: 1:
wait
fildl 4(bx) fildl 4(bx)
wait
cmp 6(bx),0 cmp 6(bx),0
jge 1f jge 1f
2: 2:
wait
fisubl (bigmin) fisubl (bigmin)
wait
fisubl (bigmin) fisubl (bigmin)
1: 1:
wait
fstps 4(bx) fstps 4(bx)
wait wait
ret ret
@ -366,13 +424,18 @@ bigmin:
jne 1f jne 1f
mov 6(bx),0 mov 6(bx),0
1: 1:
wait
fildl 4(bx) fildl 4(bx)
wait
cmp 6(bx),0 cmp 6(bx),0
jge 1f jge 1f
2: 2:
wait
fisubl (bigmin) fisubl (bigmin)
wait
fisubl (bigmin) fisubl (bigmin)
1: 1:
wait
fstpd 2(bx) fstpd 2(bx)
wait wait
ret ret
@ -380,6 +443,7 @@ bigmin:
.cfi: .cfi:
mov bx,sp mov bx,sp
push bx push bx
wait
fstcw -2(bx) fstcw -2(bx)
wait wait
mov dx,-2(bx) mov dx,-2(bx)
@ -390,7 +454,9 @@ bigmin:
cmp 4(bx),4 cmp 4(bx),4
jne 2f jne 2f
! loc 4 loc ? cfi ! loc 4 loc ? cfi
wait
flds 6(bx) flds 6(bx)
wait
fistpl 6(bx) fistpl 6(bx)
wait wait
cmp 2(bx),2 cmp 2(bx),2
@ -400,10 +466,13 @@ bigmin:
mov 4(bx),dx mov 4(bx),dx
wait wait
fldcw 4(bx) fldcw 4(bx)
wait
ret ret
2: 2:
! loc 8 loc ? cfi ! loc 8 loc ? cfi
wait
fldd 6(bx) fldd 6(bx)
wait
fistpl 10(bx) fistpl 10(bx)
wait wait
cmp 2(bx),2 cmp 2(bx),2
@ -414,18 +483,22 @@ bigmin:
.cfu: .cfu:
mov bx,sp mov bx,sp
push bx push bx
wait
fstcw -2(bx) fstcw -2(bx)
wait wait
mov dx,-2(bx) mov dx,-2(bx)
or -2(bx),0xc00 ! truncating mode or -2(bx),0xc00 ! truncating mode
wait wait
fldcw -2(bx) fldcw -2(bx)
wait
pop ax pop ax
cmp 4(bx),4 cmp 4(bx),4
jne 2f jne 2f
! loc 4 loc ? cfu ! loc 4 loc ? cfu
flds 6(bx) flds 6(bx)
wait
fabs ! ??? fabs ! ???
wait
fistpl 6(bx) fistpl 6(bx)
wait wait
cmp 2(bx),2 cmp 2(bx),2
@ -435,11 +508,15 @@ bigmin:
mov 4(bx),dx mov 4(bx),dx
wait wait
fldcw 4(bx) fldcw 4(bx)
wait
ret ret
2: 2:
wait
! loc 8 loc ? cfu ! loc 8 loc ? cfu
fldd 6(bx) fldd 6(bx)
wait
fabs ! ??? fabs ! ???
wait
fistpl 10(bx) fistpl 10(bx)
wait wait
cmp 2(bx),2 cmp 2(bx),2
@ -451,12 +528,14 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
fldd 2(bx) fldd 2(bx)
wait
fstcw 2(bx) fstcw 2(bx)
wait wait
mov dx,2(bx) mov dx,2(bx)
and 2(bx),0xf3ff ! set to rounding mode and 2(bx),0xf3ff ! set to rounding mode
wait wait
fldcw 2(bx) fldcw 2(bx)
wait
fstps 6(bx) fstps 6(bx)
mov 2(bx),dx mov 2(bx),dx
wait wait
@ -468,6 +547,7 @@ bigmin:
mov bx,sp mov bx,sp
wait wait
flds 2(bx) flds 2(bx)
wait
fstpd 2(bx) fstpd 2(bx)
wait wait
ret ret
@ -476,9 +556,13 @@ bigmin:
mov bx,sp mov bx,sp
push bx ! room for 8087 status word push bx ! room for 8087 status word
xor cx,cx xor cx,cx
wait
flds 6(bx) flds 6(bx)
wait
flds 2(bx) flds 2(bx)
wait
fcompp ! compare and pop operands fcompp ! compare and pop operands
wait
fstsw -2(bx) fstsw -2(bx)
wait wait
mov ax,-2(bx) mov ax,-2(bx)
@ -499,9 +583,13 @@ bigmin:
mov bx,sp mov bx,sp
push bx ! room for 8087 status word push bx ! room for 8087 status word
xor cx,cx xor cx,cx
wait
fldd 10(bx) fldd 10(bx)
wait
fldd 2(bx) fldd 2(bx)
wait
fcompp ! compare and pop operands fcompp ! compare and pop operands
wait
fstsw -2(bx) fstsw -2(bx)
wait wait
mov ax,-2(bx) mov ax,-2(bx)