![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cf.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / lcc / gen3 / tst|
Return to cf.s CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / gen3 / tst |
1.1 root 1: .text
2: .globl _main
3: _main:.word 0x0
4: subl2 $76,sp
5: moval 4(ap),r1
6: movl (r1),r1
7: movl $1,r2
8: cmpl r1,r2; jgtr L1
9: moval -16(fp),r1
10: moval _3,r2
11: movf (r2),r2
12: movf r2,(r1)
13: moval L2,r1
14: jmp (r1)
15: L1:moval 8(ap),r1
16: movl (r1),r1
17: movl $4,r2
18: addl3 r2,r1,r1
19: movl (r1),r1
20: movl r1,0(sp)
21: moval _atof,r1
22: calls $0,(r1)
23: movf r0,r1
24: moval -16(fp),r2
25: moval _4,r3
26: movf (r3),r3
27: divf3 r3,r1,r1
28: movf r1,(r2)
29: L2:moval -4(fp),r1
30: movl $0,r2
31: movl r2,(r1)
32: L5:moval -4(fp),r1
33: movl (r1),r2
34: movl $1,r3
35: addl3 r3,r2,r3
36: movl r3,(r1)
37: movl $2,r1
38: ashl r1,r2,r1
39: moval _f,r2
40: addl3 r2,r1,r1
41: moval _3,r2
42: movf (r2),r2
43: movf r2,(r1)
44: L6:moval -4(fp),r1
45: movl (r1),r1
46: movl $127,r2
47: cmpl r1,r2; jleq L5
48: moval -8(fp),r1
49: movl $0,r2
50: movl r2,(r1)
51: moval L10,r1
52: jmp (r1)
53: L9:moval -12(fp),r1
54: movl (r1),r1
55: movl $2,r2
56: ashl r2,r1,r1
57: moval _f,r2
58: addl3 r2,r1,r1
59: movf (r1),r2
60: moval _12,r3
61: movf (r3),r3
62: addf3 r3,r2,r2
63: movf r2,(r1)
64: moval -8(fp),r1
65: movl (r1),r2
66: movl $1,r3
67: addl3 r3,r2,r2
68: movl r2,(r1)
69: L10:moval _getchar,r1
70: calls $0,(r1)
71: movl r0,r1
72: moval -12(fp),r2
73: movl r1,(r2)
74: movl $-1,r2
75: cmpl r1,r2; jneq L9
76: moval _13,r1
77: movl r1,0(sp)
78: moval _printf,r1
79: calls $0,(r1)
80: movl r0,r1
81: moval -4(fp),r1
82: movl $0,r2
83: movl r2,(r1)
84: L14:moval -4(fp),r1
85: movl (r1),r1
86: movl $2,r2
87: ashl r2,r1,r1
88: moval _f,r2
89: addl3 r2,r1,r1
90: movf (r1),r1
91: moval _3,r2
92: movf (r2),r2
93: cmpf r1,r2; jeql L18
94: moval -8(fp),r2
95: movl (r2),r2
96: cvtld r2,r2
97: cvtdf r2,r2
98: divf3 r2,r1,r1
99: moval -16(fp),r2
100: movf (r2),r2
101: cmpf r1,r2; jlss L18
102: moval -4(fp),r1
103: movl (r1),r1
104: movl $32,r2
105: cmpl r1,r2; jgtr L20
106: moval _22,r1
107: movl r1,0(sp)
108: moval -4(fp),r1
109: movl (r1),r1
110: movl r1,4(sp)
111: moval _printf,r1
112: calls $0,(r1)
113: movl r0,r1
114: moval L21,r1
115: jmp (r1)
116: L20:moval _23,r1
117: movl r1,0(sp)
118: moval -4(fp),r1
119: movl (r1),r1
120: movl r1,4(sp)
121: moval _printf,r1
122: calls $0,(r1)
123: movl r0,r1
124: L21:moval _24,r1
125: movl r1,0(sp)
126: moval _4,r1
127: movf (r1),r1
128: moval -4(fp),r2
129: movl (r2),r2
130: movl $2,r3
131: ashl r3,r2,r2
132: moval _f,r3
133: addl3 r3,r2,r2
134: movf (r2),r2
135: mulf3 r2,r1,r1
136: moval -8(fp),r2
137: movl (r2),r2
138: cvtld r2,r2
139: cvtdf r2,r2
140: divf3 r2,r1,r1
141: cvtfd r1,r1
142: movd r1,4(sp)
143: moval _printf,r1
144: calls $0,(r1)
145: movl r0,r1
146: L18:L15:moval -4(fp),r1
147: movl (r1),r2
148: movl $1,r3
149: addl3 r3,r2,r2
150: movl r2,(r1)
151: moval -4(fp),r1
152: movl (r1),r1
153: movl $127,r2
154: cmpl r1,r2; jleq L14
155: movl $0,r1
156: movl r1,r0; ret
157: .data
158: .globl _f
159: .align 2; _f:.space 512
160: .text 1
161: _24:.byte 9
162: .byte 37
163: .byte 46
164: .byte 49
165: .byte 102
166: .byte 10
167: .byte 0
168: _23:.byte 37
169: .byte 99
170: .byte 0
171: _22:.byte 37
172: .byte 48
173: .byte 51
174: .byte 111
175: .byte 0
176: _13:.byte 99
177: .byte 104
178: .byte 97
179: .byte 114
180: .byte 9
181: .byte 102
182: .byte 114
183: .byte 101
184: .byte 113
185: .byte 10
186: .byte 0
187: .align 2; _12:.long 0x4080
188: .align 2; _4:.long 0x43c8
189: .align 2; _3:.long 0x0
190:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.