Update 'soft/PjtKEIL_StepDFT/Src/DFT.s'
This commit is contained in:
parent
2405f82451
commit
31453fac05
1 changed files with 37 additions and 2 deletions
|
@ -2,7 +2,7 @@
|
|||
THUMB
|
||||
|
||||
|
||||
; ====================== zone de réservation de données, ======================================
|
||||
; ====================== zone de réservation de données, ======================================
|
||||
;Section RAM (read only) :
|
||||
area mesdata,data,readonly
|
||||
|
||||
|
@ -19,8 +19,43 @@
|
|||
|
||||
;Section ROM code (read only) :
|
||||
area moncode,code,readonly
|
||||
; écrire le code ici
|
||||
; écrire le code ici
|
||||
|
||||
export DFT_ModuleAuCarre
|
||||
|
||||
DFT_ModuleAuCarre proc
|
||||
push {r4, r5, r6, r8, r9, r10} ;
|
||||
eor r2, r2 ; partie imaginaire = 0
|
||||
eor r3, r3 ; partie reelle = 0
|
||||
eor r7, r7 ;
|
||||
eor r4, r4 ;
|
||||
ldr r5, =TabCos
|
||||
ldr r6, =TabSin
|
||||
|
||||
SumLoop
|
||||
ldrsh r8, [r0, r4, lsl #1] ;
|
||||
|
||||
ldrsh r9, [r5, r7, lsl #1] ;
|
||||
mul r9, r8, r9
|
||||
asr r9, #15 ;
|
||||
add r3, r3, r9
|
||||
|
||||
;ldrsh r10, [r6, r7, lsl #1] ;
|
||||
;mul r10, r8, r10
|
||||
;asr r10, #15 ; la virgule est fixe
|
||||
;add r2, r2, r10
|
||||
|
||||
add r7, r1 ;
|
||||
add r4, r4, #1 ; ++n
|
||||
cmp r4, #64
|
||||
bcc SumLoop ; if n < 64 refaire
|
||||
|
||||
|
||||
mov r0, r3 ; partie reelle
|
||||
|
||||
pop {r4, r5, r6, r8, r9, r10}
|
||||
bx lr
|
||||
endp
|
||||
|
||||
|
||||
|
||||
|
|
Loading…
Reference in a new issue