Нужны процедуры.

[axor]

По rnd здесь.

[Advertiser]

[jim]

вот. выдрано из beta basic

rand_	ld	d,0
	ld	bc,(rnd)
	ld	h,c
	ld	l,#fd
	ld	a,b
	or	a
	sbc	hl,bc
	sbc	a,d
	sbc	hl,bc
	sbc	a,d
	ld	e,a
	sbc	hl,de
	jr	nc,r1
	inc	hl
r1	ld	(rnd),hl
	ret
rnd	dw	0

Добавлено через 13 минут
процедура деления по модулю вместе с процедурой вызова рандомайзера. на входе в А указываешь максимальное число диапазона в котором нужно получить рнд. на выходе рнд от нуля до макс..

mod	ld	a,16
	ld	hl,0
m0	rl	e
	rl	d
	rl	l
	rl	h
	sbc	hl,bc
	jr	nc,m1
	add	hl,bc
m1	ccf
	dec	a
	jr	nz,m0
	ret

rand	push	af
	call	rand_
	pop	af
	ld	c,a
	ld	b,0
	ex	de,hl
	call	mod
	ld	a,l
	ret