![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t11.t2 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 t11.t2 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: L22:
4: .long 2
5: .align 2
6: L24:
7: .long 1
8: .align 2
9: L25:
10: .long 11
11: .align 2
12: L26:
13: .long 3
14: .align 2
15: L31:
16: .long 5
17: .align 2
18: L35:
19: .long 100
20: .align 2
21: L36:
22: .long 4
23: .align 2
24: L38:
25: .long 10
26: .align 2
27: L41:
28: .long 15
29: .align 2
30: L42:
31: .long 6
32: .align 2
33: L44:
34: .long 20
35: .align 2
36: L45:
37: .long 7
38: .data 2
39: .data 1
40: .data 0
41: .data 2
42: .data 1
43: .data 0
44: .data 2
45: .data 1
46: .data 0
47: .globl _MAIN_
48: .globl _ack_
49: .globl _e_
50: .globl _fib0_
51: .globl _fib_
52: .align 2
53: .stabs "t11.f",0x64,0,0,0
54: .text
55: .globl _MAIN_
56: .set LF1,52
57: .set LWM1,0x1800
58: .align 1
59: _MAIN_:.word LWM1
60: subl3 $LF1,fp,sp
61: movl $v.1,r11
62: pushl $L22
63: pushl $L22
64: callf $12,_ack_
65: cmpl r0,$7
66: jeql L15
67: pushl $L25
68: pushl $L24
69: callf $12,_e_
70: L15:pushl $L26
71: pushl $L26
72: callf $12,_ack_
73: cmpl r0,$61
74: jeql L16
75: pushl $L25
76: pushl $L22
77: callf $12,_e_
78: L16:pushl $L31
79: pushl $L26
80: callf $12,_ack_
81: cmpl r0,$253
82: jeql L17
83: pushl $L25
84: pushl $L26
85: callf $12,_e_
86: L17:pushl $L35
87: pushl $L22
88: callf $12,_ack_
89: cmpl r0,$203
90: jeql L18
91: pushl $L25
92: pushl $L36
93: callf $12,_e_
94: L18:addl3 $v.2-v.1,r11,-(sp)
95: pushl $L38
96: callf $12,_fib0_
97: cmpl v.2-v.1(r11),$55
98: jeql L19
99: pushl $L25
100: pushl $L31
101: callf $12,_e_
102: L19:addl3 $v.2-v.1,r11,-(sp)
103: pushl $L41
104: callf $12,_fib_
105: cmpl v.2-v.1(r11),$610
106: jeql L20
107: pushl $L25
108: pushl $L42
109: callf $12,_e_
110: L20:addl3 $v.2-v.1,r11,-(sp)
111: pushl $L44
112: callf $12,_fib_
113: cmpl v.2-v.1(r11),$6765
114: jeql L14
115: pushl $L25
116: pushl $L45
117: callf $12,_e_
118: L14:ret#0
119: .globl _ack_
120: .set LF2,76
121: .set LWM2,0x1000
122: .align 1
123: _ack_:.word LWM2
124: subl3 $LF2,fp,sp
125: movl fp,r12
126: tstl *4(r12)
127: jeql L54
128: tstl *8(r12)
129: jeql L56
130: subl3 $1,*4(r12),-64(fp)
131: subl3 $1,*8(r12),-72(fp)
132: subl3 $72,r12,-(sp)
133: pushl 4(r12)
134: callf $12,_ack_
135: movl r0,-68(fp)
136: subl3 $68,fp,-(sp)
137: subl3 $64,fp,-(sp)
138: jbr L2000001
139: L54:addl3 $1,*8(r12),-60(fp)
140: jbr L49
141: L56:subl3 $1,*4(r12),-76(fp)
142: pushl $L24
143: subl3 $76,fp,-(sp)
144: L2000001:callf $12,_ack_
145: movl r0,-60(fp)
146: L49:movl -60(fp),r0
147: ret#1
148: .globl _fib0_
149: .set LF3,72
150: .set LWM3,0x1FC0
151: .align 1
152: _fib0_:.word LWM3
153: subl3 $LF3,fp,sp
154: movl $v.4,r11
155: movl 4(fp),-68(fp)
156: movl 8(fp),-64(fp)
157: subl3 $72,fp,r12
158: movl $1,v.5-v.4(r11)
159: movl $1,v.6-v.4(r11)
160: movl $2,v.7-v.4(r11)
161: L68:addl3 $1,v.7-v.4(r11),-56(fp)
162: movl *4(r12),-60(fp)
163: movl v.6-v.4(r11),r10
164: movl 8(r12),r9
165: movl v.5-v.4(r11),r8
166: movl -56(fp),r7
167: movl -60(fp),r6
168: movl r7,v.8-v.4(r11)
169: cmpl r7,r6
170: jgtr L70
171: L71:addl3 r10,r8,(r9)
172: movl r10,r8
173: movl (r9),r10
174: aobleq r6,v.8-v.4(r11),L71
175: L70:movl r8,v.5-v.4(r11)
176: movl r10,v.6-v.4(r11)
177: movl *4(r12),v.7-v.4(r11)
178: ret#0
179: .align 1
180: _fib_:.word LWM3
181: subl3 $LF3,fp,sp
182: movl $v.4,r11
183: movl 4(fp),-68(fp)
184: movl 8(fp),-64(fp)
185: subl3 $72,fp,r12
186: jbr L68
187:
188: .data 2
189: .align 2
190: v.2:
191: .space 4
192: .set v.1,v.2
193:
194: .align 2
195: v.7:
196: .space 4
197: .align 2
198: v.5:
199: .space 4
200: .align 2
201: v.6:
202: .space 4
203: .align 2
204: v.8:
205: .space 4
206: .set v.4,v.6
207:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.