ReC98/th02/math/randring_fill.asm

19 lines
259 B
NASM

; 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