lmc square (a^2)

        INP
        STA a
        STA cnt
        LDA ZERO
        STA res
LOOP    LDA cnt
        BRZ END
        LDA res
        ADD a
        STA res
        LDA cnt
        SUB ONE
        STA cnt
        BRA LOOP
END     LDA res
        OUT
        HLT
a       DAT
cnt     DAT
res     DAT
ZERO    DAT 0
ONE     DAT 1