ddr     equ 0
dr      equ 2

start   equ $a000
        org $fffe
        fdb start
        org start

        ldaa #$ff
        staa ddr
zanka   clra
        staa dr

        ldaa #20
        ldab #1

        negb
        aba
        staa dr
        bra zanka