;; Fibonacci numbers
A:      DS  1
B:      DS  1
I:      DS  1
N:      EQU 21
        ;;
        LDC  1
        ST   A
        ST   B
        LDC  0
        ST   I
LOOP:   LD   B
        ADD  A
        OUT  0
        ST   B
        SUB  A
        ST   A
        LD   I
        ADDC 1
        ST   I
        SUBC N
        JNEG LOOP
END:    HALT