2018-03-16 08:19:50 +00:00
|
|
|
RANDRING_NEXT_DEF macro instance
|
2023-06-04 13:37:05 +00:00
|
|
|
public @randring&instance&_next8$qv
|
|
|
|
@randring&instance&_next8$qv proc near
|
2018-03-16 08:19:50 +00:00
|
|
|
mov bl, _randring_p
|
|
|
|
inc _randring_p
|
|
|
|
mov bh, 0
|
|
|
|
mov al, _randring[bx]
|
|
|
|
ret
|
2023-06-04 13:37:05 +00:00
|
|
|
@randring&instance&_next8$qv endp
|
2018-03-16 08:19:50 +00:00
|
|
|
|
2023-06-04 13:37:05 +00:00
|
|
|
public @RANDRING&instance&_NEXT8_AND$QUC
|
|
|
|
@randring&instance&_next8_and$quc proc near
|
|
|
|
arg @@mask:byte
|
2018-03-16 08:19:50 +00:00
|
|
|
|
|
|
|
push bp
|
|
|
|
mov bp, sp
|
|
|
|
mov bl, _randring_p
|
|
|
|
inc _randring_p
|
|
|
|
mov bh, 0
|
|
|
|
mov al, _randring[bx]
|
|
|
|
and al, @@mask
|
|
|
|
pop bp
|
|
|
|
ret 2
|
2023-06-04 13:37:05 +00:00
|
|
|
@randring&instance&_next8_and$quc endp
|
2018-03-16 08:19:50 +00:00
|
|
|
|
2023-06-04 13:37:05 +00:00
|
|
|
public @randring&instance&_next16$qv
|
|
|
|
@randring&instance&_next16$qv proc near
|
2018-03-16 08:19:50 +00:00
|
|
|
mov bl, _randring_p
|
|
|
|
inc _randring_p
|
|
|
|
mov bh, 0
|
|
|
|
mov ax, word ptr _randring[bx]
|
|
|
|
ret
|
2023-06-04 13:37:05 +00:00
|
|
|
@randring&instance&_next16$qv endp
|
2018-03-16 08:19:50 +00:00
|
|
|
endm
|