; the data storage byte rnsl needs to be

; defined in calling program.

; ie	rnsl	data	2bh

; This isn't intended to be a perfect

; random number generator but works 

; nicely for 8 bit integers.



random:	push	7

	mov	a,rnsl

	add	a,acc

	add	a,acc

	mov	7,a

	add	a,acc

	add	a,7

	mov	7,a

	mov	a,rnsl

	add	a,7

	inc	a

	mov	rnsl,a

	pop	7

	ret