![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to g.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 g.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: L15:
4: .long 0x00000000 # .float 0
5: .align 2
6: L16:
7: .long 0x41C90FDB # .float 6.2831855
8: .align 2
9: L17:
10: .long 0x3DA3D70A # .float .02
11: .align 2
12: L18:
13: .long 0xC0800000 # .float -1
14: .align 2
15: L19:
16: .long 0x40800000 # .float 1
17: .data 2
18: .data 1
19: .data 0
20: .align 2
21: L30:
22: .long L29
23: .align 2
24: L33:
25: .long L29
26: .align 2
27: L29:
28: .byte 050,070
29: .byte 060,0141
30: .byte 061,051
31: .byte 00,00
32: .align 2
33: L43:
34: .byte 040,00
35: .align 2
36: L44:
37: .long 1
38: .align 2
39: L47:
40: .byte 052,00
41: .data 2
42: .data 1
43: .data 0
44: .align 2
45: L55:
46: .long 0x42400000 # .float 12
47: .data 2
48: .data 1
49: .data 0
50: .globl _MAIN_
51: .globl _graf_
52: .globl _xsin_
53: .globl _s_wsfe
54: .globl _do_fio
55: .globl _e_wsfe
56: .align 2
57: .stabs "g.f",0x64,0,0,0
58: .text
59: .globl _MAIN_
60: .set LF1,52
61: .set LWM1,0x1000
62: .align 1
63: _MAIN_:.word LWM1
64: subl3 $LF1,fp,sp
65: pushl $L19
66: pushl $L18
67: pushl $L17
68: pushl $L16
69: pushl $L15
70: pushl $_xsin_
71: callf $28,_graf_
72: ret#0
73: .globl _graf_
74: .set LF2,60
75: .set LWM2,0x1E00
76: .align 1
77: _graf_:.word LWM2
78: subl3 $LF2,fp,sp
79: movl $v.2,r11
80: movl fp,r12
81: movl *8(r12),v.3-v.2(r11)
82: L26:addl3 $v.3-v.2,r11,-(sp)
83: calls $8,*4(r12)
84: movl r0,v.4-v.2(r11)
85: cmpf2 r0,*20(r12)
86: jlss L9999
87: cmpf2 r0,*24(r12)
88: jleq L27
89: L9999:movl L30,v.5+12
90: pushl $v.5
91: callf $8,_s_wsfe
92: movb L43,-53(fp)
93: pushl $1
94: subl3 $53,fp,-(sp)
95: jbr L2000002
96: L27:ldf v.4-v.2(r11)
97: subf *20(r12)
98: stf r0
99: ldf *24(r12)
100: subf *20(r12)
101: stf r1
102: ldf r0
103: divf r1
104: stf r0
105: cvlf $74
106: mulf r0
107: cvfl v.6-v.2(r11)
108: movl L33,v.7+12
109: pushl $v.7
110: callf $8,_s_wsfe
111: movl v.6-v.2(r11),-60(fp)
112: movl -60(fp),r10
113: movl v.8-v.2(r11),r9
114: movl $1,r9
115: cmpl r9,r10
116: jgtr L35
117: L36:movb L43,-54(fp)
118: pushl $1
119: subl3 $54,fp,-(sp)
120: pushl $L44
121: callf $16,_do_fio
122: aobleq r10,r9,L36
123: L35:movl r9,v.8-v.2(r11)
124: movb L47,-55(fp)
125: pushl $1
126: subl3 $55,fp,-(sp)
127: L2000002:pushl $L44
128: callf $16,_do_fio
129: callf $4,_e_wsfe
130: ldf v.3-v.2(r11)
131: addf *16(r12)
132: stf v.3-v.2(r11)
133: cmpf2 v.3-v.2(r11),*12(r12)
134: jleq L26
135: ret#0
136: .globl _xsin_
137: .set LF3,60
138: .set LWM3,0x1000
139: .align 1
140: _xsin_:.word LWM3
141: subl3 $LF3,fp,sp
142: movl fp,r12
143: ldf *4(r12)
144: mulf L55
145: sinf
146: stf r0
147: ldf *4(r12)
148: sinf
149: mulf r0
150: stf -60(fp)
151: movl -60(fp),r0
152: ret#1
153:
154: .data 2
155: .align 2
156: v.7:
157: .long 0
158: .long 6
159: .space 8
160: .align 2
161: v.5:
162: .long 0
163: .long 6
164: .space 8
165: .align 2
166: v.8:
167: .space 4
168: .align 2
169: v.3:
170: .space 4
171: .align 2
172: v.4:
173: .space 4
174: .align 2
175: v.6:
176: .space 4
177: .set v.2,v.4
178:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.