.section data $0x1000 {
    factorial:
        cmplt %r0, $2
        jnz factorial_one

        push %r0
        sub %r0, $1
        call factorial
        pop %r0
        mul %status, %r0
        jmp factorial_end

    factorial_one:
        mov %status, $1
    factorial_end:
        ret

    main:
        mov %r0, $5
        call factorial
        halt

    .export main
}

.meta {
    entry: main
}