Terima data serial dengan URXC Interrupt BASCOM-AVR

Beberapa metode (function) penerimaan data serial UART telah disediakan oleh BASCOM-AVR. Salah satu metode penerimaan data serial yang patut anda coba adalah dengan menggunakan Interupsi URXC pada uC AVR yaitu interupsi yang terjadi ketika register UDR terisi oleh satu byte data. Kali ini compiler yang akan kita gunakan adalah BASCOM-AVR.

Berikut adalah contoh program untuk penerimaan data serial dengan URXC Interrupt.

$regfile = "m16def.dat"
$crystal = 4000000
$baud = 9600

Enable urxc
Enable Interrupts
On urxc urxc_isr
Dim x as byte
Dim y as String * 20
Dim z as String * 20
Dim complete as Bit

y = ""
complete = 0

Do
If complete = 1 then
'Lakukan sesuatu dengan / terhadap data serial yang diterima (variabel z)
complete = 0
End if
Loop
End

urxc_isr:
x = UDR
If x <> 13 then
If x <> 10 and x <> 0 then
y = y + chr(x)
End if
Else
z = y
complete = 1
y = ""
End if
Return
Return