ReC98/th02/math/randring_fill.asm

; void pascal near randring_fill(void);
public RANDRING_FILL
randring_fill	proc near
	push	bp
	mov	bp, sp
	push	si
	xor	si, si

@@loop:
	call	IRand
	mov	_randring[si], al
	inc	si
	cmp	si, RANDRING_SIZE
	jl	short @@loop
	pop	si
	pop	bp
	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 bp`
			`mov bp, sp`
			`push si`
			`xor si, si`

			`@@loop:`
			`call IRand`
			`mov _randring[si], al`
			`inc si`
			`cmp si, RANDRING_SIZE`
			`jl short @@loop`
			`pop si`
			`pop bp`
			`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`