Как вызвать макрос в сегменте .data?

.model tiny ; MASM's support for COM files
.dosseg ; Make sure you are using dos segment CODE, DATA + STACK
.data
;Инициализация матрицы ixj
InitMatrix macro MatName, i, j        
MatName dw i dup(j dup(0)) 
  
 
endm
;Инициализация массива b1 ,... bn
InitArrB macro MatName, i
arr&MatName dw i dup(0) 
endm
 
MesInpMat DB "Input matrix", 0Dh, 0Ah, '$'
MesMat DB "Matrix", 0Dh, 0Ah, '$'
OutRes DB "Result array", 0Dh, 0Ah, '$'
Buffer DB 06,0,7 dup(?),'$'
NewStr DB " ", 0Dh, 0Ah, '$'
Space DB " ", '$'
.code
.startup
;Действия над матрицами и массивом b
AllMatAction macro MatName, i, j
InitMatrix MatName, i, j ;Инициализация матрицы
InitArrB MatName, i ;Инициализация массива bi
InputMatrix MatName, i, j ;ввод матрицы
OutputMatrix MatName, i, j ;вывод матрицы
CreateArrB MatName, i, j ;получение массива bi
OutputArrB MatName, i ;вывод массива bi
endm
;Макрос ввода
input macro
push bx ;bx в стек
output Space ;вывод пробела, чтобы DOSBOX не уничтожал первый элемент
mov ah,0Ah ;в AH - номер функции ввода строки
lea dx, offset Buffer ;записать адрес Буффера в dx
int 21h ;9-я функция 21-го прерывания DOS — вывод сообщения
mov bx, dx ;скопировать dx в bx (адрес введенного числа)
inc bx ;прибавить указатель на 1
call str2bin ;вызов фун-ии преобразования числа во внутр. представление
output NewStr ;переход на следующую строку
pop bx ;восстановить вершину стека в bx
endm
;Макрос вывода
output macro str
push ax ;ax в стек
mov ah,09h ; в AH - номер функции вывода строки
mov dx,offset str ;поместить в dx текст сообщения
int 21h ;9-я функция 21-го прерывания DOS — вывод сообщения
pop ax ;восстановить вершину стека в ax
endm
;Макрос для ввода матрицы
InputMatrix macro MatName, i, j
local vvod ;локальная переменная
output MesInpMat ;вывод строки о вводе матрицы
mov ax,i ;загрузить количество строк в ax
mov dx,j ;загрузить количество столбцов в dx
imul dx ;вычисление количества всех элементов матрицы
mov cx,ax ;количество всех элементов в cx
mov si,0 ;загрузить 0 в si
vvod: input ;ввод элемента
mov [MatName+si],ax ;помещение в матрицу элемента
add si,2 ;увеличение указателя
loop vvod ;Зацикливание ввода
endm
;Макрос для вывода матрицы
OutputMatrix macro MatName, i, j
local cycl,vivod ;локальные переменные
output MesMat ;вывод строки
mov si,0 ;загрузить 0 в si
mov cx,i ;загрузить количество строк в cx
cycl: push cx ;загрузить cx в стек
mov cx,j ;загрузить количество столбцов в cx
vivod: mov ax,[MatName+si] ;загрузить элемент матрицы в ax
lea bx,Buffer ;загрузить адреса буфера в bx
call bin2str ;вызов подпрограммы преобразования числа в строку
lea dx,Buffer+1 ;адрес буфера вывода
mov ah,09h ; в AH - номер функции вывода строки
int 21h ; 9-я функция 21-го прерывания DOS — вывод сообщения
add si,2 ;увеличение переменной указателя
loop vivod ;зацикливание вывода элементов строки
pop cx ;восстановление количества столбцов из стека
output NewStr ;переход на следующую строку
loop cycl ;зацикливание вывода по количеству строк
endm
;Макрос вычисления массива из положительных чисел в строках матрицы
CreateArrB macro MatName, i, j
local begin, incoming_element, next_element_matrix ;локальные переменные
mov si,0 ;счетчик для матрицы
mov di,0 ;счетчик для последовательности
mov cx,i ;загрузить количество строк в cx
begin: push cx ;загрузить cx в стек
mov bx,0 ;переменная, с помощью которой выводится первый положительный элемент
mov cx,j ;кол-во столбцов -> cx
incoming_element: mov ax,[MatName+si] ;загрузить элемент матрицы в ax
cmp ax,0 ;сравнение ax с 0
jle next_element_matrix ;переход, если ax <= 0
inc bx;
cmp bx,1 ;сравнение bx с 1
ja next_element_matrix ;переход, если bx>1
mov arr&MatName[di],ax ;Полученный положительный элемент в массив
next_element_matrix: add si,2 ;указатель на следующий элемент в матрице
loop incoming_element ;зацикливание
pop cx ;восстановление количества строк в сх
add di,2 ;указатель на следующий элемент в массиве
loop begin ;зацикливание
endm
;Макрос для вывода вычисленного массива
OutputArrB macro MatName, i
local res ;локальная переменная
output OutRes ;вывод строки о результате
mov si,0 ;загрузить 0 в si
mov cx,i ;загрузить количествo строк в cx
res: mov ax,arr&MatName[si] ;элемент массива -> ax
lea bx,Buffer ;загрузить адреса буфера в bx
call bin2str ;вызов подпрограммы преобразования числа в строку
lea dx,Buffer+1 ;адрес буфера вывода
mov ah,09h ; в AH - номер функции вывода строки
int 21h ;9-я функция 21-го прерывания DOS — вывод сообщения
add si,2 ;указатель на следующий элемент матрицы
loop res ;зацикливание
output NewStr ;переход на новую строку
endm
;Три матрицы
AllMatAction M1,2,2 ;2х2
AllMatAction M2,3,2 ;3х2
AllMatAction M3,2,4 ;2х4
;Конец
mov ah, 4Ch ; выход – прекращение с кодом возврата
int 21h ; 9-я функция 21-го прерывания DOS — вывод сообщения
include bin2str.asm ;функция преобразования числа в строку
include str2bin.asm ;вызов функции преобразования числа во внутр. представление
end