org VECTORS
 dw metka1
 org 3feh
 dw start

 org 200h

start:

 lda #0
 sta 0E0h
 sta 0E1h
 sta 0E2h

 clra
 lda #0f0h
 sta 4
 bset 5,0008h
 cli
 jmp $

metka1:

 rol 0
 bcs metka2

 lda #070h
 sta 4
 lda #1
 sta 0E0h
 jmp metka3

metka2:

 lda #0f0h
 sta 4

 lda 0E0h
 cmp 0E2h
 beq metka3

 lda #0
 sta 0E0h
 lda 0E1h
 inca
 sta 0E1h
 jmp metka4

metka3:

 lda 0E1h
 inca
 sta 0E1h

metka4:
 bset 2,0008h
 rti

END