ddr     equ  0
dr      equ  2
zacetek equ $a000
        org $fffe
        fdb zacetek
        org zacetek
        ldaa #%11111111
        staa ddr
        ldaa #%00000000
        staa dr
        lds #$ff
zanka   jsr prizgi
        jsr ugasni
        bra zanka
prizgi  ldaa #%11111111
        staa dr
        jsr pol
        rts
ugasni  ldaa #%00000000
        staa dr
        rts

pol     ldaa #%00001111
        staa dr
        rts