Correction du reste des remarques
This commit is contained in:
parent
474606b6f7
commit
4b88d9e615
1 changed files with 3 additions and 3 deletions
|
@ -7,14 +7,14 @@ dft proc
|
|||
push {lr, r4, r5, r0} ; empilage de l'adresse de retour
|
||||
ldr r2, =TabCos ; on met l'addr de TabCos
|
||||
bl cal_comp ; on calcule Re(k)
|
||||
smull r4, r5, r0, r0 ; r4r5 = Re(k)²
|
||||
smull r4, r5, r0, r0 ; r4r5 = Re(k)² | format : 2.30
|
||||
|
||||
pop {r0}
|
||||
ldr r2, =TabSin ; on met l'addr de TabSin
|
||||
bl cal_comp ; on calcule -Im(k)
|
||||
smlal r4, r5, r0, r0 ; r4r5 = Re(k)² + Im(k)²
|
||||
smlal r4, r5, r0, r0 ; r4r5 = Re(k)² + Im(k)² | format : 2.30
|
||||
|
||||
mov r0, r5 ; On prend les 32 bits de poids fort
|
||||
mov r0, r5 ; On prend les 32 bits de poids fort pour revenir au format 1.15
|
||||
|
||||
pop {pc, r4, r5} ; dépilage de l'adresse de retour
|
||||
endp
|
||||
|
|
Loading…
Reference in a new issue