.include "m88def.inc"

.def temp = r16
.def mask = r17

.org 0x000

    rjmp main                                   ; Reset Handler

.org OC1Aaddr
    rjmp T1_MatchA                              ; Timer 1 CompareA-Handler

main:                                           ; Hauptprogramm

    ldi temp, LOW(RAMEND)                       ; Stackpointer init
    out SPL, temp
    ldi temp, HIGH(RAMEND)
    out SPH, temp

    ;--- Timer 1 ------------------
    ldi temp, 0x40                              ; Vergleichsregister mit 40H laden
    sts OCR1AL, temp
    ldi temp, 0x00
    sts OCR1AH, temp

    ldi temp, (1<<OCIE1A)                       ; Output CompareA Match Interrupt Enable 
    sts TIMSK1,temp
    ldi temp, (1<<CS10)|(0<<CS11)|(0<<CS12)	; Prescaler: 000=nn, 001=clk,
    sts TCCR1B,temp                             ; 010=8, 011=64, 100=256, 101=1024
    ;------------------------------

    ldi temp, 0x00
    out DDRD, temp
    ldi temp, 0b00001100			; Taster SW2 /SW3 simulieren
    out PORTD, temp
    out PIND, temp     ; **** funktioniert nur mit dieser Zeile **** (Zeile 36)

    ldi temp, 0xFF                              ; PortB = Output
    out DDRB, temp
    ldi temp, 0xFF                              ; alle LED´s aus
    out PORTB, temp

    ldi mask, 0b00010101                        ; Register für XOR (Toggeln Port B)

    sei                                         ; Interrupts aktivieren

loop:    rjmp loop                              ; LOOP

T1_MatchA:                                      ; Output CompareA Match eingetreten
    in temp, PORTB                              ; PortB toggeln
    eor temp, mask
    out PORTB, temp

    ldi temp, 0x00                              ; Timer 0 setzen
    sts TCNT1H,temp
    sts TCNT1L,temp
    reti