; **************************************************
; Generátor pseudonáhodných čísel (8-bitový registr)
; zpětnovazební polynom: X[8]+[6]+[5]+[4]+1
; maska výpočtu polynomu: 1011 1000 (B8h)
; **************************************************

rnd08:	lda rndnum	; z předchozího čísla
	ani 0b8h	; vypočtu hodnotu polynomu
	jpo rnd08c	; do příznaku parity P
	stc		; a převedu na příznak CY
rnd08c:	lda rndnum	; z předchozího čísla dělám nové
	ral		; rotací vlevo a nasouváním CY,
			; což je hodnota polynomu
	sta rndnum	; uložím novou hodnotu čísla
	ret