INP
        STA A
LOOP    LDA A
        OUT
        SUB ONE
        STA A
        BRZ ENDTHIS
        BRA LOOP
ENDTHIS LDA A
        SUB A
        OUT
        HLT
A       DAT
ONE     DAT 1