Написать программу для сложения всех элементов строки (нужно на TASMe)

[Алексей_2012]

Здравствуйте!! Нужно написать программу, в которую вводится строка цифр, а выводится их сумма, например вводим 123876, а получаем 1+2+3+8+7+6=27, число 27 выводим на экран, для написании программы используется ТАСМ, вот моя нерабочая версия программы

Code Segment Para public 'Code'
   Assume CS:Code,DS:Code,SS:Code,ES:Code
   ORG 100h 
   Mov DX,Code
   Mov DS,DX
   Mov SS,DX
   Mov ES,DX
jmp m100
par1 label byte
max1 db 100
rd1 db ?
str1 db 101 dup(?)
m100:mov ah,10
lea dx,par1
int 21h
mov ah,2
mov dl,0ah
int 21h
mov ah,2
mov dl,0dh
int 21h
mov bh,0
lea si,str1
mov cl,rd1
m1:mov bl,[si]
   sub bl,30h
add bh,bl
loop m1
mov bl,0
mov bl,bh
mov ah,2
add bh,30h
mov dl,bh
int 21h
mov ah,2
add bl,30h
mov dl,bl
int 21h
mov ah,1
int 21h
   Mov AH,4Ch
   Int 21h
   Code Ends
   end

[Алексей_2012]

ну и что это за белеберда? мне нужен код, написанный на ассемблере, используя тасм, желательно использовать те же команды, что и у меня

[DiemonStar]

1. Для com - файла не нужна инициализация сегментных регистров

   Mov DX,Code
   Mov DS,DX
   Mov SS,DX
   Mov ES,DX

2.

par1 label byte

- в принципе, это тоже лишнее. Можно просто загрузить адрес max1, чтобы получить в dx то же смещение
3. Вопрос по существу:

вот моя нерабочая версия программы

как именно не работает ваша программа? (есть подозрение, что выводит не то, что вы хотите)

[alexcoder]

Code Segment Para public 'Code'
   Assume CS:Code,DS:Code,SS:Code,ES:Code
   ORG 100h
start:
jmp m100
par1 label byte
max1 db 100
rd1 db ?
str1 db 101 dup(?)
m100:mov ah,10
lea dx,par1
int 21h
mov ah,2
mov dl,0ah
int 21h
mov al,0
lea si,str1
mov cl,rd1
m1:mov bl,[si]
   sub bl,30h
add al,bl
inc si
loop m1
mov ah,0
	mov bx,10	;основание системы
	xor cx,cx	;в сх будет количество цифр в десятичном числе
@@m1a:	xor dx,dx
	div bx		;делим число на степени 10
	push dx		;и сохраняем остаток от деления(коэффициенты при степенях) в стек
	inc cx		;увеличиваем количество десятичных цифр числа
	test ax,ax	;после деления остался 0?
	jnz @@m1a	;если нет, продолжаем
	mov ah,2        ;ф-я вывода символа
@@m2a:	pop dx		;взять из стека цифру цисла
	add dl,'0'	;преобразовываем цифру в ASCII символ
	int 21h		;вывести на экран
	loop @@m2a	;все цифры
mov ah,1
int 21h
   Mov AH,4Ch
   Int 21h
   Code Ends
   end start

[Алексей_2012]

извините пожалуйста, но я не понял алгоритма, можете словами еще проще написать? а так код был почти рабочим, у меня строка не вводилась если писал

start:
end start

а работает при этих командах

 Mov DX,Code
   Mov DS,DX
   Mov SS,DX
   Mov ES,DX

может компилятор такой а создавал не com, а exe