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