ReC98/th03/math/randring_fill.asm

; void pascal near randring_fill(void);
public RANDRING_FILL
randring_fill	proc near
	push	si
	mov	si, RANDRING_SIZE - 1

@@loop:
	call	IRand
	mov	_randring[si], al
	dec	si
	jge	short @@loop
if GAME ge 4
	mov	_randring_p, 0
endif
	pop	si
	ret
randring_fill	endp
[Maintenance] Export all pascal functions with their proper uppercase names Yup, that was one massive screw-up. Part of P0030, funded by zorg. 2019-09-15 16:23:33 +00:00			`; void pascal near randring_fill(void);`
			`public RANDRING_FILL`
			`randring_fill proc near`
[Reverse-engineering] [th02/th03/th04/th05] Random number ring buffer Yes, you're reading that correctly. If the cursor is at 255, reading a 16-bit value will fill the upper 8 bits with the neighboring cursor value, which always is 0xFF. Funded by -Tom-. 2018-03-16 08:19:50 +00:00			`push si`
			`mov si, RANDRING_SIZE - 1`

			`@@loop:`
			`call IRand`
			`mov _randring[si], al`
			`dec si`
			`jge short @@loop`
			`if GAME ge 4`
			`mov _randring_p, 0`
			`endif`
			`pop si`
			`ret`
[Maintenance] Export all pascal functions with their proper uppercase names Yup, that was one massive screw-up. Part of P0030, funded by zorg. 2019-09-15 16:23:33 +00:00			`randring_fill endp`