turbo assembleur 5.0

Question

S.V.P aidez moi a écrire un code tasm qui fait:
     *saisir 20 entiers comme etant des ages dans un tableau
     *determiner en un seul parcours le maximum et le minimum
     *calculer la moyenne de ces 20 valeurs
     *afficher le max , le min et la moyenne comme ça: 
 le max est:  
 le min est: 
 la moyenne est: 
   
c'est urgent svp aidez moi

cs_ghuysmans99 · Answer

T'as déjà fait quoi ?

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

cs_andromida · Answer

j'ai essayé un peu mais je suis un débutant et je ne connait pas beaucoups en turbo assembleur 5.0

cs_ghuysmans99 · Answer

Essaie de trouver de quoi tu as besoin comme fonctions, je t'aiderai pour chacune s'il faut (mais je ne ferai pas ton boulot à ta place)

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

cs_andromida · Answer

et beh monsieur j'ai passé 7 jours en essayant et crois-moi j'ai pa dormi la nuit precedante et si tu ne veut pas m'aider dis le franchement

ToutEnMasm · Answer

Tasm ou masm se ressemble.
La grosse différence est que les exemples de masm sont beaucoup plus étoffés.
En masm cela donnerais:
Utiliser inputbox
Utiliser une fonction de conversion atodw (ascii to dword)
utiliser les macros de masm
.if eax > dword ptr [tableau+index] (incrément 4)
.endif
- extraire la moyenne peut demander le FPU
FDIV
reconvertir dwtoa (dword to ascii)
Faire un affichage par messagebox.

ToutEnMasm · Answer

Peut être même pas besoin du FPU pour calculer la moyenne.
En mettant des indices de 1 a 20 pour les nombres
Moyenne=((NombreMin+ecart1) +(Nombremin+ecart2 )+..)/20
Moyenne = NombreMin + (Somme des écarts/20)
Ou
Moyenne = NombreMin + Ecart1/20 + Ecart2/20 + ...
Si les entiers rentre dans un dword,pas de risque de débordement de capacité en procédant comme ça.

cs_andromida · Answer

merci mais je travaille sur tasm et voici mon premier essai et je souhaite que tu le corrige voici le code:

title age

.model small

.stack 100h

.data 

tab db 20 dup(?)

.code

main proc

mov ax,@data

mov ds, ax

mov si,0

mov cx,20

saisie:  ;mnin jebtha ?

  mov di,10  ;pourquoi rejistre dindexe ?

  while1:

  mov ah,1;saisie d' un caractereavec echo

  int 21h

  mov bh,al

  sub bh ,48

  cmp bh ,0

  jge endwhile1

  jmp while1

  endwhile1:

  cmp bh,9

  jle next1

  jmp while1

  next1:

  mov al,bh

  mul di;le contenu sera enregistré ds ax

  while2:

  mov ah,1

  int 21h

  mov dh,al

  sub dh,48

  cmp dh,0

  jge endwhile2

  jmp while2

  endwhile2:

  cmp dh,9

  jle next2

  jmp while2

  next2:

  add ax,dh

  mul di

  while3:

  mov ah,1

  int 21h

  mov dl,al

  sub dl,48

  cmp dl,0

  jge endwhile3

  jmp while3

  endwhile3:

  cmp dl,9

  jle next3

  jmp while3

  next3:

  add ax,dh

  mov dx,ax

mov tab[si],dx;saisie du tableau

inc si

loop saisie

mov dx,offset tab 

int 21h

mov si,0

mov cx ,20 

mov ah,tab[0]

mov bh,tab[0]

statiqueage:

cmp tab[si],ah

jle here1

here1:

mov ah,tab[si]

cmp bh,tab[si]

jge here2 

here2:

mov  bh,tab[si]

inc si

loop statiqueage

.exit

endp

end main

ToutEnMasm · Answer

La lecture étant quelque peut pénible,je te conseille une chose.
Tasm accepte une compatiblité masm (même syntaxe).

Ci dessous,la solution en masm32,qui peut te faire avoir un zero a ton problème pour copie.
Elle marche,j'ai vérifié et en plus elle est lisible.


include \masm32\include\masm32rt.inc
.const
.data
serie dd 45h,0f12h,10h,7f23h,732h,0
minimum dd 0
maximum dd 0
moyenne dd 0
CPT dd 0
SommeReste dd 0
.code	
start:
;------- minimum ------------
mov CPT,LENGTHOF serie
;chercher le plus petit
lea edx,serie
;prendre le premier comme référence
mov eax,[edx]
mov minimum,eax
.while(CPT)
mov eax,[edx]
.if eax < minimum
mov minimum,eax			
.endif
add edx,4
dec CPT
.endw
;------- maximum -----------
mov CPT,LENGTHOF serie
;chercher le plus grand
lea edx,serie
;prendre le premier comme référence
mov eax,[edx]
mov maximum,eax
.while(CPT)
mov eax,[edx]
.if eax > maximum
mov maximum,eax			
.endif
add edx,4
dec CPT
.endw	
;--------- moyenne -----------
;appliquer moyenne = minimum + SommeEcart /20 + SommeRestes/20
mov eax,minimum
mov moyenne,eax
mov CPT,LENGTHOF serie
;chercher le plus grand
push edi
lea edi,serie
.while(CPT)
mov eax,[edi]
mov ecx,minimum
sub eax,ecx
mov ecx,LENGTHOF serie
mov edx,0
div ecx
add moyenne,eax
add SommeReste,edx
;-----------------		
add edi,4
dec CPT
.endw	
pop edi
;----- ajouter les restes -------
mov eax,SommeReste
mov ecx,LENGTHOF serie
mov edx,0
div ecx
add moyenne,eax			
invoke ExitProcess,0
;------- proc içi ------------
end start

cs_andromida · Answer

merci beaucoup "ToutEnMasm" c'est tès gentil mais j'ai déjà dit que je cherche le code en tasm et n'est pas en masm car il y a des instructions en masm que je ne comprends pas et vous savez je suis un débutant car c'est le premier code que j'ai essayé d'écrire et je serais tres reconnaissant de votre aide

cs_ghuysmans99 · Answer

@ToutEnMasm : Il devra adapter vu qu'il lui faut du code 16 bits 

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

ToutEnMasm · Answer

J'ai un exemple de windows 16 bits fourni avec tasm 5.0.
est ce que ça peut convenir ?

cs_ghuysmans99 · Answer

Je pense que ça devrait aller 

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

cs_andromida · Answer

oui c'est ce que cherche exactement  mais ou est-il????

cs_patatalo · Answer

Salut,


C'est fou tout ce qu'on peut faire à deux :-)



@++

ToutEnMasm · Answer

Voila,ça devrait degossir pas mal le problême

;\TASM\EXAMPLES\USRGUIDE\ASMWIN     exemple window 16 bits
LOCALS
.MODEL LARGE, WINDOWS PASCAL
.286
extrn  ExitProcess:PROC
.DATA 
serie dw 45h,0f12h,10h,7f23h,732h,0 
minimum dw 0 
maximum dw 0 
moyenne dw 0 
CPT dw 0 
SommeReste dw 0 
.code 
start:
push di 
;------- minimum ------------ 
mov CPT,6;LENGTHOF serie 
;chercher le plus petit 
lea di,serie 
;prendre le premier comme référence 
mov ax,[di] 
mov minimum,ax 
Boucle_min:
mov ax,[di] 
cmp ax,minimum 
ja pas_min		;forward,plus loin @B back,arriere
mov minimum,ax 
pas_min: 
add di,2 
dec CPT 
jnz Boucle_min

;------- maximum ----------- 
mov CPT,6;LENGTHOF serie 
;chercher le plus grand 
lea di,serie 
;prendre le premier comme référence 
mov ax,[di] 
mov maximum,ax 
Boucle_max: 
mov ax,[di] 
cmp ax,maximum 
jbe pas_max				;non signé
mov maximum,ax 
pas_max: 
add di,2				;taille mot 
dec CPT 
jnz  Boucle_max
;--------- moyenne ----------- 
;appliquer moyenne = minimum + SommeEcart /20 + SommeRestes/20 
mov ax,minimum 
mov moyenne,ax 
mov CPT,6 ;LENGTHOF serie 
;chercher le plus grand 
lea di,serie 
Boucle_moyenne: 
mov ax,[di] 
mov cx,minimum 
sub ax,cx 
mov cx,6;LENGTHOF serie 
mov dx,0 
div cx 
add moyenne,ax 
add SommeReste,dx 
;----------------- 
add di,4 
dec CPT 
jnz  Boucle_moyenne
pop di 
;----- ajouter les restes ------- 
mov ax,SommeReste 
mov cx,6;LENGTHOF serie 
mov dx,0 
div cx 
add moyenne,ax 
call ExitProcess,0 
;------- proc içi ------------ 
end start

ToutEnMasm · Answer

Pour finir une solution presque complete.
**Probleme pour avoir un tasm complet , voir mon site en bas de la page de lien,chercher TASM.
*** compiler 
Make ou embrouille c'est la même chose
J'utilise un batch

@echo off
SET PATH=%PATH%;D:	asm\bin
SET THEINCLUDE=D:	asm\include
SET LIB=D:	asm\lib
TASM /Zi moyenne.asm
REM TLINK /Twe /v /s moyenne, moyenne, moyenne,import.lib,moyenne
TLINK /Twe  /v /s moyenne, moyenne,,	asm\lib\import.lib,moyenne,
pause

le .def utilisé par tlink est simplement le .def de l'exemple \TASM\EXAMPLES\USRGUIDE\ASMWIN
Il a juste changé de nom
**** le code
il fait apparaitre une messagebox,reste a traduire l'hexa en ascii et a créer un groupe de ligne a envoyer a la messagebox.
La méthode de calcul de la moyenne supporte un nombre quelconque de chiffres.


;\TASM\EXAMPLES\USRGUIDE\ASMWIN     exemple window 16 bits
title age 
LOCALS
.MODEL LARGE, WINDOWS PASCAL
.286


include 	asm\include\windows.inc
;include windows.inc

extrn   MESSAGEBOX:PROC


.stack 100h 

.data 


.DATA 
aMessage db "CouCou$",0
Titre db "Titre$",0
serie dw 45h,0f12h,10h,7f23h,732h,0 
minimum dw 0 
maximum dw 0 
moyenne dw 0 
CPT dw 0 
SommeReste dw 0 
.code 
start:
push di 
;------- minimum ------------ 
mov CPT,6;LENGTHOF serie 
;chercher le plus petit 
mov ax,@data
mov ds,ax
mov di,offset serie 
;prendre le premier comme référence 
mov ax,[di] 
mov minimum,ax 
Boucle_min:
mov ax,[di] 
cmp ax,minimum 
ja pas_min		;forward,plus loin @B back,arriere
mov minimum,ax 
pas_min: 
add di,2 
dec CPT 
jnz Boucle_min

;------- maximum ----------- 
mov CPT,6;LENGTHOF serie 
;chercher le plus grand 
mov di,offset serie 	
;prendre le premier comme référence 
mov ax,[di] 
mov maximum,ax 
Boucle_max: 
mov ax,[di] 
cmp ax,maximum 
jbe pas_max				;non signé
mov maximum,ax 
pas_max: 
add di,2				;taille mot 
dec CPT 
jnz  Boucle_max
;--------- moyenne ----------- 
;appliquer moyenne = minimum + SommeEcart /20 + SommeRestes/20 
mov ax,minimum 
mov moyenne,ax 
mov CPT,6 ;LENGTHOF serie 
;chercher le plus grand 
mov di,offset serie 
Boucle_moyenne: 
mov ax,[di] 
mov cx,minimum 
sub ax,cx 
mov cx,6;LENGTHOF serie 
mov dx,0 
div cx 
add moyenne,ax 
add SommeReste,dx 
;----------------- 
add di,2 
dec CPT 
jnz  Boucle_moyenne
pop di 
;----- ajouter les restes ------- 
mov ax,SommeReste 
mov cx,6;LENGTHOF serie 
mov dx,0 
div cx 
add moyenne,ax 
;affichage
            call    MessageBox PASCAL, NULL, DS, OFFSET aMessage, \
                    DS, OFFSET Titre, MB_OK     

  mov     ah,4ch                  ;DOS: terminate program
  mov     al,0                    ;return code will be 0
  int     21h                     ;terminate the program

;	call ExitProcess,0 
;------- proc içi ------------ 
end start

cs_ghuysmans99 · Answer

@ToutEnMasm : Compiler de l'ASM ... c'est original . Là il devrait avoir de quoi faire ...

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

cs_andromida · Answer

merci pour votre aide 
mais c'est tres compliqué pour moi: par exemple je connait pas ".MODEL LARGE"
je travaille seulement qu'avec "model small" 
aussi je ne connait pas cette instuction ""include 	asm\include\windows.inc ""
en plus votre code ne contient pas la boucle de saisie des entiers dans un tableau qui est la partie la plus difficile pour moi car tasm n'accepte que des caractères et non pas des entiers et je sais qu'il ya un truc pour transformer les caracters en entiers mais je le sait pas

ToutEnMasm · Answer

Il ne faut pas se laisser impressioné par la syntaxe.
.MODEL LARGE est a usage unique du compilateur.
Seul le fabricant sait exactement quels modifications seront apportées a la compilation en choisissant ce model.
Il le faut pour windows 16,on le met,c'est tout.
INCLUDE veut dire inclure au source le fichier dont le chemin est 	asm\include\windows.inc.
On peut le voir avec notepad.
Après le code fourni ne fait pas tout,ce n'est pas moi qui vais être noté.
Le dumpbin de tasm permet de voir le contenu des librairies,il y a surement quelques fonctions utilisables pour finir le travail.
La conversion se fait d'un dword,word à l'ascii (texte).
Dans le genre il y a dwtoascii ,toascii ...

ToutEnMasm · Answer

J'allais oublier:
Google avec une recherche comme "tasm source conversion" ou autre mots,ça va bien.

ToutEnMasm · Answer

en cherchant un peu on trouve:
wvsprintf présente dans la librairie déja utiliser par le source pour la messagebox.

cs_andromida · Answer

je connait déjà printf mais c'est pas permis d'utilisé des fonctions prédéfinies il faut manipulé tout avec les instructions de bas niveau tel que mov, add, mul

cs_andromida · Answer

Eyy ou sont les génies de programmation 
puisque tasm ne lit que les codes ASCII j'ai remarqué que le code ASCII d'un chiffre est egal au code ASCII du chiffre en caractère moins le code ASCII du zéro qui est 48 donc:
code ASCII entier= code ASCII caractère-48
c'est ça le truc de saisie

ToutEnMasm · Answer

génial,il te reste a connaitre la difference entre une minuscule et une majuscule ( + - nombre).La réponse est top secret.
Pour l'avoir , il faut mettre la main sur une table a skis.

cs_patatalo · Answer

re,

et oui,
'a'='a', 'b'='a'+1, 'c'='a'+2,...
'A'='A', 'B'='A'+1, 'C'='A'+2,...
'0'='0', '1'='0'+1,...

un désassemblage de
mov al,'a'
mov ah,'A'
mov cl,'0'
donnera les valeurs ascii.

ascii->dec:
xor ax,ax
push byte 0
mov bp,sp

.1
mov al,ascii_decimal
sub al,'0'
add [bp],ax; tester <= 9 avant ajout.
; suivant -> .1

@++

cs_patatalo · Answer

oups, multiplier [bp] par dix avant ajout.

ToutEnMasm · Answer

ATTENTION!
bp est dédié au maintien du cadre du proc.
ON ne l'utilise PAS.ESP non plus
si on le modifie,le proc se plante.

cs_ghuysmans99 · Answer

si on le modifie,le proc se plante. C'est faux mais ce n'est pas pour autant qu'on peut faire ce qu'on veut avec : ces registres sont faits pour gérer la pile et rien d'autre.

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

ToutEnMasm · Answer

Faux ? 
A ton avis Elles servent a quoi ces deux lignes présentes dans tous les proc ?

push    ebp
mov     ebp,esp

ebp joue le role du gardien de esp et meme si la pile est déséquilibré ebp rétablit sa valeur.

cs_ghuysmans99 · Answer

Les deux lignes que tu présentes servent à mettre en place un stack-frame (utile pour accéder facilement à des objets sur le stack quand tu as empilé d'autres choses dessus mais que tu ne sais pas combien).

ESP n'a pas pour vocation d'être modifié comme ça (risque de GPF s'il pointe n'importe où) mais si tu fais ça, ça ne t'explosera pas à la figure :
mov eax, esp
mov esp, 0xDEADBEEF
add bx, 27
mov esp, eaxMais bon faut pas espérer pusher un truc dans cette config non plus 

Pour résumer : je suis d'accord avec toi sur le fond mais pas sur l'explication 

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

cs_patatalo · Answer

re,

oui, on est pas en C ici donc la stackframe, on s'en fout. En asm, on fait ce qu'on veut avec ce qu'on veut, le tout étant de savoir ce que l'on fait...

@++

cs_patatalo · Answer

pourquoi devrais-je sauver l'initialisation de bp alors qu'il n'est pas encore initialisé ?

ToutEnMasm · Answer

A l'interieur d'un proc,Tasm rajoute un stacframe.

machin PROC
       ;ici le compilateur rajoute
       push ebp       ;instruction stackframe
       mov ebp,esp
       +...
      ;debut du code écrit 
Ne pas modifier ebp içi.....       
         
      ;--- fin du code écrit ---
      mov esp,ebp   ; instruction stackframe
      * esp sert a retrouver l'@ de retour
      +....
machin endp

les parties rajoutées par le compilateur constitues le stack frame
a ghuysmans99: tes quatre lignes ne modifient pas ebp.Est tu sur de savoir de quoi tu causes ? .Relie les mails.

cs_ghuysmans99 · Answer

Tu remplacerais ESP par EBP et ça serait la même chose ... De toutes façons il n'y a pas à discuter là-dessus : pas touche à (E)BP et (E)SP pour autre chose que la gestion de la pile.

VB.NET is good ... VB6 is better
Utilise Réponse acceptée quand un post répond à ta question

ToutEnMasm · Answer

se recadrer sur le sujet c'est bien.Le reste n'est que supputation,on ne peut pas modifier le fonctionnement du compilateur.

cs_patatalo · Answer

re,


je persiste quand même, avec l'asm, tu fais ce que tu veux, c'est pourquoi je n'aime pas que l'assembleur fasse des trucs dans mon dos avec les entêtes. On peut les désactiver d'ailleurs.

on ne peut pas parler de ebp et esp en 16 bits donc impossible de remplacer l'un par l'autre car le mode réel n'accepte pas les acces memoire du type "mov ax,[sp]"

je trouve plus dangereux de faire des acces [sp-?] même en mode protégé, que de faire ce que l'on veut de bp. Ca fera uniquement planter les debuggers qui remontent les stackframes ;-)

@++

ToutEnMasm · Answer

je persiste quand même, avec l'asm, tu fais ce que tu veux

Les bugs auront raison de cette affirmation.
Le c le c++(avec son abominable syntaxe) n'ont pas été fait que pour se céer des ennuis.
c'est vrai que j'ai tendance à mélanger bp ebp et sp esp.Le stackframe des deux est construit pareil à la différence près des tailles.

cs_patatalo · Answer

pas de bugs si tu sais ce que tu fais. Les prologues et épilogues sont modifiables à volonté. Tu peux tout a fait avoir des foncrions de type C et des fonctions de type pascal ou autres, ce n'est qu'une question de déclaration.

cs_patatalo · Answer

Dans ton code, tu n'utilises pas bp donc mon ajout fonctionnera parfaitement et sans bugs.

A noter également que certaines fonctions bios et dos utilisent bp pour passer un paramètre qui n'a rien a voir avec une stackframe.

En conclusion, je dirais oui pour ne pas oublier de sauvegarder les registres qui doivent l'être dans un mode de prog donné. Mais non pour une phobie de l'utilisation de bp.

BruNews · Answer

ON ajoutera aussi qu'un compilo C a l'option 'NO Stackframe' pour la compil, c'est ce qu'on met d'habitude avec 'Full Optimisation' pour la release finale.
Réglé ainsi et qu'on sort le listing ASM du compilo, on voit que EBP (RBP) est employé comme nimporte quel registre.

ciao...
BruNews, MVP VC++

ToutEnMasm · Answer

ON ajoutera aussi qu'un compilo C a l'option 'NO Stackframe' pour la compil, c'est ce qu'on met d'habitude avec 'Full Optimisation' pour la release finale. 

On peut même rajouter que l'assembleur masm n'est pas en reste pour se compliquer l'existence quand on débute.

OPTION PROLOGUE:NONE 
.........
OPTION PROLOGUE:PrologueDef 

PrologueDef est une macro interne de masm mais pour faire encore plus compliqué,on peut se faire sa propre macro.
on peut aussi utiliser .sto
En gros c'est un sujet d'étude très intéressant.

cs_patatalo · Answer

re,

attention quand même, en mode protégé, on a l'habitude de travailler en flat mais en mode segmenté, il ne faut pas oublier de surcharger par ds le segment par defaut qui est ss avec ebp afin d'acceder aux données. Idem pour le mode réel qui lui est plus souvent segmenté.

@++

Turbo assembleur 5.0

42 réponses

Votre réponse

Discussions similaires