![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fields.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst|
Return to fields.s CVS log | Up to [Research Unix] / researchv10no / cmd / lcc / gen2 / mc-sun / tst |
1.1 root 1: .data
2: .globl _x
3: .align 2; _x:.long 1
4: .byte 2
5: .skip 1
6: .byte 0
7: .byte 52
8: .byte 10
9: .byte 6
10: .globl _i
11: .align 2; _i:.long 16
12: .globl _y
13: .align 2; _y:.byte 224
14: .skip 1
15: .byte 0
16: .byte 0
17: .byte 0
18: .byte 9
19: .text
20: .globl _main
21: .align 2
22: _main:link a6,#-40
23: moveml #0x1c,a6@(-12)
24: movl #L4,sp@
25: movl _x:l,sp@(4)
26: movb _x+4:l,d4
27: extbl d4
28: movl d4,sp@(8)
29: movl _x+6:l,d4
30: movl #20,d3
31: asrl d3,d4
32: movl d4,sp@(12)
33: movl _x+6:l,d4
34: movl #12,d3
35: asll d3,d4
36: movl #28,d3
37: asrl d3,d4
38: movl d4,sp@(16)
39: movl _x+8:l,d4
40: asll #4,d4
41: movl #29,d3
42: asrl d3,d4
43: movl d4,sp@(20)
44: movb _x+9:l,d4
45: extbl d4
46: movl d4,sp@(24)
47: jbsr _printf:l
48: movl #L10,sp@
49: movl _y:l,d4
50: movl #30,d3
51: movl d4,d2; lsrl d3,d2
52: movl d2,sp@(4)
53: lsll #2,d4
54: movl #28,d3
55: lsrl d3,d4
56: movl d4,sp@(8)
57: movl _y+2:l,sp@(12)
58: jbsr _printf:l
59: movl _x+6:l,d4
60: andl #0xfff0ffff,d4
61: movl _i:l,d3
62: movl #28,d2
63: asll d2,d3
64: asrl d2,d3
65: movl d3,d3
66: movl #16,d2
67: lsll d2,d3
68: andl #0xf0000,d3
69: orl d3,d4
70: movl d4,_x+6:l
71: movl _x+8:l,d4
72: andl #0xf1ffffff,d4
73: movl d4,_x+8:l
74: movl #L4,sp@
75: movl _x:l,sp@(4)
76: movb _x+4:l,d4
77: extbl d4
78: movl d4,sp@(8)
79: movl _x+6:l,d4
80: movl #20,d3
81: asrl d3,d4
82: movl d4,sp@(12)
83: movl _x+6:l,d4
84: movl #12,d3
85: asll d3,d4
86: movl #28,d3
87: asrl d3,d4
88: movl d4,sp@(16)
89: movl _x+8:l,d4
90: asll #4,d4
91: movl #29,d3
92: asrl d3,d4
93: movl d4,sp@(20)
94: movb _x+9:l,d4
95: extbl d4
96: movl d4,sp@(24)
97: jbsr _printf:l
98: movl _y:l,d4
99: andl #0x3fffffff,d4
100: orl #0x80000000,d4
101: movl d4,_y:l
102: movl _i:l,_y+2:l
103: movl #L10,sp@
104: movl _y:l,d4
105: movl #30,d3
106: movl d4,d2; lsrl d3,d2
107: movl d2,sp@(4)
108: lsll #2,d4
109: movl #28,d3
110: lsrl d3,d4
111: movl d4,sp@(8)
112: movl _y+2:l,sp@(12)
113: jbsr _printf:l
114: movl #_x,sp@
115: jbsr _f2:l
116: L3:
117: moveml a6@(-12),#0x1c
118: unlk a6
119: rts
120: .globl _f1
121: .align 2
122: _f1:link a6,#-28
123: moveml #0x201c,a6@(-16)
124: movl a6@(8),a5
125: movl a5@,d4
126: andl #0xc3ffffff,d4
127: movl d4,a5@
128: movl a5@,d4
129: andl #0x3fffffff,d4
130: clrl d3
131: andl #3,d3
132: movl #30,d2
133: lsll d2,d3
134: andl #0xc0000000,d3
135: orl d3,d4
136: movl d4,a5@
137: movl a5@,d4
138: andl #0x3c000000,d4
139: tstl d4; jeq L22
140: movl #L24,sp@
141: jbsr _printf:l
142: L22:
143: movl a5@,d4
144: orl #0xc0000000,d4
145: movl d4,a5@
146: movl a5@,d4
147: orl #0x3c000000,d4
148: movl d4,a5@
149: movl #L25,sp@
150: movl a5@,d4
151: movl #30,d3
152: movl d4,d2; lsrl d3,d2
153: movl d2,sp@(4)
154: lsll #2,d4
155: movl #28,d3
156: lsrl d3,d4
157: movl d4,sp@(8)
158: jbsr _printf:l
159: L21:
160: moveml a6@(-16),#0x201c
161: unlk a6
162: rts
163: .globl _f2
164: .align 2
165: _f2:link a6,#-24
166: moveml #0x209c,a6@(-20)
167: movl a6@(8),a5
168: tstl _i:l; jne L28
169: movl #1,d7
170: jra L29
171: L28:
172: clrl d7
173: L29:
174: movl a5@,d4
175: andl #0x3fffffff,d4
176: movl d7,d3; andl #3,d3
177: movl #30,d2
178: lsll d2,d3
179: andl #0xc0000000,d3
180: orl d3,d4
181: movl d4,a5@
182: movl a5,sp@
183: jbsr _f1:l
184: movl a5@,d4
185: andl #0xc3ffffff,d4
186: clrl d3
187: andl #15,d3
188: movl #26,d2
189: lsll d2,d3
190: andl #0x3c000000,d3
191: orl d3,d4
192: movl d4,a5@
193: L26:
194: moveml a6@(-20),#0x209c
195: unlk a6
196: rts
197: .text
198: .align 2; L25:.ascii "p->a = 0x%x, p->b = 0x%x\012\000"
199: .align 2; L24:.ascii "p->b != 0!\012\000"
200: .align 2; L10:.ascii "y = %d %d %d\012\000"
201: .align 2; L4:.ascii "x = %d %d %d %d %d %d\012\000"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.