Last change
on this file since 526a993 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago |
Added Alcyon C reference output.
|
-
Property mode
set to
100644
|
File size:
4.5 KB
|
Line | |
---|
1 | .globl _readln
|
---|
2 | .text
|
---|
3 | _readln:
|
---|
4 | ~~readln:
|
---|
5 | ~unit=8
|
---|
6 | ~nc=10
|
---|
7 | ~ctl=12
|
---|
8 | ~nb=16
|
---|
9 | ~buf=18
|
---|
10 | link R14,#0
|
---|
11 | movem.l R4-R7/R12-R13,-(sp)
|
---|
12 | ~cp=R13
|
---|
13 | ~i=R7
|
---|
14 | ~j=R6
|
---|
15 | ~bp=R12
|
---|
16 | ~c=R5
|
---|
17 | *line 83
|
---|
18 | *line 84
|
---|
19 | cmp #1,8(R14)
|
---|
20 | blt L10000
|
---|
21 | cmp #4,8(R14)
|
---|
22 | ble L2
|
---|
23 | L10000:*line 84
|
---|
24 | move.l #$fffffff1,R0
|
---|
25 | bra L1
|
---|
26 | *line 85
|
---|
27 | L2:
|
---|
28 | *line 86
|
---|
29 | move.l 18(R14),R12
|
---|
30 | *line 88
|
---|
31 | clr R7
|
---|
32 | bra L5
|
---|
33 | L6:
|
---|
34 | *line 89
|
---|
35 | *line 90
|
---|
36 | move 8(R14),(sp)
|
---|
37 | move #2,-(sp)
|
---|
38 | jsr _trap13
|
---|
39 | addq.l #2,sp
|
---|
40 | and.l #$ff,R0
|
---|
41 | move.b R0,R5
|
---|
42 | *line 91
|
---|
43 | *line 92
|
---|
44 | move.b R5,(R12)+
|
---|
45 | *line 93
|
---|
46 | clr.b (R12)
|
---|
47 | *line 94
|
---|
48 | *line 95
|
---|
49 | move.l 12(R14),R13
|
---|
50 | *line 96
|
---|
51 | *line 97
|
---|
52 | clr R6
|
---|
53 | bra L9
|
---|
54 | L10:
|
---|
55 | *line 98
|
---|
56 | *line 99
|
---|
57 | move.b R5,R0
|
---|
58 | ext.w R0
|
---|
59 | move.l 12(R14),R9
|
---|
60 | move.b (R9),R1
|
---|
61 | ext.w R1
|
---|
62 | cmp R1,R0
|
---|
63 | move sr,R0
|
---|
64 | add.l #1,12(R14)
|
---|
65 | move R0,ccr
|
---|
66 | bne L11
|
---|
67 | *line 99
|
---|
68 | move.b R5,R0
|
---|
69 | ext.w R0
|
---|
70 | bra L1
|
---|
71 | *line 100
|
---|
72 | L11:L8:
|
---|
73 | *line 97
|
---|
74 | add #1,R6
|
---|
75 | L9:
|
---|
76 | *line 97
|
---|
77 | cmp 10(R14),R6
|
---|
78 | blt L10
|
---|
79 | L7:
|
---|
80 | *line 101
|
---|
81 | move.b R5,R0
|
---|
82 | ext.w R0
|
---|
83 | move R0,(sp)
|
---|
84 | move 8(R14),-(sp)
|
---|
85 | move #3,-(sp)
|
---|
86 | jsr _trap13
|
---|
87 | addq.l #4,sp
|
---|
88 | L4:
|
---|
89 | *line 88
|
---|
90 | add #1,R7
|
---|
91 | L5:
|
---|
92 | *line 88
|
---|
93 | cmp 16(R14),R7
|
---|
94 | blt L6
|
---|
95 | L3:
|
---|
96 | *line 104
|
---|
97 | move.l #$ffffffff,R0
|
---|
98 | bra L1
|
---|
99 | L1:tst.l (sp)+
|
---|
100 | movem.l (sp)+,R5-R7/R12-R13
|
---|
101 | unlk R14
|
---|
102 | rts
|
---|
103 | .globl _getln
|
---|
104 | .text
|
---|
105 | _getln:
|
---|
106 | ~~getln:
|
---|
107 | ~unit=8
|
---|
108 | ~nb=10
|
---|
109 | ~buf=12
|
---|
110 | link R14,#0
|
---|
111 | movem.l R5-R7/R13-R13,-(sp)
|
---|
112 | ~bp=R13
|
---|
113 | ~c=R7
|
---|
114 | ~bc=R6
|
---|
115 | *line 119
|
---|
116 | clr R6
|
---|
117 | *line 120
|
---|
118 | move.l 12(R14),R13
|
---|
119 | *line 121
|
---|
120 | clr.b (R13)
|
---|
121 | *line 123
|
---|
122 | bra L15
|
---|
123 | L14:
|
---|
124 | *line 124
|
---|
125 | *line 125
|
---|
126 | move 8(R14),(sp)
|
---|
127 | move #2,-(sp)
|
---|
128 | jsr _trap13
|
---|
129 | addq.l #2,sp
|
---|
130 | and.l #$ff,R0
|
---|
131 | move.b R0,R7
|
---|
132 | *line 126
|
---|
133 | *line 127
|
---|
134 | move.b R7,R0
|
---|
135 | ext.w R0
|
---|
136 | bra L17
|
---|
137 | *line 128
|
---|
138 | L18:
|
---|
139 | *line 129
|
---|
140 | L19:
|
---|
141 | *line 130
|
---|
142 | *line 131
|
---|
143 | *line 132
|
---|
144 | *line 132
|
---|
145 | tst R6
|
---|
146 | bne L20
|
---|
147 | *line 133
|
---|
148 | *line 134
|
---|
149 | move #7,(sp)
|
---|
150 | move 8(R14),-(sp)
|
---|
151 | move #3,-(sp)
|
---|
152 | jsr _trap13
|
---|
153 | addq.l #4,sp
|
---|
154 | bra L16
|
---|
155 | *line 135
|
---|
156 | *line 136
|
---|
157 | bra L21
|
---|
158 | L20:
|
---|
159 | *line 137
|
---|
160 | *line 138
|
---|
161 | *line 139
|
---|
162 | sub #1,R6
|
---|
163 | *line 140
|
---|
164 | sub.l #1,R13
|
---|
165 | *line 141
|
---|
166 | clr.b (R13)
|
---|
167 | *line 142
|
---|
168 | move #8,(sp)
|
---|
169 | move 8(R14),-(sp)
|
---|
170 | move #3,-(sp)
|
---|
171 | jsr _trap13
|
---|
172 | addq.l #4,sp
|
---|
173 | *line 143
|
---|
174 | move #32,(sp)
|
---|
175 | move 8(R14),-(sp)
|
---|
176 | move #3,-(sp)
|
---|
177 | jsr _trap13
|
---|
178 | addq.l #4,sp
|
---|
179 | *line 144
|
---|
180 | move #8,(sp)
|
---|
181 | move 8(R14),-(sp)
|
---|
182 | move #3,-(sp)
|
---|
183 | jsr _trap13
|
---|
184 | addq.l #4,sp
|
---|
185 | bra L16
|
---|
186 | *line 145
|
---|
187 | L21:
|
---|
188 | *line 146
|
---|
189 | *line 147
|
---|
190 | L22:
|
---|
191 | *line 148
|
---|
192 | L23:
|
---|
193 | *line 149
|
---|
194 | *line 150
|
---|
195 | *line 151
|
---|
196 | move.b R7,(R13)+
|
---|
197 | *line 152
|
---|
198 | clr.b (R13)
|
---|
199 | *line 153
|
---|
200 | move.b R7,R0
|
---|
201 | ext.w R0
|
---|
202 | bra L12
|
---|
203 | *line 154
|
---|
204 | *line 155
|
---|
205 | *line 156
|
---|
206 | L24:
|
---|
207 | *line 157
|
---|
208 | *line 158
|
---|
209 | *line 159
|
---|
210 | move.l 12(R14),R8
|
---|
211 | clr.b (R8)
|
---|
212 | *line 160
|
---|
213 | move.b R7,R0
|
---|
214 | ext.w R0
|
---|
215 | bra L12
|
---|
216 | *line 161
|
---|
217 | L25:
|
---|
218 | *line 162
|
---|
219 | *line 163
|
---|
220 | *line 164
|
---|
221 | move.b R7,(R13)+
|
---|
222 | *line 165
|
---|
223 | clr.b (R13)
|
---|
224 | *line 166
|
---|
225 | move.b R7,R0
|
---|
226 | ext.w R0
|
---|
227 | move R0,(sp)
|
---|
228 | move 8(R14),-(sp)
|
---|
229 | move #3,-(sp)
|
---|
230 | jsr _trap13
|
---|
231 | addq.l #4,sp
|
---|
232 | *line 167
|
---|
233 | add #1,R6
|
---|
234 | bra L16
|
---|
235 | L17:ext.l R0
|
---|
236 | move.l #L26,R8
|
---|
237 | move #5,R1
|
---|
238 | L27:cmp.l (R8)+,R0
|
---|
239 | dbeq R1,L27
|
---|
240 | move.l 20(R8),R8
|
---|
241 | jmp (R8)
|
---|
242 | .data
|
---|
243 | L26:.dc.l 8
|
---|
244 | .dc.l 10
|
---|
245 | .dc.l 13
|
---|
246 | .dc.l 24
|
---|
247 | .dc.l 127
|
---|
248 | .dc.l 0
|
---|
249 | .dc.l L18
|
---|
250 | .dc.l L23
|
---|
251 | .dc.l L22
|
---|
252 | .dc.l L24
|
---|
253 | .dc.l L19
|
---|
254 | .dc.l L25
|
---|
255 | .text
|
---|
256 | L16:
|
---|
257 | *line 168
|
---|
258 | L15:
|
---|
259 | *line 169
|
---|
260 | cmp 10(R14),R6
|
---|
261 | blt L14
|
---|
262 | L13:
|
---|
263 | *line 171
|
---|
264 | move.l #$ffffffff,R0
|
---|
265 | bra L12
|
---|
266 | L12:tst.l (sp)+
|
---|
267 | movem.l (sp)+,R6-R7/R13-R13
|
---|
268 | unlk R14
|
---|
269 | rts
|
---|
270 | .globl _getrln
|
---|
271 | .text
|
---|
272 | _getrln:
|
---|
273 | ~~getrln:
|
---|
274 | ~unit=8
|
---|
275 | ~nb=10
|
---|
276 | ~buf=12
|
---|
277 | link R14,#0
|
---|
278 | movem.l R5-R7/R13-R13,-(sp)
|
---|
279 | ~bp=R13
|
---|
280 | ~c=R7
|
---|
281 | ~bc=R6
|
---|
282 | *line 186
|
---|
283 | clr R6
|
---|
284 | *line 187
|
---|
285 | move.l 12(R14),R13
|
---|
286 | *line 188
|
---|
287 | clr.b (R13)
|
---|
288 | *line 190
|
---|
289 | bra L31
|
---|
290 | L30:
|
---|
291 | *line 191
|
---|
292 | *line 192
|
---|
293 | move 8(R14),(sp)
|
---|
294 | move #2,-(sp)
|
---|
295 | jsr _trap13
|
---|
296 | addq.l #2,sp
|
---|
297 | and.l #$ff,R0
|
---|
298 | move.b R0,R7
|
---|
299 | *line 193
|
---|
300 | *line 194
|
---|
301 | move.b R7,R0
|
---|
302 | ext.w R0
|
---|
303 | bra L33
|
---|
304 | *line 195
|
---|
305 | L34:
|
---|
306 | *line 196
|
---|
307 | L35:
|
---|
308 | *line 197
|
---|
309 | L36:
|
---|
310 | *line 198
|
---|
311 | *line 199
|
---|
312 | *line 200
|
---|
313 | move.b R7,(R13)+
|
---|
314 | *line 201
|
---|
315 | clr.b (R13)
|
---|
316 | *line 202
|
---|
317 | move.b R7,R0
|
---|
318 | ext.w R0
|
---|
319 | bra L28
|
---|
320 | *line 203
|
---|
321 | L37:
|
---|
322 | *line 204
|
---|
323 | *line 205
|
---|
324 | *line 206
|
---|
325 | move.l 12(R14),R8
|
---|
326 | clr.b (R8)
|
---|
327 | *line 207
|
---|
328 | move.b R7,R0
|
---|
329 | ext.w R0
|
---|
330 | bra L28
|
---|
331 | *line 208
|
---|
332 | L38:
|
---|
333 | *line 209
|
---|
334 | *line 210
|
---|
335 | *line 211
|
---|
336 | move.b R7,(R13)+
|
---|
337 | *line 212
|
---|
338 | clr.b (R13)
|
---|
339 | *line 213
|
---|
340 | add #1,R6
|
---|
341 | bra L32
|
---|
342 | L33:cmp #10,R0
|
---|
343 | beq L35
|
---|
344 | cmp #13,R0
|
---|
345 | beq L34
|
---|
346 | cmp #24,R0
|
---|
347 | beq L37
|
---|
348 | cmp #26,R0
|
---|
349 | beq L36
|
---|
350 | bra L38
|
---|
351 | L32:
|
---|
352 | *line 214
|
---|
353 | L31:
|
---|
354 | *line 215
|
---|
355 | cmp 10(R14),R6
|
---|
356 | blt L30
|
---|
357 | L29:
|
---|
358 | *line 217
|
---|
359 | move.l #$ffffffff,R0
|
---|
360 | bra L28
|
---|
361 | L28:tst.l (sp)+
|
---|
362 | movem.l (sp)+,R6-R7/R13-R13
|
---|
363 | unlk R14
|
---|
364 | rts
|
---|
365 | .globl _writeln
|
---|
366 | .text
|
---|
367 | _writeln:
|
---|
368 | ~~writeln:
|
---|
369 | ~unit=8
|
---|
370 | ~buf=10
|
---|
371 | link R14,#0
|
---|
372 | movem.l R6-R7/R13-R13,-(sp)
|
---|
373 | ~bp=R13
|
---|
374 | ~c=R7
|
---|
375 | *line 229
|
---|
376 | move.l 10(R14),R13
|
---|
377 | *line 231
|
---|
378 | bra L42
|
---|
379 | L41:
|
---|
380 | *line 232
|
---|
381 | move.b R7,R0
|
---|
382 | ext.w R0
|
---|
383 | move R0,(sp)
|
---|
384 | move 8(R14),-(sp)
|
---|
385 | move #3,-(sp)
|
---|
386 | jsr _trap13
|
---|
387 | addq.l #4,sp
|
---|
388 | L42:
|
---|
389 | *line 232
|
---|
390 | move.b (R13)+,R7
|
---|
391 | bne L41
|
---|
392 | L40:L39:tst.l (sp)+
|
---|
393 | movem.l (sp)+,R7-R7/R13-R13
|
---|
394 | unlk R14
|
---|
395 | rts
|
---|
396 | .data
|
---|
Note:
See
TracBrowser
for help on using the repository browser.