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

[parallelno]

ivagor, ага, спасибо. поторопился.

[Advertiser]

[nzeemin]

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

Качество рандомайзера можно проверить выводом точек по случайным координатам. Или хотя бы прямо рандомные числа писать подряд в экран. И смотреть, не получился ли на экране паттерн.

[parallelno]

nzeemin, ага. Так и проверяю.

[nzeemin]

Кстати, нашёл, вот тут я тестировал два рандомайзера:
https://zx-pk.ru/threads/32499-porti...=1#post1091958

[parallelno]

покумекав для себя вывел вот такой псевдо рандом для байтоых значений

Random:
@mainCodeAddr:
			lxi h, $100
@rnd:
			sbi 1
			rrc
			xra m
			cma
			inr l
			sbb m
			shld @mainCodeAddr+1
			sta @rnd+1				; 84
			ret

рандомайзит вполне пригодно для меня. ну и побыстрее чем то что нашел.



- - - Добавлено - - -

lxi h, адресс кода основной программы используется как сид. используются только 256 байт

- - - Добавлено - - -

nzeemin, проверь если сможешь в своих проектах насколько универсальная или не универсальная штука получилась.

[nzeemin]

Вспомнил что ещё недавно разбирал код на Z80 имеющий 16-битный рандом.
Это из Scuba Dive для ZX Spectrum:

NextRandom
	LD HL,(RANDOM)		; get current Random
	LD D,H	
	LD E,L	
	ADD HL,HL		; x2
	ADD HL,HL		; x4
	ADD HL,HL		; x8
	ADD HL,HL		; x16
	PUSH HL	
	ADD HL,HL		; x32
	EX (SP),HL	
	OR A	
	SBC HL,DE		; HL = x15
	POP BC			; BC = x32
	ADD HL,BC		; x47
	ADD HL,HL		; x94
	ADD HL,HL		; x188
	ADD HL,HL		; x376
	ADD HL,DE		; x377
	ADD HL,HL		; x754
	ADD HL,HL		; x1508
	ADD HL,DE		; x1509
	LD DE,$0029	
	ADD HL,DE	
	LD (RANDOM),HL		; (RANDOM) := (RANDOM) * 1509 + 41
	RET

[parallelno]

___

[nzeemin]

И ещё один вариант рандомайзера, на этот раз 8-битный, из Highway Encounter, с виду довольно быстрый:

; Псевдослучайное 8-битное число с периодом 256 по отношению: X[1] = X[0] * 5 + 7
; I: -
; O: A=RND
; M: HL, AF
Rand:		lxi	h,RndVal
		mov	a,m
		add	a
		add	a
		add	m
		adi	7
		mov	m,a
		ret

[parallelno]

nzeemin, Хороший результат.

[ivagor]

эта процедура рассчитана на генерацию 8 битных случайных чисел.

Частично сдам назад. Для 8-битных обеспечивается заявленный период и в таком варианте, как пишет автор, генератор почти прошел статистические тесты. Но если обеспечение заявленных характеристик не обязательно и надо просто сгенерировать "что-то псевдослучайное 16-битное", то можно взять HL, только для этого нужно вызывать rnd8 по два раза для получения нового значения HL! На мой взгляд все же лучше брать генератор нужной разрядности с предсказуемыми характеристиками.