Задание в MASM

[SvetlanaBLB]

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

.model small ; Модель памяти
.stack 100h  ; Установка размера стека

.data
rows    dw ?
cols    dw ?
array   db 10*10 dup (?) 
crlf    db 13,10,'$'
aux     db 0
flag    db 0
flas    db 0
mult    db 0
buf db 3,0,3 dup ('$'),'$'
msgPress    db 13,10,'Press...$'
msgRows db 'String (<=10): $'
msgCols db 'Columns (<=10): $'
msgEl   db 13,10,'Input elements: ',13,10,'$'
msgMax  db 13,10,'Row = $'
msgFlag  db 13,10,'Flag = $'
time dd ?
timeMsg db 13, 10, 'Time = $ '

.code
;макрос вывода на экран текстового сообщения
;str - стока для вывода
write macro  str
    push    ax
    push    dx
 
    lea     dx,str  ;адрес строки для вывода
    mov     ah,09h  ;09h функция
    int     21h
 
    pop     dx
    pop     ax
endm
 
;макрос вывода числа на экран
;вход: AX - число для вывода на экран
putdigit macro
    local lput1
    local lput2
    local exx
 
    push ax
    push    cx
    push    -1  ;сохраним признак конца числа
    mov     cx,10   ;делить будем на 10
lput1:  xor     dx,dx   ;чистим регистр dx
    mov     ah,0                   
    div     cl  ;Делим 
    mov     dl,ah   
    push    dx  ;Сохраним цифру
    cmp al,0    ;Остался 0? 
    jne lput1   ;нет -> продолжим
    mov ah,2h
lput2:  pop dx  ;Восстановим цифру
    cmp dx,-1   ;Дошли до конца -> выход 
    je  exx
    add dl,'0'  ;Преобразуем число в цифру
    int 21h ;Выведем цифру на экран
    jmp lput2   ;И продолжим
exx:
    mov dl,' ' 
    int 21h
    pop cx
    pop     ax
endm
 
;макрос ввода числа с клавиатуры
;выход: AX - введенное число
indigit macro
    local   lin
    push    bx
    push    cx
    push    dx
 
    mov     ah,0Ah  ;буферизированный ввод
    lea     dx,buf
    int     21h
 
    xor     ax,ax
    xor     cx,cx
    ;разбор количества цифр введенного числа
    mov     cl,[buf+1]  ;количество реально введенных символов
    xor     di,di
lin:
    mov     dl,10
    mul     dl
    mov     bl,[buf+di+2]
    sub     bl,30h  ;ASCII -> число
    add     al,bl
    inc     di
    loop    lin
 
    pop dx  
    pop     cx
    pop     bx
endm
 
start:
    
    mov     ax,@data
    mov     ds,ax
 
    write msgRows
    indigit
    mov rows,ax
    write crlf  ;принудительно переводим курсор на след. строку
 
    write msgCols
    indigit
    mov cols,ax
    write crlf
 
    write msgEl
;ввод массива
    lea     bx,array
    mov     cx,rows
    
    
    
in1:    ;цикл по строкам
    push    cx
    mov     cx,cols
    mov     si,0
in2:    ;цикл по колонкам
    indigit ;макрос ввода числа
    mov     [bx][si],al
    inc     si
 
    write crlf  
    loop    in2
 
    add     bx,cols
    pop     cx
    loop    in1
    
    ;Перебор матрицы
    lea bx,array
    mov cx,rows
out1:   ;Цикл по строкам
    push cx
    mov cx,cols
    mov si,0
 
    write crlf  
out2:   ;Цикл по столбцам
    xor ax,ax
    mov al,[bx][si] ;добавляем в регистр AL 
    putdigit    ;макрос выхода
    inc si
    loop out2
 
    add bx,cols
    pop cx
    loop out1
 
    ;находим нулевую колонку
    lea bx,array
    xor ax,ax
    mov al,[bx][0]
    mov cx,rows
    mov flas,0
r1: ;цикл по строкам
    push cx
    mov cx,cols
    mov si,0
    mov flag,0
    add flas,1
    mov al,[bx][si]
r2: ;цикл по столбцам
    add si,1
    cmp si,cols
    je l2
    cmp al,[bx][si] 
    jna l2
    add flag,1
    
l2: 
    mov al,[bx][si]
    loop r2
    mov ax, si
    sub al,1
    cmp  flag,al
    je print
print:
    mov ax,bx
    sub al,flas
    write msgMax
    putdigit

    add bx,cols
    pop cx
    loop r1
    ;Результат: Регистр = строка


    mov ax,4c00h ;dos-функция выхода из программы
    int 21h
end start

_____
Код программы нужно выделять (форматировать) тегами [CODE] [/CODE] (читать FAQ)
Модератор

[FPaul]

При обработке матрицы.
Когда обрабатываете строку (цикл по колонкам), то цикл должен выполняться не cols раз, а на 1 меньше - вы же первый элемент исключаете из цикла.
В цикле по колонкам какое-то мутное сравнение и переход для si.
После цикла по колонкам значение флага нужно сравнивать с числом (cols-1).
Выводить нужно номер строки, а вы выводите что-то другое (там какие-то манипуляции с flag и адресом строки в памяти).

Вот ваш код после форматирования, чтобы лучше было видно ошибки

        ;находим нулевую колонку
        lea     bx, array
        xor     ax, ax
        mov     al, [bx][0]
        mov     cx, rows
        mov     flas,0
        r1:
        ;цикл по строкам
                push    cx
                mov     cx, cols
                mov     si,0
                mov     flag,0
                add     flas, 1
                mov     al, [bx][si]
                r2:
                ;цикл по столбцам
                        add     si, 1
                        cmp     si, cols
                        je      l2
                        cmp     al, [bx][si]
                        jna     l2
                        add     flag, 1

                l2:
                        mov     al, [bx][si]
                loop    r2
                mov     ax, si
                sub     al, 1
                cmp     flag, al
                je      print
        print:
                mov     ax, bx
                sub     al, flas
                write msgMax
                putdigit

                add     bx, cols
                pop     cx
        loop    r1

[Nif-naf]

Where do you? What is error list?