Просмотр исходного текста страницы Файл 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>