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
| DATA Segment
mot1 db 20 dup('$')
return db 13,10,('$')
Adr dw
DATA ends
CODE SEGMENT
assume cs:code,ds:data
debut:
mov ax,data
mov ds,ax
;-------lecture de la chaine
mov ah,0Ah
mov dx,offset mot1
int 21h
;-----Affectation de l'adresse de debut de chaine dans
;-----la variable adr
lea dx,[mot1+2]
mov adr1,dx
;-----Affichage de retour chariot
mov ah,09h
mov dx,offset return
int 21h
;-----Affichage de la chaine saisie
mov ah,09h
mov dx,adr1
int 21h
;-----Affichage de retour chariot
mov ah,09h
mov dx,offset return
int 21h
;-----Affichage du dexieme caratere de la chaine saisie
mov ah,02h
mov dx,[adr+1]
int 21h
Fin:
mov ah,4ch
int 21H
code ends
end debut |
Partager