$regfile = \\\\\\\"m328pdef.dat\\\\\\\"
$crystal = 16000000
$baud = 115200                                                \\\\\\\' use baud rate
$hwstack = 32                                               \\\\\\\' default use 32 for the hardware stack
$swstack = 10                                               \\\\\\\' default use 10 for the SW stack
$framesize = 40                                             \\\\\\\' default use 40 for the frame space


Config I2cdelay = 10
Config Twi = 100000
Config Scl = Portc.5
Config Sda = Portc.4

$lib \\\\\\\"bl_Lcd_i2c.lib\\\\\\\"                                       \\\\\\\' AN #118 library from Kent

\\\\\\\'zmienne ekranu I2C
Dim _lcd_e As Byte
Dim Backlight As Byte
dim zapyt(9) as Byte
dim wake_up(4) as Byte
dim odp(20) as byte
dim m as byte


wake_up(1)=&H55
wake_up(2)=&H00
wake_up(3)=&H00
wake_up(4)=&H00


zapyt(1)=&H00
zapyt(2)=&H00
zapyt(3)=&HFF
zapyt(4)=&H02
zapyt(5)=&HFE
zapyt(6)=&HD4
zapyt(7)=&H02
zapyt(8)=&H2A
zapyt(9)=&H00


\\\\\\\'Przerwanie do odbioru z portu UART
Enable Interrupts
Enable Urxc
On Urxc Odbior

Const Pcf_d4 = 4
Const Pcf_d5 = 5
Const Pcf_d6 = 6
Const Pcf_d7 = 7
Const Pcf_rs = 0
Const Pcf_rw = 1
Const Pcf_e1 = 2
Const Pcf8574_lcd = &H4E                                    \\\\\\\'Defines the address of the I/O expander for LCD


Backlight_on Alias &H08
Backlight_off Alias &H00
Backlight = Backlight_on
_lcd_e = 128

cls
do

 printbin wake_up(1),4
 printbin zapyt(1),9
 wait 1

loop

Odbior:
  m=1
  do
   odp(m)=waitkey()
   incr m
  loop until m=20

  Locate 1 , 1
  lcd \\\\\\\"Version PN532:\\\\\\\"

  Locate 2 , 1
  lcd hex(odp(13));\\\\\\\" \\\\\\\";hex(odp(14));\\\\\\\" \\\\\\\";hex(odp(15));\\\\\\\" \\\\\\\";hex(odp(16));\\\\\\\" \\\\\\\";hex(odp(17));
Return