What I'm doing wrong??? ](*,) Here my sample code
[code:1:b2f9414f71]
$regfile = "m128def.dat"
$crystal = 16000000
$baud = 19200
$baud1 = 19200
$hwstack = 100
$swstack = 130
$framesize = 100
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Cls
Cursor Off Noblink
Dim Tags(5) As Byte , J As Byte , X As Byte
Rfid_mod Alias Porta.1
Rfid_mod_pin Alias Pina.1
Rfid_shd Alias Porta.0
Rfid_shd_pin Alias Pina.0
Config Rfid_mod_pin = Output
Config Rfid_shd_pin = Output
Reset Rfid_mod
Reset Rfid_shd
Waitms 100
Set Rfid_shd
Waitms 100
Reset Rfid_shd
Config Hitag = 64 , Type = Em4095 , Demod = Pine.4 , Int = @int4
On Int4 Checkints Nosave ' <<-- http://www.atmel.com/Images/doc2467.pdf; page 90
Config Int4 = Change ' This interrupt on PORT E supports the logical change
Enable Interrupts
Cls
Locate 1 , 1 : Lcd "Ready"
Do
If Readhitag(tags(1)) = 1 Then
Locate 2 , 1
For J = 1 To 5 Step 1
Lcd " " ; Hex(tags(j))
Next J
Else
Locate 2 , 1 : Lcd "Empty" ; Space(10)
End If
Loop
End
Checkints:
Call _checkhitag
Return
[/code:1:b2f9414f71]
But it still not work :( According to the Datasheet I tried also
[code:1:b2f9414f71]
'.... Some code ....
Config Hitag = 64 , Type = Em4095 , Demod = Pind.2 , Int = @int2
Config Int2 = Rising
'.... Some code ....
Checkints:
Toggle EICRA.ISC21
Call _checkhitag
Return
[/code:1:b2f9414f71]
with no result. Any suggestions?
Sincerely, Peter
↧