ReC98/th04/math/randring.inc

39 lines
842 B
PHP
Raw Normal View History

RANDRING_NEXT_DEF macro instance
public RANDRING&instance&_NEXT16
randring&instance&_next16 proc near
mov bx, _randring_p
mov ax, word ptr _randring[bx]
inc byte ptr _randring_p
ret
randring&instance&_next16 endp
nop
public RANDRING&instance&_NEXT16_AND
randring&instance&_next16_and proc near
arg @@mask:byte
mov bx, _randring_p
mov ax, word ptr _randring[bx]
inc byte ptr _randring_p
mov bx, sp
and ax, ss:[bx+2]
ret 2
randring&instance&_next16_and endp
nop
; void pascal near randring_next16_mod(unsigned short n);
public RANDRING&instance&_NEXT16_MOD
randring&instance&_next16_mod proc near
arg @@n:word
mov bx, _randring_p
mov ax, word ptr _randring[bx]
inc byte ptr _randring_p
xor dx, dx
mov bx, sp
div word ptr ss:[bx+2]
mov ax, dx
ret 2
randring&instance&_next16_mod endp
endm