Сумма цифр натурального числа на Fasm.

[voron86618]

Помогите дописать задачу,уважаемые ассемблеристы. Нужно для данного натурального числа(с клавиатуры) найти сумму его чисел.Прога нужна на Fasm.
Знаю,как написать на Паскале данную прогу:

var
err,n,i,c,sum:integer;
s:string;
a:array[0..1000] of integer;
 
begin;
write('Enter n = ');readln(n);     {считываем число}
  str(n,s);     {переводим его в строку}
 
  sum:=0;
    for i:=1 to length(s)  do     {с первой буквы строки до последней}
      begin
        val(s[i],c,err);
        inc(sum,c);     {переводим букву в цифру, записываем в переменную с ерр- переменная, 
                             которая возвращает номер символа на котором ошибка при переводе, 
                             дальше добавляем к сум эту переменную с}
      end;
 
writeln(sum);     {пишим сум}
readln;
end.

Наработки:

format MZ
       mov ax,cs   ;хранение данных программы
       mov ds,ax
       mov ax,3
       int 10h ; prerivanie hz
       mov dx, posled; podstava adresa
       mov ah,9  ; vivod stroki
       int 21h ; prerivanie dlya chtenia
 
metka1:
    mov ah,3fh ; чтение из файла
    mov bx,0  ; ввод имени
    mov cx,8 ; колво байт
    mov dx,chislo ; ввод числа
    int 21h
 
metka2:
    mov bx,chislo
    mov ax,0 ;  чтобы собирать правильных чисел
 
 
 chislo db 'Vvedite chislo',13,10,'$'
 not1 db 'Net sovpadeniy',13,10,'$'
 posled db 8 dup (?)

___________
Не забывайте оформлять исходный код тегами!

Модератор