Pic 16F84 Serin Problem

Hi zusammen

Ich möchte Daten in den internen eeprom schreiben
die mit 9600 baud ankommen.
Mein pic speichert aber nichts.
Ist der code richtig dazu?

Code:

---

SI      con    6                      '
B0      var    BYTE
B1      var    byte
b1=0
loop:  Serin SI,T9600,B0                     
if b1 <31 then
write b1,b0
b1=b1+1
endif
goto loop 

Bin anfänger,sorry!

gruß
rulle

---