hannouch/grpC_Oussama_Boyu
0
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Update 'soft/PjtKEIL_StepDFT/Src/DFT.s'

Browse source
This commit is contained in:
Oussama Hannouch 2023-04-11 00:06:57 +02:00
parent 2405f82451
commit 31453fac05
1 changed files with 37 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
soft/PjtKEIL_StepDFT/Src/DFT.s
View file

@ -2,7 +2,7 @@
THUMB THUMB
; ====================== zone de réservation de données, ====================================== ; ====================== zone de réservation de données, ======================================
;Section RAM (read only) : ;Section RAM (read only) :
area mesdata,data,readonly area mesdata,data,readonly
@ -19,8 +19,43 @@
;Section ROM code (read only) : ;Section ROM code (read only) :
area moncode,code,readonly 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