mirror of https://github.com/nmlgc/ReC98.git
34 lines
807 B
PHP
34 lines
807 B
PHP
RANDRING_NEXT_DEF macro instance
|
|
public @randring&instance&_next16$qv
|
|
@randring&instance&_next16$qv proc near
|
|
mov bx, _randring_p
|
|
mov ax, word ptr _randring[bx]
|
|
inc byte ptr _randring_p
|
|
ret
|
|
@randring&instance&_next16$qv endp
|
|
nop
|
|
|
|
public @RANDRING&INSTANCE&_NEXT16_AND$QUI
|
|
@randring&instance&_next16_and$qui proc near
|
|
mov bx, _randring_p
|
|
mov ax, word ptr _randring[bx]
|
|
inc byte ptr _randring_p
|
|
arg_bx near, @mask:byte
|
|
and ax, @mask
|
|
ret_bx
|
|
@randring&instance&_next16_and$qui endp
|
|
nop
|
|
|
|
public @RANDRING&INSTANCE&_NEXT16_MOD$QUI
|
|
@randring&instance&_next16_mod$qui proc near
|
|
mov bx, _randring_p
|
|
mov ax, word ptr _randring[bx]
|
|
inc byte ptr _randring_p
|
|
xor dx, dx
|
|
arg_bx near, @n:word
|
|
div word ptr @mask
|
|
mov ax, dx
|
|
ret_bx
|
|
@randring&instance&_next16_mod$qui endp
|
|
endm
|