N and V column
Column #120: You Can’t Touch That: Non-contact Access Control
Page 78 • The Nuts and Volts of BASIC Stamps (Volume 6)
SYMBOL pntr = B11 ' pointer to char in table
SYMBOL char = B12 ' character from table
' -----[ EEPROM Data ]-----------------------------------------------------
Tags:
EEPROM ("0F0184F20B") ' valid tags
EEPROM ("0F01D9D263")
EEPROM ("04129C1B43")
EEPROM ("0000000000") ' space for other tags
EEPROM ("0000000000")
EEPROM ("0000000000")
' -----[ Initialization ]--------------------------------------------------
Reset:
HIGH Enable ' turn of RFID reader
LOW Latch ' lock the door!
' -----[ Program Code ]----------------------------------------------------
Main:
LOW Enable
' wait for header, then accept 10 RFID bytes
SERIN RX, T2400, ($0A),tag0,tag1,tag2,tag3,tag4,tag5,tag6,tag7,tag8,tag9
HIGH Enable
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
pntr = tagNum * 10 + 2 : READ pntr, char
IF char <> tag2 THEN Bad_Char
pntr = tagNum * 10 + 3 : READ pntr, char
IF char <> tag3 THEN Bad_Char
pntr = tagNum * 10 + 4 : READ pntr, char
IF char <> tag4 THEN Bad_Char
pntr = tagNum * 10 + 5 : READ pntr, 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 <> tag7 THEN Bad_Char
pntr = tagNum * 10 + 8 : READ pntr, char