source:
buchla-68k/alcyon/ptwrite.s@
16badfe
Last change on this file since 16badfe was 7bf3856, checked in by , 7 years ago | |
---|---|
|
|
File size: 14.7 KB |
Rev | Line | |
---|---|---|
[7bf3856] | 1 | .globl _Cbuffs |
2 | .globl _Stdbufs | |
3 | .globl _Stdbuf | |
4 | .globl _io_time | |
5 | .globl _io_lcd | |
6 | .globl _io_ser | |
7 | .globl _io_midi | |
8 | .globl _io_disk | |
9 | .globl _io_tone | |
10 | .globl _io_leds | |
11 | .globl _io_kbrd | |
12 | .globl _lcd_a0 | |
13 | .globl _lcd_a1 | |
14 | .globl _io_vreg | |
15 | .globl _io_vraw | |
16 | .globl _io_vram | |
17 | .globl _io_fpu | |
18 | .globl _v_regs | |
19 | .globl _v_odtab | |
20 | .globl _v_actab | |
21 | .globl _v_ct0 | |
22 | .globl _v_gt1 | |
23 | .globl _v_score | |
24 | .globl _v_cgtab | |
25 | .globl _v_curs0 | |
26 | .globl _v_curs1 | |
27 | .globl _v_curs2 | |
28 | .globl _v_curs3 | |
29 | .globl _v_curs4 | |
30 | .globl _v_curs5 | |
31 | .globl _v_curs6 | |
32 | .globl _v_curs7 | |
33 | .globl _v_tcur | |
34 | .globl _v_kbobj | |
35 | .globl _v_lnobj | |
36 | .globl _v_win0 | |
37 | .globl _v_cur | |
38 | .globl _fc_sw | |
39 | .globl _fc_val | |
40 | .globl _stmptr | |
41 | .globl _defptr | |
42 | .globl _patches | |
43 | .globl _defents | |
44 | .globl _seqtab | |
45 | .globl _seqflag | |
46 | .globl _seqline | |
47 | .globl _seqstim | |
48 | .globl _seqtime | |
49 | .globl _sregval | |
50 | .globl _trstate | |
51 | .globl _filecat | |
52 | .globl _ptsizes | |
53 | .data | |
54 | _ptsizes: | |
55 | .dc.b $0 | |
56 | .dc.b $4 | |
57 | .dc.b $4 | |
58 | .dc.b $3 | |
59 | .dc.b $3 | |
60 | .dc.b $4 | |
61 | .dc.b $3 | |
62 | .dc.b $2 | |
63 | .dc.b $4 | |
64 | .dc.b $4 | |
65 | .dc.b $3 | |
66 | .dc.b $6 | |
67 | .dc.b $3 | |
68 | .dc.b $3 | |
69 | .dc.b $3 | |
70 | .dc.b $5 | |
71 | .dc.b $6 | |
72 | .dc.b $6 | |
73 | .dc.b $5 | |
74 | .dc.b $5 | |
75 | .dc.b $5 | |
76 | .dc.b $5 | |
77 | .dc.b $4 | |
78 | .dc.b $4 | |
79 | .dc.b $4 | |
80 | .dc.b $4 | |
81 | .dc.b $5 | |
82 | .even | |
83 | .globl _ptsizer | |
84 | .text | |
85 | _ptsizer: | |
86 | ~~ptsizer: | |
87 | link R14,#0 | |
88 | movem.l R5-R7,-(sp) | |
89 | ~pp=R7 | |
90 | ~nb=R6 | |
91 | *line 84 | |
92 | clr.l R6 | |
93 | *line 86 | |
94 | *line 86 | |
95 | jsr _find1st | |
96 | move R0,R7 | |
97 | beq L2 | |
98 | *line 87 | |
99 | *line 88 | |
100 | bra L5 | |
101 | L4: | |
102 | *line 89 | |
103 | *line 90 | |
104 | move R7,R0 | |
105 | asl #4,R0 | |
106 | ext.l R0 | |
107 | move.l R0,R8 | |
108 | move.l #_patches,R9 | |
109 | clr R0 | |
110 | move 8(R8,R9.l),R0 | |
111 | and #255,R0 | |
112 | move R0,R8 | |
113 | move.l #_ptsizes,R9 | |
114 | move.b 0(R8,R9.l),R0 | |
115 | ext.w R0 | |
116 | add #4,R0 | |
117 | ext.l R0 | |
118 | add.l R0,R6 | |
119 | *line 91 | |
120 | move R7,(sp) | |
121 | jsr _findnxt | |
122 | move R0,R7 | |
123 | L5: | |
124 | *line 92 | |
125 | tst R7 | |
126 | bne L4 | |
127 | L3: | |
128 | *line 93 | |
129 | *line 94 | |
130 | L2: | |
131 | *line 95 | |
132 | *line 96 | |
133 | tst.l R6 | |
134 | beq L6 | |
135 | *line 96 | |
136 | add.l #$1,R6 | |
137 | *line 97 | |
138 | *line 101 | |
139 | *line 102 | |
140 | L6: | |
141 | *line 103 | |
142 | move.l R6,R0 | |
143 | bra L1 | |
144 | L1:tst.l (sp)+ | |
145 | movem.l (sp)+,R6-R7 | |
146 | unlk R14 | |
147 | rts | |
148 | .globl _ptwrite | |
149 | .text | |
150 | _ptwrite: | |
151 | ~~ptwrite: | |
152 | ~fp=R13 | |
153 | link R14,#-4 | |
154 | movem.l R6-R7/R13-R13,-(sp) | |
155 | ~pp=R7 | |
156 | ~cb=-2 | |
157 | ~zero=-4 | |
158 | *line 127 | |
159 | move.l 8(R14),R13 | |
160 | *line 127 | |
161 | clr.b -4(R14) | |
162 | *line 129 | |
163 | *line 130 | |
164 | move #9,(sp) | |
165 | move #12,-(sp) | |
166 | move.l #L9,-(sp) | |
167 | clr.l -(sp) | |
168 | move.l #L8,-(sp) | |
169 | jsr _ldwmsg | |
170 | adda.l #14,sp | |
171 | *line 132 | |
172 | *line 132 | |
173 | jsr _find1st | |
174 | move R0,R7 | |
175 | beq L10 | |
176 | *line 133 | |
177 | *line 134 | |
178 | bra L13 | |
179 | L12: | |
180 | *line 135 | |
181 | *line 144 | |
182 | *line 145 | |
183 | *line 146 | |
184 | move R7,R0 | |
185 | asl #4,R0 | |
186 | ext.l R0 | |
187 | move.l R0,R8 | |
188 | move.l #_patches,R9 | |
189 | clr R0 | |
190 | move 8(R8,R9.l),R0 | |
191 | and #255,R0 | |
192 | move.b R0,-2(R14) | |
193 | bra L15 | |
194 | *line 147 | |
195 | L16: | |
196 | *line 148 | |
197 | L17: | |
198 | *line 149 | |
199 | *line 150 | |
200 | *line 151 | |
201 | *line 152 | |
202 | move.l #$1,(sp) | |
203 | move.l R14,-(sp) | |
204 | sub.l #2,(sp) | |
205 | move.l R13,-(sp) | |
206 | jsr _wr_ec | |
207 | addq.l #8,sp | |
208 | tst R0 | |
209 | beq L18 | |
210 | *line 152 | |
211 | move #-1,R0 | |
212 | bra L7 | |
213 | *line 153 | |
214 | L18: | |
215 | *line 154 | |
216 | *line 155 | |
217 | move.l #$4,(sp) | |
218 | move R7,R0 | |
219 | asl #4,R0 | |
220 | ext.l R0 | |
221 | add.l #_patches,R0 | |
222 | move.l R0,-(sp) | |
223 | add.l #4,(sp) | |
224 | move.l R13,-(sp) | |
225 | jsr _wr_ec | |
226 | addq.l #8,sp | |
227 | tst R0 | |
228 | beq L19 | |
229 | *line 155 | |
230 | move #-1,R0 | |
231 | bra L7 | |
232 | *line 156 | |
233 | L19: | |
234 | *line 157 | |
235 | *line 158 | |
236 | move.l #$2,(sp) | |
237 | move R7,R0 | |
238 | asl #4,R0 | |
239 | ext.l R0 | |
240 | add.l #_patches,R0 | |
241 | move.l R0,-(sp) | |
242 | add.l #10,(sp) | |
243 | move.l R13,-(sp) | |
244 | jsr _wr_ec | |
245 | addq.l #8,sp | |
246 | tst R0 | |
247 | beq L20 | |
248 | *line 158 | |
249 | move #-1,R0 | |
250 | bra L7 | |
251 | *line 159 | |
252 | L20: | |
253 | *line 160 | |
254 | *line 161 | |
255 | move.l #$1,(sp) | |
256 | move R7,R0 | |
257 | asl #4,R0 | |
258 | ext.l R0 | |
259 | add.l #_patches,R0 | |
260 | move.l R0,-(sp) | |
261 | add.l #15,(sp) | |
262 | move.l R13,-(sp) | |
263 | jsr _wr_ec | |
264 | addq.l #8,sp | |
265 | tst R0 | |
266 | beq L21 | |
267 | *line 161 | |
268 | move #-1,R0 | |
269 | bra L7 | |
270 | *line 162 | |
271 | L21:bra L14 | |
272 | *line 163 | |
273 | *line 164 | |
274 | *line 165 | |
275 | L22: | |
276 | *line 166 | |
277 | L23: | |
278 | *line 167 | |
279 | *line 168 | |
280 | *line 169 | |
281 | *line 170 | |
282 | move.l #$1,(sp) | |
283 | move.l R14,-(sp) | |
284 | sub.l #2,(sp) | |
285 | move.l R13,-(sp) | |
286 | jsr _wr_ec | |
287 | addq.l #8,sp | |
288 | tst R0 | |
289 | beq L24 | |
290 | *line 170 | |
291 | move #-1,R0 | |
292 | bra L7 | |
293 | *line 171 | |
294 | L24: | |
295 | *line 172 | |
296 | *line 173 | |
297 | move.l #$4,(sp) | |
298 | move R7,R0 | |
299 | asl #4,R0 | |
300 | ext.l R0 | |
301 | add.l #_patches,R0 | |
302 | move.l R0,-(sp) | |
303 | add.l #4,(sp) | |
304 | move.l R13,-(sp) | |
305 | jsr _wr_ec | |
306 | addq.l #8,sp | |
307 | tst R0 | |
308 | beq L25 | |
309 | *line 173 | |
310 | move #-1,R0 | |
311 | bra L7 | |
312 | *line 174 | |
313 | L25: | |
314 | *line 175 | |
315 | *line 176 | |
316 | move.l #$1,(sp) | |
317 | move R7,R0 | |
318 | asl #4,R0 | |
319 | ext.l R0 | |
320 | add.l #_patches,R0 | |
321 | move.l R0,-(sp) | |
322 | add.l #11,(sp) | |
323 | move.l R13,-(sp) | |
324 | jsr _wr_ec | |
325 | addq.l #8,sp | |
326 | tst R0 | |
327 | beq L26 | |
328 | *line 176 | |
329 | move #-1,R0 | |
330 | bra L7 | |
331 | *line 177 | |
332 | L26: | |
333 | *line 178 | |
334 | *line 179 | |
335 | move.l #$1,(sp) | |
336 | move R7,R0 | |
337 | asl #4,R0 | |
338 | ext.l R0 | |
339 | add.l #_patches,R0 | |
340 | move.l R0,-(sp) | |
341 | add.l #15,(sp) | |
342 | move.l R13,-(sp) | |
343 | jsr _wr_ec | |
344 | addq.l #8,sp | |
345 | tst R0 | |
346 | beq L27 | |
347 | *line 179 | |
348 | move #-1,R0 | |
349 | bra L7 | |
350 | *line 180 | |
351 | L27:bra L14 | |
352 | *line 181 | |
353 | *line 182 | |
354 | L28: | |
355 | *line 183 | |
356 | *line 184 | |
357 | *line 185 | |
358 | *line 186 | |
359 | move.l #$1,(sp) | |
360 | move.l R14,-(sp) | |
361 | sub.l #2,(sp) | |
362 | move.l R13,-(sp) | |
363 | jsr _wr_ec | |
364 | addq.l #8,sp | |
365 | tst R0 | |
366 | beq L29 | |
367 | *line 186 | |
368 | move #-1,R0 | |
369 | bra L7 | |
370 | *line 187 | |
371 | L29: | |
372 | *line 188 | |
373 | *line 189 | |
374 | move.l #$4,(sp) | |
375 | move R7,R0 | |
376 | asl #4,R0 | |
377 | ext.l R0 | |
378 | add.l #_patches,R0 | |
379 | move.l R0,-(sp) | |
380 | add.l #4,(sp) | |
381 | move.l R13,-(sp) | |
382 | jsr _wr_ec | |
383 | addq.l #8,sp | |
384 | tst R0 | |
385 | beq L30 | |
386 | *line 189 | |
387 | move #-1,R0 | |
388 | bra L7 | |
389 | *line 190 | |
390 | L30: | |
391 | *line 191 | |
392 | *line 192 | |
393 | move.l #$1,(sp) | |
394 | move R7,R0 | |
395 | asl #4,R0 | |
396 | ext.l R0 | |
397 | add.l #_patches,R0 | |
398 | move.l R0,-(sp) | |
399 | add.l #11,(sp) | |
400 | move.l R13,-(sp) | |
401 | jsr _wr_ec | |
402 | addq.l #8,sp | |
403 | tst R0 | |
404 | beq L31 | |
405 | *line 192 | |
406 | move #-1,R0 | |
407 | bra L7 | |
408 | *line 193 | |
409 | L31: | |
410 | *line 194 | |
411 | *line 195 | |
412 | move.l #$1,(sp) | |
413 | move R7,R0 | |
414 | asl #4,R0 | |
415 | ext.l R0 | |
416 | add.l #_patches,R0 | |
417 | move.l R0,-(sp) | |
418 | add.l #12,(sp) | |
419 | move.l R13,-(sp) | |
420 | jsr _wr_ec | |
421 | addq.l #8,sp | |
422 | tst R0 | |
423 | beq L32 | |
424 | *line 195 | |
425 | move #-1,R0 | |
426 | bra L7 | |
427 | *line 196 | |
428 | L32:bra L14 | |
429 | *line 197 | |
430 | *line 198 | |
431 | L33: | |
432 | *line 199 | |
433 | *line 200 | |
434 | *line 201 | |
435 | *line 202 | |
436 | move.l #$1,(sp) | |
437 | move.l R14,-(sp) | |
438 | sub.l #2,(sp) | |
439 | move.l R13,-(sp) | |
440 | jsr _wr_ec | |
441 | addq.l #8,sp | |
442 | tst R0 | |
443 | beq L34 | |
444 | *line 202 | |
445 | move #-1,R0 | |
446 | bra L7 | |
447 | *line 203 | |
448 | L34: | |
449 | *line 204 | |
450 | *line 205 | |
451 | move.l #$4,(sp) | |
452 | move R7,R0 | |
453 | asl #4,R0 | |
454 | ext.l R0 | |
455 | add.l #_patches,R0 | |
456 | move.l R0,-(sp) | |
457 | add.l #4,(sp) | |
458 | move.l R13,-(sp) | |
459 | jsr _wr_ec | |
460 | addq.l #8,sp | |
461 | tst R0 | |
462 | beq L35 | |
463 | *line 205 | |
464 | move #-1,R0 | |
465 | bra L7 | |
466 | *line 206 | |
467 | L35: | |
468 | *line 207 | |
469 | *line 208 | |
470 | move.l #$1,(sp) | |
471 | move R7,R0 | |
472 | asl #4,R0 | |
473 | ext.l R0 | |
474 | add.l #_patches,R0 | |
475 | move.l R0,-(sp) | |
476 | add.l #11,(sp) | |
477 | move.l R13,-(sp) | |
478 | jsr _wr_ec | |
479 | addq.l #8,sp | |
480 | tst R0 | |
481 | beq L36 | |
482 | *line 208 | |
483 | move #-1,R0 | |
484 | bra L7 | |
485 | *line 209 | |
486 | L36: | |
487 | *line 210 | |
488 | *line 211 | |
489 | move.l #$2,(sp) | |
490 | move R7,R0 | |
491 | asl #4,R0 | |
492 | ext.l R0 | |
493 | add.l #_patches,R0 | |
494 | move.l R0,-(sp) | |
495 | add.l #12,(sp) | |
496 | move.l R13,-(sp) | |
497 | jsr _wr_ec | |
498 | addq.l #8,sp | |
499 | tst R0 | |
500 | beq L37 | |
501 | *line 211 | |
502 | move #-1,R0 | |
503 | bra L7 | |
504 | *line 212 | |
505 | L37:bra L14 | |
506 | *line 213 | |
507 | *line 214 | |
508 | L38: | |
509 | *line 215 | |
510 | *line 216 | |
511 | *line 217 | |
512 | *line 218 | |
513 | move.l #$1,(sp) | |
514 | move.l R14,-(sp) | |
515 | sub.l #2,(sp) | |
516 | move.l R13,-(sp) | |
517 | jsr _wr_ec | |
518 | addq.l #8,sp | |
519 | tst R0 | |
520 | beq L39 | |
521 | *line 218 | |
522 | move #-1,R0 | |
523 | bra L7 | |
524 | *line 219 | |
525 | L39: | |
526 | *line 220 | |
527 | *line 221 | |
528 | move.l #$4,(sp) | |
529 | move R7,R0 | |
530 | asl #4,R0 | |
531 | ext.l R0 | |
532 | add.l #_patches,R0 | |
533 | move.l R0,-(sp) | |
534 | add.l #4,(sp) | |
535 | move.l R13,-(sp) | |
536 | jsr _wr_ec | |
537 | addq.l #8,sp | |
538 | tst R0 | |
539 | beq L40 | |
540 | *line 221 | |
541 | move #-1,R0 | |
542 | bra L7 | |
543 | *line 222 | |
544 | L40: | |
545 | *line 223 | |
546 | *line 224 | |
547 | move.l #$1,(sp) | |
548 | move R7,R0 | |
549 | asl #4,R0 | |
550 | ext.l R0 | |
551 | add.l #_patches,R0 | |
552 | move.l R0,-(sp) | |
553 | add.l #13,(sp) | |
554 | move.l R13,-(sp) | |
555 | jsr _wr_ec | |
556 | addq.l #8,sp | |
557 | tst R0 | |
558 | beq L41 | |
559 | *line 224 | |
560 | move #-1,R0 | |
561 | bra L7 | |
562 | *line 225 | |
563 | L41:bra L14 | |
564 | *line 226 | |
565 | *line 227 | |
566 | *line 228 | |
567 | L42: | |
568 | *line 229 | |
569 | L43: | |
570 | *line 230 | |
571 | *line 231 | |
572 | *line 232 | |
573 | *line 233 | |
574 | move.l #$1,(sp) | |
575 | move.l R14,-(sp) | |
576 | sub.l #2,(sp) | |
577 | move.l R13,-(sp) | |
578 | jsr _wr_ec | |
579 | addq.l #8,sp | |
580 | tst R0 | |
581 | beq L44 | |
582 | *line 233 | |
583 | move #-1,R0 | |
584 | bra L7 | |
585 | *line 234 | |
586 | L44: | |
587 | *line 235 | |
588 | *line 236 | |
589 | move.l #$4,(sp) | |
590 | move R7,R0 | |
591 | asl #4,R0 | |
592 | ext.l R0 | |
593 | add.l #_patches,R0 | |
594 | move.l R0,-(sp) | |
595 | add.l #4,(sp) | |
596 | move.l R13,-(sp) | |
597 | jsr _wr_ec | |
598 | addq.l #8,sp | |
599 | tst R0 | |
600 | beq L45 | |
601 | *line 236 | |
602 | move #-1,R0 | |
603 | bra L7 | |
604 | *line 237 | |
605 | L45: | |
606 | *line 238 | |
607 | *line 239 | |
608 | move.l #$1,(sp) | |
609 | move R7,R0 | |
610 | asl #4,R0 | |
611 | ext.l R0 | |
612 | add.l #_patches,R0 | |
613 | move.l R0,-(sp) | |
614 | add.l #11,(sp) | |
615 | move.l R13,-(sp) | |
616 | jsr _wr_ec | |
617 | addq.l #8,sp | |
618 | tst R0 | |
619 | beq L46 | |
620 | *line 239 | |
621 | move #-1,R0 | |
622 | bra L7 | |
623 | *line 240 | |
624 | L46: | |
625 | *line 241 | |
626 | *line 242 | |
627 | move.l #$1,(sp) | |
628 | move R7,R0 | |
629 | asl #4,R0 | |
630 | ext.l R0 | |
631 | add.l #_patches,R0 | |
632 | move.l R0,-(sp) | |
633 | add.l #13,(sp) | |
634 | move.l R13,-(sp) | |
635 | jsr _wr_ec | |
636 | addq.l #8,sp | |
637 | tst R0 | |
638 | beq L47 | |
639 | *line 242 | |
640 | move #-1,R0 | |
641 | bra L7 | |
642 | *line 243 | |
643 | L47: | |
644 | *line 244 | |
645 | *line 245 | |
646 | move.l #$1,(sp) | |
647 | move R7,R0 | |
648 | asl #4,R0 | |
649 | ext.l R0 | |
650 | add.l #_patches,R0 | |
651 | move.l R0,-(sp) | |
652 | add.l #15,(sp) | |
653 | move.l R13,-(sp) | |
654 | jsr _wr_ec | |
655 | addq.l #8,sp | |
656 | tst R0 | |
657 | beq L48 | |
658 | *line 245 | |
659 | move #-1,R0 | |
660 | bra L7 | |
661 | *line 246 | |
662 | L48:bra L14 | |
663 | *line 247 | |
664 | *line 248 | |
665 | L49: | |
666 | *line 249 | |
667 | L50: | |
668 | *line 250 | |
669 | L51: | |
670 | *line 251 | |
671 | L52: | |
672 | *line 252 | |
673 | *line 253 | |
674 | *line 254 | |
675 | *line 255 | |
676 | move.l #$1,(sp) | |
677 | move.l R14,-(sp) | |
678 | sub.l #2,(sp) | |
679 | move.l R13,-(sp) | |
680 | jsr _wr_ec | |
681 | addq.l #8,sp | |
682 | tst R0 | |
683 | beq L53 | |
684 | *line 255 | |
685 | move #-1,R0 | |
686 | bra L7 | |
687 | *line 256 | |
688 | L53: | |
689 | *line 257 | |
690 | *line 258 | |
691 | move.l #$4,(sp) | |
692 | move R7,R0 | |
693 | asl #4,R0 | |
694 | ext.l R0 | |
695 | add.l #_patches,R0 | |
696 | move.l R0,-(sp) | |
697 | add.l #4,(sp) | |
698 | move.l R13,-(sp) | |
699 | jsr _wr_ec | |
700 | addq.l #8,sp | |
701 | tst R0 | |
702 | beq L54 | |
703 | *line 258 | |
704 | move #-1,R0 | |
705 | bra L7 | |
706 | *line 259 | |
707 | L54: | |
708 | *line 260 | |
709 | *line 261 | |
710 | move.l #$1,(sp) | |
711 | move R7,R0 | |
712 | asl #4,R0 | |
713 | ext.l R0 | |
714 | add.l #_patches,R0 | |
715 | move.l R0,-(sp) | |
716 | add.l #10,(sp) | |
717 | move.l R13,-(sp) | |
718 | jsr _wr_ec | |
719 | addq.l #8,sp | |
720 | tst R0 | |
721 | beq L55 | |
722 | *line 261 | |
723 | move #-1,R0 | |
724 | bra L7 | |
725 | *line 262 | |
726 | L55: | |
727 | *line 263 | |
728 | *line 264 | |
729 | move.l #$1,(sp) | |
730 | move R7,R0 | |
731 | asl #4,R0 | |
732 | ext.l R0 | |
733 | add.l #_patches,R0 | |
734 | move.l R0,-(sp) | |
735 | add.l #13,(sp) | |
736 | move.l R13,-(sp) | |
737 | jsr _wr_ec | |
738 | addq.l #8,sp | |
739 | tst R0 | |
740 | beq L56 | |
741 | *line 264 | |
742 | move #-1,R0 | |
743 | bra L7 | |
744 | *line 265 | |
745 | L56:bra L14 | |
746 | *line 266 | |
747 | *line 267 | |
748 | L57: | |
749 | *line 268 | |
750 | L58: | |
751 | *line 269 | |
752 | L59: | |
753 | *line 270 | |
754 | *line 271 | |
755 | *line 272 | |
756 | *line 273 | |
757 | move.l #$1,(sp) | |
758 | move.l R14,-(sp) | |
759 | sub.l #2,(sp) | |
760 | move.l R13,-(sp) | |
761 | jsr _wr_ec | |
762 | addq.l #8,sp | |
763 | tst R0 | |
764 | beq L60 | |
765 | *line 273 | |
766 | move #-1,R0 | |
767 | bra L7 | |
768 | *line 274 | |
769 | L60: | |
770 | *line 275 | |
771 | *line 276 | |
772 | move.l #$4,(sp) | |
773 | move R7,R0 | |
774 | asl #4,R0 | |
775 | ext.l R0 | |
776 | add.l #_patches,R0 | |
777 | move.l R0,-(sp) | |
778 | add.l #4,(sp) | |
779 | move.l R13,-(sp) | |
780 | jsr _wr_ec | |
781 | addq.l #8,sp | |
782 | tst R0 | |
783 | beq L61 | |
784 | *line 276 | |
785 | move #-1,R0 | |
786 | bra L7 | |
787 | *line 277 | |
788 | L61: | |
789 | *line 278 | |
790 | *line 279 | |
791 | move.l #$2,(sp) | |
792 | move R7,R0 | |
793 | asl #4,R0 | |
794 | ext.l R0 | |
795 | add.l #_patches,R0 | |
796 | move.l R0,-(sp) | |
797 | add.l #10,(sp) | |
798 | move.l R13,-(sp) | |
799 | jsr _wr_ec | |
800 | addq.l #8,sp | |
801 | tst R0 | |
802 | beq L62 | |
803 | *line 279 | |
804 | move #-1,R0 | |
805 | bra L7 | |
806 | *line 280 | |
807 | L62: | |
808 | *line 281 | |
809 | *line 282 | |
810 | move.l #$1,(sp) | |
811 | move R7,R0 | |
812 | asl #4,R0 | |
813 | ext.l R0 | |
814 | add.l #_patches,R0 | |
815 | move.l R0,-(sp) | |
816 | add.l #13,(sp) | |
817 | move.l R13,-(sp) | |
818 | jsr _wr_ec | |
819 | addq.l #8,sp | |
820 | tst R0 | |
821 | beq L63 | |
822 | *line 282 | |
823 | move #-1,R0 | |
824 | bra L7 | |
825 | *line 283 | |
826 | L63: | |
827 | *line 284 | |
828 | *line 285 | |
829 | move.l #$2,(sp) | |
830 | move R7,R0 | |
831 | asl #4,R0 | |
832 | ext.l R0 | |
833 | add.l #_patches,R0 | |
834 | move.l R0,-(sp) | |
835 | add.l #14,(sp) | |
836 | move.l R13,-(sp) | |
837 | jsr _wr_ec | |
838 | addq.l #8,sp | |
839 | tst R0 | |
840 | beq L64 | |
841 | *line 285 | |
842 | move #-1,R0 | |
843 | bra L7 | |
844 | *line 286 | |
845 | L64:bra L14 | |
846 | *line 287 | |
847 | *line 288 | |
848 | *line 289 | |
849 | L65: | |
850 | *line 290 | |
851 | L66: | |
852 | *line 291 | |
853 | L67: | |
854 | *line 292 | |
855 | L68: | |
856 | *line 293 | |
857 | L69: | |
858 | *line 294 | |
859 | *line 295 | |
860 | *line 296 | |
861 | *line 297 | |
862 | move.l #$1,(sp) | |
863 | move.l R14,-(sp) | |
864 | sub.l #2,(sp) | |
865 | move.l R13,-(sp) | |
866 | jsr _wr_ec | |
867 | addq.l #8,sp | |
868 | tst R0 | |
869 | beq L70 | |
870 | *line 297 | |
871 | move #-1,R0 | |
872 | bra L7 | |
873 | *line 298 | |
874 | L70: | |
875 | *line 299 | |
876 | *line 300 | |
877 | move.l #$4,(sp) | |
878 | move R7,R0 | |
879 | asl #4,R0 | |
880 | ext.l R0 | |
881 | add.l #_patches,R0 | |
882 | move.l R0,-(sp) | |
883 | add.l #4,(sp) | |
884 | move.l R13,-(sp) | |
885 | jsr _wr_ec | |
886 | addq.l #8,sp | |
887 | tst R0 | |
888 | beq L71 | |
889 | *line 300 | |
890 | move #-1,R0 | |
891 | bra L7 | |
892 | *line 301 | |
893 | L71: | |
894 | *line 302 | |
895 | *line 303 | |
896 | move.l #$1,(sp) | |
897 | move R7,R0 | |
898 | asl #4,R0 | |
899 | ext.l R0 | |
900 | add.l #_patches,R0 | |
901 | move.l R0,-(sp) | |
902 | add.l #10,(sp) | |
903 | move.l R13,-(sp) | |
904 | jsr _wr_ec | |
905 | addq.l #8,sp | |
906 | tst R0 | |
907 | beq L72 | |
908 | *line 303 | |
909 | move #-1,R0 | |
910 | bra L7 | |
911 | *line 304 | |
912 | L72: | |
913 | *line 305 | |
914 | *line 306 | |
915 | move.l #$1,(sp) | |
916 | move R7,R0 | |
917 | asl #4,R0 | |
918 | ext.l R0 | |
919 | add.l #_patches,R0 | |
920 | move.l R0,-(sp) | |
921 | add.l #13,(sp) | |
922 | move.l R13,-(sp) | |
923 | jsr _wr_ec | |
924 | addq.l #8,sp | |
925 | tst R0 | |
926 | beq L73 | |
927 | *line 306 | |
928 | move #-1,R0 | |
929 | bra L7 | |
930 | *line 307 | |
931 | L73: | |
932 | *line 308 | |
933 | *line 309 | |
934 | move.l #$2,(sp) | |
935 | move R7,R0 | |
936 | asl #4,R0 | |
937 | ext.l R0 | |
938 | add.l #_patches,R0 | |
939 | move.l R0,-(sp) | |
940 | add.l #14,(sp) | |
941 | move.l R13,-(sp) | |
942 | jsr _wr_ec | |
943 | addq.l #8,sp | |
944 | tst R0 | |
945 | beq L74 | |
946 | *line 309 | |
947 | move #-1,R0 | |
948 | bra L7 | |
949 | *line 310 | |
950 | L74:bra L14 | |
951 | *line 311 | |
952 | *line 312 | |
953 | L75: | |
954 | *line 313 | |
955 | L76: | |
956 | *line 314 | |
957 | L77: | |
958 | *line 315 | |
959 | L78: | |
960 | *line 316 | |
961 | *line 317 | |
962 | *line 318 | |
963 | *line 319 | |
964 | move.l #$1,(sp) | |
965 | move.l R14,-(sp) | |
966 | sub.l #2,(sp) | |
967 | move.l R13,-(sp) | |
968 | jsr _wr_ec | |
969 | addq.l #8,sp | |
970 | tst R0 | |
971 | beq L79 | |
972 | *line 319 | |
973 | move #-1,R0 | |
974 | bra L7 | |
975 | *line 320 | |
976 | L79: | |
977 | *line 321 | |
978 | *line 322 | |
979 | move.l #$4,(sp) | |
980 | move R7,R0 | |
981 | asl #4,R0 | |
982 | ext.l R0 | |
983 | add.l #_patches,R0 | |
984 | move.l R0,-(sp) | |
985 | add.l #4,(sp) | |
986 | move.l R13,-(sp) | |
987 | jsr _wr_ec | |
988 | addq.l #8,sp | |
989 | tst R0 | |
990 | beq L80 | |
991 | *line 322 | |
992 | move #-1,R0 | |
993 | bra L7 | |
994 | *line 323 | |
995 | L80: | |
996 | *line 324 | |
997 | *line 325 | |
998 | move.l #$1,(sp) | |
999 | move R7,R0 | |
1000 | asl #4,R0 | |
1001 | ext.l R0 | |
1002 | add.l #_patches,R0 | |
1003 | move.l R0,-(sp) | |
1004 | add.l #13,(sp) | |
1005 | move.l R13,-(sp) | |
1006 | jsr _wr_ec | |
1007 | addq.l #8,sp | |
1008 | tst R0 | |
1009 | beq L81 | |
1010 | *line 325 | |
1011 | move #-1,R0 | |
1012 | bra L7 | |
1013 | *line 326 | |
1014 | L81: | |
1015 | *line 327 | |
1016 | *line 328 | |
1017 | move.l #$2,(sp) | |
1018 | move R7,R0 | |
1019 | asl #4,R0 | |
1020 | ext.l R0 | |
1021 | add.l #_patches,R0 | |
1022 | move.l R0,-(sp) | |
1023 | add.l #14,(sp) | |
1024 | move.l R13,-(sp) | |
1025 | jsr _wr_ec | |
1026 | addq.l #8,sp | |
1027 | tst R0 | |
1028 | beq L82 | |
1029 | *line 328 | |
1030 | move #-1,R0 | |
1031 | bra L7 | |
1032 | *line 329 | |
1033 | L82:bra L14 | |
1034 | *line 330 | |
1035 | *line 331 | |
1036 | L83: | |
1037 | *line 332 | |
1038 | *line 333 | |
1039 | *line 334 | |
1040 | *line 335 | |
1041 | move.l #$1,(sp) | |
1042 | move.l R14,-(sp) | |
1043 | sub.l #2,(sp) | |
1044 | move.l R13,-(sp) | |
1045 | jsr _wr_ec | |
1046 | addq.l #8,sp | |
1047 | tst R0 | |
1048 | beq L84 | |
1049 | *line 335 | |
1050 | move #-1,R0 | |
1051 | bra L7 | |
1052 | *line 336 | |
1053 | L84: | |
1054 | *line 337 | |
1055 | *line 338 | |
1056 | move.l #$4,(sp) | |
1057 | move R7,R0 | |
1058 | asl #4,R0 | |
1059 | ext.l R0 | |
1060 | add.l #_patches,R0 | |
1061 | move.l R0,-(sp) | |
1062 | add.l #4,(sp) | |
1063 | move.l R13,-(sp) | |
1064 | jsr _wr_ec | |
1065 | addq.l #8,sp | |
1066 | tst R0 | |
1067 | beq L85 | |
1068 | *line 338 | |
1069 | move #-1,R0 | |
1070 | bra L7 | |
1071 | *line 339 | |
1072 | L85: | |
1073 | *line 340 | |
1074 | *line 341 | |
1075 | move.l #$1,(sp) | |
1076 | move R7,R0 | |
1077 | asl #4,R0 | |
1078 | ext.l R0 | |
1079 | add.l #_patches,R0 | |
1080 | move.l R0,-(sp) | |
1081 | add.l #11,(sp) | |
1082 | move.l R13,-(sp) | |
1083 | jsr _wr_ec | |
1084 | addq.l #8,sp | |
1085 | tst R0 | |
1086 | beq L86 | |
1087 | *line 341 | |
1088 | move #-1,R0 | |
1089 | bra L7 | |
1090 | *line 342 | |
1091 | L86: | |
1092 | *line 343 | |
1093 | *line 344 | |
1094 | move.l #$1,(sp) | |
1095 | move R7,R0 | |
1096 | asl #4,R0 | |
1097 | ext.l R0 | |
1098 | add.l #_patches,R0 | |
1099 | move.l R0,-(sp) | |
1100 | add.l #13,(sp) | |
1101 | move.l R13,-(sp) | |
1102 | jsr _wr_ec | |
1103 | addq.l #8,sp | |
1104 | tst R0 | |
1105 | beq L87 | |
1106 | *line 344 | |
1107 | move #-1,R0 | |
1108 | bra L7 | |
1109 | *line 345 | |
1110 | L87: | |
1111 | *line 346 | |
1112 | *line 347 | |
1113 | move.l #$2,(sp) | |
1114 | move R7,R0 | |
1115 | asl #4,R0 | |
1116 | ext.l R0 | |
1117 | add.l #_patches,R0 | |
1118 | move.l R0,-(sp) | |
1119 | add.l #14,(sp) | |
1120 | move.l R13,-(sp) | |
1121 | jsr _wr_ec | |
1122 | addq.l #8,sp | |
1123 | tst R0 | |
1124 | beq L88 | |
1125 | *line 347 | |
1126 | move #-1,R0 | |
1127 | bra L7 | |
1128 | *line 348 | |
1129 | L88:bra L14 | |
1130 | *line 349 | |
1131 | *line 350 | |
1132 | *line 351 | |
1133 | L89: | |
1134 | *line 352 | |
1135 | *line 353 | |
1136 | *line 354 | |
1137 | move #-1,R0 | |
1138 | bra L7 | |
1139 | bra L14 | |
1140 | L15:sub #1,R0 | |
1141 | cmp #25,R0 | |
1142 | bhi L89 | |
1143 | asl #2,R0 | |
1144 | move R0,R8 | |
1145 | add.l #L90,R8 | |
1146 | move.l (R8),R8 | |
1147 | jmp (R8) | |
1148 | .data | |
1149 | L90:.dc.l L16 | |
1150 | .dc.l L17 | |
1151 | .dc.l L22 | |
1152 | .dc.l L28 | |
1153 | .dc.l L33 | |
1154 | .dc.l L23 | |
1155 | .dc.l L38 | |
1156 | .dc.l L42 | |
1157 | .dc.l L43 | |
1158 | .dc.l L49 | |
1159 | .dc.l L57 | |
1160 | .dc.l L50 | |
1161 | .dc.l L51 | |
1162 | .dc.l L52 | |
1163 | .dc.l L65 | |
1164 | .dc.l L58 | |
1165 | .dc.l L59 | |
1166 | .dc.l L66 | |
1167 | .dc.l L67 | |
1168 | .dc.l L68 | |
1169 | .dc.l L69 | |
1170 | .dc.l L75 | |
1171 | .dc.l L76 | |
1172 | .dc.l L77 | |
1173 | .dc.l L78 | |
1174 | .dc.l L83 | |
1175 | .text | |
1176 | L14: | |
1177 | *line 355 | |
1178 | *line 356 | |
1179 | *line 360 | |
1180 | *line 361 | |
1181 | *line 362 | |
1182 | move R7,(sp) | |
1183 | jsr _findnxt | |
1184 | move R0,R7 | |
1185 | L13: | |
1186 | *line 363 | |
1187 | tst R7 | |
1188 | bne L12 | |
1189 | L11: | |
1190 | *line 364 | |
1191 | *line 365 | |
1192 | *line 366 | |
1193 | move.l #$1,(sp) | |
1194 | move.l R14,-(sp) | |
1195 | sub.l #4,(sp) | |
1196 | move.l R13,-(sp) | |
1197 | jsr _wr_ec | |
1198 | addq.l #8,sp | |
1199 | tst R0 | |
1200 | beq L91 | |
1201 | *line 366 | |
1202 | move #-1,R0 | |
1203 | bra L7 | |
1204 | *line 367 | |
1205 | L91:bra L92 | |
1206 | L10: | |
1207 | *line 368 | |
1208 | *line 369 | |
1209 | *line 370 | |
1210 | move #-1,R0 | |
1211 | bra L7 | |
1212 | L92: | |
1213 | *line 378 | |
1214 | clr R0 | |
1215 | bra L7 | |
1216 | L7:tst.l (sp)+ | |
1217 | movem.l (sp)+,R7-R7/R13-R13 | |
1218 | unlk R14 | |
1219 | rts | |
1220 | .data | |
1221 | L8:.dc.b $42,$75,$73,$79,$20,$2D,$2D,$20,$50,$6C,$65,$61,$73,$65,$20,$73,$74,$61,$6E,$64,$20,$62,$79,$0 | |
1222 | L9:.dc.b $20,$20,$77,$72,$69,$74,$69,$6E,$67,$20,$70,$61,$74,$63,$68,$65,$73,$0 |
Note:
See TracBrowser
for help on using the repository browser.