'-----------------------------------------------------------------------------------------
'name : serint.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : serial interrupt example for AVR
'micro : 90S8535
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
 
$regfile = "8535def.dat" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
 
Const Cmaxchar = 20 'Anzahl Zeichen
 
Dim B As Bit 'Ein Flag zum Signalisieren eines empfangenen Zeichens
Dim Bc As Byte 'Byte Zähler
Dim Buf As String * Cmaxchar 'serieller Puffer
Dim D As Byte
 
'Buf = Space(20)
'Entkommentieren Sie die Zeile oben für die MID() Funktion in der ISR
'Wir müssen den Puffer mit Leerzeichen füllen weil er sonst Unsinn enthält.
 
Print "Start"
 
On Urxc Rec_isr 'Definieren der Serial Receive ISR
Enable Urxc 'Freigeben des Receive Interrupts
 
 
 
Enable Interrupts 'Freigeben ALLER Interrupts 
 
Do
If B = 1 Then 'Es wurde etwas empfangen
 Disable Serial
 Print Buf 'Puffer ausgeben
 Print Bc 'Zeichenzähler ausgeben
 
 
 'Prüfen ob Puffer voll
 If Bc = Cmaxchar Then 'Puffer voll
 Buf = "" 'Löschen
 Bc = 0 'Zeichenzähler zurücksetzen
 End If
 
 Reset B 'Receive Flag zurücksetzen
 Enable Serial
End If
Loop
 
Rec_isr:
Print "*"
If Bc < Cmaxchar Then 'Passt es in den Puffer?
 Incr Bc 'Puffer-Zähler erhöhen
 
 
 If Udr = 13 Then ' Return?
 Buf = Buf + Chr(0)
 Bc = Cmaxchar
 Else
 Buf = Buf + Chr(udr) 'Zum Puffer hinzufügen
 End If
 
 
 ' Mid(buf , Bc , 1) = Udr
 'Entkommentieren Sie die Zeile oben und setzen Sie die Zeile mit Chr() als Kommentar um das Zeichen
 'an eine bestimmte Position zu plazieren.
 'B = 1 'set flag
End If
B = 1 'Flag setzen
Return