.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, $6
        call factorial
        cmpeq %status, $720
        jz fail
        mov %status, $0
        jmp end
    fail:
        mov %status, $1
    end:
        halt

    .export main
}

.meta {
    ip: main
}