1 /***************************************************************************
3 * Open \______ \ ____ ____ | | _\_ |__ _______ ___
4 * Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
5 * Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
6 * Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
10 * Copyright (C) 2007 by Michael Sevakis
12 * ARM code for memory framebuffer LCDs
14 * This program is free software; you can redistribute it and/or
15 * modify it under the terms of the GNU General Public License
16 * as published by the Free Software Foundation; either version 2
17 * of the License, or (at your option) any later version.
19 * This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
20 * KIND, either express or implied.
22 ****************************************************************************/
27 /****************************************************************************
28 * void lcd_copy_buffer_rect(fb_data *dst, fb_data *src, int width,
31 .section .icode, "ax", %progbits
33 .global lcd_copy_buffer_rect
34 .type lcd_copy_buffer_rect, %function
39 lcd_copy_buffer_rect: @
40 stmfd sp!, { r4-r12, lr } @ save non-scratch regs
41 mov r5, r2 @ r5 = cached width
42 rsb r4, r2, #LCD_WIDTH @ r4 = LCD_WIDTH - width
44 subs r2, r5, #1 @ r2 = width - 1
45 beq 40f @ finish line @ one halfword? skip to trailing copy
46 tst r0, #2 @ word aligned?
47 beq 20f @ rem copy @ yes? skip to word copy
48 ldrh r6, [r1], #2 @ copy leading halfword
51 ble 40f @ finish line @ next line if lt or finish
52 @ trailing halfword if eq
54 add r14, r2, #1 @ get remaining width mod 16 after word
56 and r14, r14, #0xe @ r14 = 0 (16), 2, 4, 6, 8, 10, 12, 14
57 add pc, pc, r14, lsl #3 @ branch to 32-byte align
59 b 30f @ rw % 16 = 0 or 1? use octword loop
63 ldr r6, [r1], #4 @ rw % 16 = 2 or 3
66 b 25f @ copy up done @
67 ldmia r1!, { r6-r7 } @ rw % 16 = 4 or 5
69 stmia r0!, { r6-r7 } @
70 b 25f @ copy up done @
71 ldmia r1!, { r6-r8 } @ rw % 16 = 6 or 7
73 stmia r0!, { r6-r8 } @
74 b 25f @ copy up done @
75 ldmia r1!, { r6-r9 } @ rw % 16 = 8 or 9
77 stmia r0!, { r6-r9 } @
78 b 25f @ copy up done @
79 ldmia r1!, { r6-r10 } @ rw % 16 = 10 or 11
81 stmia r0!, { r6-r10 } @
82 b 25f @ copy up done @
83 ldmia r1!, { r6-r11 } @ rw % 16 = 12 or 13
85 stmia r0!, { r6-r11 } @
86 b 25f @ copy up done @
87 ldmia r1!, { r6-r12 } @ rw % 16 = 14 or 15
89 stmia r0!, { r6-r12 } @
91 ble 40f @ finish line @ no 32-byte segments remaining?
92 30: @ octword loop @ copy 16 pixels per loop
93 ldmia r1!, { r6-r12, r14 } @
95 stmia r0!, { r6-r12, r14 } @
96 bgt 30b @ octword loop @
98 ldreqh r6, [r1], #2 @ finish last halfword if eq ...
99 add r1, r1, r4, lsl #1 @
100 streqh r6, [r0], #2 @ ...
101 add r0, r0, r4, lsl #1 @
102 subs r3, r3, #1 @ next line
103 bgt 10b @ copy line @
104 ldmfd sp!, { r4-r12, pc } @ restore regs and return
105 .ltorg @ dump constant pool
106 .size lcd_copy_buffer_rect, .-lcd_copy_buffer_rect
108 /****************************************************************************
109 * void lcd_write_yuv_420_lines(fb_data *dst,
110 * unsigned char const * const src[3],
114 * |R| |1.000000 -0.000001 1.402000| |Y'|
115 * |G| = |1.000000 -0.334136 -0.714136| |Pb|
116 * |B| |1.000000 1.772000 0.000000| |Pr|
117 * Scaled, normalized, rounded and tweaked to yield RGB 565:
118 * |R| |74 0 101| |Y' - 16| >> 9
119 * |G| = |74 -24 -51| |Cb - 128| >> 8
120 * |B| |74 128 0| |Cr - 128| >> 9
122 * Write four RGB565 pixels in the following order on each loop:
126 .section .icode, "ax", %progbits
128 .global lcd_write_yuv420_lines
129 .type lcd_write_yuv420_lines, %function
130 lcd_write_yuv420_lines:
135 stmfd sp!, { r4-r12 } @ save non-scratch
136 ldmia r1, { r4, r5, r6 } @ r4 = yuv_src[0] = Y'_p
137 @ r5 = yuv_src[1] = Cb_p
138 @ r6 = yuv_src[2] = Cr_p
142 ldrb r7, [r4], #1 @ r7 = *Y'_p++;
143 ldrb r8, [r5], #1 @ r8 = *Cb_p++;
144 ldrb r9, [r6], #1 @ r9 = *Cr_p++;
146 sub r7, r7, #16 @ r7 = Y = (Y' - 16)*74
147 add r12, r7, r7, asl #2 @ actually (Y' - 16)*37 and shift right
148 add r7, r12, r7, asl #5 @ by one less when adding - same for all
150 sub r8, r8, #128 @ Cb -= 128
151 sub r9, r9, #128 @ Cr -= 128
153 add r10, r9, r9, asl #1 @ r10 = Cr*51 + Cb*24
154 add r10, r10, r10, asl #4 @
155 add r10, r10, r8, asl #3 @
156 add r10, r10, r8, asl #4 @
158 add r11, r9, r9, asl #2 @ r9 = Cr*101
159 add r11, r11, r9, asl #5 @
160 add r9, r11, r9, asl #6 @
162 add r8, r8, #2 @ r8 = bu = (Cb*128 + 128) >> 8
164 add r9, r9, #256 @ r9 = rv = (r9 + 256) >> 9
166 rsb r10, r10, #128 @ r10 = guv = (-r10 + 128) >> 8
167 mov r10, r10, asr #8 @
168 @ compute R, G, and B
169 add r1, r8, r7, asr #8 @ r1 = b = (Y >> 9) + bu
170 add r11, r9, r7, asr #8 @ r11 = r = (Y >> 9) + rv
171 add r7, r10, r7, asr #7 @ r7 = g = (Y >> 8) + guv
173 orr r12, r1, r11 @ check if clamping is needed...
174 orr r12, r12, r7, asr #1 @ ...at all
177 cmp r1, #31 @ clamp b
178 mvnhi r1, r1, asr #31 @
180 cmp r11, #31 @ clamp r
181 mvnhi r11, r11, asr #31 @
182 andhi r11, r11, #31 @
183 cmp r7, #63 @ clamp g
184 mvnhi r7, r7, asr #31 @
188 ldrb r12, [r4, r3] @ r12 = Y' = *(Y'_p + stride)
190 orr r1, r1, r7, lsl #5 @ r4 |= (g << 5)
191 orr r1, r1, r11, lsl #11 @ r4 = b | (r << 11)
193 #if LCD_WIDTH >= LCD_HEIGHT
195 #elif LCD_WIDTH < 256
196 strh r1, [r0], #LCD_WIDTH @ store pixel
201 sub r7, r12, #16 @ r7 = Y = (Y' - 16)*74
202 add r12, r7, r7, asl #2 @
203 add r7, r12, r7, asl #5 @
204 @ compute R, G, and B
205 add r1, r8, r7, asr #8 @ r1 = b = (Y >> 9) + bu
206 add r11, r9, r7, asr #8 @ r11 = r = (Y >> 9) + rv
207 add r7, r10, r7, asr #7 @ r7 = g = (Y >> 8) + guv
209 orr r12, r1, r11 @ check if clamping is needed...
210 orr r12, r12, r7, asr #1 @ ...at all
213 cmp r1, #31 @ clamp b
214 mvnhi r1, r1, asr #31 @
216 cmp r11, #31 @ clamp r
217 mvnhi r11, r11, asr #31 @
218 andhi r11, r11, #31 @
219 cmp r7, #63 @ clamp g
220 mvnhi r7, r7, asr #31 @
224 ldrb r12, [r4], #1 @ r12 = Y' = *(Y'_p++)
226 orr r1, r1, r11, lsl #11 @ r1 = b | (r << 11)
227 orr r1, r1, r7, lsl #5 @ r1 |= (g << 5)
229 #if LCD_WIDTH >= LCD_HEIGHT
230 add r0, r0, #2*LCD_WIDTH @
231 strh r1, [r0] @ store pixel
232 sub r0, r0, #2*LCD_WIDTH @
233 #elif LCD_WIDTH < 256
234 strh r1, [r0, #-LCD_WIDTH-2] @ store pixel
237 add r0, r0, #LCD_WIDTH @
240 sub r7, r12, #16 @ r7 = Y = (Y' - 16)*74
241 add r12, r7, r7, asl #2 @
242 add r7, r12, r7, asl #5 @
243 @ compute R, G, and B
244 add r1, r8, r7, asr #8 @ r1 = b = (Y >> 9) + bu
245 add r11, r9, r7, asr #8 @ r11 = r = (Y >> 9) + rv
246 add r7, r10, r7, asr #7 @ r7 = g = (Y >> 8) + guv
248 orr r12, r1, r11 @ check if clamping is needed...
249 orr r12, r12, r7, asr #1 @ ...at all
252 cmp r1, #31 @ clamp b
253 mvnhi r1, r1, asr #31 @
255 cmp r11, #31 @ clamp r
256 mvnhi r11, r11, asr #31 @
257 andhi r11, r11, #31 @
258 cmp r7, #63 @ clamp g
259 mvnhi r7, r7, asr #31 @
263 ldrb r12, [r4, r3] @ r12 = Y' = *(Y'_p + stride)
265 orr r1, r1, r7, lsl #5 @ r1 = b | (g << 5)
266 orr r1, r1, r11, lsl #11 @ r1 |= (r << 11)
268 #if LCD_WIDTH >= LCD_HEIGHT
270 #elif LCD_WIDTH < 256
271 strh r1, [r0, #LCD_WIDTH]! @ store pixel
276 sub r7, r12, #16 @ r7 = Y = (Y' - 16)*74
277 add r12, r7, r7, asl #2 @
278 add r7, r12, r7, asl #5 @
279 @ compute R, G, and B
280 add r1, r8, r7, asr #8 @ r1 = b = (Y >> 9) + bu
281 add r11, r9, r7, asr #8 @ r11 = r = (Y >> 9) + rv
282 add r7, r10, r7, asr #7 @ r7 = g = (Y >> 8) + guv
284 orr r12, r1, r11 @ check if clamping is needed...
285 orr r12, r12, r7, asr #1 @ ...at all
288 cmp r1, #31 @ clamp b
289 mvnhi r1, r1, asr #31 @
291 cmp r11, #31 @ clamp r
292 mvnhi r11, r11, asr #31 @
293 andhi r11, r11, #31 @
294 cmp r7, #63 @ clamp g
295 mvnhi r7, r7, asr #31 @
299 orr r12, r1, r11, lsl #11 @ r12 = b | (r << 11)
300 orr r12, r12, r7, lsl #5 @ r12 |= (g << 5)
302 #if LCD_WIDTH >= LCD_HEIGHT
303 add r0, r0, #2*LCD_WIDTH
306 sub r0, r0, #(2*LCD_WIDTH)-4
308 sub r0, r0, #(2*LCD_WIDTH)
312 strh r12, [r0, #-2] @ store pixel
314 add r0, r0, #2*LCD_WIDTH @
316 add r0, r0, #LCD_WIDTH @
320 subs r2, r2, #2 @ subtract block from width
321 bgt 10b @ loop line @
323 ldmfd sp!, { r4-r12 } @ restore registers and return
325 .ltorg @ dump constant pool
326 .size lcd_write_yuv420_lines, .-lcd_write_yuv420_lines
329 /****************************************************************************
330 * void lcd_write_yuv_420_lines_odither(fb_data *dst,
331 * unsigned char const * const src[3],
337 * |R| |1.000000 -0.000001 1.402000| |Y'|
338 * |G| = |1.000000 -0.334136 -0.714136| |Pb|
339 * |B| |1.000000 1.772000 0.000000| |Pr|
340 * Red scaled at twice g & b but at same precision to place it in correct
341 * bit position after multiply and leave instruction count lower.
342 * |R| |258 0 408| |Y' - 16|
343 * |G| = |149 -49 -104| |Cb - 128|
344 * |B| |149 258 0| |Cr - 128|
346 * Write four RGB565 pixels in the following order on each loop:
350 * Kernel pattern (raw|rotated|use order):
351 * 5 3 4 2 2 6 3 7 row0 row2 > down
352 * 1 7 0 6 | 4 0 5 1 | 2 4 6 0 3 5 7 1 col0 left
353 * 4 2 5 3 | 3 7 2 6 | 3 5 7 1 2 4 6 0 col2 \/
356 .section .icode, "ax", %progbits
358 .global lcd_write_yuv420_lines_odither
359 .type lcd_write_yuv420_lines_odither, %function
360 lcd_write_yuv420_lines_odither:
367 stmfd sp!, { r4-r12, lr } @ save non-scratch
368 ldmia r1, { r4, r5, r6 } @ r4 = yuv_src[0] = Y'_p
369 @ r5 = yuv_src[1] = Cb_p
370 @ r6 = yuv_src[2] = Cr_p
373 add r1, sp, #40 @ Line up pattern and kernel quadrant
374 ldmia r1, { r12, r14 } @
377 mov r14, r14, lsl #6 @ 0x00 or 0x80
380 ldrb r7, [r4], #1 @ r7 = *Y'_p++;
381 ldrb r8, [r5], #1 @ r8 = *Cb_p++;
382 ldrb r9, [r6], #1 @ r9 = *Cr_p++;
384 eor r14, r14, #0x80 @ flip pattern quadrant
386 sub r7, r7, #16 @ r7 = Y = (Y' - 16)*149
387 add r12, r7, r7, asl #2 @
388 add r12, r12, r12, asl #4 @
389 add r7, r12, r7, asl #6 @
391 sub r8, r8, #128 @ Cb -= 128
392 sub r9, r9, #128 @ Cr -= 128
394 add r10, r8, r8, asl #4 @ r10 = guv = Cr*104 + Cb*49
395 add r10, r10, r8, asl #5 @
396 add r10, r10, r9, asl #3 @
397 add r10, r10, r9, asl #5 @
398 add r10, r10, r9, asl #6 @
400 mov r8, r8, asl #1 @ r8 = bu = Cb*258
401 add r8, r8, r8, asl #7 @
403 add r9, r9, r9, asl #1 @ r9 = rv = Cr*408
404 add r9, r9, r9, asl #4 @
407 @ compute R, G, and B
408 add r1, r8, r7 @ r1 = b' = Y + bu
409 add r11, r9, r7, asl #1 @ r11 = r' = Y*2 + rv
410 rsb r7, r10, r7 @ r7 = g' = Y + guv
412 @ r8 = bu, r9 = rv, r10 = guv
414 sub r12, r1, r1, lsr #5 @ r1 = 31/32*b + b/256
415 add r1, r12, r1, lsr #8 @
417 sub r12, r11, r11, lsr #5 @ r11 = 31/32*r + r/256
418 add r11, r12, r11, lsr #8 @
420 sub r12, r7, r7, lsr #6 @ r7 = 63/64*g + g/256
421 add r7, r12, r7, lsr #8 @
423 add r12, r14, #0x100 @
425 add r1, r1, r12 @ b = r1 + delta
426 add r11, r11, r12, lsl #1 @ r = r11 + delta*2
427 add r7, r7, r12, lsr #1 @ g = r7 + delta/2
429 orr r12, r1, r11, asr #1 @ check if clamping is needed...
430 orr r12, r12, r7 @ ...at all
431 movs r12, r12, asr #15 @
433 movs r12, r1, asr #15 @ clamp b
434 mvnne r1, r12, lsr #15 @
435 andne r1, r1, #0x7c00 @ mask b only if clamped
436 movs r12, r11, asr #16 @ clamp r
437 mvnne r11, r12, lsr #16 @
438 movs r12, r7, asr #15 @ clamp g
439 mvnne r7, r12, lsr #15 @
442 ldrb r12, [r4, r3] @ r12 = Y' = *(Y'_p + stride)
444 and r11, r11, #0xf800 @ pack pixel
445 and r7, r7, #0x7e00 @ r1 = pixel = (r & 0xf800) |
446 orr r11, r11, r7, lsr #4 @ ((g & 0x7e00) >> 4) |
447 orr r1, r11, r1, lsr #10 @ (b >> 10)
449 #if LCD_WIDTH >= LCD_HEIGHT
451 #elif LCD_WIDTH < 256
452 strh r1, [r0], #LCD_WIDTH @ store pixel
457 sub r7, r12, #16 @ r7 = Y = (Y' - 16)*149
458 add r12, r7, r7, asl #2 @
459 add r12, r12, r12, asl #4 @
460 add r7, r12, r7, asl #6 @
461 @ compute R, G, and B
462 add r1, r8, r7 @ r1 = b' = Y + bu
463 add r11, r9, r7, asl #1 @ r11 = r' = Y*2 + rv
464 rsb r7, r10, r7 @ r7 = g' = Y + guv
466 sub r12, r1, r1, lsr #5 @ r1 = 31/32*b' + b'/256
467 add r1, r12, r1, lsr #8 @
469 sub r12, r11, r11, lsr #5 @ r11 = 31/32*r' + r'/256
470 add r11, r12, r11, lsr #8 @
472 sub r12, r7, r7, lsr #6 @ r7 = 63/64*g' + g'/256
473 add r7, r12, r7, lsr #8 @
475 add r12, r14, #0x200 @
477 add r1, r1, r12 @ b = r1 + delta
478 add r11, r11, r12, lsl #1 @ r = r11 + delta*2
479 add r7, r7, r12, lsr #1 @ g = r7 + delta/2
481 orr r12, r1, r11, asr #1 @ check if clamping is needed...
482 orr r12, r12, r7 @ ...at all
483 movs r12, r12, asr #15 @
485 movs r12, r1, asr #15 @ clamp b
486 mvnne r1, r12, lsr #15 @
487 andne r1, r1, #0x7c00 @ mask b only if clamped
488 movs r12, r11, asr #16 @ clamp r
489 mvnne r11, r12, lsr #16 @
490 movs r12, r7, asr #15 @ clamp g
491 mvnne r7, r12, lsr #15 @
494 ldrb r12, [r4], #1 @ r12 = Y' = *(Y'_p++)
496 and r11, r11, #0xf800 @ pack pixel
497 and r7, r7, #0x7e00 @ r1 = pixel = (r & 0xf800) |
498 orr r11, r11, r7, lsr #4 @ ((g & 0x7e00) >> 4) |
499 orr r1, r11, r1, lsr #10 @ (b >> 10)
501 #if LCD_WIDTH >= LCD_HEIGHT
502 add r0, r0, #2*LCD_WIDTH @
503 strh r1, [r0] @ store pixel
504 sub r0, r0, #2*LCD_WIDTH @
505 #elif LCD_WIDTH < 256
506 strh r1, [r0, #-LCD_WIDTH-2] @ store pixel
508 strh r1, [r0, #-2] @ store pixel
509 add r0, r0, #LCD_WIDTH @
512 sub r7, r12, #16 @ r7 = Y = (Y' - 16)*149
513 add r12, r7, r7, asl #2 @
514 add r12, r12, r12, asl #4 @
515 add r7, r12, r7, asl #6 @
516 @ compute R, G, and B
517 add r1, r8, r7 @ r1 = b' = Y + bu
518 add r11, r9, r7, asl #1 @ r11 = r' = Y*2 + rv
519 rsb r7, r10, r7 @ r7 = g' = Y + guv
521 @ r8 = bu, r9 = rv, r10 = guv
523 sub r12, r1, r1, lsr #5 @ r1 = 31/32*b' + b'/256
524 add r1, r12, r1, lsr #8 @
526 sub r12, r11, r11, lsr #5 @ r11 = 31/32*r' + r'/256
527 add r11, r12, r11, lsr #8 @
529 sub r12, r7, r7, lsr #6 @ r7 = 63/64*g' + g'/256
530 add r7, r12, r7, lsr #8 @
532 add r12, r14, #0x300 @
534 add r1, r1, r12 @ b = r1 + delta
535 add r11, r11, r12, lsl #1 @ r = r11 + delta*2
536 add r7, r7, r12, lsr #1 @ g = r7 + delta/2
538 orr r12, r1, r11, asr #1 @ check if clamping is needed...
539 orr r12, r12, r7 @ ...at all
540 movs r12, r12, asr #15 @
542 movs r12, r1, asr #15 @ clamp b
543 mvnne r1, r12, lsr #15 @
544 andne r1, r1, #0x7c00 @ mask b only if clamped
545 movs r12, r11, asr #16 @ clamp r
546 mvnne r11, r12, lsr #16 @
547 movs r12, r7, asr #15 @ clamp g
548 mvnne r7, r12, lsr #15 @
551 ldrb r12, [r4, r3] @ r12 = Y' = *(Y'_p + stride)
553 and r11, r11, #0xf800 @ pack pixel
554 and r7, r7, #0x7e00 @ r1 = pixel = (r & 0xf800) |
555 orr r11, r11, r7, lsr #4 @ ((g & 0x7e00) >> 4) |
556 orr r1, r11, r1, lsr #10 @ (b >> 10)
558 #if LCD_WIDTH >= LCD_HEIGHT
560 #elif LCD_WIDTH < 256
561 strh r1, [r0, #LCD_WIDTH]! @ store pixel
566 sub r7, r12, #16 @ r7 = Y = (Y' - 16)*149
567 add r12, r7, r7, asl #2 @
568 add r12, r12, r12, asl #4 @
569 add r7, r12, r7, asl #6 @
570 @ compute R, G, and B
571 add r1, r8, r7 @ r1 = b' = Y + bu
572 add r11, r9, r7, asl #1 @ r11 = r' = Y*2 + rv
573 rsb r7, r10, r7 @ r7 = g' = Y + guv
575 sub r12, r1, r1, lsr #5 @ r1 = 31/32*b + b/256
576 add r1, r12, r1, lsr #8 @
578 sub r12, r11, r11, lsr #5 @ r11 = 31/32*r + r/256
579 add r11, r12, r11, lsr #8 @
581 sub r12, r7, r7, lsr #6 @ r7 = 63/64*g + g/256
582 add r7, r12, r7, lsr #8 @
584 @ This element is zero - use r14 @
586 add r1, r1, r14 @ b = r1 + delta
587 add r11, r11, r14, lsl #1 @ r = r11 + delta*2
588 add r7, r7, r14, lsr #1 @ g = r7 + delta/2
590 orr r12, r1, r11, asr #1 @ check if clamping is needed...
591 orr r12, r12, r7 @ ...at all
592 movs r12, r12, asr #15 @
594 movs r12, r1, asr #15 @ clamp b
595 mvnne r1, r12, lsr #15 @
596 andne r1, r1, #0x7c00 @ mask b only if clamped
597 movs r12, r11, asr #16 @ clamp r
598 mvnne r11, r12, lsr #16 @
599 movs r12, r7, asr #15 @ clamp g
600 mvnne r7, r12, lsr #15 @
603 and r11, r11, #0xf800 @ pack pixel
604 and r7, r7, #0x7e00 @ r1 = pixel = (r & 0xf800) |
605 orr r11, r11, r7, lsr #4 @ ((g & 0x7e00) >> 4) |
606 orr r1, r11, r1, lsr #10 @ (b >> 10)
608 #if LCD_WIDTH >= LCD_HEIGHT
609 add r0, r0, #2*LCD_WIDTH
610 strh r1, [r0, #2] @ store pixel
612 sub r0, r0, #(2*LCD_WIDTH)-4
614 sub r0, r0, #(2*LCD_WIDTH)
618 strh r1, [r0, #-2] @ store pixel
620 add r0, r0, #2*LCD_WIDTH @
622 add r0, r0, #LCD_WIDTH @
626 subs r2, r2, #2 @ subtract block from width
627 bgt 10b @ loop line @
629 ldmfd sp!, { r4-r12, pc } @ restore registers and return
630 .ltorg @ dump constant pool
631 .size lcd_write_yuv420_lines_odither, .-lcd_write_yuv420_lines_odither