; 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