Assembler. Нужны комментарии к программе.

[coolaginnik]

Здравствуйте!
Нужна помощь с Ассемблером.

Есть задание: Описать близкую процедуру F(X, N, P), определяющую, сколько элементов мас-
сива X из N байтов равно байту P, и возвращающую результат через регистр AL.
Использовать эту процедуру для вычисления
K ? F(A, 70, F(B, 30, K))
где A – массив из 70 байтов, B – массив из 30 байтов, а K – байтовая пере-
менная.
Выполнить это упражнение при условии, что параметры передаются переменной через стек.

Есть код:

include io.asm
STACK_ SEGMENT STACK
DB 100h DUP(?)
STACK_ ENDS


data segment
a  db 1,2,3,4,5,6,7,8,9,10
   db 11,12,13,4,5,16,17,18,19,20
   db 21,22,22,4,22,22,23,24,25,30
   db 31,32,33,4,5,36,37,38,39,40
   db 41,42,43,44,4,46,47,48,49,50
   db 5,5,5,5,5,56,57,58,59,60
   db 61,62,22,64,65,66,67,68,69,70; Байты


b  db 1,2,3,4,5,6,7,8,9,10
   db 11,12,13,14,15,6,17,18,22,20
   db 21,22,22,22,22,6,23,24,25,30



data ends



code segment;сегмент кода
assume cs:code,ds:data,ss:stack_;Ставим в соответствие сегментному регистру

num_eq proc near;Начало процедуры
	     push bp
	     mov bp,sp
	     push dx
	     push bx
	     push cx
			 mov dl,[bp+4]
			 mov cx,[bp+6]
			 mov bx,[bp+8]
			 mov ax,0			 
count:  		
       mov dh,ds:[bx]
       cmp dh,dl
       jne no_eq
       inc ax
no_eq:       
       inc bx   
  		 loop count	
  		 pop cx
  	   pop bx
  	   pop dx
       mov sp,bp
       pop bp
	 
       ret;Возврат из процедуры

       endp num_eq

start:;Начало
mov ax,data
mov ds,ax

lea dx,b
push dx
mov dx,30
push dx
mov dx,22
push dx
call num_eq
pop dx
pop dx
pop dx

lea dx,a
push dx
mov dx,70
push dx
push ax
call num_eq
pop dx
pop dx
pop dx


outword ax


MOV AX, 4C00h
INT 21h ;End Program

code ends

end start

Нужно написать комментарии, хотя бы к процедуре!
Заранее благодарен