Найти сумму элементов столбца матрицы, содержащего максимальный по модулю элемент - Assembler - Ответ 8832846

    Row SBYTE 4    ; строки
    Col SBYTE 3    ; колони
    i   SBYTE 0    ; счётчик
    j   SBYTE 0    ; счётчик
    k   SBYTE 0    ; строка максимума
    l   SBYTE Row  ; сохранённая строка
    Nom SBYTE 2    ; задаём разрядность значений массива
    Sys SBYTE 10   ; система счисления
    Kbd SBYTE ?    ; буфер клавы
    MKb db    ?    ; модуль
    Max db    0    ; максимум по модулю
    Sum dw    ?    ; сумма
    Res dw    ?    ; конечный результат
    Arr db    Row dup (Col dup (?))  ; массив исходных данных
 
    ; сохраняем адрес массива
    mov DI,Arr
 
    ; получеие числа главных циклов
    mov CX,[Row]
c_j0:   push CX
 
    ; получения числа вложенных циклов
    mov CX,[Col]
    push CX
 
    ; инициалзация цикла
    mov [Sum],0
 
    ; ввод с клавы
c_i0:   call Keyboard
 
    ; копируем Kbd в MKb
    mov AX,[Kbd]
    mov [MKb],AX
 
    ; вычисление модуля MKb
    mov AX,[MKb]
    xor BX,BX
    cmp AX,BX
    jg ACM0  ; отмена вычисления модуля
    neg AX  ; смена знака
 
ACM0:   ; проверка вхождения в диапазон, если ложь goto c_i0
    mov AX,[MKb]
    mov BX,99
    cmp AX,BX
    jg c_i0
 
    ; переписываем Kbd в Arr
    inc DI      ; mov AX,j
    mov AX,[Kbd]    ; mov BX,Row
    mov [DI],AX ; mul AX,BX
            ; mov BX,i
            ; add AX,BX
            ; mov BX,Kbd
            ; mov Arr[AX],BX
 
    ; увеличиваем Sum на Kbd
    mov AX,[Sum]
    mov BX,[Kbd]
    add AX,BX
    mov [Sum],AX
 
    ; сравниваем MKb и Max, если MKb больше - заменяем Max на MKb
    mov AX,[MKb]
    mov BX,[Max]
    cmp AX,BX
    jg Rec0
 
    ; сравниваем Kbd и Max, если равны - заменяем Max на Kbd
    mov AX,[Kbd]
    cmp AX,BX
    jnz End0
 
    ; сохраняем новый максимум и колонку
Rec0:   mov AX,[MKb]
    mov [Max],AX
    mov AX,[j]
    mov [k],AX
 
    ; конец вложенного цикла
End0:   pop CX
    loop c_i0
 
    ; проверяем необходимось сохранения текущего результата
    mov AX,[k]
    mov BX,[l]
    cmp AX,BX
    jz Rec1
 
    ; сохраняем текущий результат
    mov AX,[Sum]
    mov [Res],AX
    mov AX,[k]
    mov [l],AX
 
    ; перевод строки
    mov AX,Dh
    int 29h
 
    ; конец главного цикла
Rec1:   pop CX
    loop c_j0
 
    ; перевод строки
    mov AX,Dh
    int 29h
 
    ; вывод Col, Max, Res
    mov AX,[Col]
    mov [Kbd],AX
    call Monitor
 
    mov AX,[Max]
    mov [Kbd],AX
    call Monitor
 
    mov AX,[Res]
    mov [Kbd],AX
    call Monitor
 
    ; выход из программы
    mov AX,4C00h
    int 21h
 
;============================================================
 
Keyboard:
    mov СX,[Nom]   ; число будет Nom-значное (-99..99)
    mov BX,10   ; система счисления для сохранения
    xor SI,SI   ; здесь будет результат ввода числа
    
    ; ввод минуса числа или разделителя
cislo:  int 16h     ; ожидание символа с клавы
    cmp AL,' '
    jz space
    cmp AL,'-'
    jnz pluqs0
    int 29h     ; вывод символа на экран
    mov AH,1
    mov [Kbd],AH
    int 16h
 
    ; цифры числа
pluqs0: cmp AL,'0'
    jb cislo
    cmp AL,'9'
    ja cislo
    int 29h
 
    ; упаковка
    sub AL,30h
    mul SI,BX
    add SI,AL
    loop cislo
 
    ; сохранение числа
space:  cmp SI,0
    jz pluqs1
    cmp AH,1
    jz pluqs1
    neg SI
pluqs1: mov [Kbd],SI
 
    ; вывод нуля вместо null
    cmp CX,2
    jnz nolx0
    mov AX,'0'
    nit 29h
    mov AX,' '
    int 29h
 
nolx0:  ret
 
;============================================================
 
Monitor:
    ; знак и модуль числа
    cmp AL,0
    jge nolx1
    neg AL
    mov AH,1
 
    ; распаковка
nolx1:  mov DL,[Sys]    ; система счисления для вывода
    cmp AL,DL
    jl out0
    mov BL,AL
    div BL,DL
    mov CL,BL
    mul BL,DL
    sub AL,BL
    push AL
    mov AL,CL
    cmp AL,0
    jnz nolx1
 
    ; вывод на экран
out0:   cmp AH,1
    jnz out1
    mov AL,'-'
    int 29h
out1:   pop AL
    add AL,30h
    int 29h
    cmp стек,100h
    jl out1
 
    ret