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

.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
 
OutStr macro str ;макрос вывода строки
push dx
mov ah,09h
lea dx,str
int 21h
pop dx
endm 
 
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