37 lines
No EOL
490 B
ArmAsm
37 lines
No EOL
490 B
ArmAsm
; ce programme est pour l'assembleur RealView (Keil)
|
|
thumb
|
|
|
|
import TabCos
|
|
import TabSin
|
|
;import TabSig
|
|
import reelle
|
|
|
|
area moncode, code, readonly
|
|
export module
|
|
|
|
module proc
|
|
push {lr}
|
|
push {r9}
|
|
push {r8}
|
|
mov r9,r1
|
|
mov r8,r0 ;on garde la valeur k dans r8
|
|
ldr r1,=TabSin
|
|
bl reelle
|
|
push {r0}
|
|
mov r0,r8 ;je remets la valeur k dans r8
|
|
ldr r1,=TabCos
|
|
bl reelle
|
|
pop {r1}
|
|
SMULL r1,r2,r1,r1
|
|
SMLAL r1,r2,r0,r0
|
|
mov r0,r2
|
|
pop {r8}
|
|
pop {r9}
|
|
pop {pc}
|
|
|
|
|
|
endp
|
|
bx lr
|
|
|
|
end
|
|
|