![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to Kexpf.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / sys / tahoemath|
Return to Kexpf.s CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / sys / tahoemath |
1.1 root 1: /* Kexpf.s 1.3 86/01/05 */
2:
3: #include "../tahoe/SYS.h"
4:
5: .text
6: ENTRY(Kexpf, R4|R3)
7: subl3 $88,fp,sp
8: tstl 4(fp)
9: jneq 1f
10: movl one,r0
11: ret
12: 1:
13: lnd _maxf
14: cmpd 4(fp)
15: jleq 1f
16: clrl r0
17: ret
18: 1:
19: cmpd2 4(fp),_maxf
20: jleq 1f
21: ldd _HUGE
22: cvdf
23: stf r0
24: ret
25: 1:
26: pushl 20(fp) # hfs
27: ldd _log2e; pushd
28: ldd 4(fp); pushd
29: callf $24,_Kmuld
30: ldd r0
31: std 4(fp)
32:
33: pushl 20(fp) # hfs
34: pushl 8(fp)
35: pushl 4(fp)
36: callf $16,_Kfloorf
37: movl r0,-88(fp) # (int)ent from Kfloorf
38:
39: cvlf -88(fp)
40: clrl r1
41: stf r0
42: pushl 20(fp) # hfs
43: pushl r1
44: pushl r0
45: ldd 4(fp); pushd
46: callf $24,_Ksubd # (arg - ent)
47:
48: pushl 20(fp) # hfs
49: ldd half; pushd
50: ldd r0; pushd
51: callf $24,_Ksubd
52: ldd r0; std -60(fp) # fract
53:
54: pushl 20(fp) # hfs
55: pushd
56: pushd
57: callf $24,_Kmuld
58: ldd r0; std -84(fp) # xsq
59:
60: pushl 20(fp) # hfs
61: pushd # xsq
62: ldd _p2; pushd
63: callf $24,_Kmuld
64:
65: pushl 20(fp) # hfs
66: ldd _p1; pushd
67: ldd r0; pushd
68: callf $24,_Kaddd
69:
70: pushl 20(fp) # hfs
71: ldd -84(fp); pushd
72: ldd r0; pushd
73: callf $24,_Kmuld
74:
75: pushl 20(fp) # hfs
76: ldd _p0; pushd
77: ldd r0; pushd
78: callf $24,_Kaddd
79:
80: pushl 20(fp) # hfs
81: ldd -60(fp); pushd # fract
82: ldd r0; pushd
83: callf $24,_Kmuld
84: ldd r0; std -68(fp) # temp1
85:
86: pushl 20(fp) # hfs
87: ldd -84(fp); pushd # xsq
88: ldd _q2; pushd
89: callf $24,_Kmuld
90:
91: pushl 20(fp) # hfs
92: ldd _q1; pushd
93: ldd r0; pushd
94: callf $24,_Kaddd
95:
96: pushl 20(fp) # hfs
97: ldd -84(fp); pushd
98: ldd r0; pushd
99: callf $24,_Kmuld
100:
101: pushl 20(fp) # hfs
102: ldd _q0; pushd
103: ldd r0; pushd
104: callf $24,_Kaddd
105: ldd r0; std -76(fp) # temp2
106:
107: pushl 20(fp) # hfs for Kldexpf
108: pushl -88(fp) # ent
109:
110: pushl 20(fp) # hfs tor temp2+temp1
111: ldd -68(fp); pushd # temp1
112: ldd -76(fp); pushd # temp2
113: callf $24,_Kaddd
114:
115: pushl 20(fp) # hfs
116: ldd _sqrt2; pushd
117: ldd r0; pushd # temp2+temp1
118: callf $24,_Kmuld
119: ldd r0; std r2 # sqrt2*(temp2+temp1)
120:
121: pushl 20(fp) # hfs
122: ldd -68(fp)
123: pushd
124: ldd -76(fp)
125: pushd
126: callf $24,_Ksubd # temp2-temp1
127:
128: pushl 20(fp) # hfs
129: ldd r0
130: pushd # temp2-temp1
131: ldd r2
132: pushd
133: callf $24,_Kdivd
134:
135: ldd r0
136: pushd
137: callf $20,_Kldexpf
138:
139: #pushl 20(fp) # hfs
140: #pushl $0
141: #pushl r0 # cvlf r0
142: #pushl $0
143: #pushl $0
144: #callf $24,_Kcvtld
145:
146: #ldd r0
147: #cvdf
148: #stf r0
149: ret
150:
151: /* file : Kfloorf.x
152: */
153: .text
154: .globl _Kfloorf
155: .data
156: .align 2
157: L19: .long 0x40800000, 0x00000000 # .double 1
158: .text
159: .set L13,0x0
160: .data
161: .text
162: _Kfloorf:
163: .word L13
164: subl3 $60,fp,sp
165: tstl 4(fp) # if (d<0.0) {
166: jgeq L17
167: lnd 4(fp)
168: std 4(fp) # d = -d;
169: pushl 12(fp) # hfs
170: addl3 $4,fp,-(sp) # &d
171: pushl 8(fp)
172: pushl 4(fp)
173: callf $20,_Kmodf
174: clrl -60+4(fp)
175: movl r0,-60(fp) # fract = modf(d,&d);
176: tstl r0 # if (fract != 0.0)
177: jeql L18
178: pushl 12(fp) # hfs
179: ldd L19
180: pushd
181: ldd 4(fp)
182: pushd
183: callf $24,_Kaddd
184: ldd r0
185: std 4(fp) # d +=1;
186: L18: lnd 4(fp)
187: std 4(fp) # d = -d;
188: jbr L20
189: L17:
190: pushl 12(fp) # hfs
191: addl3 $4,fp,-(sp)
192: pushl 8(fp)
193: pushl 4(fp)
194: callf $20,_Kmodf
195: L20: ldd 4(fp)
196: cvdl r0 # for Kexpf call only!
197: ret
198:
199: .data
200: _p0: .long 0x45BD3D04, 0x7F734DBD # .double 1513.9067990543389
201: _p1: .long 0x42A19DD4, 0x989F60DA # .double 20.202065651286927
202: _p2: .long 0x3DBD2E42, 0xAB70BDA9 # .double .023093347753750233
203: _q0: .long 0x468881B1, 0x7C3A6529 # .double 4368.2116627275583
204: _q1: .long 0x44692F28, 0x7AE89541 # .double 233.18421142748162
205: _q2: .long 0x40800000, 0x00000000 # .double 1
206: _log2e: .long 0x40B8AA3B, 0x295C17F0 # .double 1.4426950408889634
207: _sqrt2: .long 0x40B504F3, 0x33F9DE64 # .double 1.414213562373095
208: _maxf: .long 0x471C4000, 0x00000000 # .double 10000
209: _HUGE: .long 0x7FFFFFFE, 0xFFFFFFFC # .double 1.701411733192644e+38
210: one: .long 0x40800000 # .float 1
211: half: .long 0x40000000, 0x00000000 # .double .5
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.