trisa=%11111
trisb=0
option_reg.7=0 (Pull-up dirençlerini iptal ederek direk bağlantıyı sağlar)
porta=0
portb=0
sensor:
if porta.0=0 then pause 10000
high portb.0 (Sensör aktif olunca b portunun 0. biti 10sn sonra 1 olur,
bunun nedeni eve girdiğimizde alarmın hemen çalışmaması için,
eve girince butona basılıp alarm devredışı bırakılır)
pause 50
if porta.1=0 then low portb.0 (1. bite bağlı butona basılınca b portunun 0. biti 0 olur)
goto sensor
end
sifre1:
if porta.0=0 then sifre2
goto sifre1
sifre2:
if porta.1=0 then sifre3
goto sifre2
sifre3:
if porta.2=0 then sifre 4
goto sifre3
sifre4:
if porta.3=0 then pause 50
low portb.0
endif
goto sifre4
end