tasm

Question

DOSSEG                 ;Modele de segmentation DOS
 .MODEL SMALL           ;Fixe le modele de segmentation :petit modele
 
 
 .STACK  100h

.DATA
 message DB 13,10,"Entrez une chaine de caracteres : $"
 chaine DB 255,256 Dup(32)	ab 	ab 	ab 	ab ; chaîne de 14 caractères maximum
new_line DB 13,10,"$"	ab 	ab 	ab 	ab ; chaîne permettant le retour à la ligne
S2 db&#8217; enter the string&#8217;,&#8216;$&#8217;
S3 db&#8217; Length of the string&#8217;,&#8217;$&#8217;

.CODE
;Initialisation du registre DS
         MOV AX, @DATA
         MOV DS,AX
;****************ICI COMMENCE VOTRE TRAITEMENT****************


       MOV AH,09H	ab 	ab 	ab 	ab 	ab ; affichage de la chaîne message
       MOV DX,OFFSET Message
       INT 21H

        MOV AH,0CH	ab 	ab 	ab 	ab 	ab ; saisie de la chaîne
        MOV AL,0AH
        MOV DX,OFFSET chaine
        INT 21H

        MOV AL,chaine+1	ab 	ab 	ab 	ab ; ajout du caractère
        MOV AH,0	ab 	ab 	ab 	ab 	ab ; \lquote $quote  en fin de 
        MOV SI,AX	ab 	ab 	ab 	ab 	ab ; la chaîne
        ADD SI,2	ab 	ab 	ab 	ab 	ab ; pour
        MOV BYTE PTR [chaine+SI],'$'	ab 	ab ; lquote affichage

         MOV CX,0
         MOV CL,chaine+1
 
         MOV BX,0
       MOV SI,2

        MOV AH,09	ab 	ab 	ab 	ab 	ab ; affichage de la chaîne new_line
         MOV DX,OFFSET new_line
         INT 21H
 
 DEBUT:
         MOV BL,[chaine+SI]
         SI_1:
                 CMP BL,'a'	ab 	ab 	ab 	ab 	ab ; contrôle si le caractère est >= \lquote aquote 
                 JB FSI_1
         ETSI_1:
                 CMP BL,'z'	ab 	ab 	ab 	ab 	ab ; contrôle si le caractère est <= \lquote zquote 
                 JA FSI_1
         ALORS_1:
                SUB BL,32	ab 	ab 	ab 	ab 	ab ; on soustrait 32 au caractère
                MOV [chaine+SI],BL	ab 	ab ; on range le caractère obtenu dans la chaîne
        FSI_1:
        
        INC SI
         LOOP DEBUT
 ;******* affiche majuscule *********        
 
        MOV AH,09H	ab 	ab 	ab 	ab 	ab ; affichage de la chaîne modifiée
         MOV DX,OFFSET chaine+2
         INT 21H
 ;*********affiche dans le sens inverse*******  
          MOV BX,0
         MOV BL,OFFSET chaine	ab 	ab ; range dans BX lquote adresse de la chaîne
 
 DEBUT1:
        MOV DL,[BX]	ab 	ab 	ab 	ab ; affiche le caractère courant
        MOV AH,02H
        INT 21H
         INC BX   
   LOOP DEBUT1
;************taille de chaine ***********


Mov ah, 09H
Lea dx, S2
Int 21h
Mov ah, 0ah
Lea dx, S3
Int 21h
Mov ah, 02h
Mov dl, chaine
Or dl, 30h
Int 21h
 ; *********************calcul nbr mot*************************???
 ;**********************calcul nbr espace *********************???
 ;**********************ICI IL FINIT***************************
 
 
         MOV AX,4C00H
         INT 21H
 
 END

yosrasouaifi · Answer

affiche majuscule <=
.;****** affiche inverse chaine***

Tasm

1 réponse

Votre réponse

Discussions similaires