Lecture de chiffre avec TASM

Version imprimable

Bonsoir tout le monde,

je cherche à faire un programme de calcul factoriel d'un chiffre lu en entrée tout en utilisant le registre BP. Voila ce que j'ai essayé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
data segment
	bienvenu db 10,13,"***Ce programme Calcul le factoriel d'un nombre donnee en entree***",10,13,'$'
	msg db 10,13,"donnez votre chiffre",'$'
	msg1 db 10,13,"le resultat est:",'$'
	result db ?	
	erreur db 10,13,"Erreur,veuillez rentré un chiffre",'$' 
data ends
ma_pile                 segment   stack 
        dw       256 dup (?)
TOS     LABEL    WORD
ma_pile                   ends	  
code segment
	assume cs:code,ds:data, ss:ma_pile
debut:
	mov ax,data
	mov dx,ax
	mov ah, 9
	lea dx, bienvenu
	int 21h
	;affichage du message bienvenu
	lea dx,msg
	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
 
	SUB AL,30H ;si oui on lui soustrait 30H
	push ax
	call near ptr fact
	pop cx
	pop bp
	;fin de la procedure fact
	lea dx,msg1
	mov ah,9
	int 21h
	;pour afficher 'le resultat est'
	lea dx,result	
	mov ah,9
	int 21h
	;pour afficher le resultat
	mov ax,4c00h
	int 21h
 
	;retour au systeme
 
fact near ptr proc
		push bp
		mov bp, sp
		push cx
		mov cx, [bp+4]
		;cx reçoit la valeur du chiffre
		mov ax, 1
		boucle1:
			mul cx
		loop boucle1
		;appel recursive jusqu'a trouvé la valeur 1
		mov result,cx
		;pour l'affichage du resultat
	ret
fact endp		
ends code
 
end debut

et j'ai eu les erreurs suivantes :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
C:\Users\reda\Desktop\TASM>tasm/l fact.asm
Turbo Assembler  Version 3.2  Copyright (c) 1988, 1992 Borland International
 
Assembling file:   fact.asm
**Error** fact.asm(32) Undefined symbol: FACT
**Error** fact.asm(49) Illegal instruction
**Error** fact.asm(60) Operand types do not match
**Error** fact.asm(63) Unmatched ENDP: FACT
Error messages:    4
Warning messages:  None
Passes:            1
Remaining memory:  398k

Je ne comprends pas quel est le problème avec ma procédure fact…

22/04/2011, 22h17
supersnail

Bonjour,

Il faut que tu modifies la variable d'environnement PATH pour ajouter le chemin d'installation de TASM ;)
23/04/2011, 17h32
cobra150

pourquoi personne ne me répond?:cry:
23/04/2011, 17h54
supersnail

Bonjour,

Si tu compiles avec du TASM avec une syntaxe MASM, forcément TASM va râler...

Si tu tiens absolument à utiliser la syntaxe MASM, installe MASM :zen:
23/04/2011, 22h10
cobra150

bonsoir
vous vous trompez je n'est jamais utiliser une syntaxe de MASM d'ailleurs je ne l'ai jamais utilisé au paravent,la seul syntaxe que j'applique c'est celle du TASM,après tous ce n'est qu'un simple programme donc la méthode elle est universelle ;)
24/04/2011, 09h12
Forthman

Oui, la syntaxe me rappelle bien ce que j'utilisais avec TASM
(mais ça fait bien 15 ans que je n'y ai pas touché)

pour les erreurs :
**Error** fact.asm(32) Undefined symbol: FACT
FACT n'a pas été déclaré
Cette erreur va disparaitre quand la ligne 49 sera corrigée

**Error** fact.asm(49) Illegal instruction
Justement cette déclaration ne marche pas (d'où l'erreur du dessus)
Essayes de mettre juste "FACT proc"

**Error** fact.asm(60) Operand types do not match
ligne 5 "result db ?"
result est déclaré faire 1 octet , et cx c'est du 16 bits.
Il faut donc choisir la taille de ton résultat et t'y tenir

**Error** fact.asm(63) Unmatched ENDP: FACT
Cette erreur va disparaitre quand la ligne 49 sera corrigée

a+ François
25/04/2011, 11h56
MIG86

Citation:

Envoyé par cobra150

Bonsoir.
Vous vous trompez. Je n'ai pas utilisé une syntaxe de MASM, d'ailleurs, je ne l'ai jamais utilisée auparavant. La seule syntaxe que j'applique est celle du TASM. Après tout, ce n'est qu'un simple programme, donc la méthode est universelle. ;)

Oui.
Suivez les conseils de Forthman pour éliminer les erreurs d'assemblage dont la syntaxe d'un appel proche :

ln 32 : call fact
ln 49 : fact proc near

Ensuite revoyez la logique du programme :
- appel proche (CALL NEAR) donc paramètre en [bp+2] ;
- 8! tient dans un mot (le registre 16 bits AX) mais une fois multipliée par 9 pour obtenir 9!, le résultat sera dans DX:AX (32 bits) et constituera la valeur limite ;
- le service 9 du DOS sert seulement à afficher une chaîne de caractères se terminant par le symbole dollar ($).
27/04/2011, 00h47
edfed

Citation:

le service 9 du DOS sert seulement à afficher une chaîne de caractères se terminant par le symbole dollar ($).

methode qui est tellement bancale qu'il vau mieu creer une fonction pour afficher des chaines asciiZ, c'est à dire terminées par un octet = 0

db 'chaine',0

car comment afficher le caractère dollar avec ce service DOS tout pourrit? ça semble un peu difficille, il faut alors utiliser un autre service (INT21h,2) , juste pour le caractère $...misère..

remarquez que les fonctions DOS qui demandent une chaine en paramètre vont utiliser une chaine asciiZ, et non une chaine ascii$. donc, encore une fois, le passé bancal de MS ressurgit.

personnelement, je prefere utiliser le BIOS qui à l'avantage de ne pas dependre du DOS, et d'etre present sous DOS.
ou mieu, creer une fonction de toutes pièces, avec ou sans lien avec DOS/BIOS. soit en direct to screen, soit en utilisant les fonctions d'affichage de caractères un par un (int 10h, 0Ah ; int 21h,6 ; INT21h, 2) . ce qui permet d'avoir un contrôle total sur le comportement de notre printf.

seul bemol, si nous avons besoin d'utiliser STDOUT, il faut passer par INT 21h,9, mais là encore, si c'est pour generer une page HTML (CGI), il faut croiser les doigts pour que $ n'apparaisse jamais dans le code à envoyer...
27/04/2011, 10h40
MIG86

Le service d'affichage de chaîne du DOS est hérité de la fonction BDOS 9 de CP/M. D'ailleurs, la version 3 de ce système propose la fonction BDOS 110 pour remplacer le dollar comme indicateur de fin de message.

Citation:

Envoyé par John Elliott's original CP/M archive

BDOS function 9 - Output string
Supported by: All versions

Entered with C=9, DE=address of string.

Display a string of ASCII characters, terminated with the $ character. Thus the string may not contain $ characters - so, for example, the VT52 cursor positioning command ESC Y y+32 x+32 will not be able to use row 4.

Under CP/M 3 and above, the terminating character can be changed using BDOS function 110.

N.B. : le dollar ($) correspond au caractère ASCII 36 soit 32 + 4.