Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
ReC98/th04/math/randring.inc

41 lines
946 B
PHP
Raw Normal View History

[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
RANDRING_NEXT_DEF macro instance
[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_next16(void);
public RANDRING&instance&_NEXT16
randring&instance&_next16 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
mov bx, _randring_p
mov ax, word ptr _randring[bx]
inc byte ptr _randring_p
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&instance&_next16 endp
[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
nop
[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_next16_and(unsigned char mask);
public RANDRING&instance&_NEXT16_AND
randring&instance&_next16_and 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
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
[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&instance&_next16_and endp
[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
nop
[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_next16_mod(unsigned short n);
public RANDRING&instance&_NEXT16_MOD
randring&instance&_next16_mod 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
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
[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&instance&_next16_mod endp
[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
endm