pro-Gramas tu biblioteca de programacion

Este programa pide una cadena y dos caracteres, el primero es el carácter a buscar en la cadena y el segundo es el carácter a remplazar, con las instrucciones rep y scas se realiza la búsqueda si encuentra un carácter igual lo remplaza con stos.

;programa que pide una cadena y dos caracteres,en ella
;se realiza una busqueda con el primer caracter y al
;encontrar una ocurrencia lo remplaza por el segundo.
;utiliza las instrucciones stos y scas.
.model tiny
.data
	cadena db 10 dup (' '),'$'
	carb   db 1
	carr   db 1
	ms1    db 10,13,'Cadena => $'
	ms2    db 10,13,'Caracter buscar => $'
	ms3    db 10,13,'Caracter remplazar => $'
.code
	mensaje macro
		mov ah,09h ;mostramos la cadena
		int 21h
	endm
.startup
	lea dx,ms1
	mensaje 
	mov cx,10
	lea di,cadena
	repite:
		mov ah,01h
		int 21h ;lee un caracter
		stosb ;pasa lo que ahy en al a la cadena
	loop repite
 
	lea dx,ms2
	mensaje
	mov ah,01h
	int 21h	;lee el caracter a buscar
	mov carb,al
 
	lea dx,ms3
	mensaje
	mov ah,01h
	int 21h ;lee el caracter a remplazar
	mov carr,al
 
	mov cx,10
	lea di,cadena
	repite1:
		mov al,carb ;caracter a buscar
		repne scasb ;repite si es distinto
		dec di
		mov al,carr ;caracter a remplazar
		stosb ;lo cambia
	cmp cx,0
	jne repite1
 
	lea dx,ms1
	mensaje
	mov ah,09h ;mostramos la cadena
	lea dx,cadena
	int 21h
.exit
end