Hardware Hacking Projects for Geeks

191

Chapter 9, How to Build a Cubicle Intrusion Detection System

Exhibit C: BasicStamp2 Software

This software counts the number of times the laser beam has been interrupted, updates the LCD with

this information, and looks for reset button events.

‘{$STAMP BS2}

Button1 VAR Byte

trip_count VAR Byte

N9600 con $4054

I con 254

CLR con 1

LINE2 con 192

L2_C1 con 135

L2_C7 con 199

‘ cube intrusion system version 1.0

‘ 5/12/02

‘ Scott Fullam

Gosub Init_Pins

Gosub Init_LCD

Start:

Gosub Scan_button

if IN1 = 0 then Start

out15 = 1

read 0, trip_count

trip_count = trip_count + 1

write 0, trip_count

serout 0,n9600,[I,LINE2]

serout 0,n9600,[“Count:”]

serout 0,n9600,[I,L2_C7]

serout 0,n9600,[DEC trip_count, “ “]

pause 1000

fall_laser:

if in1 = 1 then fall_laser

out15 = 0

Goto Start

Init_Pins:

Input 1

input 2

output 15

output 0

out15 = 0

return

Exhibit C

ch09_cube.indd 191

1/13/2002 4:14:51 PM

192

Part II: Advanced Hacks, Tools, and Techniques

Init_LCD:

pause 1000

serout 0,n9600,[I,CLR]

pause 1

serout 0,n9600,[“Cubemon 1.0”]

return

Scan_button:

‘ the button used is normall closed and will open up when pressed

if IN2 = 0 then end_state

trip_count = 0

write 0,trip_count

serout 0,n9600,[I,LINE2]

serout 0,n9600,[“Count:”]

serout 0,n9600,[I,L2_C7]

serout 0,n9600,[DEC trip_count, “ “]

end_state:

Return

Exhibit C

BasicStamp2 Software (continued) ...