Распечатать введенную строку, удалив из нее символы, не являющиеся буквами и цифрами, и ЗАМЕНИВ КАЖДУЮ ЦИФРУ НА "**"

[Asel01]

.model	tiny
.data
sInput	db	'Vvedite stroku:  $'
sResult	db	0dh, 0ah, 'Rezultat: $'
sSepar	db	9,'?@!#$%^&*()":;><.'	;bykvy,kotorye neobhodimo udalit
len_sep	equ	$-sSepar	;dlina stroki udalyaemyh simvolov

buf	label	byte		;bufer dlya priema stroki s klaviatury
max	db	128		;maksimal'naya dlina stroki
len	db	0		; realnaya dlina vvedennoi stroki
string	db	128 dup (?)	; sama stroka

	.code
	.startup

	lea	dx, sInput
	mov	ah, 9
	int	21h		; priglawenie na ekran

	lea	dx, buf
	mov	ah, 0ah
	int	21h		;vvodim stroku

	lea	dx, sResult
	mov	ah, 9
	int	21h		; Result string

	lea	si, string	; adres stroki
	call	DelSepar

	lea	dx, string	;vyvedem result   
	 mov ah, new_symbol
	mov	ah, 9
	int	21h
exit:
    mov	ax, 4c00h
	int	21h

;obrabotka stroki po adresu v si
;stroka zakanchivaetsya 0dh
;result budet po  tomu je adresu
;v konce stroki budet zapisan '$' (dlya f-i 9 preryvaniya 21)
DelSepar	proc
	mov	bx, si		;adres,kuda budem pisat'
MLoop:
	lodsb			; ocherednoi
	cmp	al, 0dh		; vvedennaya stroka zakanchivaetsya kodom 0dh
	je	return		; na zapis' v konce simvola '$'
	lea	di, sSepar	;adres stroki bukv 
	mov	cx, len_sep	;dlina
	repne	scasb		;iwem v stroke [di] poka ne ravno 
	je	MLoop		;nashli - propuskaem i idem na chtenie sleduiuwego simvola
	mov	[bx], al	;zapishem 
	inc	bx		;i proinkrementiruem adres
	jmp	MLoop		;na povtor
return:
	mov	byte ptr [bx], '$';zakroem stroku
	ret
	new_symbol db "x"   
DelSepar	endp

	end

Помогите,пожалуйста, заменить цифры на "**"