RANDRING_NEXT_DEF_NOMOD macro instance, dist
	; void randring_next16(void)
	public _randring&instance&_next16
	_randring&instance&_next16	proc dist
		xor	bh, bh
		mov	bl, _randring_p
		add	bx, offset _randring
		inc	_randring_p
		mov	ax, [bx]
		ret
	_randring&instance&_next16	endp
		nop

	; void randring_next16_and(unsigned short mask)
	public _randring&instance&_next16_and
	_randring&instance&_next16_and	proc dist
	arg @@mask:word

		push	bp
		mov	bp, sp
		xor	bh, bh
		mov	bl, _randring_p
		add	bx, offset _randring
		inc	_randring_p
		mov	ax, [bx]
		and	ax, @@mask
		pop	bp
		ret	2
	_randring&instance&_next16_and	endp
endm

RANDRING_NEXT_DEF macro instance, dist
	RANDRING_NEXT_DEF_NOMOD instance, dist

	; void randring_next16_mod(unsigned short n)
	public _randring&instance&_next16_mod
	_randring&instance&_next16_mod	proc dist
	arg @@n:word

		push	bp
		mov	bp, sp
		xor	bh, bh
		mov	bl, _randring_p
		add	bx, offset _randring
		inc	_randring_p
		mov	ax, [bx]
		xor	dx, dx
		div	@@n
		mov	ax, dx
		pop	bp
		ret	2
	_randring&instance&_next16_mod	endp
endm