; Fast WritePixelArray8

	move.l	(a0)+,d0	; Get abcd/70
	move.l	(a0)+,d1	; Get efgh/70
	move.l	(a0)+,d2	; Get ijkl/70
	move.l	(a0)+,d3	; Get mnop/70
1	move.l	#$ff00ff00,d6	; Put mask/8
2	move.l	d0,d4
3	move.l	d2,d5
4	and.l	d6,d0		; Calc a.c./70
5	and.l	d6,d5		; Calc i.k./70
6	eor.l	d0,d4		; Calc .b.d/70
7	eor.l	d5,d2		; Calc .j.l/70
8	lsr.l	#8,d5
9	lsl.l	#8,d4
10	or.l	d5,d0		; Calc aick/70
11	or.l	d4,d2		; Calc bjdl/70
12	move.l	d1,d4
13	move.l	d3,d5
14	and.l	d6,d1
15	and.l	d6,d5
16	eor.l	d1,d4
17	eor.l	d5,d3
18	lsr.l	#8,d5
19	lsl.l	#8,d4
20	or.l	d5,d1		; Calc emgo/70
21	or.l	d4,d3		; Calc fnhp/70
22	move.l	#$0f0f0f0f,d6	; Put mask/4
23	move.l	d0,d4
24	move.l	d1,d5
25	and.l	d6,d0		; Calc .a.i.c.k/30
26	and.l	d6,d5		; Calc .e.m.g.o/30
27	eor.l	d0,d4		; Calc a.i.c.k./74
28	eor.l	d5,d1		; Calc e.m.g.o./74
29	lsr.l	#4,d1
30	lsl.l	#4,d0
31	or.l	d5,d0		; Calc aeimcgko/30
32	or.l	d4,d1		; Calc aeimcgko/74
33	move.l	d2,d4
34	move.l	d3,d5
35	and.l	d6,d2
36	and.l	d6,d5
37	eor.l	d2,d4
38	eor.l	d5,d3
39	lsr.l	#4,d3
40	lsl.l	#4,d2
41	or.l	d5,d2		; Calc bfjndhlp/30
42	or.l	d4,d3		; Calc bfjndhlp/74
43	move.l	#$3333cccc,d6	; Put mask/2
44	move.l	d0,d4
45	move.l	d2,d5
46	and.l	d6,d0		; Calc .a.e.i.m/10 c.g.k.o./32
47	and.l	d6,d2		; Calc .b.f.j.n/10 d.h.l.p./32
48	eor.l	d0,d4		; Calc a.e.i.m./32 .c.g.k.o/10
49	eor.l	d2,d5		; Calc b.f.j.n./32 .d.h.l.p/10
50	lsr.w	#2,d0
51	lsr.w	#2,d2
52	swap	d0
53	swap	d2
54	lsl.w	#2,d0		; Calc .c.g.k.o/32 a.e.i.m./10
55	lsl.w	#2,d2		; Calc .d.h.l.p/32 b.f.j.n./10
56	or.l	d4,d0		; Calc acegikmo/32 acegikmo/10
57	or.l	d5,d2		; Calc bdfhjlnp/32 bdfhjlnp/10
58	move.l	#$55555555,d7
59	move.l	d0,d4
60	move.l	d2,d5
61	and.l	d7,d0		; Calc .a.c.e.g.i.k.m.o/2 .a.c.e.g.i.k.m.o/0
62	and.l	d7,d5		; Calc .b.d.f.h.j.l.n.p/2 .b.d.f.h.j.l.n.p/0 
63	eor.l	d0,d4
64	eor.l	d5,d2
65	lsr.l	#1,d2
66	add.l	d0,d0
67	or.l	d5,d0		; Calc abcdefghijklmnop/2 abcdefghijklmnop/0
68	or.l	d4,d2		; Calc abcdefghijklmnop/3 abcdefghijklmnop/1
69	move.l	d1,d4
70	move.l	d3,d5
71	and.l	d6,d1
72	and.l	d6,d3
73	eor.l	d1,d4
74	eor.l	d3,d5
75	lsr.w	#2,d1
76	lsr.w	#2,d3
77	swap	d1
78	swap	d3
79	lsl.w	#2,d1
80	lsl.w	#2,d3
81	or.l	d4,d1
82	or.l	d5,d3
83	move.l	d1,d4
84	move.l	d3,d5
85	and.l	d7,d1
86	and.l	d7,d5
87	eor.l	d1,d4
88	eor.l	d5,d3
89	lsr.l	#1,d3
90	add.l	d1,d1
91	or.l	d5,d1		; Calc abcdefghijklmnop/6 abcdefghijklmnop/4
92	or.l	d4,d3 		; Calc abcdefghijklmnop/7 abcdefghijklmnop/5
	rts