Random PROC range:DWORD ;get pseudo random namber
mov eax, [range] ;[RandSeed] es variable global que se puede cambiar
xor edx, edx ;para modificar el patron del random
imul edx,[RandSeed],08088405H ;08088405h una constante, algunas cifras se pueden cambiar, otras no
inc edx
mov [RandSeed],edx
mul edx
mov eax, edx
ret
Random ENDP
;/////////////////////////////////////////////////////////////PRINCIPIO DEL PROGRAMA/////////////////////////////////////////////////////////////////
main PROC
mov ax,@data
mov ds,ax
mov es,ax
inicio:
;semilla random
mov eax, fs:[046ch]
mov RandSeed, eax
call Random(10d)
scanF
main ENDP
END main