You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
69 lines
1.6 KiB
69 lines
1.6 KiB
*********************************************************************************
|
|
* Origine du fichier l:\up\tp3\ex1\sa_ps1.sa (rev. 16-02-2004) *
|
|
* Ce fichier est copié dans le répertoire (project) f:\up\tp3\ex1 *
|
|
* pour être complété. *
|
|
* *
|
|
* BINOME : *
|
|
*********************************************************************************
|
|
|
|
* Fonction sa_ps1() en assembleur linéaire
|
|
* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
|
|
* Cette fonction peut être appelée dans un programme C dans lequel on a déclaré
|
|
* au début du fichier : extern int sa_ps1(short *,short *, int);
|
|
*
|
|
* Exemple d'appel : y= sa_ps1(a, x, 256);
|
|
*
|
|
* Consulter l'aide en ligne (cproc) pour savoir comment récupérer les paramètres et
|
|
* faire le return de la procédure.
|
|
*
|
|
* POUR CE PROGRAMME :
|
|
* ^^^^^^^^^^^^^^^^^^^
|
|
* PROGRAMMATION EN ASSEMBLEUR LINÉAIRE EN UTILISANT DES INSTRUCTIONS LDW
|
|
*********************************************************************************
|
|
|
|
.def _sa_ps1
|
|
NBPS .equ 100
|
|
|
|
_sa_ps1 .cproc ot1, ot2, taille
|
|
.reg nbre_ps
|
|
.reg t1
|
|
.reg t2
|
|
.reg e1
|
|
.reg e2
|
|
.reg somme
|
|
.reg sm1
|
|
.reg sm2
|
|
.reg s1
|
|
.reg s2
|
|
.reg elems
|
|
|
|
mvk NBPS,nbre_ps
|
|
|
|
ps: zero somme
|
|
zero sm1
|
|
zero sm2
|
|
mv taille, elems
|
|
mv ot1, t1
|
|
mv ot2, t2
|
|
|
|
loop:
|
|
sub elems, 2, elems
|
|
|
|
ldw *t1++, e1
|
|
ldw *t2++, e2
|
|
|
|
mpy e1, e2, s1
|
|
mpyh e1, e2, s2
|
|
|
|
add s1, sm1, sm1
|
|
add s2, sm2, sm2
|
|
|
|
[elems] b loop
|
|
add sm1, sm2, somme
|
|
|
|
|
|
sub nbre_ps,1,nbre_ps
|
|
[nbre_ps] b ps
|
|
|
|
.return somme
|
|
.endproc
|