//    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:$register,rv:$b
work=$s,$k,$bit
---
set $bit,$b
cmp $bit,1
jge normal
set $bit,1
jmp ende_exp2
:normal
set $s,1
:loop_start
cmp $bit,0
jbe loop_ende
sub $bit,1
set $k,$s
add $s,$k
jmp loop_start
:loop_ende
set $bit,$s
:ende_exp2
or $register,$bit
