; SLdt  240502  PIT-Interrupt auf AVR64EA28
; avrasm2

.include   "AVR64EA28def.inc"

/*
.include   "AVR128DA28def.inc"
.include   "AVR64EA28def.inc"
.include   "AVR16EB28def.inc"
.include   "AVR32DD28def.inc"
.include   "m4809def.inc"
*/

.equ    DIR_LED         = VPORTA_DIR
.equ    IN_LED          = VPORTA_IN
.equ    LED             = 7

.def    tmp0            = r16

.org    0
    rjmp        reset

.org    RTC_PIT_vect
    ldi     tmp0,$FF
    sts     RTC_PITINTFLAGS,tmp0
    sbi     IN_LED,LED
    reti

reset:
    sbi     DIR_LED,LED

pitstatus:
     lds    tmp0,RTC_PITSTATUS
     tst    tmp0
    brne    pitstatus
    ldi     tmp0,1
    sts     RTC_PITINTCTRL,tmp0
    ldi     tmp0,0b0_1101_00_1
    sts     RTC_PITCTRLA,tmp0

    sei
main_loop:
 rjmp       main_loop