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