gharb/chti23
1
0
Fork 0
forked from acco/chti23
Code Issues Pull requests Releases Wiki Activity

dft

Browse source
This commit is contained in:
Sanim G 2023-05-17 12:10:23 +02:00
parent 0629a49487
commit 945217f495
2 changed files with 70 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -31,31 +31,68 @@ DFT_ModuleAuCarre proc
push {r7} push {r7}
push {r8} push {r8}
push {r9} push {r9}
push {r10}
push {r11}
push {r12}
LDR r4,=TabCos LDR r4,=TabCos
LDR r5,=TabSin LDR r5,=TabSin
MOV r8,#0 ; Xreel MOV r8,#0 ; Xreel
MOV r9,#64 ; max MOV r9,#64 ; max
MOV r0,#0
Loop Loop
LDRSH r6,[r4,r3] ;calcul de p=k*n[M] dans r11
LDRSH r7,[r2,r3] push {r0}
MUL r6,r1,r6 ; mul cos par k push {r4}
MUL r6,r7,r6 ; mul cos et val res en (5.27) mul r0,r1,r3
and r0,r0,#63
mov r4,#2
MUL r11,r0,r4
pop{r4}
pop {r0}
ADD r8,r6 LDRSH r6,[r4,r11] ; load le cos (1.15)
LDRSH r10,[r5,r11] ; load le sin (1.15)
push{r0}
push{r1}
mov r0,#2
mul r1,r3,r0
LDRSH r7,[r2,r1] ; load le signal (format 4.12)
pop{r1}
pop{r0}
MUL r6,r7,r6 ; mul cos et val res en (5.27)
MUL r10,r7,r10 ; mul sin et val res resultat en (5.27)
ADD r8,r6 ; sum partie reel
ADD r0,r10 ; sum partie imaginaire
ADD r3,#1 ADD r3,#1
MOV r9,#64
CMP r3,r9 CMP r3,r9
pop{r5}
pop{r5}
BNE Loop BNE Loop
mov r8,r0 push {r1}
push {r11}
UMLAL r11,r12,r8,r8 ; format (10.54) avec 2 registre de 32bits chacun (R11(low) et R12(high))
UMLAL r1,r7,r0,r0 ; format (10.54) avec 2 registre de 32bits chacun (R1(low) et R7(high))
pop {r11}
pop{r1}
mov r0,#0
ADD r0,r12,r7 ; r0 au format (10.22)
pop {r12}
pop {r11}
pop {r10}
pop {r9} pop {r9}
pop {r8} pop {r8}
pop {r7} pop {r7}
pop {r6} pop {r6}
pop {r4}
pop {r5} pop {r5}
pop {r4}
bx lr bx lr
ENDFUNC ENDFUNC

44
soft/PjtKEIL_StepDFT/StepDFT.uvoptx
View file

@ -157,9 +157,9 @@
<Bp> <Bp>
<Number>0</Number> <Number>0</Number>
<Type>0</Type> <Type>0</Type>
<LineNumber>40</LineNumber> <LineNumber>49</LineNumber>
<EnabledFlag>1</EnabledFlag> <EnabledFlag>1</EnabledFlag>
<Address>134218414</Address> <Address>134218438</Address>
<ByteObject>0</ByteObject> <ByteObject>0</ByteObject>
<HtxType>0</HtxType> <HtxType>0</HtxType>
<ManyObjects>0</ManyObjects> <ManyObjects>0</ManyObjects>
@ -168,36 +168,40 @@
<BreakIfRCount>1</BreakIfRCount> <BreakIfRCount>1</BreakIfRCount>
<Filename>.\Src\DFT.s</Filename> <Filename>.\Src\DFT.s</Filename>
<ExecCommand></ExecCommand> <ExecCommand></ExecCommand>
<Expression>\\StepDFT\Src/DFT.s\40</Expression> <Expression>\\StepDFT\Src/DFT.s\49</Expression>
</Bp>
<Bp>
<Number>1</Number>
<Type>0</Type>
<LineNumber>39</LineNumber>
<EnabledFlag>1</EnabledFlag>
<Address>0</Address>
<ByteObject>0</ByteObject>
<HtxType>0</HtxType>
<ManyObjects>0</ManyObjects>
<SizeOfObject>0</SizeOfObject>
<BreakByAccess>0</BreakByAccess>
<BreakIfRCount>0</BreakIfRCount>
<Filename>.\Src\DFT.s</Filename>
<ExecCommand></ExecCommand>
<Expression></Expression>
</Bp> </Bp>
</Breakpoint> </Breakpoint>
<WatchWindow1> <WatchWindow1>
<Ww> <Ww>
<count>0</count> <count>0</count>
<WinNumber>1</WinNumber> <WinNumber>1</WinNumber>
<ItemText>r6</ItemText> <ItemText>r8</ItemText>
</Ww> </Ww>
<Ww> <Ww>
<count>1</count> <count>1</count>
<WinNumber>1</WinNumber> <WinNumber>1</WinNumber>
<ItemText>r0</ItemText> <ItemText>r0</ItemText>
</Ww> </Ww>
<Ww>
<count>2</count>
<WinNumber>1</WinNumber>
<ItemText>r10</ItemText>
</Ww>
<Ww>
<count>3</count>
<WinNumber>1</WinNumber>
<ItemText>r6</ItemText>
</Ww>
<Ww>
<count>4</count>
<WinNumber>1</WinNumber>
<ItemText>r7</ItemText>
</Ww>
<Ww>
<count>5</count>
<WinNumber>1</WinNumber>
<ItemText>r11</ItemText>
</Ww>
</WatchWindow1> </WatchWindow1>
<Tracepoint> <Tracepoint>
<THDelay>0</THDelay> <THDelay>0</THDelay>