--- Date main.asm ---
.nolist
.include "m16def.inc"
.list

.def temp = R16
.def midi_status = R17
.def midi_daten = R18
.equ CLOCK = 4000000
.equ BAUD = 31250
.equ UBRRVAL = CLOCK/(BAUD*16)-1
.equ MIDI_PRG = 0xC0					; 


.org $00
        rjmp main


.org $030
; Hauptprogramm
main:
        ldi temp, LOW(RAMEND)
        out SPL, temp
        ldi temp, HIGH(RAMEND)
        out SPH, temp

        ; Baudrate einstellen
        ldi temp, LOW(UBRRVAL)
        out UBRRL, temp
        ldi temp, HIGH(UBRRVAL)
        out UBRRH, temp

        ; Frame-Format: 8 Bit
        ldi temp, (1<<URSEL)|(3<<UCSZ0)
        out UCSRC, temp

        sbi UCSRB, RXCIE                  ; Interrupt bei Empfang
        sbi UCSRB, RXEN                   ; RX (Empfang) aktivieren
        
        sei                               ; Interrupts global aktivieren
        
loop:   rjmp loop                         ; Endlosschleife
main_end:
.set MODUL_END = main_end

.include "UARTlib.asm"
.include "SPIlib.asm"


--- Date UARTlib.asm ---
.org URXCaddr                             ; Interruptvektor für UART-Empfang
        rjmp int_rxc

.org MODUL_END
; Interruptroutine: wird ausgeführt sobald ein Byte über das UART empfangen wurde
int_rxc:
        push temp                         ; temp auf dem Stack sichern
        in   temp, UDR
        cpi  temp, 0x80                   ; Status- oder Datenbyte?
        brsh int_rxc_status               ; größer oder gleich 0x80 ist Satusbyte
        cpi  midi_status, MIDI_PRG        ; aktueller Status mein gesuchter ?
        brne int_rxc_end                  ; wenn nicht, dann Ende
        mov  midi_daten, temp             ; MIDI-Daten speichern
        out  PORTD, midi_daten            ; irgendwas damit machen :-)
        rjmp int_rxc_end                  ; und Ende
int_rxc_status:
        cpi  temp, 0xF8                   ; Alles größer/gleich 0xF8 ist Sys-Realtime
        brsh int_rxc_end                  ; das wird ignoriert 
        mov  midi_status, temp            ; MIDI-Staus setzen
int_rxc_end:
        pop temp                          ; temp wiederherstellen
        reti                              ; Interrupt beenden
UARTlib_end:
.set MODUL_END = UARTlib_end


--- Date SPIlib.asm ---
.org SPIaddr                             ; Interruptvektor für SPI-Empfang
        rjmp int_spi

.org MODUL_END
; Interruptroutine: wird ausgeführt sobald ein Byte über das SPI empfangen wurde
int_spi:
        push temp                         ; temp auf dem Stack sichern
        pop temp                          ; temp wiederherstellen
        reti                              ; Interrupt beenden
SPIlib_end:
.set MODUL_END = SPIlib_end