Code:
BCK_Time con 150 * 3 ' Motorun geri dönüş süresi
Wait_Time con 500 *3 ' Kilidin açık durumda bekleme süresi
FRW_Time con 155 * 3 ' Motorun ileri dönüş süresi
OPTION_REG.7 = 0 ' PORTB Pull-up aktif.
TrisA = 0 ' PORTA'nın bütün uçları çıkış
PortA = %00010000 ' Buzzer'ı sustur.
TrisB = %11110000 ' PORTB'nin 0-3 uçları çıkış, 4-7 uçları giriş
PortB = 0
FRW var PortA.3
MTR var PortA.1
LD1 var PortA.2
BCK var PortA.0
BUZ var PortA.4
cnt var byte
psw var byte
say var byte
key var byte
col var byte
row var byte
tussay var byte
TusBuff var byte[16]
SfrBuff var byte[24]
MKSfrBuff var byte[4]
EEPROM 0,[0,0,0,0] 'Başlangıç şifresi 1,1,1,1 EEprom'un 0..3
'adreslerine yazıldı
EEPROM 4,[1,1,1,1] 'Başlangıç şifresi 1,1,1,1 EEprom'un 0..3
'adreslerine yazıldı
EEPROM 8,[2,2,2,2] 'Başlangıç şifresi 1,1,1,1 EEprom'un 0..3
'adreslerine yazıldı
EEPROM 12,[3,3,3,3] 'Başlangıç şifresi 1,1,1,1 EEprom'un 0..3
'adreslerine yazıldı
EEPROM 16,[4,4,4,4] 'Başlangıç şifresi 1,1,1,1 EEprom'un 0..3
'adreslerine yazıldı
eeprom 20,[5,5,5,5] 'Master Key şifresi 9,8,7,6,5 EEprom'un 4..8
'adreslerine yazıldı
Read 0, SfrBuff[0] 'EEprom'un 0..3 adreslerinden şifreyi SfrBuff'a
Read 1, SfrBuff[1] 'kopyala
Read 2, SfrBuff[2]
Read 3, SfrBuff[3]
Read 4, SfrBuff[4] 'EEprom'un 0..3 adreslerinden şifreyi SfrBuff'a
Read 5, SfrBuff[5] 'kopyala
Read 6, SfrBuff[6]
Read 7, SfrBuff[7]
Read 8, SfrBuff[8] 'EEprom'un 0..3 adreslerinden şifreyi SfrBuff'a
Read 9, SfrBuff[9] 'kopyala
Read 10, SfrBuff[10]
Read 11, SfrBuff[11]
Read 12, SfrBuff[12] 'EEprom'un 0..3 adreslerinden şifreyi SfrBuff'a
Read 13, SfrBuff[13] 'kopyala
Read 14, SfrBuff[14]
Read 15, SfrBuff[15]
Read 16, SfrBuff[16] 'EEprom'un 0..3 adreslerinden şifreyi SfrBuff'a
Read 17, SfrBuff[17] 'kopyala
Read 18, SfrBuff[18]
Read 19, SfrBuff[19]
read 20, MKSfrBuff[0] 'EEprom'un 4..8 adreslerinden Master Key'i
read 21, MKSfrBuff[1] 'MKSfrBuff'a kopyala
read 22, MKSfrBuff[2]
read 23, MKSfrBuff[3]
tussay = 0 'Tuşa basılma sayısı
say = 0 'Yanlış şifrelerin sayısını saklar "3'e kadar."
psw = 0
Bookmarks