forked from acco/chti23
205 lines
No EOL
6.6 KiB
ArmAsm
205 lines
No EOL
6.6 KiB
ArmAsm
PRESERVE8
|
|
THUMB
|
|
|
|
|
|
; ====================== zone de réservation de données, ======================================
|
|
;Section RAM (read only) :
|
|
area mesdata,data,readonly
|
|
|
|
|
|
;Section RAM (read write):
|
|
area maram,data,readwrite
|
|
|
|
|
|
|
|
; ===============================================================================================
|
|
|
|
|
|
|
|
|
|
;Section ROM code (read only) :
|
|
area moncode,code,readonly
|
|
; écrire le code ici
|
|
|
|
export DFT_ModuleAuCarre
|
|
DFT_ModuleAuCarre proc
|
|
push{r4-r10}; Sauvegarde des registres r4 à r10 dans la pile
|
|
mov r2, #0 ;initialisation de la partie imaginaire à zero
|
|
mov r3, #0 ;initialisation de la partie relle à zero
|
|
mov r7 ,#0 ;initialisation de p(=n*k) à zero
|
|
mov r4 ,#0 ;initialisation de l'indice n à zero
|
|
ldr r5, =TabCos ; chargement de l'adresse de TabCos dans r5
|
|
ldr r6, =TabSin ; chargement de l'adresse de TabCos dans r5
|
|
|
|
|
|
Sommation
|
|
;Rsom += Signal[i] * TabCos[k*i]
|
|
ldrsh r8,[r0, r4, lsl#1] ; chargement du LeSignal[n] dans r8
|
|
ldrsh r9,[r5, r7, lsl #1] ; chargement de TabCos[p] dans r9
|
|
ldrsh r10,[r6, r7, lsl #1] ; chargement de TabSin[p] dans r10
|
|
mul r9, r8, r9 ; multiplication de LeSignal[n] par TabCos[n*k]--> Format 5.27
|
|
mul r10, r8, r10 ; multiplication de LeSignal[n] par TabSin[n*k] --> Format 5.27
|
|
asr r9, #16 ; Réduction du format pour éviter le débordement --> Format 5.11
|
|
asr r10,#16 ; Réduction du format pour éviter le débordement
|
|
add r3,r3, r9 ; ajout de la partie réelle au résultat (conservation du format) --> Format 11.11
|
|
add r2,r2, r10 ; ajout de la partie imaginaire au résultat (conservation du format) --> Format 11.11
|
|
|
|
add r7, r1 ; Calcul de p = (n+1) * k
|
|
and r7, 63 ; modulo 64 pour ne pas depasser la taille du tableau
|
|
add r4, r4, #1 ; incrémentation de l'indice n
|
|
cmp r4 ,#64 ; comparaison de n à 64
|
|
blt Sommation ; si n<64 on continue la boucle
|
|
|
|
asr r3, #6 ; Réduction du format de la partie réelle pour le calcul au carré --> Format 11.5 (décalage 10 bits)
|
|
mul r3, r3, r3 ; Calcul du carré de la partie réelle --> Format 10.22
|
|
asr r2, #6 ; Réduction du format de la partie imaginaire pour le calcul au carré --> Format 11.5 (décalage 10 bits)
|
|
mul r2, r2, r2 ; Calcul du carré de la partie réelle --> Format 22.10
|
|
mov r0, r3 ; Copie de la partie réelle dans le registre r0
|
|
add r0, r0, r2 ; Addition de la partie imaginaire dans r0 (résultat final) --> Format 22.10
|
|
|
|
pop{r4-r10} ; restauration des registres depuis la pile
|
|
bx lr
|
|
endp
|
|
|
|
|
|
|
|
|
|
;Section ROM code (read only) :
|
|
AREA Trigo, DATA, READONLY
|
|
; codage fractionnaire 1.15
|
|
|
|
TabCos
|
|
DCW 32767 ; 0 0x7fff 0.99997
|
|
DCW 32610 ; 1 0x7f62 0.99518
|
|
DCW 32138 ; 2 0x7d8a 0.98077
|
|
DCW 31357 ; 3 0x7a7d 0.95694
|
|
DCW 30274 ; 4 0x7642 0.92389
|
|
DCW 28899 ; 5 0x70e3 0.88193
|
|
DCW 27246 ; 6 0x6a6e 0.83148
|
|
DCW 25330 ; 7 0x62f2 0.77301
|
|
DCW 23170 ; 8 0x5a82 0.70709
|
|
DCW 20788 ; 9 0x5134 0.63440
|
|
DCW 18205 ; 10 0x471d 0.55557
|
|
DCW 15447 ; 11 0x3c57 0.47141
|
|
DCW 12540 ; 12 0x30fc 0.38269
|
|
DCW 9512 ; 13 0x2528 0.29028
|
|
DCW 6393 ; 14 0x18f9 0.19510
|
|
DCW 3212 ; 15 0x0c8c 0.09802
|
|
DCW 0 ; 16 0x0000 0.00000
|
|
DCW -3212 ; 17 0xf374 -0.09802
|
|
DCW -6393 ; 18 0xe707 -0.19510
|
|
DCW -9512 ; 19 0xdad8 -0.29028
|
|
DCW -12540 ; 20 0xcf04 -0.38269
|
|
DCW -15447 ; 21 0xc3a9 -0.47141
|
|
DCW -18205 ; 22 0xb8e3 -0.55557
|
|
DCW -20788 ; 23 0xaecc -0.63440
|
|
DCW -23170 ; 24 0xa57e -0.70709
|
|
DCW -25330 ; 25 0x9d0e -0.77301
|
|
DCW -27246 ; 26 0x9592 -0.83148
|
|
DCW -28899 ; 27 0x8f1d -0.88193
|
|
DCW -30274 ; 28 0x89be -0.92389
|
|
DCW -31357 ; 29 0x8583 -0.95694
|
|
DCW -32138 ; 30 0x8276 -0.98077
|
|
DCW -32610 ; 31 0x809e -0.99518
|
|
DCW -32768 ; 32 0x8000 -1.00000
|
|
DCW -32610 ; 33 0x809e -0.99518
|
|
DCW -32138 ; 34 0x8276 -0.98077
|
|
DCW -31357 ; 35 0x8583 -0.95694
|
|
DCW -30274 ; 36 0x89be -0.92389
|
|
DCW -28899 ; 37 0x8f1d -0.88193
|
|
DCW -27246 ; 38 0x9592 -0.83148
|
|
DCW -25330 ; 39 0x9d0e -0.77301
|
|
DCW -23170 ; 40 0xa57e -0.70709
|
|
DCW -20788 ; 41 0xaecc -0.63440
|
|
DCW -18205 ; 42 0xb8e3 -0.55557
|
|
DCW -15447 ; 43 0xc3a9 -0.47141
|
|
DCW -12540 ; 44 0xcf04 -0.38269
|
|
DCW -9512 ; 45 0xdad8 -0.29028
|
|
DCW -6393 ; 46 0xe707 -0.19510
|
|
DCW -3212 ; 47 0xf374 -0.09802
|
|
DCW 0 ; 48 0x0000 0.00000
|
|
DCW 3212 ; 49 0x0c8c 0.09802
|
|
DCW 6393 ; 50 0x18f9 0.19510
|
|
DCW 9512 ; 51 0x2528 0.29028
|
|
DCW 12540 ; 52 0x30fc 0.38269
|
|
DCW 15447 ; 53 0x3c57 0.47141
|
|
DCW 18205 ; 54 0x471d 0.55557
|
|
DCW 20788 ; 55 0x5134 0.63440
|
|
DCW 23170 ; 56 0x5a82 0.70709
|
|
DCW 25330 ; 57 0x62f2 0.77301
|
|
DCW 27246 ; 58 0x6a6e 0.83148
|
|
DCW 28899 ; 59 0x70e3 0.88193
|
|
DCW 30274 ; 60 0x7642 0.92389
|
|
DCW 31357 ; 61 0x7a7d 0.95694
|
|
DCW 32138 ; 62 0x7d8a 0.98077
|
|
DCW 32610 ; 63 0x7f62 0.99518
|
|
TabSin
|
|
DCW 0 ; 0 0x0000 0.00000
|
|
DCW 3212 ; 1 0x0c8c 0.09802
|
|
DCW 6393 ; 2 0x18f9 0.19510
|
|
DCW 9512 ; 3 0x2528 0.29028
|
|
DCW 12540 ; 4 0x30fc 0.38269
|
|
DCW 15447 ; 5 0x3c57 0.47141
|
|
DCW 18205 ; 6 0x471d 0.55557
|
|
DCW 20788 ; 7 0x5134 0.63440
|
|
DCW 23170 ; 8 0x5a82 0.70709
|
|
DCW 25330 ; 9 0x62f2 0.77301
|
|
DCW 27246 ; 10 0x6a6e 0.83148
|
|
DCW 28899 ; 11 0x70e3 0.88193
|
|
DCW 30274 ; 12 0x7642 0.92389
|
|
DCW 31357 ; 13 0x7a7d 0.95694
|
|
DCW 32138 ; 14 0x7d8a 0.98077
|
|
DCW 32610 ; 15 0x7f62 0.99518
|
|
DCW 32767 ; 16 0x7fff 0.99997
|
|
DCW 32610 ; 17 0x7f62 0.99518
|
|
DCW 32138 ; 18 0x7d8a 0.98077
|
|
DCW 31357 ; 19 0x7a7d 0.95694
|
|
DCW 30274 ; 20 0x7642 0.92389
|
|
DCW 28899 ; 21 0x70e3 0.88193
|
|
DCW 27246 ; 22 0x6a6e 0.83148
|
|
DCW 25330 ; 23 0x62f2 0.77301
|
|
DCW 23170 ; 24 0x5a82 0.70709
|
|
DCW 20788 ; 25 0x5134 0.63440
|
|
DCW 18205 ; 26 0x471d 0.55557
|
|
DCW 15447 ; 27 0x3c57 0.47141
|
|
DCW 12540 ; 28 0x30fc 0.38269
|
|
DCW 9512 ; 29 0x2528 0.29028
|
|
DCW 6393 ; 30 0x18f9 0.19510
|
|
DCW 3212 ; 31 0x0c8c 0.09802
|
|
DCW 0 ; 32 0x0000 0.00000
|
|
DCW -3212 ; 33 0xf374 -0.09802
|
|
DCW -6393 ; 34 0xe707 -0.19510
|
|
DCW -9512 ; 35 0xdad8 -0.29028
|
|
DCW -12540 ; 36 0xcf04 -0.38269
|
|
DCW -15447 ; 37 0xc3a9 -0.47141
|
|
DCW -18205 ; 38 0xb8e3 -0.55557
|
|
DCW -20788 ; 39 0xaecc -0.63440
|
|
DCW -23170 ; 40 0xa57e -0.70709
|
|
DCW -25330 ; 41 0x9d0e -0.77301
|
|
DCW -27246 ; 42 0x9592 -0.83148
|
|
DCW -28899 ; 43 0x8f1d -0.88193
|
|
DCW -30274 ; 44 0x89be -0.92389
|
|
DCW -31357 ; 45 0x8583 -0.95694
|
|
DCW -32138 ; 46 0x8276 -0.98077
|
|
DCW -32610 ; 47 0x809e -0.99518
|
|
DCW -32768 ; 48 0x8000 -1.00000
|
|
DCW -32610 ; 49 0x809e -0.99518
|
|
DCW -32138 ; 50 0x8276 -0.98077
|
|
DCW -31357 ; 51 0x8583 -0.95694
|
|
DCW -30274 ; 52 0x89be -0.92389
|
|
DCW -28899 ; 53 0x8f1d -0.88193
|
|
DCW -27246 ; 54 0x9592 -0.83148
|
|
DCW -25330 ; 55 0x9d0e -0.77301
|
|
DCW -23170 ; 56 0xa57e -0.70709
|
|
DCW -20788 ; 57 0xaecc -0.63440
|
|
DCW -18205 ; 58 0xb8e3 -0.55557
|
|
DCW -15447 ; 59 0xc3a9 -0.47141
|
|
DCW -12540 ; 60 0xcf04 -0.38269
|
|
DCW -9512 ; 61 0xdad8 -0.29028
|
|
DCW -6393 ; 62 0xe707 -0.19510
|
|
DCW -3212 ; 63 0xf374 -0.09802
|
|
|
|
|
|
|
|
|
|
END
|