\ ----- 433 MHz RF-zender ----- 89C2051 TARGET \ Selecteer chip 12 TO CRYSTAL \ Demo op 12 MHz NEEDS RS232.FRT \ Laad bibliotheken NEEDS MS.FRT NEEDS CP-ADC.FRT $A5 CONSTANT SLEUTEL : VERZEND ( u -- ) SLEUTEL EMIT EMIT ; : ZENDER ( -- ) SETUP RS232-SETUP \ Setup ByteForth BEGIN ADC VERZEND AGAIN ; ' ZENDER \ Installeer RESET-VEC SET-VECTOR \ hoofdprogramma \ ----- 433 MHz RF-ontvanger ----- 89C2051 TARGET \ Selecteer chip 12 TO CRYSTAL \ Demo op 12 MHz NEEDS RS232.FRT \ Laad bibliotheken NEEDS MS.FRT $90 SFR LEDS \ Leds op poort-1 $A5 CONSTANT SLEUTEL : TOON ( u -- ) INVERT \ De leds zijn laag actief TO LEDS ; : ONTVANG ( -- ) KEY SLEUTEL = IF \ Goede sleutel ? KEY TOON \ Ja, ontvang data ELSE RS232-SETUP \ Nee, herstel verbinding THEN ; : ONTVANGER ( -- ) SETUP RS232-SETUP \ Setup ByteForth 255 TOON 250 MS \ Toon opstarten 0 TOON 250 MS BEGIN ONTVANG AGAIN ; ' ONTVANGER \ Installeer RESET-VEC SET-VECTOR \ hoofdprogramma