Accueil > > > RECURSIVITE EN ASM
RECURSIVITE EN ASM
Information sur la source
Description
ce programme illustre la recursivite en assembleur on utilise comme example la fonction de "FIBONACCI" et la "FACTORIEL"
Source
- DONNE SEGMENT
-
- MESSAGE DB 10,13,"*********CE PROGRAMME CALCULE LE SUIT DE FIBONACCI EN ASSEMBLEUR*******",10,13,'$'
- UN_NUMERO DB 10,13," ENTRER LE RANG : ",'$'
- RESULTAT DB 10,13," VIOCI LE RESULTAT ",'$'
- MSGFACTO DB 10,13," ET POUR LE FACTORIELLE LE RESULTATA EST : ",'$'
- MSGERREUR DB 10,13,"ENTRER UN NOMBRE SVP",'$'
- DONNE ENDS
-
- CODE SEGMENT
-
- ASSUME CS:CODE,DS:DONNE
- debut:
- MOV AX,DONNE
- MOV DS,AX
-
- LEA DX,MESSAGE
- MOV AH,09H
- INT 21H
- LEA DX,UN_NUMERO
- INT 21H
- MOV BX,0
- MOV CX,10
- ;LECTURE ET CONVERTION DES DU NOMBRE LU DANS LE REGISTRE BX
- LECT:
- MOV AH,01H ;on lit un caractaire
- INT 21H
- CBW
- CMP AL,13 ; si c'est ENTRER on va la suit du programme
- JE SUIT
- CMP AL,30H ;SINON ON VERIFIE SI C'EST UN CHIFFRE
- JL ERREUR
- CMP AL,39H
- JA ERREUR
- SUB AL,30H ;si oui on lui soustrait 30H
- XCHG AX,BX
- MUL CX ;on multiplie le resultat deja obtenu par 10
- JC SUIT
- ADD AX,BX ;ON L'ADDITIONNE AVEC LE NOMBRE LU
- XCHG AX,BX ; on met le resultat dans bx
- JMP LECT
- SUIT:
- MOV CX,BX ;ON MET DANS CX LE RAG
- PUSH CX
- CALL FIBO
- MOV DX,OFFSET RESULTAT
- MOV AH,09H
- INT 21H
- CALL AFFICHE
- POP CX
- CALL FACTO
- MOV BX,AX
- LEA DX,MSGFACTO
- MOV AH,09H
- INT 21H
- CALL AFFICHE
- JMP FIN
- ERREUR:
- LEA DX,MSGERREUR
- MOV AH,09H
- INT 21H
- FIN:
- MOV AH,01H
- INT 21H
- MOV AH,4CH
- INT 21H
- ;*************************************************
- ; LA PROCEDURE NON RECURSIVE DE FIBONACCI
- ;*************************************************
- FIBO:
- XOR AX,AX
- JCXZ RETOURE
- MOV BX,AX
- INC AX
- CMP CX,1
- JBE RETOURE
- TANQUE:
- PUSH AX
- ADD AX,BX
- POP BX
- LOOP TANQUE
- RETOURE:
- RET
- ;***************************************************
- ; LA PROCEDURE D'AFFICHAGE DU RESULTAT
- ;***************************************************
- AFFICHE:
- mov cl,10
- MOV AX,BX
- MOV SI,0
- MOV DX,0
- convert:
- INC SI
- div CX
- cmp AX,0
- je BOUCLE
- ADD DL,30H
- PUSH DX
- CWD
- JMP CONVERT
- BOUCLE:
- ADD DX,30H
- PUSH DX
- BCL:
- POP DX
- MOV AH,02H
- INT 21H
- DEC SI
- CMP SI,0
- JNE BCL
- ret
- ;*******************************************************************
- ;******************************************************************
- ;**** LA FONCTION FACTORIELLE RECURSIF ****
- ;******************************************************************
- FACTO:
- XOR AX,AX
- INC AX
- FACTORIELLE:
- JCXZ RET_PROG
- MUL CX
- DEC CX
- CALL FACTORIELLE ;ICI LE CALL EST SEULLEMENT FAIR ILLUSION A LA RECURSIVITE
- ; LE RESULTAT RESTERA LE MEME AVEC UN JMP MAIS TRES EFFICASSE
- RET_PROG:
- ret
-
- ;**** FIN DE LA PROCEDURE ******
- CODE ENDS
- END debut
DONNE SEGMENT
MESSAGE DB 10,13,"*********CE PROGRAMME CALCULE LE SUIT DE FIBONACCI EN ASSEMBLEUR*******",10,13,'$'
UN_NUMERO DB 10,13," ENTRER LE RANG : ",'$'
RESULTAT DB 10,13," VIOCI LE RESULTAT ",'$'
MSGFACTO DB 10,13," ET POUR LE FACTORIELLE LE RESULTATA EST : ",'$'
MSGERREUR DB 10,13,"ENTRER UN NOMBRE SVP",'$'
DONNE ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DONNE
debut:
MOV AX,DONNE
MOV DS,AX
LEA DX,MESSAGE
MOV AH,09H
INT 21H
LEA DX,UN_NUMERO
INT 21H
MOV BX,0
MOV CX,10
;LECTURE ET CONVERTION DES DU NOMBRE LU DANS LE REGISTRE BX
LECT:
MOV AH,01H ;on lit un caractaire
INT 21H
CBW
CMP AL,13 ; si c'est ENTRER on va la suit du programme
JE SUIT
CMP AL,30H ;SINON ON VERIFIE SI C'EST UN CHIFFRE
JL ERREUR
CMP AL,39H
JA ERREUR
SUB AL,30H ;si oui on lui soustrait 30H
XCHG AX,BX
MUL CX ;on multiplie le resultat deja obtenu par 10
JC SUIT
ADD AX,BX ;ON L'ADDITIONNE AVEC LE NOMBRE LU
XCHG AX,BX ; on met le resultat dans bx
JMP LECT
SUIT:
MOV CX,BX ;ON MET DANS CX LE RAG
PUSH CX
CALL FIBO
MOV DX,OFFSET RESULTAT
MOV AH,09H
INT 21H
CALL AFFICHE
POP CX
CALL FACTO
MOV BX,AX
LEA DX,MSGFACTO
MOV AH,09H
INT 21H
CALL AFFICHE
JMP FIN
ERREUR:
LEA DX,MSGERREUR
MOV AH,09H
INT 21H
FIN:
MOV AH,01H
INT 21H
MOV AH,4CH
INT 21H
;*************************************************
; LA PROCEDURE NON RECURSIVE DE FIBONACCI
;*************************************************
FIBO:
XOR AX,AX
JCXZ RETOURE
MOV BX,AX
INC AX
CMP CX,1
JBE RETOURE
TANQUE:
PUSH AX
ADD AX,BX
POP BX
LOOP TANQUE
RETOURE:
RET
;***************************************************
; LA PROCEDURE D'AFFICHAGE DU RESULTAT
;***************************************************
AFFICHE:
mov cl,10
MOV AX,BX
MOV SI,0
MOV DX,0
convert:
INC SI
div CX
cmp AX,0
je BOUCLE
ADD DL,30H
PUSH DX
CWD
JMP CONVERT
BOUCLE:
ADD DX,30H
PUSH DX
BCL:
POP DX
MOV AH,02H
INT 21H
DEC SI
CMP SI,0
JNE BCL
ret
;*******************************************************************
;******************************************************************
;**** LA FONCTION FACTORIELLE RECURSIF ****
;******************************************************************
FACTO:
XOR AX,AX
INC AX
FACTORIELLE:
JCXZ RET_PROG
MUL CX
DEC CX
CALL FACTORIELLE ;ICI LE CALL EST SEULLEMENT FAIR ILLUSION A LA RECURSIVITE
; LE RESULTAT RESTERA LE MEME AVEC UN JMP MAIS TRES EFFICASSE
RET_PROG:
ret
;**** FIN DE LA PROCEDURE ******
CODE ENDS
END debut
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
Assembleur ... [ par pi0up51 ]
Voilà je voulais savoir qch ..Je fais un bac S spécialité Science de l'ingenieur et on fais de la programmation assembleur, sur un vieux microcontrole
Deux Questions (Pas compliqué) [ par Dalamar ]
Je commence en Assembleur et j'ai deux questions:1-Je travaille avec dev-c++ et je voudrais savoir comment on inclus de l'assembleur2-J'ai trouvé u
Quel assembleur choisir ? [ par trinitacs ]
J'aimerai savoir quel est le meilleur assembleur qui existe ou si il en faut mixer. Je début difficielment l'asm avec NASM. Faut-il choisir MASM, TASM
langage c /assembleur [ par almai467 ]
salut ..!mon projet de fin d'annee est un logiciel (compteur internet) qui compte la duree de la connexion internet et le cout avec le langage c je c'
Programmation assembleur d'un pilote de souris serie [ par Scaq ]
COUCOU, C SCAQ...J'ai du mal à recevoir les données de ma souris serie
compilateur assembleur [ par morganitos ]
Salut a tous ce qui liront ce message.Je débute en programmation assembleur et voici ma question : où pourrai-je trouver un assembleur, un linker ...(
Petit problème pour le nul en assembleur que je suis Merci d'avance [ par rgc50 ]
Trouver parmis les 5 nombres 67, 79, 15, e3, 72 le nombre le pls élevé, on le stockera le résultat en 0100 (en assembleur 68000 (MOTOROLA)).
Pb assembleur très facile (pas pour moi) Merci d'avance [ par rgc50 ]
Trouver parmis les 5 nombres 67, 79, 15, e3, 72 le nombre le pls élevé, on le stockera le résultat en 0100 (en assembleur 68000 (MOTOROLA)).
Commander un PCF 8574 en assembleur 68000 [ par Apophis74 ]
Je cherche quelqu'un qui pourrait m'adier à faire communiquer ma carte Coldfire 5307 avec une carte d'ES PCF8574 via le bus I2C en assembleur 68000. M
Utilistaionde l'I2C en assembleur 68000 [ par Apophis74 ]
Je cherche une source qui pourrait m'aider à utiliser le bus I2C de ma carte Coldfire 5307 en asssembleur 68000. Help me!Apophis74
|
Derniers Blogs
[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOURTECHDAYS PARIS 2010 : LA PLEINIèRE DU SECOND JOUR par ROMELARD Fabrice
Après un retour sur l'histoire des TechDays de Paris et le fait que ce soit le plus gros event MS au monde (du fait de sa gratuité), le président de MS France (Eric Boustoullier) a fait une présentation de la vision Microsoft pour les années à venir...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : PIC 16F84RE : PIC 16F84 par pont
Cliquez pour lire la suite par pont RE : PIC 16F84RE : PIC 16F84 par belounis
Cliquez pour lire la suite par belounis RE : PIC 16F84RE : PIC 16F84 par pont
Cliquez pour lire la suite par pont
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|