//    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:$a
work=$s,$k
---

// if(a < 1) {
cmp $a,1
jge normal

//     a = 1;
set $a,1
            
// } else {
jmp ende
:normal
            
//     s = 1;
set $s,1

//     while(a > 0) {
:loop_start
cmp $a,0
jbe loop_ende

//         a -= 1;
sub $a,1

//         k = s;
set $k,$s

//         s += k;
add $s,$k

//     }
jmp loop_start
:loop_ende
            
//     a = s;
set $a,$s

// }
:ende
