ассемблер, замена символа в строке

[tiger]

Помогите подправить задачку по ассемблеру. вчера несколько часов с ней сидел и запутался. Написать программу, которая в заданой символьной строке будет заменять цифры ('0'..'9') на знак '*'.
Вот мои очерки:

Data Segment para 'Data'
max=100
string db 'Vvedite stroku','$'
str1 db 'Преобразованная строка','$'
inputs label byte
maxs db max
nums db ?
strs db max dup(' ')
Data Ends

Code Segment para 'code'
          assume cs:Code,ds:Data,es:Data
include in&out.asm
Main Proc far
         push DS
         sub AX,AX
         push AX
         mov AX,Data
         mov DS,AX
         lea DX,string
         call outstr
         call newline
         lea DX,inputs
         call inpstr
         lea SI,strs
         mov DH,39h    ;символ 9
         mov BX,2ah    ;символ *
         mov AX,0  
         sub CH,CH
         mov CL,nums
         cmp CX,0
     jne m1
         ret

m1:   jcxz m3    ;поиск и замена цифр в строке на *
        cmp [SI],DH
         jae m2
         mov [SI],BX

m2:   mov DI,SI
         inc  SI
         inc AX 
        dec CX
         jmp m1


m3:  mov CX,AX
       call newline
m4:  mov DL,[DI]
       call outchar
       inc DI
       loop m4
       retf
Main Endp
Code Ends
       End Main

И процедуры для ввода, вывода строк

inchar  proc near
        mov  ah,1
        int 21h
        ret          ; inchar by al 
inchar  endp
outchar proc near   ;  outchar dl 
        mov  ah,2     
        int 21h
        ret
outchar endp
newline proc near
        push ax
        mov dl,0dh
        call outchar
        mov dl,0ah
        call outchar
	pop ax
        ret
newline endp
outstr  proc near   ;  outchar dx 
        mov  ah,09h     
        int 21h
        ret
outstr  endp
inpstr  proc near   ;  outchar dx 
        mov  ah,0Ah     
        int 21h
        ret
inpstr endp

Помогите пожалуйста кто знает именно с алгоритмом замены цифр на символ *. я наверно там много чего понапутывал...

[Stilet]

Вот например так:

.data
;_______________
 arr db "123456789hytiwenf56",0
;_______________
.code
start:
 mov ecx,0
aga:
 mov al, byte ptr [arr+ecx]
 cmp al,'0'
 jl qu
 cmp al,'9'
 jg qu
 mov byte ptr [arr+ecx],'*'
qu:
 cmp al,0
 inc ecx
 jz aga
ret
end start

[alexcoder]

проверить не на чем, но кажется где-то так

        lea SI,strs
         sub CH,CH
         mov CL,nums
	mov ax,cx
         cmp CX,0
     jne m1
         ret

m1:   
        cmp [SI], byte ptr '0'
	jc sk
	cmp [si], byte ptr '9'
	jnbe sk
         mov [SI],byte ptr '*'
sk:   
         inc  SI
	loop m1

m3:  mov CX,AX
        lea DI,strs

       call newline

[tiger]

спасибо огромное Вам!