Random:
; Define these
;  seed     16     [input] Random number seed
;
;  temp      8     Used internally
;
;  seed     16     [output] The next random number
	ldx	seed + 1
	lda	#253
	sec
	sbc	seed
	pha
	lda	seed
	sbc	seed + 1
	sta	temp
	txa
	sbc	#0
	tax
	pla
	sbc	seed
	pha
	lda	temp
	sbc	seed + 1
	sta	temp
	txa
	sbc	#0
	sta	seed
	pla
	sbc	seed
	sta	seed
	lda	temp
	sbc	#0
	sta	seed + 1
	bcs	_rand
	inc	seed
	bnz	_rand
	inc	seed + 1
_rand:
	rts