; (c) Reminder (1995)

;------------------------------ internal proc --------------------------

rnd:
or cx,cx
jz end_rnd
push ax dx
xor dx,dx
kqwe:
in ax,40h
push cx ax
in ax,40h
mov cx,ax
pop ax
rcr ax,cl
pop cx
adc dx,0
loop kqwe
mov cx,dx
pop dx ax
end_rnd:
ret

rndf:
push ax
in ax,40h
ror ax,cl
mov cx,ax
pop ax
ret

_2be:
push cx
mov cx,1
call rnd
dec cx
pop cx
ret