; SLdt  2405021744  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    LEDpit          = 7

.def    tmp0            = r16

;===============

.macro  rtcstatus
rtcstatus_:
     lds    tmp0,RTC_STATUS
     tst    tmp0
    brne    rtcstatus_
pitstatus_:
     lds    tmp0,RTC_PITSTATUS
     tst    tmp0
    brne    pitstatus_
.endmacro

.org    0
    rjmp        reset

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

;===============

reset:
    sbi     DIR_LED,LEDpit

    rtcstatus   

    ldi     tmp0,$D8
    out     CPU_CCP,tmp0
    ldi     tmp0,0b10000000
    sts     CLKCTRL_OSC32KCTRLA,tmp0

    rtcstatus

    ldi     tmp0,1
    sts     RTC_PITINTCTRL,tmp0

    rtcstatus

    ldi     tmp0,0b0_1101_00_1
    sts     RTC_PITCTRLA,tmp0

    sei
main_loop:
 rjmp       main_loop