Тест скорости оперативной памяти.

[komesergey]

Нужно было написать тест скорости записи данных в оперативную память и чтения данных из памяти, результат вывести на экран в десятичном коде.
Вот этот вариант не работает, задолбался ошибку искать. Также прошу помочь переписать процедуру перевода из 16 сс в 10 сс и вывод в виде макроса как OutStr

OutStr macro str ;макрос вывода строки
push dx
mov ah,09h
lea dx,str
int 21h
pop dx
endm


.model small
.stack 256
.data
M1 DB ':$'
M3 DB 'Finish time in ms....$'
SEC DB 0
SEC1 DB 0
g DB 0
i DW 0
x db 10242 dup(1)
long dw 10000

.code
start:
mov ax,@DATA ;инициализация
mov ds,ax
xor ax,ax

mov ah,2ch ; запуск таймера- узнаем текущие мс
int 21h
mov sec,dl

mov si, 0

for_start: ;забиваю 10кб памяти нулями в цикле
mov dword [i],0
for_loop:
mov x[si],'0'
inc si
inc dword [i]
cmp dword [i],10240
jnz for_loop
for_finish:

mov ah,2ch ;запуск второй раз системного таймера, получаю мс конца
int 21h
mov sec1,dl


xor ax,ax ; вывожу начальные мс
mov ax, offset sec
Call OutInt
OutStr M1

xor ax,ax ;вывожу конечные мс
mov ax, offset sec1
Call OutInt
OutStr M1

xor ax,ax ; вычитаю, получаю в мс сколько загружались 10кб
mov cl,sec
sub sec1,cl
mov ax, offset sec1
Call OutInt
OutStr M1


xor dx,dx
mov ax,@DATA
mov ds,ax

xor cx,cx ;деление 10000кб на этот самый период
xor ax,ax
xor dx,dx
mov ax, long
mov cx, offset sec1
div cx

Call OutInt

OutStr M1
xor ax,ax

OutInt proc ;это процедура перевода и вывода на экран из 16 сс в 10 сс
xor cx, cx
mov bx, 10 ; основание сс. 10 для десятеричной и т.п.
oi2:
xor dx,dx
div bx
push dx
inc cx
test ax, ax
jnz oi2
mov ah, 02h
oi3:
pop dx
add dl, '0'
int 21h
loop oi3
ret
OutInt endp
OutStr M1

MOV AH,08h
INT 21h
mov ax,4C00h
int 21h
END start