lmc pow

        INP
        STA a
        INP
        STA b
        LDA ONE
        STA res
        STA prod
pow     LDA prod
        STA res
        LDA b
        BRZ done
        SUB ONE
        STA b
        LDA res
        STA f1
        LDA a
        STA f2
        LDA ZERO
        STA prod
mult    LDA f2
        BRZ pow
        SUB ONE
        STA f2
        LDA prod
        ADD f1
        STA prod
        BRA mult
done    LDA res
        OUT
        HLT
a       DAT
b       DAT
f1      DAT
f2      DAT
prod    DAT
res     DAT
ZERO    DAT 0
ONE     DAT 1