Controlling Relays

[sayzer]

1. There is no Key8.
2. You can send the content of the whole PORTB when a change occurs; may be it would be more convenient but it is up to your choice.

For example:

FindKey:
     CLEAR
     KeyData = PORTB                    
     PAUSE 50
     IF PORTB = KeyData THEN FindKey   'Transmit only if there is at least a (one) change on PORTB. 

     SEROUT SerPin,N2400,[PreAmble,Synch,PORTB]
     PAUSE 50
         
     GOTO FindKey

This code will transmit the content of the PORTB every time there is a change on PORTB.
Thus, for instance, if PORTB.0 is 0, it will transmit, and then if it is still 0, it will NOT transmit.
If PORTB.0 is still 0 and then another change occurs at say PORTB.1 then it will transmit.

This way, you can handle the process at receiver side.