//    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:$result,rv:$value,rv:$b
work=$s,$k,$bit
---
set $bit,$b
cmp $bit,1
jge normal
set $bit,1
jmp end_exp2
:normal
set $s,1
:loop_start
cmp $bit,0
jbe loop_end
sub $bit,1
set $k,$s
add $s,$k
jmp loop_start
:loop_end
set $bit,$s
:end_exp2
set $result,$value
and $result,$bit
cmp $result,0
je end
set $result,1
:end
