Процедуры и модули

[Andrej1990]

помогите разделить на 2 процедуры и 2 модуля
Одна формирует Вектор, другая выводит Вектор в регистр ах

задача Найти минимальный элемент в каждом столбце используя двухмерный размер массива [bx][si]

Программа:

.model small
.stack 100h
.data

ColCount equ 3
RowCount equ 2
myconst dw ColCount*RowCount

Matrix dw 1,-2,-3
dw -4,5,-6
Vector dw ColCount dup(?)

S equ type Matrix

.code
ProgramStart:

mov ax, @data
mov ds, ax

xor si, si
xor ax, ax
mov cx, ColCount
lea di, Vector

FormVector:
cmp si, myconst
jge con

xor bx, bx
mov ax, Matrix[bx][si]
add bx, myconst
mov dx, Matrix[bx][si]
cmp ax, dx
jl less_el
jg greater_el

less_el:
mov [di], ax
add di, S
add si, s
loop FormVector
cmp cx, 0
jle con

greater_el:
mov[di], dx
add si, s
add di, S
loop FormVector

con:
xor bx, bx
xor ax, ax
mov cx, ColCount
Print:
cmp bx, S*ColCount
jge exit
mov ax, Vector[bx]
add bx, S
loop print

exit:
mov ax, 4C00h
int 21h

end ProgramStart