LECTURE ET ECRITURE D'UN CARACTERE ET D'UNE CHAINE DE CARACTERE !

data segment 
v db 'taper un caractere  !                                                           $'
v2 db 'tapez une chaine de caractere  !                                                $'
m1 db 'le caractere taper est : $'
m2 db 'la chaine taper est : $'
chaine db 13,14 dup('$')
data ends
spile segment para stack
bpile equ this word 
spile ends
assume ds:data , cs :code, ss:spile
code segment 
debut:
		mov ax,data
		mov ds ,ax
		mov ax,spile
		mov ss,ax
		mov sp,bpile
		
		mov ah,0
		mov al,02
		int 10h
		
		
		mov dx,offset v
		mov ah,09h
		int 21h
		
		mov ah,0Ch
		mov al,08h
		int 21h
		
		mov ah,0
		int 16
		mov bl,al
	    mov dx,offset m1
		mov ah,09h
		int 21h
		
		mov ah,09h
		mov al,bl
		mov bl,7
		mov bh,0
		mov cx,1
		int 10h
		
		mov dh ,1
		mov dl,30
		mov ah,2
		mov bh,0
		int 10h
		
		mov dx,offset v2
		mov ah,09h
		int 21h
		
		mov ah,0Ch
		mov al,08h
		int 21h
		
		mov dx,offset chaine
		mov di,dx
		mov byte ptr [di],10
		mov ah,0ah
		int 21h
		
		
		
		
		mov dx,offset chaine
		mov ah,09h
		int 21h
		
fin:						
mov ah,4ch 	
int 21h
code ends
end debut