source: buchla-68k/alcyon/vbfill4.s@ ca867c1

Last change on this file since ca867c1 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.

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