25 lines
No EOL
330 B
ArmAsm
25 lines
No EOL
330 B
ArmAsm
; ce programme est pour l'assembleur RealView (Keil)
|
|
thumb
|
|
area moncode, code, readonly
|
|
export calcul_carre
|
|
import TabCos
|
|
import TabSin
|
|
;
|
|
|
|
calcul_carre proc
|
|
ldr r3, =TabSin
|
|
ldr r5, =TabCos
|
|
ldrh r2, [r3, r0, LSL #1]
|
|
ldrh r0, [r5, r0, LSL #1]
|
|
|
|
mul r0, r0
|
|
mul r2, r2
|
|
|
|
add r0, r2
|
|
|
|
str r0, [r1]
|
|
|
|
bx lr
|
|
endp
|
|
|
|
end |