41 lines
480 B
ArmAsm
41 lines
480 B
ArmAsm
; ce programme est pour l'assembleur RealView (Keil)
|
|
thumb
|
|
|
|
import TabCos
|
|
import TabSin
|
|
;import TabSig
|
|
|
|
area moncode, code, readonly
|
|
export reelle
|
|
|
|
reelle proc
|
|
|
|
mov r2, #0
|
|
mov r3, #0
|
|
|
|
|
|
boucle push {r3}
|
|
push {r0}
|
|
mul r0,r0,r2
|
|
and r0,#0x3F
|
|
ldrsh r3, [r1, r0, LSL #0x01]
|
|
pop {r0}
|
|
;push {r1}
|
|
;ldr r1,=TabSig
|
|
ldrsh r12, [r9,r2, LSL #0x01]
|
|
;pop {r1}
|
|
mul r12,r12,r3
|
|
pop {r3}
|
|
add r3,r3,r12
|
|
add r2,#1
|
|
cmp r2,#64
|
|
bne boucle
|
|
|
|
mov r0,r3
|
|
|
|
|
|
endp
|
|
bx lr
|
|
|
|
end
|
|
|