probleem met ontvangen gevens via hrsout

DEVICE 16F628A                ; we gebruiken deze pic
CONFIG WDT_OFF, PWRTE_ON, LVP_OFF,MCLRE_OFF, HS_OSC
ALL_DIGITAL TRUE              ;alle ingangen digitaal
XTAL 20                       ;kristal is 20Mhz

HSERIAL_BAUD = 9600           ; we gaan met 9600 baud verzenden
;               %76543210
HSERIAL_RCSTA = %10010000     ;
HSERIAL_TXSTA = %00100000
HSERIAL_CLEAR = true

SYMBOL knippertijd = 1000     ;om de sec led knipperen
SYMBOL baud = 84              ;een baudrate van 9600
SYMBOL aan = 0
SYMBOL uit = 1
DIM teller AS BYTE
DIM dw1 AS BYTE

SYMBOL datauit = PORTA.1      ;wordt hoog als er data is
SYMBOL led = PORTA.2          ;poort a.2 heeft de naam led

SYMBOL klaar = PORTA.0        ;slave heeft data verwerkt 
SYMBOL s1 = PORTA.3           ;poort a.3 heeft de naam s1
SYMBOL s2 = PORTA.4           ;poort a.4 heeft de naam s2

;        76543210
PORTA = %00000000             ; allet a poorten laag
TRISA = %11111001             ; a.2 is de uitgang van de led

teller = 100
LOW led
GOTO hoofd

;verzenden
verzenden:
    TOGGLE datauit
    WHILE 1=1
      IF klaar = aan THEN
        HRSOUT teller
        TOGGLE datauit
        DELAYMS 50
        LOW led
        GOTO hoofd
      END IF
    WEND

;hoofdprogramma
hoofd:
  WHILE 1 = 1
    dw1 = teller
    IF s1 = aan THEN
      teller = teller + 20
    END IF
      
    IF s2 = aan THEN
      teller = teller - 20
    END IF
    
    IF dw1 <> teller THEN
      HIGH led
      GOTO verzenden
    END IF
    
  WEND
END 

DEVICE 16F628A                ; we gebruiken deze pic
CONFIG WDT_OFF, PWRTE_ON, LVP_OFF,MCLRE_OFF, HS_OSC
ALL_DIGITAL TRUE              ;alle ingangen digitaal
XTAL 20                       ;kristal is 20Mhz

HSERIAL_BAUD  = 9600           ;baudreate op 9600
;                76543210
HSERIAL_RCSTA = %10010000      ;constant ontvangen
HSERIAL_TXSTA = %00100000      ;kan zenden
HSERIAL_CLEAR = ON             ;clear buffer 

DECLARE LCD_ENPIN = PORTA.1
DECLARE LCD_LINES = 4

SYMBOL knippertijd = 500     ;om de sec led knipperen
SYMBOL aan = 0
SYMBOL uit = 1
DIM var1 AS BYTE


SYMBOL klaar = PORTA.1        ;klaar om te ontvangen
SYMBOL led = PORTA.2          ;poort a.2 heeft de naam led

SYMBOL datain = PORTA.0       ;er wordt data aan geboden

;        76543210
PORTA = %00000000             ; allet a poorten laag
TRISA = %11111001             ; a.0 is de uitgang van de led

DELAYMS 500
CLS

PRINT AT 1,1, "ontvangst test"
TOGGLE klaar                  ; zeggen dat die klaar is om te ontvangen
TOGGLE led
GOTO hoofd:                   ; naar label hoofd gaan

;ontvangen
ontvangen:
  TOGGLE klaar                ; zegen dat die niet klaar is om ontvangen
  TOGGLE led                  ; visieele controle van klaar
  var1 = HRSIN,{1000, timeout}; ontvangen van gegevens van de zender
  TOGGLE klaar                ; klaar om weer te ontvangen
  TOGGLE led                  ; visieele controle van klaar
  GOTO hoofd                  ; terug naar lable hoofd
  
;hoofdprogramma
hoofd:
WHILE 1=1
  IF datain = 1 THEN          ; als datain hoog is naar label ontvangen gaan
    GOTO ontvangen
  END IF
  
  PRINT AT 3,1, DEC4 var1     ;zet het resultaat op het display
WEND

timeout:                      ; bij een timeout van ontvangst
 PRINT AT 4,1, "fout bij ontvangst"
 DELAYMS 1000
 PRINT AT 4,1, REP " "\ 18
 CLEAR var1
 GOTO hoofd 
END