7 .equiv P32XV_PRI, (1<< 7)
11 .global Pico32xNativePal
19 .macro call_scan_prep cond
21 ldr r4, =PicoScan32xBegin
22 ldr r5, =PicoScan32xEnd
30 .macro call_scan_fin_ge cond
36 .macro call_scan_begin cond
42 ldr pc, [sp, #(3+0)*4]
43 ldr r0, [sp, #(3+2)*4] @ &DrawLineDest
49 .macro call_scan_end cond
55 ldr pc, [sp, #(4+1)*4]
61 @ unsigned short *dst, unsigned short *dram, int lines_offs, int mdbg
62 .macro make_do_loop_dc name call_scan do_md
65 stmfd sp!, {r4-r11,lr}
69 ldr r10,[r10, #0x40] @ Pico32x.vdp_regs[0]
71 ldr r9, =HighPal @ palmd
72 add r11,r11,#(328*8) @ r11 = pmd: md data
75 movne r10,#0x8000 @ r10 = inv_bit
76 call_scan_prep \call_scan
79 b 1f @ loop_outer_entry
82 call_scan_end \call_scan
84 sub r11,r11,#1 @ adjust for prev read
86 call_scan_fin_ge \call_scan
87 ldmgefd sp!, {r4-r11,pc}
89 1: @ loop_outer_entry:
90 call_scan_begin \call_scan
95 add r5, r1, r12, lsl #1 @ p32x = dram + dram[l]
98 ldrb r7, [r11], #1 @ MD pixel
101 ldrh r8, [r5], #2 @ 32x pixel
102 cmp r7, r3 @ MD has bg pixel?
105 ands r12,r12,#0x8000 @ !((t ^ inv) & 0x8000)
109 streqh r12,[r0], #2 @ *dst++ = palmd[*pmd]
116 orr r8, r8, r8, lsr #(10+11)
117 orr r8, r8, r12,lsl #1
118 bic r8, r8, #0x0020 @ kill prio bit
119 strh r8, [r0], #2 @ *dst++ = bgr2rgb(*p32x++)
125 .macro do_pixel_pp do_md
126 ldrb r7, [r11], #1 @ MD pixel
128 ldrb r8, [r12] @ palette index
129 cmp r7, r3 @ MD has bg pixel?
131 ldrh r8, [r10,r12] @ t = 32x pixel
137 ldrneh r8, [r9, r7] @ t = palmd[*pmd]
139 strh r8, [r0], #2 @ *dst++ = t
147 @ unsigned short *dst, unsigned short *dram, int lines_offs, int mdbg
148 .macro make_do_loop_pp name call_scan do_md
151 stmfd sp!, {r4-r11,lr}
154 ldr r10,=Pico32xNativePal
157 ldr r9, =HighPal @ palmd
158 add r11,r11,#(328*8) @ r11 = pmd: md data
159 call_scan_prep \call_scan
162 b 1f @ loop_outer_entry
165 call_scan_end \call_scan
168 call_scan_fin_ge \call_scan
169 ldmgefd sp!, {r4-r11,pc}
171 1: @ loop_outer_entry:
172 call_scan_begin \call_scan
177 add r5, r1, r12, lsl #1 @ p32x = dram + dram[l]
188 @ unsigned short *dst, unsigned short *dram, int lines_offs, int mdbg
189 .macro make_do_loop_rl name call_scan do_md
192 stmfd sp!, {r4-r11,lr}
195 ldr r10,=Pico32xNativePal
198 ldr r9, =HighPal @ palmd
199 add r11,r11,#(328*8) @ r11 = pmd: md data
200 call_scan_prep \call_scan
203 b 1f @ loop_outer_entry
206 call_scan_end \call_scan
208 sub r11,r11,#1 @ adjust for prev read
210 call_scan_fin_ge \call_scan
211 ldmgefd sp!, {r4-r11,pc}
213 1: @ loop_outer_entry:
214 call_scan_begin \call_scan
219 add r5, r1, r12, lsl #1 @ p32x = dram + dram[l]
222 ldrh r8, [r5], #2 @ control word
225 ldrh lr, [r10,r12] @ t = 32x pixel
229 ldrb r7, [r11], #1 @ MD pixel
232 cmp r7, r3 @ MD has bg pixel?
236 ldrneh r12,[r9, r7] @ t = palmd[*pmd]
238 strneh r12,[r0], #2 @ *dst++ = t
244 bge 3b @ loop_innermost
249 make_do_loop_dc do_loop_dc, 0, 0
250 make_do_loop_dc do_loop_dc_md, 0, 1
251 make_do_loop_dc do_loop_dc_scan, 1, 0
252 make_do_loop_dc do_loop_dc_scan_md, 1, 1
254 make_do_loop_pp do_loop_pp, 0, 0
255 make_do_loop_pp do_loop_pp_md, 0, 1
256 make_do_loop_pp do_loop_pp_scan, 1, 0
257 make_do_loop_pp do_loop_pp_scan_md, 1, 1
259 make_do_loop_rl do_loop_rl, 0, 0
260 make_do_loop_rl do_loop_rl_md, 0, 1
261 make_do_loop_rl do_loop_rl_scan, 1, 0
262 make_do_loop_rl do_loop_rl_scan_md, 1, 1