mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-12 18:07:06 +03:00
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
|