Degree d^n, как организовать ввод\вывод?

[Goodwin98]

тогда уж

mov bl, byte ptr a[di]

[MalCer]

Я же пояснил:

bcontents: ; содержимое буфера располагается за концом СОМ-файла

А у тебя exe-файл! Правильный способ у Goodwin98'а, а не у тебя

[sig_GB]

Парни, подскажите, откуда баги растут:

1) работает верно только, если на вводе 2 (т.е. 2-ая строка), а в остальных случаях - уходит за 2-3 тысячи результат.

2) когда в конце результат выведен, жмём клавишу (я так понимаю любую) и начинаются свистопляски на экране - либо выводится я так понимаю весь стек, либо просто курсор бегает до бесконечности.
screen1.PNG
screen2.PNG

;  Дана матрица размерностью 7х5  
;Найти сумму элементов n-ой строки
;=================================
masm
model small
.data
;======= Матрица 7х5 ========
array dw 1,1,1,1,1,1,1
      dw 2,2,2,2,2,2,2
      dw 3,3,3,3,3,3,3
      dw 4,4,4,4,4,4,4
      dw 5,5,5,5,5,5,5,'$'
;Данные для работы 
mes0 db "=========== Matrix 7 on 5 ===========",0Dh,0Ah,'$'
mes1 db "Please, write number of stripe: $"
mes2 db "Result: $"
crlf db 0Dh,0Ah,'$'
size_elem=2
Sum dw 0

buf db 16 dup (?)
buf_end db '$'
buffer db 6 	 ; максимальный размер буфера ввода 
blength db ?	 ; размер буфера после считывания 
a dw 0		 ; содержимое буфера 
stack 256h

========= ... ========

     push ax                  ; записали в АХ номер строки и в стек его
;///=> Ищем сумму элементов n-ой строки матрицы 
     xor bx,bx                ; думал баги из-за этого - решил зачистить !?!?!
     xor si,si

     mov si,0		; si-столбцы в матрице 
     pop ax
     inc ax
     mov bx,ax		; bx-строки в матрице 
     push ax
     mov ax,7
     imul bx,ax
     dec bx
     mov cx,6
 iternal2:		;ВНУТРЕННИЙ ЦИКЛ по строкам 
      mov ax,array[bx][si]; в AX помещен очередной элемент матрицы 
      add Sum,ax
      add si,size_elem
      loop iternal2	; -> ВНУТРЕННИЙ ЦИКЛ
;///=> Вывод значения суммы на экран 
     mov dx,offset mes2
     mov ah,9
     int 21h
    
     xor ax,ax
     mov ax,Sum
     mov bx,10
     xor di,di
l1: 
     xor dx,dx
     div bx
     add dl,030h
     dec di
     mov buf_end[di],dl
     cmp ax,00h
     jnz l1
     lea dx,buf_end[di] ;смещение [buf_end+DI] загружается в регистр DX
     mov ah,09h
     int 21h
e1:
     mov ah,0
     int 16h
;EXIT
     int 20
     ret 
end start

[sig_GB]

накидал аналогию на паскале, нашел ошибку - надо АХ уменьшать перед PUSH на единицу. Но от этого код АСМа стал ещё больше глючить. Где я ошибаюсь!?!?
Рабочий код

Write(#13#10,'Please, write number of stripe: '); Readln(ax); dec(ax);
{;data}
Sum:=0;
si:=0; bx:=ax; ax:=7; bx:=bx*ax; bx:=bx+1; cx:=7;
{;program}
Repeat ax:=mas[bx+si]; Sum:=Sum+ax; si:=si+size_elem; dec(cx) until cx=0;
Writeln('Result = ',Sum);

[sig_GB]

ошибка банальная - передавал в ВХ (адрес начальный матрицы) 0000. Считал, раз она (матрица-массив) описана вначале => и адрес у неё 0000.))))
===
так не работает...Хм.

mov ax,7
imul bx,ax
inc bx
add bx,array
mov cx,7

[sig_GB]

Вопрос исчерпан. Верный код найден. Ехху!

     dec ax
     push ax
;///=> Ищем сумму элементов n-ой строки матрицы 
     mov si,0		; si-столбцы в матрице 
     xor ax,ax
     pop ax
     mov bx,ax		; bx-строки в матрице 
     push ax
     mov ax,7
     imul bx,ax
     imul bx,size_elem
     mov cx,7
 iternal2:		;ВНУТРЕННИЙ ЦИКЛ по строкам 
      mov ax,array[bx][si]; в AX помещен очередной элемент матрицы 
      add Sum,ax
      add si,size_elem
      loop iternal2	; -> ВНУТРЕННИЙ ЦИКЛ
;///=> Вывод значения суммы на экран