ZeroMem proc PMen:dword, SizeMen
				push ebx
				push ecx
				push eax
 
 
				mov ecx,[SizeMen]
				mov ebx,4
				mov eax,ecx
				div ebx				;Comprueva si es multiplo de 4
				cmp edx,0
				je Mul4
				sub ecx,edx
				lea edx,[ecx+edx]
                                mov ebx,[PMen]
                                xor eax,eax
 
				NoZero:
				dec edx
				mov byte ptr[ebx+edx],eax
 
				cmp edx,ecx
				jne NoZero
				Mul4:
				xor eax,eax
				mov ebx,[PMen]
 
				siguiente:
				sub ecx,4
				mov [ebx+ecx],eax			;Pone a cero hasta que ecx sea zero
				jecxz zero
				jmp siguiente
				zero:
 
				pop eax
				pop ecx
				pop ebx
 
				ret
 
			ZeroMem endp
 
 

bucle:
.....
.....
.....
dec ecx
cmp ecx,0
jne bucle