Rellena de ceros una posición.

proc Zerar,Puntero,Cantidad

push ecx
push ebx

mov ecx,[Cantidad]
mov ebx,[Puntero]
.bucle:

mov byte[ebx+ecx],0
loop .bucle
mov byte[ebx],0
pop ebx
pop ecx
ret
endp