Subversion Repositories diogenes

ldi l0, 0
stio l0, [l0]

1:
        ldi     h0, 0x1
        ldi     l0, 7
10:
        ldi   h1, 0        
        stio  h0, [h1]     @ leds echo
        nop

        adi       l0, -1

        LDL   h5, :delay
        call  h6, <h5>
        nop

        brnz  l0, :10
        shi       h0, 1

        ldi l0, 7
20:
        ldi   h1, 0        
        stio  h0, [h1]     @ leds echo
        nop
        adi       l0, -1

        LDL   h5, :delay
        call  h6, <h5>
        nop

        brnz  l0, :20
        shi       h0, -1

        brz   l0, :1
        nop



delay:
        ldi       l1, 0x1f
        lsi   l1, 0
        lsi   l1, 0
delay_l:
        brnz  l1, :delay_l
        adi   l1, -1
        jump  <h6>
        nop
stop