Программирование

[parallelno]

Спасибо, nzeemin!
Покопавщись в интернетах нашел чуть более быстрый. но конечно не факт что качественее. Но для моих нужд самое то.

; 8-bit Xor-Shift random number generator.
; Created by Patrik Rak in 2008 and revised in 2011/2012.
; See http://www.worldofspectrum.org/forums/showthread.php?t=23070
; period 2^32-1.
; out:
; a - 8-bit pseudo-random number
Rnd8:
		push h
		push d
@rnd:
		lxi h, 0xA280       ; seed must not be 0
		lxi d, 0xC0DE   ; xz -> yw
		shld @rnd+4  ; x = y, z = w
		mov  a, l         ; w = w ^ ( w << 3 )
		add a
		add a
		add a
		xra l
		mov l, a
		mov a, d         ; t = x ^ (x << 1)
		add a
		xra d
		mov h,a
		rar             ; t = t ^ (t >> 1) ^ w
		xra h
		xra l
		mov h, e         ; y = z
		mov l, a         ; w = t
		shld @rnd+1
		pop d
		pop h							; 204
  		ret