Файл CC2500 CHAT.bas

<source lang="vb">

$prog &HFF , &HAE , &HD7 , &H00 $regfile = "m8def.dat" $crystal = 8000000 $baud = 19200 $hwstack = 64 $swstack = 32

Config Pinc.0 = Output : Led Alias Portc.0 : Led = 1 Config Pinb.1 = Output : Zb_cs Alias Portb.1 : Zb_cs = 1 Config Pind.2 = Input : Gdo2 Alias Pind.2 Config Pind.3 = Input : Gdo0 Alias Pind.3 Config Pinb.5 = Output : Zb_sck Alias Portb.5 : Zb_sck = 0 Config Pinb.4 = Input : Zb_miso Alias Pinb.4 Config Pinb.3 = Output : Zb_mosi Alias Portb.3 : Zb_mosi = 0

Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Clockrate = 128 , Polarity = Low , Phase = 0 Spiinit

$include "settings\MSK500RX.bas" $include "include\cc2500.bas"

On Int1 Gdo0_int1 Config Int1 = Falling Enable Int1 Disable Interrupts

Dim I As Byte Dim Recvstat As Byte , Comchar As Byte , Buf_count As Byte

Print "Start chat!" Call Cc_spi_send_strobe(ccxxx0_srx)

Buf_count = 1

Enable Interrupts

Do

  Comchar = Waitkey()
  If Comchar = 13 Then
     Led = 0
     Cc_send_buffer(1) = Buf_count
     Call Cc_rf_send_packet()
     Call Cc_spi_send_strobe(ccxxx0_sidle)
     Call Cc_spi_send_strobe(ccxxx0_srx)
     Print Str(cc_send_buffer(1)) ; " bytes : " ;
     For I = 1 To Buf_count
        If Cc_send_buffer(i) > 31 Then Print Chr(cc_send_buffer(i)) ;
     Next I
     Print
     Buf_count = 1
     Led = 1
  Else
     Incr Buf_count
     Cc_send_buffer(buf_count) = Comchar
  End If

Loop

Gdo0_int1:

  Disable Interrupts
  Led = 0
  Recvstat = Cc_rf_receive_packet_int06()
  If Recvstat = 1 Then
     Print Str(cc_recv_buffer(1)) ; " bytes : " ;
     Cc_recv_buffer(1) = Cc_recv_buffer(1) - 1
     For I = 2 To Cc_recv_buffer(1)
        If Cc_recv_buffer(i) > 31 Then Print Chr(cc_recv_buffer(i)) ;
     Next I
     Print ". RSSI = " ; Str(cc_rssi)
  Else
     Call Cc_spi_send_strobe(ccxxx0_srx)
  End If
  Led = 1
  Enable Interrupts

Return

</source>