//    Copyright (C) 2015   Martin Dames <martin@bastionbytes.de>
//  
//    This program is free software; you can redistribute it and/or modify
//    it under the terms of the GNU General Public License as published by
//    the Free Software Foundation; either version 2 of the License, or
//    (at your option) any later version.
//
//    This program is distributed in the hope that it will be useful,
//    but WITHOUT ANY WARRANTY; without even the implied warranty of
//    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
//    GNU General Public License for more details.
//
//    You should have received a copy of the GNU General Public License along
//    with this program; if not, write to the Free Software Foundation, Inc.,
//    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
//
// 
//
params=r:$rnd,rv:$max
work=$mask,$h
---
set $mask,1
:loop_start
cmp $mask,$max
jg loop_end
set $h,$mask
add $mask,$h
jmp loop_start
:loop_end
sub $mask,1
:random
set $rnd,v98
and $rnd,$mask
cmp $rnd,$max
jg random
