20 |
# $Date$ |
# $Date$ |
21 |
# $Author$ |
# $Author$ |
22 |
# |
# |
23 |
# This is my first PPC ASM program. So I might do nasty things. |
# This is my first PPC ASM attempt. So I might do nasty things. |
24 |
# Please send any comments to guillaume@morinfr.org |
# Please send any comments to <guillaume@morinfr.org> |
25 |
|
|
26 |
|
|
27 |
# Returns a field of bits that indicates non zero ac blocks |
# Returns a field of bits that indicates non zero ac blocks |
55 |
calc_cbp_ppc: |
calc_cbp_ppc: |
56 |
# r9 will contain coeffs addr |
# r9 will contain coeffs addr |
57 |
mr 9,3 |
mr 9,3 |
58 |
# r8 is the loop counter |
# r8 is the loop counter (rows) |
59 |
li 8,5 |
li 8,5 |
60 |
# r3 contains the result, therefore we set it to 0 |
# r3 contains the result, therefore we set it to 0 |
61 |
xor 3,3,3 |
xor 3,3,3 |
62 |
.loop: |
.loop: |
63 |
# r7 is the loop2 counter, FIXME: use CTR |
# CTR is the loop2 counter |
64 |
li 7,14 |
li 7,15 |
65 |
|
mtspr 9,7 |
66 |
# r6 is coeff pointer for this line |
# r6 is coeff pointer for this line |
67 |
mr 6,9 |
mr 6,9 |
68 |
.loop2: |
.loop2: |
78 |
# testing bit 2 (is zero) of CR0 |
# testing bit 2 (is zero) of CR0 |
79 |
bf 2,.cbp |
bf 2,.cbp |
80 |
addi 6,6,8 |
addi 6,6,8 |
81 |
# subic. updates CR0 |
bdnz .loop2 |
82 |
subic. 7,7,1 |
# latest line coeffs |
|
# testing bit 0 (is negative) of CR0 |
|
|
bt 0,.lastcoeffs |
|
|
b .loop2 |
|
|
.lastcoeffs: |
|
83 |
lha 4,2(6) |
lha 4,2(6) |
84 |
lha 5,4(6) |
lha 5,4(6) |
85 |
or 4,5,4 |
or 4,5,4 |
92 |
li 4,1 |
li 4,1 |
93 |
slw 4,4,8 |
slw 4,4,8 |
94 |
or 3,3,4 |
or 3,3,4 |
|
b .newline |
|
95 |
.newline: |
.newline: |
96 |
addi 9,9,128 |
addi 9,9,128 |
97 |
# updates CR0, blabla |
# updates CR0, blabla |
98 |
subic. 8,8,1 |
subic. 8,8,1 |
99 |
bf 0,.loop |
bf 0,.loop |
|
.end: |
|
100 |
blr |
blr |