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


Dim M As Word

Dim Zapyt(9) As Byte
Dim ZapytID(11) As Byte    'inListPassiveTargets - read ID RF-cards
Dim ZapytEx(12) As Byte
Dim ZapytSAM(14) As Byte
Dim ZapytStat(9) As Byte
Dim ZapytRel(10) as Byte   'inRelease - The goal of this command is to release the target(s) Tg

Dim Wake_up(4) As Byte
Dim dane(21) As Byte
Dim daneID(28) As Byte
Dim dane_ack(6) As Byte

Dim addr_w as byte
Dim addr_r as byte


Wake_up(1) = &H55
Wake_up(2) = &H55
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


ZapytRel(1) = &H00
ZapytRel(2) = &H00
ZapytRel(3) = &HFF
ZapytRel(4) = &H03
ZapytRel(5) = &HFD
ZapytRel(6) = &HD4
ZapytRel(7) = &H52
ZapytRel(8) = &H01
ZapytRel(9) = &HD9
ZapytRel(10) = &H00


ZapytID(1) = &H00
ZapytID(2) = &H00
ZapytID(3) = &HFF
ZapytID(4) = &H04
ZapytID(5) = &HFC
ZapytID(6) = &HD4
ZapytID(7) = &H4A
ZapytID(8) = &H01
ZapytID(9) = &H00
ZapytID(10) = &HE1
ZapytID(11) = &H00


ZapytStat(1) = &H00
ZapytStat(2) = &H00
ZapytStat(3) = &HFF
ZapytStat(4) = &H02
ZapytStat(5) = &HFE
ZapytStat(6) = &HD4
ZapytStat(7) = &H04
ZapytStat(8) = &H28
ZapytStat(9) = &H00


ZapytEx(1) = &H00
ZapytEx(2) = &H00
ZapytEx(3) = &HFF
ZapytEx(4) = &H05
ZapytEx(5) = &HFB
ZapytEx(6) = &HD4
ZapytEx(7) = &H40
ZapytEx(8) = &H01
ZapytEx(9) = &H30
ZapytEx(10) = &H00
ZapytEx(11) = &HBB
ZapytEx(12) = &H00


ZapytSAM(1) = &H55
ZapytSAM(2) = &H55
ZapytSAM(3) = &H00
ZapytSAM(4) = &H00
ZapytSAM(5) = &H00
ZapytSAM(6) = &H00
ZapytSAM(7) = &HFF
ZapytSAM(8) = &H03
ZapytSAM(9) = &HFD
ZapytSAM(10) = &HD4
ZapytSAM(11) = &H14
ZapytSAM(12) = &H01
ZapytSAM(13) = &H17
ZapytSAM(14) = &H00


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

$lib "I2C_TWI.LBX"

addr_w=&H48
addr_r=&H49
I2cinit


print "Reading RF cards. Put over PN532 a card.."
print



 'SAM + WAKEUP!
 I2cstart
  I2cwbyte addr_w

  for m=1 to 14
    I2cwbyte zapytSAM(m)
  next m

  I2cstop

 waitms 500

 'ACK
 I2cstart
  I2cwbyte addr_r

  for m=1 to 5
   I2crbyte Dane_ack(m) , Ack
  next

  I2crbyte Dane_ack(6) , NAck
 I2cstop


' Print "ACK "; Hex(dane_ack(1));".";Hex(dane_ack(2));".";Hex(dane_ack(3));".";Hex(dane_ack(4));".";Hex(dane_ack(5));".";Hex(dane_ack(6))


 I2cstart
  I2cwbyte addr_r

  for m=1 to 8
   I2crbyte Dane(m) , Ack
  next

  I2crbyte Dane(9) , NAck
 I2cstop

  waitms 100

'--------------------------------------------------------------------------


Do

 I2cstart
  I2cwbyte addr_w

  for m=1 to 11
    I2cwbyte zapytID(m)
  next m

 I2cstop


 waitms 50


 I2cstart
  I2cwbyte addr_r

  for m=1 to 27
   I2crbyte DaneID(m) , Ack
  next

  I2crbyte DaneID(28) , NAck
 I2cstop


 'byte nr 12 changes when the rf-card is put over pn532
 'so I check the state of this byte

 if hex(daneID(12))<>"00" then
 I2cstart
  I2cwbyte addr_w

  for m=1 to 10
    I2cwbyte zapytRel(m)
  next m

  I2cstop

  Print "FOUND : " ;Hex(daneID(14));".";Hex(daneID(15));".";Hex(daneID(16));".";Hex(daneID(17));".";Hex(daneID(18));".";Hex(daneID(19));".";Hex(daneID(20))


 end if


 waitms 600


loop

End