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

model   tiny
.code
org 100h
maxX    equ 4
maxY    equ 3
start:  mov cx,maxY
    xor bx,bx
inpR:   push    cx
    mov cx,maxX
    xor di,di
inpC:   call    inNum
    or  ah,ah
    jnz inpC
    mov Massiv[bx][di],al
    inc di
    loop    inpC
    add bx,maxX
    pop cx
    loop    inpR
;
    mov cx,maxY
    xor bx,bx
outR:   push    cx
    mov al,10
    int 29h
    mov al,13
    int 29h
    mov cx,maxX
    xor di,di
outC:   mov al,massiv[bx][di]
    cbw
    call    outNum
    inc di
    loop    outC
    add bx,maxX
    pop cx
    loop    outR
;
    mov cx,maxY
    xor bx,bx
    xor si,si
    mov al,massiv[bx][si]
    test    al,80h
    jz  maxR
    neg al
maxR:   push    cx
    mov cx,maxX
    xor di,di
maxC:   mov ah,massiv[bx][di]
    test    ah,80h
    jz  maxA
    neg ah
maxA:   cmp ah,al
    jb  maxB
    mov al,ah
    mov si,di
    mov dx,bx
MaxB:   inc di
    loop    maxC
    add bx,maxX
    pop cx
    loop    maxR
;
    push    dx
    push    si
    mov ah,9
    lea dx,dbAbs
    int 21h
    pop di
    pop bx
    mov al,massiv[bx][di]
    cbw
    call    outNum
;
    mov ah,9
    lea dx,dbSumma
    int 21h
    xor bx,bx
    xor dx,dx
    mov cx,maxY
summ:   mov al,massiv[bx][di]
    cbw
    add dx,ax
    add bx,maxX
    loop    summ
    mov ax,dx
    call    outNum
    ret;
;
inNum   proc
    push    bx
    push    cx
    push    di
    mov ax,bx
    mov bx,maxX
    xor dx,dx
    div bx
    inc al
    add al,'0'
    mov dbRow,al
    mov ax,di
    inc al
    add al,'0'
    mov dbCol,al
    mov ah,9
    lea dx,dbEnter
    int 21h
    xor si,si
    xor di,di
    mov bx,10
IN1:    xor ah,ah
    int 16h
    cmp al,13
    jz  IN3
    cmp al,'-'
    jz  IN2
    cmp al,'0'
    jb  IN1
    cmp al,'9'
    ja  IN1
    int 29h
    and ax,0fh
    xchg    di,ax
    xor dx,dx
    mul bx
    test    al,80h
    jz  INE
    shl ax,1
INE:    add di,ax
    jmp short IN1
IN2:    or  di,di
    jnz IN1
    inc si
    int 29h
    jmp IN1
IN3:    mov ax,di
    or  si,si
    jz  IN4
    neg al
IN4:    pop di
    pop cx
    pop bx
    ret
inNum   endp
;
outNum  proc
    push    bx
    push    cx
    push    di
    xor si,si
    test    ax,8000h
    jz  ON1
    inc si
    neg ax
ON1:    mov bx,10
    xor cx,cx
ON2:    xor dx,dx
    div bx
    push    dx
    inc cx
    or  ax,ax
    jnz ON2
    or  si,si
    jz  ON3
    mov al,'-'-'0'
    push    ax
    inc cx
ON3:    mov al,' '-'0'
ON4:    push    ax
    inc cx
    cmp cx,8
    jb  ON4
ON5:    pop ax
    add al,'0'
    int 29h
    loop    ON5
    pop di
    pop cx
    pop bx
    ret
;
outNum  endp
dbSumma db  10,13,'Summa:=$'
dbAbs   db  10,13,'Maximum absolute:$'
dbEnter db  10,13,'Enter element ['
dbRow   db  ?
    db  ','
dbCol   db  ?
    db  ']:=$'
massiv  db  MaxX*MaxY dup(?)
    end start