Сортировка двумерного массива по возрастанию построчно

mSort macro matrix, row, col, resMatrix
local rowLoop, colLoop, perm, next
  push ax ; Сохранение регистров, используемых в макросе, в стек
  push bx
  push cx
  push di
  push si
  push dx
 
  xor di, di ; Обнуляем смещение по строкам
  xor dx, dx 
  mov cx, row
rowLoop: ; Внешний цикл, проходящий по строкам
  push cx
  xor si, si ; Обнуляем смещение по столбцам
  mov cx, col
  sub cx, 1
colLoop: ; Внутренний цикл, проходящий по столбцам
  mov ax, col
  mul di ; Устанавливаем смещение по строкам
  add ax, si ; Устанавливаем смешение по столбцам
  mov bx, ax
  
  xor ax, ax
  mov ax, matrix[bx+2]
  cmp ax, matrix[bx]
  jl perm
  jg next
 
perm:
  mov resMatrix[bx], ax 
  mov dx, matrix[bx]
  mov resMatrix[bx+2], dx 
  xor dx, dx 
  xor ax, ax 
 
 
next:
  add si, 2 
  loop colLoop
 
  add di, 2 ; Переходим к следующей строке  
  pop cx
  loop rowLoop
 
  pop dx ; Перенос сохранённых значений обратно в регистры
  pop si
  pop di
  pop cx
  pop bx
  pop ax
endm mSort

.MODEL small
.STACK 100h
.486 ; Включает сборку инструкций для процессора 80386
.DATA
    endl db 13, 10, '$'
    tab db 09, '$'
    space db ' $'
    inputRows db 'Enter the number of rows: $'
    inputColumns db 'Enter the number of columns: $'
    inputElements db 'Enter matrix elements element by element: ', 13, 10, '$'
    inputMin db 'Enter the minimum number: $'
    inputMax db 'Enter the maximum number: $'
 
    menuInstruction db 'To control the menu, press the', 13, 10, 'corresponding key on the keyboard', 13, 10, '$'
    menu1 db '1. Display matrix', 13, 10, '$'
    menu2 db '2. Enter matrix from keyboard', 13, 10, '$'
    menu3 db '3. View transposed matrix', 13, 10, '$'
    menu4 db '4. Find the sum of the elements between [min..max] in each row', 13, 10, '$'
    menu5 db '5. Find strings of positive numbers', 13, 10, '$'
    menu6 db '6. Square negative numbers and sort', 13,10, '$'
    menu0 db '0. Exit the program', 13, 10, '$'
 
    sumRowElements db 'Sum of row elements: $'
    sumAboveDiagonal db 'Sum of elements above the main diagonal: $'
    posRowsFound db 'Rows consisting of positive elements: $'
 
    buffer db 20 dup(?)
    min dw 0
    max dw 0
    rows dw 1
    cols dw 1
    count dw 1
    currentMatrix dw 100 dup (0)
    exMatrix dw 100 dup (0)
    transposedMatrix dw 100 dup (0)
 
 
mReadMatrix macro matrix, row, col, matrix2
local rowLoop, colLoop
JUMPS ; Директива, делающая возможным большие прыжки
    push bx ; Сохранение регистров, используемых в макросе, в стек
    push cx
    push si
 
    xor bx, bx ; Обнуляем смещение по строкам
    mov cx, row
 
rowLoop: ; Внешний цикл, проходящий по строкам
    push cx
 
    xor si, si ; Обнуляем смещение по столбцам
    mov cx, col
colLoop: ; Внутренний цикл, проходящий по столбцам
    mReadAX buffer 4 ; Макрос ввода значения регистра AX с клавиатуры
 
    mov matrix[bx][si], ax
    mov matrix2[bx][si], ax
    add si, 2 ; Переходим к следующему элементу (размером в слово)
    loop colLoop
 
    mWriteStr endl ; Макрос вывода строки на экран [Приложение 3]
    ; Перенос курсора и каретки на следующую строку
 
    add bx, col ; Увеличиваем смещение по строкам
    add bx, col ; (дважды, так как размер каждого элемента - слово)
 
    pop cx
    loop rowLoop
 
    pop si ; Перенос сохранённых значений обратно в регистры
    pop cx
    pop bx
NOJUMPS ; Прекращение действия директивы JUMPS
endm mReadMatrix
 
 
mWriteMatrix macro matrix, row, col
local rowLoop, colLoop
    push ax ; Сохранение регистров, используемых в макросе, в стек
    push bx
    push cx
    push si
    
    xor bx, bx ; Обнуляем смещение по строкам
    mov cx, row
    rowLoop: ; Внешний цикл, проходящий по строкам
    push cx
 
    xor si, si ; Обнуляем смещение по столбцам
    mov cx, col
colLoop: ; Внутренний цикл, проходящий по столбцам
    mov ax, matrix[bx][si] ; bx - смещение по строкам, si - по столбцам
 
    mWriteAX ; Макрос вывода значения регистра AX на экран 
 
    ; Вывод текущего элемента матрицы
    xor ax, ax
    mWriteStr tab ; Макрос вывода строки на экран 
 
    ; Вывод на экран табуляции, разделяющей элементы строки
    add si, 2 ; Переходим к следующему элементу (размером в слово)
    loop colLoop
 
    mWriteStr endl ; Макрос вывода строки на экран *Приложение 3]
    
    ; Перенос курсора и каретки на следующую строку
    add bx, col ; Увеличиваем смещение по строкам
    add bx, col ; (дважды, так как размер каждого элемента - слово)
 
    pop cx
    loop rowLoop
 
    pop si ; Перенос сохранённых значений обратно в регистры
    pop cx
    pop bx
    pop ax
endm mWriteMatrix
 
 
mMulNegative macro matrix, row, col, resMatrix
local rowLoop, colLoop, skip 
  push ax ; Сохранение регистров, используемых в макросе, в стек
  push bx
  push cx
  push di
  push si
  push dx
 
  xor di, di ; Обнуляем смещение по строкам
  mov cx, row
rowLoop: ; Внешний цикл, проходящий по строкам
  push cx
  xor si, si ; Обнуляем смещение по столбцам
  mov cx, col
colLoop: ; Внутренний цикл, проходящий по столбцам
  mov ax, col
  mul di ; Устанавливаем смещение по строкам
  add ax, si ; Устанавливаем смешение по столбцам
  mov bx, ax
  mov ax, matrix[bx]
  test ax, ax 
  jns skip
  neg ax
  mul ax 
  push ax
skip:
  push ax ; Заносим текущий элемент в стек
 
  mov ax, col
  mul di ; Устанавливаем смещение по строкам
  add ax, si ; Устанавливаем смешение по столбцам
 
  ; (смещения по строкам и столбцам меняются
  ; местами по сравнению с оригинальной матрицей)
  mov bx, ax
  pop ax
  mov resMatrix[bx], ax ; Заносим в новую матрицу элемент,
   ; сохранённый в стеке
 
  add si, 2 ; Переходим к следующему элементу
 
  ; (размером в слово)
  loop colLoop
 
  add di, 2 ; Переходим к следующей строке  
  pop cx
  loop rowLoop
 
  pop dx ; Перенос сохранённых значений обратно в регистры
  pop si
  pop di
  pop cx
  pop bx
  pop ax
endm mMulNegative
 
 
mSort macro matrix, row, col, resMatrix
local rowLoop, colLoop, perm, next
  push ax ; Сохранение регистров, используемых в макросе, в стек
  push bx
  push cx
  push di
  push si
  push dx
 
  xor di, di ; Обнуляем смещение по строкам
  xor dx, dx 
  mov cx, row
rowLoop: ; Внешний цикл, проходящий по строкам
  push cx
  xor si, si ; Обнуляем смещение по столбцам
  mov cx, col
  sub cx, 1
colLoop: ; Внутренний цикл, проходящий по столбцам
  mov ax, col
  mul di ; Устанавливаем смещение по строкам
  add ax, si ; Устанавливаем смешение по столбцам
  mov bx, ax
  
  xor ax, ax
  mov ax, matrix[bx+2]
  cmp ax, matrix[bx]
  jl perm
  jg next
 
perm:
  mov resMatrix[bx], ax 
  mov dx, matrix[bx]
  mov resMatrix[bx+2], dx 
  xor dx, dx 
  xor ax, ax 
 
 
next:
  add si, 2 
  loop colLoop
 
  add di, 2 ; Переходим к следующей строке  
  pop cx
  loop rowLoop
 
  pop dx ; Перенос сохранённых значений обратно в регистры
  pop si
  pop di
  pop cx
  pop bx
  pop ax
endm mSort
 
 
mSumOfRowElements macro matrix, row, col, count
local
    push ax
    push bx
    push cx
    push dx
    push di
    push si
 
    xor ax, ax
    xor bx, bx
    xor cx, cx
    xor dx, dx
    xor di, di
    xor si, si
 
    mov cx, col
    mov di, 0
colLoop:
    push cx
    xor bx, bx
    mov cx, row
    mov dx, matrix[bx][si]
    test dx, dx
    jns rowLoop
    neg dx
rowLoop:
    mov ax, matrix[bx][si]
    test ax, ax
    jns loop1
    neg ax
loop1:
    cmp ax, dx
    jle loop2
    mov dx, ax
    mov di, bx
loop2:
    add bx, col
    add bx, col
    loop rowLoop
    push di
    mov di, count
    sub di, 1
    mov count, di
    pop di
 
    push cx
    mov cx, count
    sub cx, 1
    cmp cx, 0
    je colLoop
    push bx
    mov bx, di
    add bx, col
    add bx, col
    mov ax, matrix[bx][si]
cicle1:
    add bx, col
    add bx, col
    mov dx, matrix[bx][si]
    imul dx
    loop cicle1
    pop cx
    pop bx
    add si, 2
 
    mWriteAX
    loop colLoop
 
 
endm mSumOfRowElements
 
 
mTransposeMatrix macro matrix, row, col, resMatrix
local rowLoop, colLoop
    push ax ; Сохранение регистров, используемых в макросе, в стек
    push bx
    push cx
    push di
    push si
    push dx
 
    xor di, di ; Обнуляем смещение по строкам
    mov cx, row
rowLoop: ; Внешний цикл, проходящий по строкам
    push cx
    xor si, si ; Обнуляем смещение по столбцам
    mov cx, col
colLoop: ; Внутренний цикл, проходящий по столбцам
    mov ax, col
    mul di ; Устанавливаем смещение по строкам
    add ax, si ; Устанавливаем смешение по столбцам
    mov bx, ax
    mov ax, matrix[bx]
    push ax ; Заносим текущий элемент в стек
 
    mov ax, row
    mul si ; Устанавливаем смещение по строкам
    add ax, di ; Устанавливаем смешение по столбцам
 
    ; (смещения по строкам и столбцам меняются
    ; местами по сравнению с оригинальной матрицей)
    mov bx, ax
    pop ax
    mov resMatrix[bx], ax ; Заносим в новую матрицу элемент,
     ; сохранённый в стеке
 
    add si, 2 ; Переходим к следующему элементу
 
    ; (размером в слово)
    loop colLoop
 
    add di, 2 ; Переходим к следующей строке   
    pop cx
    loop rowLoop
 
    pop dx ; Перенос сохранённых значений обратно в регистры
    pop si
    pop di
    pop cx
    pop bx
    pop ax
endm mTransposeMatrix
 
 
 
mSearchPositiveRows macro matrix, row, col
local rowLoop, colLoop, positiveNumber, nonzeroNumber
    push ax ; Сохранение регистров, используемых в макросе, в стек
    push bx
    push cx
    push si
    push di
    push dx
 
    mov di, 1 ; di - счётчик строк, начиная с единицы
    xor dx, dx ; dx - счётчик отрицательных чисел в строке
    xor bx, bx ; Обнуляем смещение по строкам
    mov cx, row
rowLoop:
    push cx
 
    xor si, si ; Обнуляем смещение по столбцам
    mov cx, col
colLoop:
    mov ax, matrix[bx][si] ; bx - смещение по строкам, si - по столбцам
 
    or ax, ax ; Проверяем, отрицательное ли число
    jns positiveNumber ; Если найдено отрицательное число, то
    inc dx ; Увеличиваем счётчик отрицательных числе в строке
    positiveNumber:
 
    add si, 2 ; Переходим к следующему элементу (размером в слово)
    loop colLoop
 
    or dx, dx ; Проверяем счётчик отрицательных чисел на равенство 0
    jnz nonzeroNumber ; Если счётчик отрицательных чисел строки пуст, то:
    mov ax, di
    mWriteAX ; Макрос вывода значения регистра AX на экран
 
    ; Выводим номер текущей строки
    mWriteStr space ; Макрос вывода строки на экран 
 
    ; Выводим пробел между номерами строк
    nonzeroNumber:
 
    xor dx, dx ; Обнуляем счётчик отрицательных чисел
    inc di ; Увеличиваем счётчик строк
    add bx, col ; Увеличиваем смещение по строкам
    add bx, col ; (дважды, так как размер каждого элемента - слово)
    pop cx
    loop rowLoop
 
    pop dx ; Перенос сохранённых значений обратно в регистры
    pop di
    pop si
    pop cx
    pop bx
    pop ax
endm mSearchPositiveRows
 
mReadAX macro buffer, size
local input, startOfConvert, endOfConvert
    push bx ; Сохранение регистров, используемых в макросе, в стек
    push cx
    push dx
 
input:
    mov [buffer], size ; Задаём размер буфера
    mov dx, offset [buffer]
    mov ah, 0Ah ; 0Ah - функция чтения строки из консоли
    int 21h
 
    mov ah, 02h ; 02h - функция вывода символа на экран
    mov dl, 0Dh
    int 21h ; Переводим каретку на новою строку
 
    mov ah, 02h ; 02h - функция вывода символа на экран
    mov dl, 0Ah
    int 21h ; Переносим курсор на новою строку
 
    xor ah, ah
    cmp ah, [buffer][1] ; Проверка на пустую строку
    jz input ; Если строка пустая - переходим обратно к вводу
 
    xor cx, cx
    mov cl, [buffer][1] ; Инициализируем переменную счетчика
 
    xor ax, ax
    xor bx, bx
    xor dx, dx
    mov bx, offset [buffer][2] ; bx = начало строки
 
     ; (строка начинается со второго байта)
    cmp [buffer][2], '-' ; Проверяем, отрицательное ли число
    jne startOfConvert ; Если отрицательное - пропускаем минус
    inc bx
    dec cl
 
startOfConvert:
 
    mov dx, 10
    mul dx ; Умножаем на 10 перед сложением с младшим разрядом
    cmp ax, 8000h ; Если число выходит за границы, то
    jae input ; возвращаемся на ввод числа
 
    mov dl, [bx] ; Получаем следующий символ
    sub dl, '0' ; Переводим его в числовой формат
 
    add ax, dx ; Прибавляем к конечному результату
    cmp ax, 8000h ; Если число выходит за границы, то
    jae input ; врзвращаемся на ввод числа
 
    inc bx ; Переходим к следующему символу
    loop startOfConvert
 
    cmp [buffer][2], '-' ; Ещё раз проверяем знак
    jne endOfConvert ; Если знак отрицательный, то
    neg ax ; инвертируем число
 
endOfConvert:
    pop dx ; Перенос сохранённых значений обратно в регистры
    pop cx
    pop bx
endm mReadAX
 
 
mWriteAX macro
local convert, write
    push ax ; Сохранение регистров, используемых в макросе, в стек
    push bx
    push cx
    push dx
    push di
 
    mov cx, 10 ; cx - основание системы счисления
    xor di, di ; di - количество цифр в числе
 
    or ax, ax ; Проверяем, равно ли число в ax нулю и устанавливаем флаги
    jns convert ; Переход к конвертированию, если число в ax положительное
 
    push ax
 
    mov dx, '-'
    mov ah, 02h ; 02h - функция вывода символа на экран
    int 21h ; Вывод символа "-"
 
    pop ax
    neg ax ; Инвертируем отрицательное число
 
convert:
    xor dx, dx
 
    div cx ; После деления dl = остатку от деления ax на cx
    add dl, '0' ; Перевод в символьный формат
    inc di ; Увеличиваем количество цифр в числе на 1
    
    push dx ; Складываем в стек
 
    or ax, ax ; Проверяем, равно ли число в ax нулю и устанавливаем флаги
    jnz convert ; Переход к конвертированию, если число в ax не равно нулю
 
write: ; Вывод значения из стека на экран
    pop dx ; dl = очередной символ
 
    mov ah, 02h
    int 21h ; Вывод очередного символа
    
    dec di ; Повторяем, пока di <> 0
    jnz write
 
    pop di ; Перенос сохранённых значений обратно в регистры
    pop dx
    pop cx
    pop bx
    pop ax
endm mWriteAX
 
 
mWriteStr macro string
    push ax ; Сохранение регистров, используемых в макросе, в стек
    push dx
 
    mov ah, 09h ; 09h - функция вывода строки на экран
    mov dx, offset string
    int 21h
 
    pop dx ; Перенос сохранённых значений обратно в регистры
    pop ax
endm mWriteStr
 
 
mCLS macro
    push ax ; Сохранение регистров, используемых в макросе, в стек
    push bx
    push cx
    push dx
 
    mov ah, 10h
    mov al, 3h
    int 10h ; Включение режима видеоадаптора с 16-ю цветами
 
    mov ax, 0600h ; ah = 06 - прокрутка вверх
     ; al = 00 - строки появляются снизу и заполняются нулями
    mov bh, 00011110b ; 0001 - синий (фон), 1110 - желтый (текст)
    mov cx, 0000b ; ah = 00 - строка верхнуго левого угла
    ; al = 00 - столбец верхнего левого угла
 
    mov dx, 184Fh ; dh = 18h - строка нижнего правого угла
    ; dl = 4Fh - столбец нижнего правого угла
 
    int 10h ; Очистка экрана и установка цветов фона и текста
 
    mov dx, 0 ; dh - строка, dl - столбец
    mov bh, 0 ; Номер видео-страницы
    mov ah, 02h ; 02h - функция установки позиции курсора
    int 10h ; Устанавливаем курсор на позицию (0, 0)
 
    pop dx ; Перенос сохранённых значений обратно в регистры
    pop cx
    pop bx
    pop ax
endm mCLS
 
 
.CODE
Start:
    mov ax, @data
    mov ds, ax
 
    ;include macros.asm ; Подключение файла со всеми вышеописанными макросами
 
    ; Вывод на экран меню, а также осуществление выбора следующего пункта программы
menu:
    mCLS ; Макрос очистки экрана и установки вида окна
 
    mWriteStr menuInstruction ; Макрос вывода строки на экран 
    mWriteStr endl
    mWriteStr menu1
    mWriteStr menu2
    mWriteStr menu3
    mWriteStr menu4
    mWriteStr menu5
    mWriteStr menu6
    mWriteStr menu0
 
    mov ah, 00h
    int 16h ; Ожидание нажатия символа и получение его значения в al
 
    cmp al, "1"
    je writeMatrix
 
    cmp al, "2"
    je consoleInput
 
    cmp al, "3"
    je transposeMatrix
 
    cmp al, "4"
    je task1
 
    cmp al, "5"
    je task2
 
    cmp al, "6"
    je task3
 
    cmp al, "0"
    je exit
 
    jmp menu
 
    ; Вывод элементов матрицы на экран
writeMatrix:
    mCLS ; Макрос очистки экрана и установки вида окна  
    mWriteMatrix currentMatrix, rows, cols
    mov ah, 07h ; Задержка экрана
    int 21h
    jmp menu
 
    ; Ввод элементов матрицы из консоли
consoleInput:
    mCLS ; Макрос очистки экрана и установки вида окна  
 
    mWriteStr inputRows ; Макрос вывода строки на экран  
    mReadAX buffer 2 ; Макрос ввода значения регистра AX с клавиатуры
 
    ; Ввод количества строк
    mov rows, ax
    mov count, ax
    mWriteStr endl ; Макрос вывода строки на экран 
 
    mWriteStr inputColumns ; Макрос вывода строки на экран  
    mReadAX buffer 2 ; Макрос ввода значения регистра AX с клавиатуры
 
    ; Ввод количества столбцов
    mov cols, ax
    mWriteStr endl ; Макрос вывода строки на экран
 
    mWriteStr inputElements ; Макрос вывода строки на экран
 
    mReadMatrix currentMatrix, rows, cols, exMatrix
    jmp writeMatrix
 
    ; Получение и вывод транспонированной матрицы
transposeMatrix:
    mCLS ; Макрос очистки экрана и установки вида окна
 
    mWriteMatrix currentMatrix, rows, cols
    mWriteStr endl ; Макрос вывода строки на экран
    mWriteStr endl
    mTransposeMatrix currentMatrix, rows, cols, transposedMatrix
    mWriteMatrix transposedMatrix, cols, rows
 
    mov ah, 07h ; Задержка экрана
    int 21h
    jmp menu
 
    ; Получение суммы элементов всех строк в пределах [min..max]
task1:
    mCLS ; Макрос очистки экрана и установки вида окна
 
    mWriteStr inputMin ; Макрос вывода строки на экран 
    mReadAX buffer 4 ; Макрос ввода значения регистра AX с клавиатуры
 
    ; Ввод нижнего предела
    mov min, ax
    mWriteStr endl
 
    mWriteStr inputMax ; Макрос вывода строки на экран 
    mReadAX buffer 4 ; Макрос ввода значения регистра AX с клавиатуры
 
    ; Ввод верхнего предела
    mov max, ax
    mWriteStr endl ; Макрос вывода строки на экран 
 
    mov ax, max
    cmp ax, min
    jge notSwap ; Если максимальное и минимальное числа введены неверно,
    xchg min, ax ; то меняем их местами
    mov max, ax
 
notSwap:
    mCLS ; Макрос очистки экрана и установки вида окна 
    mWriteMatrix currentMatrix, rows, cols
    mWriteStr endl ; Макрос вывода строки на экран
    mWriteStr endl
    mWriteStr sumRowElements
    mWriteStr endl
    ;mSumOfRowElements currentMatrix, rows, cols, min, max
 
    mov ah, 07h ; Задержка экрана
    int 21h
    jmp menu
 
    ; Получение строк, состоящих только из положительных элементов
task2:
    mCLS ; Макрос очистки экрана и установки вида окна 
    mWriteMatrix currentMatrix, rows, cols
    mWriteStr endl ; Макрос вывода строки на экран 
    mWriteStr endl
    mWriteStr posRowsFound
    mSearchPositiveRows currentMatrix, rows, cols
 
    mov ah, 07h ; Задержка экрана
    int 21h
    jmp menu
 
    ; Получение суммы элементов выше главной диагонали
task3:
    mCLS ; Макрос очистки экрана и установки вида окна  
    mWriteMatrix currentMatrix, rows, cols
    mWriteStr endl ; Макрос вывода строки на экран 
    mWriteStr endl
    ;mWriteStr sumAboveDiagonal
    mMulNegative currentMatrix, rows, cols, exMatrix
    mWriteMatrix exMatrix, cols, rows
    mWriteStr endl ; Макрос вывода строки на экран 
    mWriteStr endl
    mSort exMatrix, rows, cols, exMatrix
    mWriteMatrix exMatrix, cols, rows
 
    mov ah, 07h ; Задержка экрана
    int 21h
    jmp menu
 
    ; Завершение программы
exit:
    mov ax, 4c00h
    int 21h
end Start

mSort macro matrix, row, col, resMatrix
local rowLoop, colLoop, perm, next, perm2
  push ax ; Сохранение регистров, используемых в макросе, в стек
  push bx
  push cx
  push di
  push si
  push dx
 
  xor di, di ; Обнуляем смещение по строкам
  xor dx, dx 
  mov cx, row
rowLoop: ; Внешний цикл, проходящий по строкам
  mov bx, cx
  push cx
  xor si, si ; Обнуляем смещение по столбцам
  mov cx, col
  sub cx, 1
  
colLoop: ; Внутренний цикл, проходящий по столбцам
  mov ax, col
  mul di ; Устанавливаем смещение по строкам
  add ax, si ; Устанавливаем смешение по столбцам
  mov bx, ax
  
  xor ax, ax
  mov ax, matrix[bx]
  cmp ax, matrix[bx+2]
  jg perm
  je next
 
perm:
  mov dx, matrix[bx+2]
  mov resMatrix[bx], dx 
  mov resMatrix[bx+2], ax 
  xor dx, dx 
  xor ax, ax 
  
  cmp si, 2
  jge perm2
 
perm2: 
  mov ax, resMatrix[bx]
  cmp ax, resMatrix[bx-2]
  jl perm3
  jg next
 
perm3: 
  mov dx, resMatrix[bx-2]
  mov resMatrix[bx], dx
  mov resMatrix[bx-2], ax
  xor dx, dx 
  xor ax, ax
 
next:
  add si, 2 
  loop colLoop
 
  add di, 2 ; Переходим к следующей строке  
  pop cx
  loop rowLoop
 
  pop dx ; Перенос сохранённых значений обратно в регистры
  pop si
  pop di
  pop cx
  pop bx
  pop ax
endm mSort

colLoop: ; Внутренний цикл, проходящий по столбцам
  mov ax, col
  mul di ; Устанавливаем смещение по строкам
  add ax, si ; Устанавливаем смешение по столбцам
  mov bx, ax