/*

SLdt  230630          Disclaimer: none. Sue me.

ATmega16: zaehlen (ohne Entprellung) auf Anzahl an A7 -> LED an D7

*/

.include    "m16def.inc"

.equ    Anzahl      = 5

.equ    DDR_LED     = DDRD
.equ    PORT_LED    = PORTD
.equ    LED         = 7

.def    SREGi       = r15
.def    tmp0        = r16
.def    cnt         = r17
;======================

.macro  put
.if @0 < $40
    out     @0,@1
.else
    sts     @0,@1
.endif
.endmacro
;----------------------

.macro  puti
    ldi     tmp0,@1
    put     @0,tmp0
.endmacro
;======================

.org    $0000
    rjmp        reset

.org    ACIaddr
    in      SREGi,SREG
    dec     cnt
    out     SREG,SREGi
    reti
;----------------------

reset:
    puti    SPL,low (RAMEND)
    puti    SPH,high(RAMEND)
    sbi     DDR_LED,LED
    puti    SFIOR,(1<<ACME)                     ; AC per ADC-Multiplexer
    puti    ADMUX,(1<<MUX2)+(1<<MUX1)+(1<<MUX0) ; A7
    puti    ACSR,(1<<ACBG)+(1<<ACIE)+(1<<ACIS1)
    sei
main_loop_o:
    ldi     cnt,Anzahl
main_loop_i:
    cpi     cnt,0
   brne     main_loop_i
    ldi     cnt,Anzahl
    sbis    PORT_LED,LED
     rjmp   LED_an
     cbi    PORT_LED,LED
  rjmp      main_loop_o
LED_an:
     sbi    PORT_LED,LED
  rjmp      main_loop_o