![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to Katanf.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 Katanf.x CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe |
1.1 root 1: .data
2: .align 2
3: _sq2p1:.long 0x411A8279, 0x99FCEF31 # .double 2.414213562373095
4: .align 2
5: _sq2m1:.long 0x3FD413CC, 0xCFE77990 # .double .41421356237309503
6: .align 2
7: _pio2:.long 0x40C90FDA, 0xA22168C1 # .double 1.5707963267948966
8: .align 2
9: _pio4:.long 0x40490FDA, 0xA22168C1 # .double .78539816339744829
10: .align 2
11: _p0:.long 0x407FFFFF, 0xFD687A4B # .double .99999999939652999
12: .align 2
13: _p1:.long 0xBFAAAAA2, 0x09F9DBF2 # .double -.3333330762079
14: .align 2
15: _p2:.long 0x3F4CC820, 0x0670059B # .double .199982166665
16: .align 2
17: _p3:.long 0xBF11D182, 0x6601878B # .double -.142400777317
18: .align 2
19: _p4:.long 0x3ED88B47, 0x4EFC9AF9 # .double .10573440275
20: .align 2
21: _p5:.long 0xBE772E4B, 0x0E689AEB # .double -.060346883
22: .text
23: LL0: .align 1
24: .globl _Katanf
25: .set L22,0x0
26: .data
27: .text
28: .data
29: .align 2
30: L35: .long 0x40800000, 0x00000000 # .double 1
31: .text
32: .data
33: .align 2
34: L36: .long 0x40800000, 0x00000000 # .double 1
35: .align 2
36: L37: .long 0x40800000, 0x00000000 # .double 1
37: .text
38: .set L28,0xC
39: .data
40: .text
41: .set L38,0x0
42: .data
43: .text
44: _Katanf:.word L22
45: tstl 4(fp) # if (arg > 0)
46: jleq L27
47: pushl 20(fp) # hfs
48: pushl 8(fp)
49: pushl 4(fp)
50: callf $16,_satan
51: ret # return(satan(arg));
52: L27: # else
53: pushl 20(fp) # hfs
54: lnd 4(fp)
55: pushd
56: callf $16,_satan
57: lnf r0
58: stf r0
59: ret # return(-satan(-arg));
60: L2000003:
61: pushl 12(fp)
62: ldd 4(fp)
63: pushd
64: ldd L35
65: pushd
66: callf $24,_Kdivd # (1.0/arg)
67: pushl 12(fp) # hfs
68: ldd r0
69: pushd
70: callf $16,_xatan
71: # clrl -60+4(fp)
72: # movl r0,-60(fp)
73: pushl 12(fp) # hfs
74: ldd r0
75: pushd
76: ldd _pio2
77: pushd
78: callf $24,_Ksubd
79: ldd r0
80: cvdf
81: stf r0
82: ret
83:
84: .align 1
85: _satan: .word L28
86: subl3 $60,fp,sp
87: cmpd2 4(fp),_sq2m1 # if (arg < sq2m1)
88: jgeq L33
89: pushl 12(fp) # hfs
90: pushl 8(fp)
91: pushl 4(fp)
92: callf $16,_xatan
93: ret # return(xatan(arg));
94: L33: cmpd2 4(fp),_sq2p1 # else if (arg > sq2p1)
95: jgtr L2000003
96: pushl 12(fp) # hfs
97: ldd L37
98: pushd
99: ldd 4(fp)
100: pushd
101: callf $24,_Kaddd # (arg+1.0)
102: pushl 12(fp) # hfs of _Kdivd
103: pushl r1
104: pushl r0
105: pushl 12(fp) # hfs
106: ldd L36
107: pushd
108: ldd 4(fp)
109: pushd
110: callf $24,_Ksubd # (arg-1.0)
111: pushl r1
112: pushl r0
113: callf $24,_Kdivd # (arg-1.0)/(arg+1.0)
114: pushl 12(fp) # hfs
115: pushl r1
116: pushl r0
117: callf $16,_xatan # xatan((ag-1.0)/(arg+1.0))
118: pushl 12(fp) # hfs
119: pushl r1
120: pushl r0
121: ldd _pio4
122: pushd
123: callf $24,_Kaddd
124: ldd r0
125: cvdf
126: stf r0
127: ret # return(pio4+xatan((xatan(...)));
128:
129: .align 1
130: _xatan: .word L38
131: subl3 $68,fp,sp
132: pushl 12(fp) # hfs
133: ldd 4(fp)
134: pushd
135: ldd 4(fp)
136: pushd
137: callf $24,_Kmuld # argsq = arg*arg;
138: ldd r0
139: std -60(fp) # argsq
140: pushl 12(fp) # hfs
141: pushd
142: ldd _p5
143: pushd
144: callf $24,_Kmuld # p5*argsq
145: pushl 12(fp) # hfs
146: ldd _p4
147: pushd
148: ldd r0
149: pushd
150: callf $24,_Kaddd # (p5*argsq+p4)
151: pushl 12(fp) # hfs
152: ldd -60(fp)
153: pushd
154: ldd r0
155: pushd
156: callf $24,_Kmuld # (p5*argsq+p4)*argsq
157: pushl 12(fp) # hfs
158: ldd _p3
159: pushd
160: ldd r0
161: pushd
162: callf $24,_Kaddd # ((p5*argsq+p4)*argsq+p3)
163: pushl 12(fp) # hfs
164: ldd -60(fp)
165: pushd
166: ldd r0
167: pushd
168: callf $24,_Kmuld # (..)*argsq
169: pushl 12(fp) # hfs
170: ldd _p2
171: pushd
172: ldd r0
173: pushd
174: callf $24,_Kaddd # (..)*argsq+p2)
175: pushl 12(fp) # hfs
176: ldd -60(fp)
177: pushd
178: ldd r0
179: pushd
180: callf $24,_Kmuld # ((..)*argsq+p2)*argsq
181: pushl 12(fp) # hfs
182: ldd _p1
183: pushd
184: ldd r0
185: pushd
186: callf $24,_Kaddd # ((..)*argsq+p2)*argsq+p1)
187: pushl 12(fp) # hfs
188: ldd -60(fp)
189: pushd
190: ldd r0
191: pushd
192: callf $24,_Kmuld # (..)*argsq
193: pushl 12(fp) # hfs
194: ldd _p0
195: pushd
196: ldd r0
197: pushd
198: callf $24,_Kaddd # ((..)*argsq+p1)*argsq+p0)
199: pushl 12(fp) # hfs
200: ldd 4(fp)
201: pushd
202: ldd r0
203: pushd
204: callf $24,_Kmuld # (..)*arg
205: ldd r0
206: std -68(fp) # value
207: cvdf
208: stf r0
209: ret
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.