![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to b7.t0 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 / usr / src / usr.bin / f77 / f77pass1 / tst|
Return to b7.t0 CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst |
1.1 root 1: .data 0
2: .align 2
3: L20:
4: .long 10
5: .data 2
6: .data 1
7: .data 0
8: .data 2
9: .data 1
10: .data 0
11: .data 2
12: .data 1
13: .data 0
14: .data 2
15: .data 1
16: .data 0
17: .globl _MAIN_
18: .globl _stat_
19: .globl _gtmean_
20: .globl _getmed_
21: .align 2
22: .stabs "b7.f",0x64,0,0,0
23:
24: .text
25: .globl _MAIN_
26: .align 1
27: _MAIN_:
28: .word LWM1
29: subl3 $LF1,fp,sp
30: jbr L12
31: L13:
32: movl $1,r10
33: L17:
34: movl r10,v.3-v.1(r11)
35: L15:
36: pushl $L20
37: addl3 $v.2-v.1,r11,r0
38: pushl r0
39: callf $12,_stat_
40: incl r10
41: cmpl r10,$30000
42: jleq L17
43: L16:
44: movl r10,v.3-v.1(r11)
45: L14:
46: ret#0
47: L12:
48: movl $v.1,r11
49: jbr L13
50: .set LF1,52
51: .set LWM1,0x1C00
52: .text
53: .globl _stat_
54: .align 1
55: _stat_:
56: .word LWM2
57: subl3 $LF2,fp,sp
58: jbr L22
59: L25:
60: clrl v.5-v.4(r11)
61: movl $1,r10
62: movl *8(r12),-60(fp)
63: cmpl r10,-60(fp)
64: jgtr L29
65: L30:
66: movl r10,v.6-v.4(r11)
67: L28:
68: addl3 *4(r12)[r10],v.5-v.4(r11),r0
69: movl r0,v.5-v.4(r11)
70: incl r10
71: cmpl r10,-60(fp)
72: jleq L30
73: L29:
74: movl r10,v.6-v.4(r11)
75: addl3 $v.5-v.4,r11,r0
76: pushl r0
77: pushl 8(r12)
78: addl3 $4,4(r12),r0
79: pushl r0
80: callf $16,_gtmean_
81: movl r0,v.7-v.4(r11)
82: addl3 $v.5-v.4,r11,r0
83: pushl r0
84: pushl 8(r12)
85: addl3 $4,4(r12),r0
86: pushl r0
87: callf $16,_getmed_
88: L24:
89: L23:
90: ret#0
91: L22:
92: movl $v.4,r11
93: movl fp,r12
94: movl *8(r12),-56(fp)
95: subl2 $4,4(r12)
96: jbr L25
97: .set LF2,60
98: .set LWM2,0x1C00
99: .text
100: .globl _gtmean_
101: .align 1
102: _gtmean_:
103: .word LWM3
104: subl3 $LF3,fp,sp
105: jbr L35
106: L37:
107: clrl v.9-v.8(r11)
108: movl $1,r10
109: movl *8(r12),-68(fp)
110: cmpl r10,-68(fp)
111: jgtr L42
112: L43:
113: movl r10,v.10-v.8(r11)
114: L41:
115: mull3 r10,*4(r12)[r10],r0
116: addl2 v.9-v.8(r11),r0
117: movl r0,v.9-v.8(r11)
118: incl r10
119: cmpl r10,-68(fp)
120: jleq L43
121: L42:
122: movl r10,v.10-v.8(r11)
123: divl3 *12(r12),v.9-v.8(r11),r0
124: movl r0,-64(fp)
125: jbr L36
126: L36:
127: movl -64(fp),r0
128: ret#1
129: L35:
130: movl $v.8,r11
131: movl fp,r12
132: movl *8(r12),-56(fp)
133: subl2 $4,4(r12)
134: jbr L37
135: .set LF3,68
136: .set LWM3,0x1C00
137: .text
138: .globl _getmed_
139: .align 1
140: _getmed_:
141: .word LWM4
142: subl3 $LF4,fp,sp
143: jbr L48
144: L51:
145: clrl v.12-v.11(r11)
146: movl $1,r10
147: movl *8(r12),-60(fp)
148: cmpl r10,-60(fp)
149: jgtr L55
150: L56:
151: movl r10,v.13-v.11(r11)
152: addl3 *4(r12)[r10],v.12-v.11(r11),r0
153: movl r0,v.12-v.11(r11)
154: shar $2,*12(r12),r0
155: cmpl v.12-v.11(r11),r0
156: jleq L60
157: jbr L61
158: L60:
159: L54:
160: incl r10
161: cmpl r10,-60(fp)
162: jleq L56
163: L55:
164: movl r10,v.13-v.11(r11)
165: L61:
166: jbr L50
167: L50:
168: L49:
169: ret#0
170: L48:
171: movl $v.11,r11
172: movl fp,r12
173: movl *8(r12),-56(fp)
174: subl2 $4,4(r12)
175: jbr L51
176: .set LF4,60
177: .set LWM4,0x1C00
178: .text
179: .data 2
180: .align 2
181: v.2:
182: .quad 0x1F4000003E8
183: .quad 0x7D000000FA0
184: .quad 0x64000000C8
185: .quad 0x19000000320
186: .quad 0x64000000C80
187: .align 2
188: v.3:
189: .space 4
190: .set v.1,v.3
191:
192: .align 2
193: v.5:
194: .space 4
195: .align 2
196: v.7:
197: .space 4
198: .align 2
199: v.6:
200: .space 4
201: .set v.4,v.7
202:
203: .align 2
204: v.10:
205: .space 4
206: .align 2
207: v.9:
208: .space 4
209: .set v.8,v.9
210:
211: .align 2
212: v.13:
213: .space 4
214: .align 2
215: v.12:
216: .space 4
217: .set v.11,v.12
218:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.