forked from KolibriOS/kolibrios
45 lines
582 B
PHP
45 lines
582 B
PHP
|
;
|
||
|
|
; Mathematical functions
|
||
|
|
;
|
||
|
|
; Author: Trans
|
||
|
|
; Date: 08.03.2005
|
||
|
|
; Compiler: FASM
|
||
|
|
; Target: Hunter - MeOS game
|
||
|
|
;
|
||
|
|
|
||
|
|
rinit dw 0
|
||
|
|
|
||
|
|
; Randomize of 8 bits
|
||
|
|
; In:
|
||
|
|
; Out: AL - random value
|
||
|
|
random_8:
|
||
|
|
push ebx
|
||
|
|
push ecx
|
||
|
|
xor eax,eax
|
||
|
|
mov ax,[rinit]
|
||
|
|
cmp ax,0
|
||
|
|
jnz rand_loc_00
|
||
|
|
mov eax,26
|
||
|
|
mov ebx,9
|
||
|
|
int 40h
|
||
|
|
mov [rinit],ax
|
||
|
|
shl eax,16
|
||
|
|
shr eax,16
|
||
|
|
rand_loc_00:
|
||
|
|
mov ecx,8
|
||
|
|
rand_loc_01:
|
||
|
|
mov bx,ax
|
||
|
|
and bx,002Dh
|
||
|
|
xor bh,bl
|
||
|
|
clc
|
||
|
|
jpe rand_loc_01a
|
||
|
|
stc
|
||
|
|
rand_loc_01a:
|
||
|
|
rcr ax,1
|
||
|
|
loop rand_loc_01
|
||
|
|
mov [rinit],ax
|
||
|
|
xor ah,ah
|
||
|
|
pop ecx
|
||
|
|
pop ebx
|
||
|
|
retn
|