28141

Parallax, Inc. • RFID Reader Module (#28140) •Updated 02/2006 v1.1 Page 7

' -----[ EEPROM Data ]-----------------------------------------------------

Tags:

EEPROM ("0F0184F20B") ' valid tags

EEPROM ("0000000000") ' space for other tags

EEPROM ("0000000000")

' -----[ Initialization ]--------------------------------------------------

SERIN RX, T2400, ($0A) ' wait for header

SERIN RX, T2400, tag0, tag1, tag2, tag3, tag4 ' get tag bytes

SERIN RX, T2400, tag5, tag6, tag7, tag8, tag9

HIGH Enable ' deactivate reader

Check_List:

FOR tagNum = 0 TO LastTag ' scan through known tags

pntr = tagNum * 10 + 0 : READ pntr, char ' read char from DB

IF char <> tag0 THEN Bad_Char ' compare with tag data

pntr = tagNum * 10 + 1 : READ pntr, char

IF char <> tag1 THEN Bad_Char

IF char <> tag5 THEN Bad_Char

pntr = tagNum * 10 + 6 : READ pntr, char

IF char <> tag6 THEN Bad_Char

pntr = tagNum * 10 + 7 : READ pntr, char

IF char <> tag8 THEN Bad_Char

pntr = tagNum * 10 + 9 : READ pntr, char

IF char <> tag9 THEN Bad_Char

GOTO Tag_Found ' all match -- good tag

Bad_Char:

NEXT

HIGH Latch ' remove latch

SOUND Spkr, (114, 165) ' beep

LOW Latch ' restore latch

Parallax, Inc. • RFID Reader Module (#28140) •Updated 02/2006 v1.1 Page 8

GOTO Main

END

' =========================================================================

'

' Author..... (c) Parallax, Inc. -- All Rights Reserved

' E-mail..... support@parallax.com

' Started....

' Updated.... 07 FEB 2005

'

' {$STAMP BS2}

'

' -----[ Revision History ]------------------------------------------------

' -----[ I/O Definitions ]-------------------------------------------------

Enable PIN 0 ' low = reader on

RX PIN 1 ' serial from reader

Spkr PIN 2 ' speaker output

Latch PIN 3 ' lock/latch control

T2400 CON 396

T4800 CON 188

T9600 CON 84

T19K2 CON 32

#CASE BS2SX, BS2P

T1200 CON 2063

T2400 CON 1021

T4800 CON 500

T9600 CON 240

T19K2 CON 110

TMidi CON 108

Parallax, Inc. • RFID Reader Module (#28140) •Updated 02/2006 v1.1 Page 9

SevenBit CON $2000

Inverted CON $4000

Open CON $8000

Baud CON T2400

#SELECT $STAMP

#CASE BS2, BS2E

TmAdj CON $100 ' x 1.0 (time adjust)

FrAdj CON $100 ' x 1.0 (freq adjust)

#CASE BS2SX

TmAdj CON $280 ' x 2.5

#CASE BS2PE

FrAdj CON $0AA ' x 0.665

FrAdj CON $2A ' x 0.166

#ENDSELECT

LastTag CON 3

#DEFINE __No_SPRAM = ($STAMP < BS2P) ' does module have SPRAM?

' -----[ Variables ]-------------------------------------------------------

buf VAR Byte(10) ' RFID bytes buffer

#ELSE

chkChar VAR Byte ' character to test

#ENDIF

tagNum VAR Nib ' from EEPROM table

idx VAR Byte ' tag byte index

Name2 DATA "Dick Miller", CR, 0

Name3 DATA "Mary Evans", CR, 0

' -----[ Initialization ]--------------------------------------------------

Reset:

HIGH Enable ' turn of RFID reader

LOW Latch ' lock the door!