|
|
1.1 root 1: .data
2: .globl _x
3: .align 2; _x:.long 1
4: .long 2
5: .long 3
6: .long 4
7: .text
8: .globl _main
9: .align 2
10: _main:link a6,#-116
11: fmovemx #0x10,a6@(-12)
12: moveml #0x2000,a6@(-16)
13: movl #L2,sp@
14: jbsr _print:l
15: movl #L3,sp@
16: movl #L4,sp@(4)
17: jbsr _print:l
18: movl #L5,sp@
19: movl #3,sp@(4)
20: movl #10,sp@(8)
21: jbsr _print:l
22: movl #L6,sp@
23: movl #L7,sp@(4)
24: movl #L8,sp@(8)
25: movl #4,sp@(12)
26: movl #10,sp@(16)
27: jbsr _print:l
28: movl #L9,sp@
29: movl #L7,sp@(4)
30: movl #L8,sp@(8)
31: fmoved L10:l,fp3
32: fmoved fp3,sp@(12)
33: movl #10,sp@(20)
34: jbsr _print:l
35: movl #L11,sp@
36: lea _x:l,a0
37: movl a0,a5
38: lea sp@(4),a1; movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b
39: movl a5,a0
40: lea sp@(20),a1; movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b
41: movl a5,a0
42: lea sp@(36),a1; movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b
43: movl a5,a0
44: lea sp@(52),a1; movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b
45: movl a5,a0
46: lea sp@(68),a1; movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b
47: movl a5,a0
48: lea sp@(84),a1; movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b
49: jbsr _print:l
50: L1:
51: moveml a6@(-16),#0x2000
52: fmovemx a6@(-12),#0x10
53: unlk a6
54: rts
55: .globl _print
56: .align 2
57: _print:link a6,#-64
58: fmovemx #0x10,a6@(-28)
59: moveml #0x2490,a6@(-44)
60: lea a6@(12),a5
61: jra L19
62: L16:
63: movl a6@(8),a2
64: cmpb #37,a2@; jne L20
65: movl a6@(8),a2
66: lea a2@(1),a2
67: movl a2,a6@(8)
68: movb a2@,d4
69: extbl d4
70: movl d4,d7
71: cmpl #115,d7; jeq L36
72: cmpl #115,d7; jgt L40
73: cmpl #98,d7; jlt L22
74: cmpl #102,d7; jgt L22
75: movl @(L42-392:l,d7:l:4),a2
76: jra a2@
77: L42:
78: .align 2; .long L25
79: .align 2; .long L30
80: .align 2; .long L32
81: .align 2; .long L22
82: .align 2; .long L38
83: L41:
84: L40:
85: cmpl #119,d7; jeq L34
86: jra L22
87: L25:
88: lea a5@(16),a2
89: movl a2,a5
90: lea a2@(-16),a0
91: lea a6@(-16),a1
92: movl #16/2,d0; 2:movw a0@+,a1@+; subql #1,d0; jgt 2b
93: movl #L26,sp@
94: movl a6@(-16),sp@(4)
95: movl a6@(-12),sp@(8)
96: movl a6@(-8),sp@(12)
97: movl a6@(-4),sp@(16)
98: jbsr _printf:l
99: jra L21
100: L30:
101: movl #L31,sp@
102: lea a5@(4),a2
103: movl a2,a5
104: movb a2@(-1),d4
105: extbl d4
106: movl d4,sp@(4)
107: jbsr _printf:l
108: jra L21
109: L32:
110: movl #L33,sp@
111: lea a5@(4),a2
112: movl a2,a5
113: movl a2@(-4),sp@(4)
114: jbsr _printf:l
115: jra L21
116: L34:
117: movl #L35,sp@
118: lea a5@(4),a2
119: movl a2,a5
120: movw a2@(-2),d4
121: extl d4
122: movl d4,sp@(4)
123: jbsr _printf:l
124: jra L21
125: L36:
126: movl #L37,sp@
127: lea a5@(4),a2
128: movl a2,a5
129: movl a2@(-4),sp@(4)
130: jbsr _printf:l
131: jra L21
132: L38:
133: movl #L39,sp@
134: lea a5@(8),a2
135: movl a2,a5
136: fmoved a2@(-8),fp3
137: fmoved fp3,sp@(4)
138: jbsr _printf:l
139: jra L21
140: L22:
141: movl #L31,sp@
142: movl a6@(8),a2
143: movb a2@,d4
144: extbl d4
145: movl d4,sp@(4)
146: jbsr _printf:l
147: jra L21
148: L20:
149: movl #L31,sp@
150: movl a6@(8),a2
151: movb a2@,d4
152: extbl d4
153: movl d4,sp@(4)
154: jbsr _printf:l
155: L21:
156: L17:
157: movl a6@(8),a2
158: lea a2@(1),a2
159: movl a2,a6@(8)
160: L19:
161: movl a6@(8),a2
162: tstb a2@; jne L16
163: L13:
164: moveml a6@(-44),#0x2490
165: fmovemx a6@(-28),#0x10
166: unlk a6
167: rts
168: .text
169: .align 2; L39:.byte 37,102,0
170: .align 2; L37:.byte 37,115,0
171: .align 2; L35:.byte 37,120,0
172: .align 2; L33:.byte 37,100,0
173: .align 2; L31:.byte 37,99,0
174: .align 2; L26:.ascii "{%d %d %d %d}\000"
175: .align 2; L11:.ascii "%b %b %b %b %b %b\012\000"
176: .align 2; L10:.long 0x40140000,0x0
177: .align 2; L9:.ascii "%s%s %f%c\000"
178: .align 2; L8:.ascii "st\000"
179: .align 2; L7:.ascii "te\000"
180: .align 2; L6:.ascii "%s%s %w%c\000"
181: .align 2; L5:.ascii "test %d%c\000"
182: .align 2; L4:.byte 50,0
183: .align 2; L3:.ascii "test %s\012\000"
184: .align 2; L2:.ascii "test 1\012\000"
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.