1 | .globl _errno
|
---|
2 | .globl _chantab
|
---|
3 | .globl _Wrkbuf
|
---|
4 | .globl _Cbuffs
|
---|
5 | .globl _Stdbufs
|
---|
6 | .globl _Stdbuf
|
---|
7 | .globl __thebpb
|
---|
8 | .globl __thefat
|
---|
9 | .data
|
---|
10 | L1:
|
---|
11 | *line 27
|
---|
12 | .dc.l L2
|
---|
13 | *line 28
|
---|
14 | .dc.l L3
|
---|
15 | *line 29
|
---|
16 | .dc.l L4
|
---|
17 | *line 30
|
---|
18 | .dc.l L5
|
---|
19 | *line 32
|
---|
20 | .dc.l L6
|
---|
21 | *line 33
|
---|
22 | .dc.l L7
|
---|
23 | *line 34
|
---|
24 | .dc.l L8
|
---|
25 | *line 35
|
---|
26 | .dc.l L9
|
---|
27 | *line 37
|
---|
28 | .dc.l L10
|
---|
29 | *line 38
|
---|
30 | .dc.l L11
|
---|
31 | *line 39
|
---|
32 | .dc.l L12
|
---|
33 | *line 40
|
---|
34 | .dc.l L13
|
---|
35 | *line 42
|
---|
36 | .dc.l L14
|
---|
37 | *line 43
|
---|
38 | .dc.l L15
|
---|
39 | *line 44
|
---|
40 | .dc.l L16
|
---|
41 | *line 46
|
---|
42 | .dc.l L17
|
---|
43 | .text
|
---|
44 | .data
|
---|
45 | L18:
|
---|
46 | *line 53
|
---|
47 | .dc.l L19
|
---|
48 | *line 54
|
---|
49 | .dc.l L20
|
---|
50 | *line 55
|
---|
51 | .dc.l L21
|
---|
52 | *line 56
|
---|
53 | .dc.l L22
|
---|
54 | *line 57
|
---|
55 | .dc.l L23
|
---|
56 | *line 58
|
---|
57 | .dc.l L24
|
---|
58 | *line 59
|
---|
59 | .dc.l L25
|
---|
60 | *line 61
|
---|
61 | .dc.l L26
|
---|
62 | .text
|
---|
63 | .data
|
---|
64 | L27:
|
---|
65 | *line 65
|
---|
66 | .dc.l L28
|
---|
67 | *line 66
|
---|
68 | .dc.l L29
|
---|
69 | *line 67
|
---|
70 | .dc.l L30
|
---|
71 | *line 68
|
---|
72 | .dc.l L31
|
---|
73 | *line 69
|
---|
74 | .dc.l L32
|
---|
75 | *line 70
|
---|
76 | .dc.l L33
|
---|
77 | *line 71
|
---|
78 | .dc.l L34
|
---|
79 | *line 73
|
---|
80 | .dc.l L35
|
---|
81 | .text
|
---|
82 | .text
|
---|
83 | _waitcr:
|
---|
84 | ~~waitcr:
|
---|
85 | link R14,#-6
|
---|
86 | ~c=-2
|
---|
87 | *line 83
|
---|
88 | move #7,(sp)
|
---|
89 | move #2,-(sp)
|
---|
90 | move #3,-(sp)
|
---|
91 | jsr _trap13
|
---|
92 | addq.l #4,sp
|
---|
93 | *line 85
|
---|
94 | bra L40
|
---|
95 | L39:
|
---|
96 | *line 86
|
---|
97 | *line 87
|
---|
98 | cmp.b #7,-2(R14)
|
---|
99 | bne L41
|
---|
100 | *line 87
|
---|
101 | jsr _xtrap15
|
---|
102 | L41:L40:
|
---|
103 | *line 88
|
---|
104 | move #2,(sp)
|
---|
105 | move #2,-(sp)
|
---|
106 | jsr _trap13
|
---|
107 | addq.l #2,sp
|
---|
108 | and.l #$7f,R0
|
---|
109 | move.b R0,-2(R14)
|
---|
110 | cmp #13,R0
|
---|
111 | bne L39
|
---|
112 | L38:L37:unlk R14
|
---|
113 | rts
|
---|
114 | .globl _ClusMap
|
---|
115 | .text
|
---|
116 | _ClusMap:
|
---|
117 | ~~ClusMap:
|
---|
118 | ~fcp=8
|
---|
119 | link R14,#-20
|
---|
120 | ~clus=-2
|
---|
121 | ~nc=-4
|
---|
122 | ~alsize=-8
|
---|
123 | ~bused=-12
|
---|
124 | ~bunused=-16
|
---|
125 | *line 108
|
---|
126 | *line 108
|
---|
127 | move.l 8(R14),R8
|
---|
128 | btst #4,32(R8)
|
---|
129 | bne L43
|
---|
130 | *line 109
|
---|
131 | *line 110
|
---|
132 | move #22,_errno
|
---|
133 | *line 111
|
---|
134 | move #-1,R0
|
---|
135 | bra L42
|
---|
136 | *line 112
|
---|
137 | *line 113
|
---|
138 | L43:
|
---|
139 | *line 114
|
---|
140 | clr -4(R14)
|
---|
141 | *line 115
|
---|
142 | move.l 8(R14),R8
|
---|
143 | move 26(R8),(sp)
|
---|
144 | jsr _micons
|
---|
145 | move R0,-2(R14)
|
---|
146 | *line 117
|
---|
147 | *line 117
|
---|
148 | tst -2(R14)
|
---|
149 | beq L44
|
---|
150 | *line 118
|
---|
151 | *line 119
|
---|
152 | *line 120
|
---|
153 | move -2(R14),(sp)
|
---|
154 | move.l 8(R14),-(sp)
|
---|
155 | add.l #8,(sp)
|
---|
156 | move.l 8(R14),-(sp)
|
---|
157 | move.l #L45,-(sp)
|
---|
158 | jsr _printf
|
---|
159 | adda.l #12,sp
|
---|
160 | *line 121
|
---|
161 | move #1,-4(R14)
|
---|
162 | *line 122
|
---|
163 | *line 123
|
---|
164 | bra L48
|
---|
165 | L47:
|
---|
166 | *line 124
|
---|
167 | *line 125
|
---|
168 | move -2(R14),(sp)
|
---|
169 | move.l #__thefat,-(sp)
|
---|
170 | jsr __gtcl12
|
---|
171 | addq.l #4,sp
|
---|
172 | move R0,-2(R14)
|
---|
173 | *line 126
|
---|
174 | *line 127
|
---|
175 | *line 127
|
---|
176 | cmp #4080,-2(R14)
|
---|
177 | bge L49
|
---|
178 | *line 128
|
---|
179 | *line 129
|
---|
180 | add #1,-4(R14)
|
---|
181 | *line 130
|
---|
182 | *line 131
|
---|
183 | *line 132
|
---|
184 | move -4(R14),R0
|
---|
185 | sub #1,R0
|
---|
186 | ext.l R0
|
---|
187 | divs #10,R0
|
---|
188 | swap R0
|
---|
189 | tst R0
|
---|
190 | bne L50
|
---|
191 | *line 132
|
---|
192 | move.l #L51,(sp)
|
---|
193 | jsr _printf
|
---|
194 | *line 133
|
---|
195 | L50:
|
---|
196 | *line 134
|
---|
197 | move -2(R14),(sp)
|
---|
198 | move.l #L52,-(sp)
|
---|
199 | jsr _printf
|
---|
200 | addq.l #4,sp
|
---|
201 | *line 135
|
---|
202 | L49:L48:
|
---|
203 | *line 136
|
---|
204 | cmp #4080,-2(R14)
|
---|
205 | blt L47
|
---|
206 | L46:
|
---|
207 | *line 137
|
---|
208 | *line 138
|
---|
209 | L44:
|
---|
210 | *line 139
|
---|
211 | move.l __thebpb,R8
|
---|
212 | clr R0
|
---|
213 | move 4(R8),R0
|
---|
214 | mulu -4(R14),R0
|
---|
215 | move.l R0,-8(R14)
|
---|
216 | *line 140
|
---|
217 | move.l 8(R14),R8
|
---|
218 | move.l 48(R8),-12(R14)
|
---|
219 | *line 141
|
---|
220 | move.l -8(R14),R0
|
---|
221 | sub.l -12(R14),R0
|
---|
222 | move.l R0,-16(R14)
|
---|
223 | *line 143
|
---|
224 | move.l 8(R14),R8
|
---|
225 | move.l 52(R8),(sp)
|
---|
226 | move -4(R14),-(sp)
|
---|
227 | move.l #L53,-(sp)
|
---|
228 | jsr _printf
|
---|
229 | addq.l #6,sp
|
---|
230 | *line 144
|
---|
231 | move.l -12(R14),(sp)
|
---|
232 | move.l -8(R14),-(sp)
|
---|
233 | move.l #L54,-(sp)
|
---|
234 | jsr _printf
|
---|
235 | addq.l #8,sp
|
---|
236 | *line 146
|
---|
237 | *line 147
|
---|
238 | move.l -8(R14),R0
|
---|
239 | cmp.l -12(R14),R0
|
---|
240 | blt L55
|
---|
241 | *line 147
|
---|
242 | move.l -16(R14),(sp)
|
---|
243 | move.l #L56,-(sp)
|
---|
244 | jsr _printf
|
---|
245 | addq.l #4,sp
|
---|
246 | *line 148
|
---|
247 | L55:
|
---|
248 | *line 149
|
---|
249 | move.l #L57,(sp)
|
---|
250 | jsr _printf
|
---|
251 | *line 151
|
---|
252 | *line 152
|
---|
253 | move.l -12(R14),R0
|
---|
254 | cmp.l -8(R14),R0
|
---|
255 | ble L58
|
---|
256 | *line 152
|
---|
257 | move.l #L59,(sp)
|
---|
258 | jsr _printf
|
---|
259 | *line 153
|
---|
260 | L58:
|
---|
261 | *line 154
|
---|
262 | *line 155
|
---|
263 | move.l 8(R14),R8
|
---|
264 | move.l 52(R8),R0
|
---|
265 | move -4(R14),R8
|
---|
266 | cmp.l R8,R0
|
---|
267 | beq L60
|
---|
268 | *line 156
|
---|
269 | move.l 8(R14),R8
|
---|
270 | move.l 52(R8),(sp)
|
---|
271 | move -4(R14),-(sp)
|
---|
272 | move.l #L61,-(sp)
|
---|
273 | jsr _printf
|
---|
274 | addq.l #6,sp
|
---|
275 | L60:
|
---|
276 | *line 157
|
---|
277 | clr R0
|
---|
278 | bra L42
|
---|
279 | L42:unlk R14
|
---|
280 | rts
|
---|
281 | .globl _FCBmode
|
---|
282 | .text
|
---|
283 | _FCBmode:
|
---|
284 | ~~FCBmode:
|
---|
285 | ~fcp=R13
|
---|
286 | link R14,#0
|
---|
287 | movem.l R5-R7/R13-R13,-(sp)
|
---|
288 | ~mf=R7
|
---|
289 | ~i=R6
|
---|
290 | *line 176
|
---|
291 | move.l 8(R14),R13
|
---|
292 | *line 176
|
---|
293 | move.l #L63,(sp)
|
---|
294 | jsr _printf
|
---|
295 | *line 177
|
---|
296 | move #1,R7
|
---|
297 | *line 179
|
---|
298 | clr R6
|
---|
299 | bra L66
|
---|
300 | L67:
|
---|
301 | *line 180
|
---|
302 | *line 181
|
---|
303 | *line 182
|
---|
304 | clr R0
|
---|
305 | move R7,R0
|
---|
306 | and 32(R13),R0
|
---|
307 | beq L68
|
---|
308 | *line 182
|
---|
309 | move R6,R8
|
---|
310 | add.l R8,R8
|
---|
311 | add.l R8,R8
|
---|
312 | move.l #L1,R9
|
---|
313 | move.l 0(R8,R9.l),(sp)
|
---|
314 | move.l #L69,-(sp)
|
---|
315 | jsr _printf
|
---|
316 | addq.l #4,sp
|
---|
317 | *line 183
|
---|
318 | L68:
|
---|
319 | *line 184
|
---|
320 | lsl R7
|
---|
321 | L65:
|
---|
322 | *line 179
|
---|
323 | add #1,R6
|
---|
324 | L66:
|
---|
325 | *line 179
|
---|
326 | cmp #16,R6
|
---|
327 | blt L67
|
---|
328 | L64:
|
---|
329 | *line 187
|
---|
330 | move.l #L70,(sp)
|
---|
331 | jsr _printf
|
---|
332 | *line 189
|
---|
333 | move #1,R7
|
---|
334 | *line 191
|
---|
335 | clr R6
|
---|
336 | bra L73
|
---|
337 | L74:
|
---|
338 | *line 192
|
---|
339 | *line 193
|
---|
340 | *line 194
|
---|
341 | clr R0
|
---|
342 | move R7,R0
|
---|
343 | move.b 11(R13),R1
|
---|
344 | ext.w R1
|
---|
345 | and R1,R0
|
---|
346 | beq L75
|
---|
347 | *line 194
|
---|
348 | move R6,R8
|
---|
349 | add.l R8,R8
|
---|
350 | add.l R8,R8
|
---|
351 | move.l #L18,R9
|
---|
352 | move.l 0(R8,R9.l),(sp)
|
---|
353 | move.l #L76,-(sp)
|
---|
354 | jsr _printf
|
---|
355 | addq.l #4,sp
|
---|
356 | *line 195
|
---|
357 | L75:
|
---|
358 | *line 196
|
---|
359 | lsl R7
|
---|
360 | L72:
|
---|
361 | *line 191
|
---|
362 | add #1,R6
|
---|
363 | L73:
|
---|
364 | *line 191
|
---|
365 | cmp #8,R6
|
---|
366 | blt L74
|
---|
367 | L71:
|
---|
368 | *line 199
|
---|
369 | move.l #L77,(sp)
|
---|
370 | jsr _printf
|
---|
371 | *line 200
|
---|
372 | move.l R13,R0
|
---|
373 | bra L62
|
---|
374 | L62:tst.l (sp)+
|
---|
375 | movem.l (sp)+,R6-R7/R13-R13
|
---|
376 | unlk R14
|
---|
377 | rts
|
---|
378 | .globl _SnapFCB
|
---|
379 | .text
|
---|
380 | _SnapFCB:
|
---|
381 | ~~SnapFCB:
|
---|
382 | ~fcp=R13
|
---|
383 | link R14,#0
|
---|
384 | movem.l R7-R7/R13-R13,-(sp)
|
---|
385 | *line 217
|
---|
386 | move.l 8(R14),R13
|
---|
387 | *line 218
|
---|
388 | move.l R13,(sp)
|
---|
389 | add.l #8,(sp)
|
---|
390 | move.l R13,-(sp)
|
---|
391 | move.l R13,-(sp)
|
---|
392 | move.l #L79,-(sp)
|
---|
393 | jsr _printf
|
---|
394 | adda.l #12,sp
|
---|
395 | *line 219
|
---|
396 | move.l R13,(sp)
|
---|
397 | jsr _FCBmode
|
---|
398 | *line 221
|
---|
399 | move.b 11(R13),R0
|
---|
400 | ext.w R0
|
---|
401 | move R0,(sp)
|
---|
402 | move.l #L80,-(sp)
|
---|
403 | jsr _printf
|
---|
404 | addq.l #4,sp
|
---|
405 | *line 222
|
---|
406 | move 32(R13),(sp)
|
---|
407 | move.l #L81,-(sp)
|
---|
408 | jsr _printf
|
---|
409 | addq.l #4,sp
|
---|
410 | *line 224
|
---|
411 | move 22(R13),(sp)
|
---|
412 | jsr _micons
|
---|
413 | move R0,(sp)
|
---|
414 | move.l #L82,-(sp)
|
---|
415 | jsr _printf
|
---|
416 | addq.l #4,sp
|
---|
417 | *line 225
|
---|
418 | move 24(R13),(sp)
|
---|
419 | jsr _micons
|
---|
420 | move R0,(sp)
|
---|
421 | move.l #L83,-(sp)
|
---|
422 | jsr _printf
|
---|
423 | addq.l #4,sp
|
---|
424 | *line 227
|
---|
425 | move.l 52(R13),(sp)
|
---|
426 | move.l #L84,-(sp)
|
---|
427 | jsr _printf
|
---|
428 | addq.l #4,sp
|
---|
429 | *line 228
|
---|
430 | move.l 28(R13),(sp)
|
---|
431 | jsr _miconl
|
---|
432 | move.l R0,(sp)
|
---|
433 | move.l #L85,-(sp)
|
---|
434 | jsr _printf
|
---|
435 | addq.l #4,sp
|
---|
436 | *line 229
|
---|
437 | move.l 48(R13),(sp)
|
---|
438 | move.l #L86,-(sp)
|
---|
439 | jsr _printf
|
---|
440 | addq.l #4,sp
|
---|
441 | *line 231
|
---|
442 | move 26(R13),(sp)
|
---|
443 | jsr _micons
|
---|
444 | move R0,(sp)
|
---|
445 | move.l #L87,-(sp)
|
---|
446 | jsr _printf
|
---|
447 | addq.l #4,sp
|
---|
448 | *line 232
|
---|
449 | move 36(R13),(sp)
|
---|
450 | move.l #L88,-(sp)
|
---|
451 | jsr _printf
|
---|
452 | addq.l #4,sp
|
---|
453 | *line 233
|
---|
454 | move 34(R13),(sp)
|
---|
455 | move.l #L89,-(sp)
|
---|
456 | jsr _printf
|
---|
457 | addq.l #4,sp
|
---|
458 | *line 235
|
---|
459 | move.l 40(R13),(sp)
|
---|
460 | move.l #L90,-(sp)
|
---|
461 | jsr _printf
|
---|
462 | addq.l #4,sp
|
---|
463 | *line 236
|
---|
464 | move.l 44(R13),(sp)
|
---|
465 | move.l #L91,-(sp)
|
---|
466 | jsr _printf
|
---|
467 | addq.l #4,sp
|
---|
468 | *line 237
|
---|
469 | move 38(R13),(sp)
|
---|
470 | move.l #L92,-(sp)
|
---|
471 | jsr _printf
|
---|
472 | addq.l #4,sp
|
---|
473 | *line 239
|
---|
474 | move.l #L93,(sp)
|
---|
475 | jsr _printf
|
---|
476 | *line 240
|
---|
477 | move.l R13,R0
|
---|
478 | bra L78
|
---|
479 | L78:tst.l (sp)+
|
---|
480 | movem.l (sp)+,R13-R13
|
---|
481 | unlk R14
|
---|
482 | rts
|
---|
483 | .globl _MapFAT
|
---|
484 | .text
|
---|
485 | _MapFAT:
|
---|
486 | ~~MapFAT:
|
---|
487 | ~fat=R13
|
---|
488 | ~ncl=12
|
---|
489 | ~stops=14
|
---|
490 | link R14,#0
|
---|
491 | movem.l R6-R7/R13-R13,-(sp)
|
---|
492 | ~i=R7
|
---|
493 | *line 258
|
---|
494 | move.l 8(R14),R13
|
---|
495 | *line 259
|
---|
496 | move 12(R14),(sp)
|
---|
497 | move.l R13,-(sp)
|
---|
498 | move.l #L95,-(sp)
|
---|
499 | jsr _printf
|
---|
500 | addq.l #8,sp
|
---|
501 | *line 260
|
---|
502 | move.l #L96,(sp)
|
---|
503 | jsr _printf
|
---|
504 | *line 262
|
---|
505 | move #2,R7
|
---|
506 | bra L99
|
---|
507 | L100:
|
---|
508 | *line 263
|
---|
509 | *line 264
|
---|
510 | *line 265
|
---|
511 | move R7,R0
|
---|
512 | ext.l R0
|
---|
513 | divs #10,R0
|
---|
514 | swap R0
|
---|
515 | tst R0
|
---|
516 | bne L101
|
---|
517 | *line 265
|
---|
518 | move R7,(sp)
|
---|
519 | move.l #L102,-(sp)
|
---|
520 | jsr _printf
|
---|
521 | addq.l #4,sp
|
---|
522 | *line 266
|
---|
523 | L101:
|
---|
524 | *line 267
|
---|
525 | move R7,(sp)
|
---|
526 | move.l R13,-(sp)
|
---|
527 | jsr __gtcl12
|
---|
528 | addq.l #4,sp
|
---|
529 | move R0,(sp)
|
---|
530 | move.l #L103,-(sp)
|
---|
531 | jsr _printf
|
---|
532 | addq.l #4,sp
|
---|
533 | *line 268
|
---|
534 | *line 269
|
---|
535 | *line 270
|
---|
536 | *line 271
|
---|
537 | *line 272
|
---|
538 | tst 14(R14)
|
---|
539 | beq L104
|
---|
540 | move R7,R0
|
---|
541 | ext.l R0
|
---|
542 | divs #10,R0
|
---|
543 | ext.l R0
|
---|
544 | divs #10,R0
|
---|
545 | swap R0
|
---|
546 | tst R0
|
---|
547 | bne L104
|
---|
548 | *line 272
|
---|
549 | jsr _waitcr
|
---|
550 | L104:L98:
|
---|
551 | *line 262
|
---|
552 | add #1,R7
|
---|
553 | L99:
|
---|
554 | *line 262
|
---|
555 | cmp 12(R14),R7
|
---|
556 | blt L100
|
---|
557 | L97:
|
---|
558 | *line 275
|
---|
559 | move.l #L105,(sp)
|
---|
560 | jsr _printf
|
---|
561 | L94:tst.l (sp)+
|
---|
562 | movem.l (sp)+,R7-R7/R13-R13
|
---|
563 | unlk R14
|
---|
564 | rts
|
---|
565 | .globl _FILEfl
|
---|
566 | .text
|
---|
567 | _FILEfl:
|
---|
568 | ~~FILEfl:
|
---|
569 | ~fp=8
|
---|
570 | link R14,#0
|
---|
571 | movem.l R5-R7,-(sp)
|
---|
572 | ~mf=R7
|
---|
573 | ~i=R6
|
---|
574 | *line 294
|
---|
575 | move.l #L107,(sp)
|
---|
576 | jsr _printf
|
---|
577 | *line 295
|
---|
578 | move #1,R7
|
---|
579 | *line 297
|
---|
580 | clr R6
|
---|
581 | bra L110
|
---|
582 | L111:
|
---|
583 | *line 298
|
---|
584 | *line 299
|
---|
585 | *line 300
|
---|
586 | clr R0
|
---|
587 | move R7,R0
|
---|
588 | move.l 8(R14),R9
|
---|
589 | move.b 12(R9),R1
|
---|
590 | ext.w R1
|
---|
591 | and R1,R0
|
---|
592 | beq L112
|
---|
593 | *line 300
|
---|
594 | move R6,R8
|
---|
595 | add.l R8,R8
|
---|
596 | add.l R8,R8
|
---|
597 | move.l #L27,R9
|
---|
598 | move.l 0(R8,R9.l),(sp)
|
---|
599 | move.l #L113,-(sp)
|
---|
600 | jsr _printf
|
---|
601 | addq.l #4,sp
|
---|
602 | *line 301
|
---|
603 | L112:
|
---|
604 | *line 302
|
---|
605 | lsl R7
|
---|
606 | L109:
|
---|
607 | *line 297
|
---|
608 | add #1,R6
|
---|
609 | L110:
|
---|
610 | *line 297
|
---|
611 | cmp #8,R6
|
---|
612 | blt L111
|
---|
613 | L108:
|
---|
614 | *line 305
|
---|
615 | move.l #L114,(sp)
|
---|
616 | jsr _printf
|
---|
617 | *line 306
|
---|
618 | move.l 8(R14),R0
|
---|
619 | bra L106
|
---|
620 | L106:tst.l (sp)+
|
---|
621 | movem.l (sp)+,R6-R7
|
---|
622 | unlk R14
|
---|
623 | rts
|
---|
624 | .globl _FILEpr
|
---|
625 | .text
|
---|
626 | _FILEpr:
|
---|
627 | ~~FILEpr:
|
---|
628 | ~fp=8
|
---|
629 | link R14,#-26
|
---|
630 | ~arg=-4
|
---|
631 | ~ft=-6
|
---|
632 | ~ds=-10
|
---|
633 | ~fsn=-14
|
---|
634 | ~fse=-18
|
---|
635 | ~fcp=-22
|
---|
636 | *line 325
|
---|
637 | *line 325
|
---|
638 | tst.l 8(R14)
|
---|
639 | bne L116
|
---|
640 | *line 326
|
---|
641 | *line 327
|
---|
642 | move.l #L117,(sp)
|
---|
643 | jsr _printf
|
---|
644 | bra L115
|
---|
645 | *line 328
|
---|
646 | *line 329
|
---|
647 | *line 330
|
---|
648 | *line 331
|
---|
649 | L116:
|
---|
650 | *line 332
|
---|
651 | move.l 8(R14),(sp)
|
---|
652 | move.l #L118,-(sp)
|
---|
653 | jsr _printf
|
---|
654 | addq.l #4,sp
|
---|
655 | *line 334
|
---|
656 | move.l 8(R14),R8
|
---|
657 | move.b 13(R8),R0
|
---|
658 | ext.w R0
|
---|
659 | muls #12,R0
|
---|
660 | add.l #_chantab,R0
|
---|
661 | move.l R0,R8
|
---|
662 | move.l 4(R8),-4(R14)
|
---|
663 | *line 335
|
---|
664 | clr -6(R14)
|
---|
665 | *line 337
|
---|
666 | *line 337
|
---|
667 | move.l -4(R14),R0
|
---|
668 | cmp.l #__noper,R0
|
---|
669 | bne L119
|
---|
670 | *line 338
|
---|
671 | *line 339
|
---|
672 | move.l 8(R14),R8
|
---|
673 | move.b 13(R8),R0
|
---|
674 | ext.w R0
|
---|
675 | muls #12,R0
|
---|
676 | move.l R0,R8
|
---|
677 | move.l #_chantab,R9
|
---|
678 | move.l 8(R8,R9.l),R8
|
---|
679 | move.l (R8),-10(R14)
|
---|
680 | *line 340
|
---|
681 | move.l -10(R14),(sp)
|
---|
682 | move.l #L120,-(sp)
|
---|
683 | jsr _printf
|
---|
684 | addq.l #4,sp
|
---|
685 | *line 341
|
---|
686 | bra L121
|
---|
687 | L119:
|
---|
688 | *line 342
|
---|
689 | *line 342
|
---|
690 | move.l -4(R14),R0
|
---|
691 | cmp.l #__filecl,R0
|
---|
692 | bne L122
|
---|
693 | *line 343
|
---|
694 | *line 344
|
---|
695 | move #1,-6(R14)
|
---|
696 | *line 345
|
---|
697 | move.l 8(R14),R8
|
---|
698 | move.b 13(R8),R0
|
---|
699 | ext.w R0
|
---|
700 | muls #12,R0
|
---|
701 | add.l #_chantab,R0
|
---|
702 | move.l R0,R8
|
---|
703 | move.l 8(R8),-22(R14)
|
---|
704 | *line 346
|
---|
705 | move.l -22(R14),-14(R14)
|
---|
706 | *line 347
|
---|
707 | move.l -22(R14),R0
|
---|
708 | add.l #8,R0
|
---|
709 | move.l R0,-18(R14)
|
---|
710 | *line 348
|
---|
711 | *line 349
|
---|
712 | move.l -22(R14),(sp)
|
---|
713 | move.l -18(R14),-(sp)
|
---|
714 | move.l -14(R14),-(sp)
|
---|
715 | move.l #L123,-(sp)
|
---|
716 | jsr _printf
|
---|
717 | adda.l #12,sp
|
---|
718 | *line 350
|
---|
719 | bra L124
|
---|
720 | L122:
|
---|
721 | *line 351
|
---|
722 | *line 352
|
---|
723 | *line 353
|
---|
724 | *line 354
|
---|
725 | move.l 8(R14),R8
|
---|
726 | move.b 13(R8),R0
|
---|
727 | ext.w R0
|
---|
728 | muls #12,R0
|
---|
729 | move.l R0,R8
|
---|
730 | move.l #_chantab,R9
|
---|
731 | move.l 8(R8,R9.l),(sp)
|
---|
732 | move.l -4(R14),-(sp)
|
---|
733 | move.l #L125,-(sp)
|
---|
734 | jsr _printf
|
---|
735 | addq.l #8,sp
|
---|
736 | L124:L121:
|
---|
737 | *line 357
|
---|
738 | *line 358
|
---|
739 | move.l 8(R14),R8
|
---|
740 | move 16(R8),(sp)
|
---|
741 | move.l 8(R14),R8
|
---|
742 | move.l 4(R8),-(sp)
|
---|
743 | move.l 8(R14),R8
|
---|
744 | move.l (R8),-(sp)
|
---|
745 | move.l 8(R14),R8
|
---|
746 | move.l 8(R8),-(sp)
|
---|
747 | move.l #L126,-(sp)
|
---|
748 | jsr _printf
|
---|
749 | adda.l #16,sp
|
---|
750 | *line 359
|
---|
751 | *line 360
|
---|
752 | move.l 8(R14),R8
|
---|
753 | move.b 14(R8),R0
|
---|
754 | ext.w R0
|
---|
755 | move R0,(sp)
|
---|
756 | move.l 8(R14),R8
|
---|
757 | move.b 13(R8),R0
|
---|
758 | ext.w R0
|
---|
759 | move R0,-(sp)
|
---|
760 | move.l 8(R14),R8
|
---|
761 | move.b 12(R8),R0
|
---|
762 | ext.w R0
|
---|
763 | move R0,-(sp)
|
---|
764 | move.l #L127,-(sp)
|
---|
765 | jsr _printf
|
---|
766 | addq.l #8,sp
|
---|
767 | *line 362
|
---|
768 | move.l 8(R14),(sp)
|
---|
769 | jsr _FILEfl
|
---|
770 | *line 364
|
---|
771 | *line 365
|
---|
772 | tst -6(R14)
|
---|
773 | beq L128
|
---|
774 | *line 365
|
---|
775 | move.l -22(R14),(sp)
|
---|
776 | jsr _SnapFCB
|
---|
777 | *line 366
|
---|
778 | bra L129
|
---|
779 | L128:
|
---|
780 | *line 367
|
---|
781 | move.l #L130,(sp)
|
---|
782 | jsr _printf
|
---|
783 | L129:L115:unlk R14
|
---|
784 | rts
|
---|
785 | .globl _fd2fcb
|
---|
786 | .text
|
---|
787 | _fd2fcb:
|
---|
788 | ~~fd2fcb:
|
---|
789 | ~fd=8
|
---|
790 | link R14,#-4
|
---|
791 | *line 383
|
---|
792 | *line 384
|
---|
793 | tst 8(R14)
|
---|
794 | blt L10000
|
---|
795 | cmp #11,8(R14)
|
---|
796 | ble L132
|
---|
797 | L10000:*line 384
|
---|
798 | clr.l R0
|
---|
799 | bra L131
|
---|
800 | *line 385
|
---|
801 | L132:
|
---|
802 | *line 386
|
---|
803 | move 8(R14),R0
|
---|
804 | muls #12,R0
|
---|
805 | move.l R0,R8
|
---|
806 | move.l #_chantab,R9
|
---|
807 | move.l 8(R8,R9.l),R0
|
---|
808 | bra L131
|
---|
809 | L131:unlk R14
|
---|
810 | rts
|
---|
811 | .globl _fp2fcb
|
---|
812 | .text
|
---|
813 | _fp2fcb:
|
---|
814 | ~~fp2fcb:
|
---|
815 | ~fp=8
|
---|
816 | link R14,#-4
|
---|
817 | *line 399
|
---|
818 | *line 400
|
---|
819 | tst.l 8(R14)
|
---|
820 | bne L134
|
---|
821 | *line 400
|
---|
822 | clr.l R0
|
---|
823 | bra L133
|
---|
824 | *line 401
|
---|
825 | L134:
|
---|
826 | *line 402
|
---|
827 | move.l 8(R14),R8
|
---|
828 | move.b 13(R8),R0
|
---|
829 | ext.w R0
|
---|
830 | muls #12,R0
|
---|
831 | move.l R0,R8
|
---|
832 | move.l #_chantab,R9
|
---|
833 | move.l 8(R8,R9.l),R0
|
---|
834 | bra L133
|
---|
835 | L133:unlk R14
|
---|
836 | rts
|
---|
837 | .data
|
---|
838 | L2:.dc.b $3F,$44,$30,$0
|
---|
839 | L3:.dc.b $3F,$44,$31,$0
|
---|
840 | L4:.dc.b $3F,$44,$32,$0
|
---|
841 | L5:.dc.b $3F,$44,$33,$0
|
---|
842 | L6:.dc.b $42,$46,$20,$0
|
---|
843 | L7:.dc.b $4E,$42,$20,$0
|
---|
844 | L8:.dc.b $54,$52,$20,$0
|
---|
845 | L9:.dc.b $45,$58,$20,$0
|
---|
846 | L10:.dc.b $52,$44,$20,$0
|
---|
847 | L11:.dc.b $57,$52,$20,$0
|
---|
848 | L12:.dc.b $41,$50,$20,$0
|
---|
849 | L13:.dc.b $43,$52,$20,$0
|
---|
850 | L14:.dc.b $4F,$50,$4E,$0
|
---|
851 | L15:.dc.b $45,$52,$52,$0
|
---|
852 | L16:.dc.b $42,$41,$44,$0
|
---|
853 | L17:.dc.b $45,$4F,$46,$0
|
---|
854 | L19:.dc.b $52,$44,$4F,$4E,$4C,$59,$0
|
---|
855 | L20:.dc.b $48,$49,$44,$44,$45,$4E,$0
|
---|
856 | L21:.dc.b $53,$59,$53,$54,$45,$4D,$0
|
---|
857 | L22:.dc.b $56,$4F,$4C,$55,$4D,$45,$0
|
---|
858 | L23:.dc.b $53,$55,$42,$44,$49,$52,$0
|
---|
859 | L24:.dc.b $41,$52,$43,$48,$49,$56,$0
|
---|
860 | L25:.dc.b $3F,$3F,$44,$36,$3F,$3F,$0
|
---|
861 | L26:.dc.b $3F,$3F,$44,$37,$3F,$3F,$0
|
---|
862 | L28:.dc.b $42,$55,$53,$59,$20,$20,$0
|
---|
863 | L29:.dc.b $41,$4C,$4C,$42,$55,$46,$0
|
---|
864 | L30:.dc.b $44,$49,$52,$54,$59,$20,$0
|
---|
865 | L31:.dc.b $45,$4F,$46,$20,$20,$20,$0
|
---|
866 | L32:.dc.b $49,$4F,$45,$52,$52,$20,$0
|
---|
867 | L33:.dc.b $3F,$3F,$44,$35,$3F,$3F,$0
|
---|
868 | L34:.dc.b $3F,$3F,$44,$36,$3F,$3F,$0
|
---|
869 | L35:.dc.b $3F,$3F,$44,$37,$3F,$3F,$0
|
---|
870 | L45:.dc.b $41,$6C,$6C,$6F,$63,$61,$74,$65,$64,$20,$63,$6C,$75,$73,$74,$65,$72,$20,$63,$68,$61,$69,$6E,$20,$66,$6F,$72,$20,$5B,$25
|
---|
871 | .dc.b $2D,$38,$2E,$38,$73,$5D,$2E,$5B,$25,$2D,$33,$2E,$33,$73,$5D,$3A,$A,$25,$36,$64,$0
|
---|
872 | L51:.dc.b $A,$0
|
---|
873 | L52:.dc.b $25,$36,$64,$0
|
---|
874 | L53:.dc.b $A,$46,$41,$54,$20,$63,$6C,$75,$73,$74,$65,$72,$20,$63,$6F,$75,$6E,$74,$3D,$25,$64,$2C,$20,$61,$73,$65,$63,$74,$73,$3D
|
---|
875 | .dc.b $25,$6C,$64,$A,$0
|
---|
876 | L54:.dc.b $25,$6C,$64,$20,$62,$79,$74,$65,$73,$20,$61,$6C,$6C,$6F,$63,$61,$74,$65,$64,$2C,$20,$25,$6C,$64,$20,$62,$79,$74,$65,$73
|
---|
877 | .dc.b $20,$75,$73,$65,$64,$0
|
---|
878 | L56:.dc.b $2C,$20,$25,$6C,$64,$20,$62,$79,$74,$65,$73,$20,$75,$6E,$75,$73,$65,$64,$0
|
---|
879 | L57:.dc.b $A,$0
|
---|
880 | L59:.dc.b $45,$52,$52,$4F,$52,$3A,$20,$20,$64,$69,$72,$65,$63,$74,$6F,$72,$79,$20,$66,$69,$6C,$65,$20,$73,$69,$7A,$65,$20,$65,$78
|
---|
881 | .dc.b $63,$65,$65,$64,$73,$20,$46,$41,$54,$20,$61,$6C,$6C,$6F,$63,$61,$74,$69,$6F,$6E,$A,$0
|
---|
882 | L61:.dc.b $45,$52,$52,$4F,$52,$3A,$20,$20,$46,$41,$54,$20,$63,$6C,$75,$73,$74,$65,$72,$20,$63,$6F,$75,$6E,$74,$20,$28,$25,$64,$29
|
---|
883 | .dc.b $20,$4E,$45,$20,$46,$43,$42,$20,$63,$6C,$75,$73,$74,$65,$72,$20,$63,$6F,$75,$6E,$74,$20,$28,$25,$6C,$64,$29,$A,$0
|
---|
884 | L63:.dc.b $20,$20,$66,$6C,$61,$67,$73,$3A,$20,$20,$0
|
---|
885 | L69:.dc.b $25,$73,$20,$0
|
---|
886 | L70:.dc.b $A,$20,$20,$61,$74,$72,$69,$62,$3A,$20,$20,$0
|
---|
887 | L76:.dc.b $25,$73,$20,$0
|
---|
888 | L77:.dc.b $A,$0
|
---|
889 | L79:.dc.b $A,$46,$43,$42,$20,$61,$74,$20,$30,$78,$25,$30,$38,$6C,$78,$3A,$20,$20,$5B,$25,$2D,$38,$2E,$38,$73,$5D,$2E,$5B,$25,$2D
|
---|
890 | .dc.b $33,$2E,$33,$73,$5D,$A,$0
|
---|
891 | L80:.dc.b $20,$20,$61,$74,$72,$69,$62,$20,$20,$20,$20,$20,$20,$30,$78,$25,$30,$34,$78,$0
|
---|
892 | L81:.dc.b $20,$20,$6D,$6F,$64,$65,$66,$6C,$20,$20,$20,$20,$20,$30,$78,$25,$30,$34,$78,$A,$0
|
---|
893 | L82:.dc.b $20,$20,$63,$72,$74,$69,$6D,$65,$20,$20,$20,$20,$20,$30,$78,$25,$30,$34,$78,$0
|
---|
894 | L83:.dc.b $20,$20,$63,$72,$64,$61,$74,$65,$20,$20,$20,$20,$20,$30,$78,$25,$30,$34,$78,$A,$0
|
---|
895 | L84:.dc.b $20,$20,$61,$73,$65,$63,$74,$73,$20,$20,$20,$25,$38,$6C,$64,$0
|
---|
896 | L85:.dc.b $20,$20,$66,$6C,$65,$6E,$20,$20,$20,$20,$20,$25,$38,$6C,$64,$0
|
---|
897 | L86:.dc.b $20,$20,$63,$75,$72,$6C,$65,$6E,$20,$20,$20,$25,$38,$6C,$64,$A,$0
|
---|
898 | L87:.dc.b $20,$20,$62,$63,$6C,$75,$73,$74,$20,$20,$20,$25,$38,$64,$0
|
---|
899 | L88:.dc.b $20,$20,$63,$75,$72,$63,$6C,$73,$20,$20,$20,$25,$38,$64,$0
|
---|
900 | L89:.dc.b $20,$20,$63,$6C,$73,$65,$63,$20,$20,$20,$20,$25,$38,$64,$A,$0
|
---|
901 | L90:.dc.b $20,$20,$63,$75,$72,$6C,$73,$6E,$20,$20,$20,$25,$38,$6C,$64,$0
|
---|
902 | L91:.dc.b $20,$20,$63,$75,$72,$64,$73,$6E,$20,$20,$20,$25,$38,$6C,$64,$0
|
---|
903 | L92:.dc.b $20,$20,$6F,$66,$66,$73,$65,$74,$20,$20,$20,$25,$38,$64,$A,$0
|
---|
904 | L93:.dc.b $A,$0
|
---|
905 | L95:.dc.b $A,$43,$6C,$75,$73,$74,$65,$72,$20,$64,$75,$6D,$70,$20,$6F,$66,$20,$46,$41,$54,$20,$61,$74,$20,$30,$78,$25,$30,$38,$2E
|
---|
906 | .dc.b $38,$6C,$78,$20,$20,$28,$25,$64,$20,$65,$6E,$74,$72,$69,$65,$73,$29,$3A,$A,$0
|
---|
907 | L96:.dc.b $20,$20,$20,$30,$3A,$20,$2E,$2E,$2E,$2E,$20,$2E,$2E,$2E,$2E,$20,$0
|
---|
908 | L102:.dc.b $A,$25,$34,$2E,$34,$64,$3A,$20,$0
|
---|
909 | L103:.dc.b $25,$34,$2E,$34,$64,$20,$0
|
---|
910 | L105:.dc.b $A,$0
|
---|
911 | L107:.dc.b $20,$20,$5F,$66,$6C,$61,$67,$73,$3A,$20,$20,$0
|
---|
912 | L113:.dc.b $25,$73,$20,$0
|
---|
913 | L114:.dc.b $A,$0
|
---|
914 | L117:.dc.b $46,$49,$4C,$45,$70,$72,$28,$29,$3A,$20,$20,$45,$52,$52,$4F,$52,$20,$2D,$20,$61,$72,$67,$75,$6D,$65,$6E,$74,$20,$77,$61
|
---|
915 | .dc.b $73,$20,$4E,$55,$4C,$4C,$A,$0
|
---|
916 | L118:.dc.b $A,$46,$49,$4C,$45,$20,$61,$74,$20,$24,$25,$30,$38,$2E,$38,$6C,$58,$0
|
---|
917 | L120:.dc.b $20,$69,$73,$20,$61,$20,$64,$65,$76,$69,$63,$65,$3A,$20,$20,$5B,$25,$73,$5D,$A,$0
|
---|
918 | L123:.dc.b $20,$69,$73,$20,$61,$20,$64,$69,$73,$6B,$20,$66,$69,$6C,$65,$3A,$20,$20,$5B,$25,$38,$2E,$38,$73,$5D,$2E,$5B,$25,$33,$2E
|
---|
919 | .dc.b $33,$73,$5D,$2C,$20,$20,$66,$63,$62,$20,$61,$74,$20,$24,$25,$30,$38,$2E,$38,$6C,$58,$A,$0
|
---|
920 | L125:.dc.b $20,$69,$73,$20,$6F,$66,$20,$55,$4E,$4B,$4E,$4F,$57,$4E,$20,$74,$79,$70,$65,$3A,$20,$63,$5F,$63,$6C,$6F,$73,$65,$3D,$24
|
---|
921 | .dc.b $25,$30,$38,$2E,$38,$6C,$58,$2C,$20,$63,$5F,$61,$72,$67,$3D,$24,$25,$30,$38,$2E,$38,$6C,$58,$A,$0
|
---|
922 | L126:.dc.b $20,$20,$5F,$62,$75,$66,$66,$3D,$24,$25,$30,$38,$2E,$38,$6C,$58,$2C,$20,$5F,$62,$70,$3D,$24,$25,$30,$38,$2E,$38,$6C,$58
|
---|
923 | .dc.b $2C,$20,$5F,$62,$65,$6E,$64,$3D,$24,$25,$30,$38,$2E,$38,$6C,$58,$2C,$20,$5F,$62,$75,$66,$6C,$65,$6E,$3D,$25,$75,$A,$0
|
---|
924 | L127:.dc.b $20,$20,$5F,$66,$6C,$61,$67,$73,$3D,$24,$25,$30,$34,$2E,$34,$58,$2C,$20,$5F,$75,$6E,$69,$74,$3D,$25,$64,$2C,$20,$5F,$62
|
---|
925 | .dc.b $79,$74,$62,$75,$66,$3D,$24,$25,$30,$32,$2E,$32,$58,$A,$0
|
---|
926 | L130:.dc.b $A,$0
|
---|