![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t06.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 t06.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: L74:
4: .long 1
5: .align 2
6: L75:
7: .long 6
8: .align 2
9: L76:
10: .long 0xC5F25000 # .float -1938.5
11: .align 2
12: L77:
13: .long 0xC0000000 # .float -.5
14: .align 2
15: L78:
16: .long 0xC1D00000 # .float -6.5
17: .align 2
18: L79:
19: .long 0x00000000 # .float 0
20: .align 2
21: L80:
22: .long 0x3556BF95 # .float 2.e-07
23: .align 2
24: L83:
25: .long 2
26: .align 2
27: L85:
28: .long 3
29: .align 2
30: L87:
31: .long 4
32: .align 2
33: L89:
34: .long 0x40C00000, 0x00000000 # .double 1.5
35: .align 2
36: L90:
37: .long 0x3B83126E, 0x978D4FDF # .double .001
38: .align 2
39: L93:
40: .long 5
41: .align 2
42: L97:
43: .long 7
44: .align 2
45: L99:
46: .long 8
47: .align 2
48: L101:
49: .byte 0145,00
50: .align 2
51: L102:
52: .byte 0157,00
53: .align 2
54: L106:
55: .long 9
56: .data 2
57: .data 1
58: .data 0
59: .globl _MAIN_
60: .globl _e_
61: .align 2
62: .stabs "t06.f",0x64,0,0,0
63: .text
64: .globl _MAIN_
65: .set LF1,72
66: .set LWM1,0x1FC0
67: .align 1
68: _MAIN_:.word LWM1
69: subl3 $LF1,fp,sp
70: movl $v.1,r11
71: movl v.2-v.1(r11),r10
72: mnegl $10,r10
73: L15:mull3 r10,r10,v.3-v.1+40(r11)[r10]
74: aobleq $10,r10,L15
75: movl r10,v.2-v.1(r11)
76: cmpl v.3-v.1(r11),$100
77: jneq L9999
78: cmpl v.3-v.1+76(r11),$81
79: jeql L20
80: L9999:pushl $L75
81: pushl $L74
82: callf $12,_e_
83: L20:movl v.2-v.1(r11),r10
84: movl $1939,r10
85: L21:cvlf r10
86: addf L76
87: stf v.4-v.1+-7756(r11)[r10]
88: aobleq $1945,r10,L21
89: movl r10,v.2-v.1(r11)
90: ldf v.4-v.1(r11)
91: addf L77
92: stf -56(fp)
93: ldf v.4-v.1+24(r11)
94: addf L78
95: stf -60(fp)
96: cmpf2 L79,-56(fp)
97: jgtr L9997
98: movl -56(fp),r0
99: jbr L9996
100: L9997:lnf -56(fp)
101: stf r0
102: L9996:cmpf2 r0,L80
103: jgtr L9998
104: cmpf2 L79,-60(fp)
105: jgtr L9995
106: movl -60(fp),r0
107: jbr L9994
108: L9995:lnf -60(fp)
109: stf r0
110: L9994:cmpf2 r0,L80
111: jleq L26
112: L9998:pushl $L75
113: pushl $L83
114: callf $12,_e_
115: L26:movl $1,v.5-v.1+8(r11)
116: movl $1,v.5-v.1+4(r11)
117: cmpl v.5-v.1+8(r11),$1
118: jeql L27
119: pushl $L75
120: pushl $L85
121: callf $12,_e_
122: L27:clrl v.5-v.1+8(r11)
123: clrl v.5-v.1+4(r11)
124: tstl v.5-v.1+8(r11)
125: jeql L28
126: pushl $L75
127: pushl $L87
128: callf $12,_e_
129: L28:movl L89+4,v.6-v.1+4(r11)
130: movl L89,v.6-v.1(r11)
131: movl L90+4,v.6-v.1+12(r11)
132: movl L90,v.6-v.1+8(r11)
133: cmpd2 v.6-v.1(r11),L89
134: jneq L9991
135: cmpd2 v.6-v.1+8(r11),L90
136: jeql L29
137: L9991:pushl $L75
138: pushl $L93
139: callf $12,_e_
140: L29:movl v.2-v.1(r11),r10
141: movl $1939,r10
142: L30:addl3 $300,r10,r0
143: mull3 $12,r10,r1
144: movl r0,v.7+-93056[r1]
145: aobleq $1945,r10,L30
146: movl r10,v.2-v.1(r11)
147: cmpl v.7-v.1+64(r11),$2240
148: jeql L35
149: pushl $L75
150: pushl $L75
151: callf $12,_e_
152: L35:movl v.2-v.1(r11),r10
153: movl $50,r10
154: L36:addl3 $200,r10,v.7-v.1+16(r11)[r10]
155: aobleq $52,r10,L36
156: movl r10,v.2-v.1(r11)
157: cmpl v.7-v.1+216(r11),$250
158: jneq L9990
159: cmpl v.7-v.1+224(r11),$252
160: jeql L41
161: L9990:pushl $L75
162: pushl $L97
163: callf $12,_e_
164: L41:movl v.2-v.1(r11),r10
165: mnegl $10,r10
166: L42:clrl v.3-v.1+40(r11)[r10]
167: aobleq $10,r10,L42
168: movl r10,v.2-v.1(r11)
169: movl -64(fp),r10
170: movl v.2-v.1(r11),r9
171: clrl r9
172: L47:divl3 $2,r9,r10
173: addl3 $1,r9,r0
174: addl3 r10,r10,r1
175: movl r0,v.3-v.1+40(r11)[r1]
176: aobleq $10,r9,L47
177: movl r9,v.2-v.1(r11)
178: movl r10,-64(fp)
179: cmpl v.3-v.1+40(r11),$2
180: jneq L9989
181: tstl v.3-v.1+60(r11)
182: jneq L9989
183: cmpl v.3-v.1+72(r11),$10
184: jeql L52
185: L9989:pushl $L75
186: pushl $L99
187: callf $12,_e_
188: L52:movl v.9-v.1(r11),r10
189: movl v.2-v.1(r11),r9
190: movl v.8-v.1(r11),r8
191: movl -68(fp),r7
192: movl -72(fp),r6
193: clrl r9
194: L55:clrl r8
195: L59:addl3 r8,r9,r7
196: addl3 r8,r9,r6
197: clrl r10
198: L63:addl3 r10,r7,r0
199: divl2 $2,r0
200: addl2 r0,r0
201: addl3 r10,r6,r1
202: cmpl r0,r1
203: jneq L66
204: shll $2,r10,r0
205: addl2 r8,r0
206: mull2 $11,r0
207: addl2 r9,r0
208: movb L101,v.10-v.1(r11)[r0]
209: jbr L53
210: L66:shll $2,r10,r0
211: addl2 r8,r0
212: mull2 $11,r0
213: addl2 r9,r0
214: movb L102,v.10-v.1(r11)[r0]
215: L53:aobleq $3,r10,L63
216: aobleq $3,r8,L59
217: aobleq $10,r9,L55
218: movl r6,-72(fp)
219: movl r7,-68(fp)
220: movl r8,v.8-v.1(r11)
221: movl r9,v.2-v.1(r11)
222: movl r10,v.9-v.1(r11)
223: cmpb v.10-v.1+112(r11),L101
224: jneq L9988
225: cmpb v.10-v.1+156(r11),L102
226: jneq L9988
227: cmpb v.10-v.1+77(r11),L101
228: jeql L14
229: L9988:pushl $L75
230: pushl $L106
231: callf $12,_e_
232: L14:ret#0
233:
234: .data 2
235: v.10:
236: .space 176
237: .align 2
238: v.4:
239: .space 28
240: .align 2
241: v.5:
242: .space 12
243: .align 2
244: v.8:
245: .space 4
246: .align 2
247: v.9:
248: .space 4
249: .align 2
250: v.2:
251: .space 4
252: .align 2
253: v.6:
254: .space 16
255: .align 2
256: v.3:
257: .space 84
258: .align 2
259: v.7:
260: .space 336
261: .set v.1,v.9
262:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.