blob: 259c5025b1a54bd0240c226d3c0bbf72c3897124 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
' Pir_wpd_enabled.bs2
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO
' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A
' PARTICULAR PURPOSE.
'
' Copyright (c) Microsoft Corporation. All rights reserved
'
' {$STAMP BS2}
' {$PBASIC 2.5}
' =========================================================================
SensorID VAR Byte 'Sensor identifier = 5 for PIR
ElementSize VAR Byte 'Size (in bytes) of each element
ElementCount VAR Byte 'Count of elements in packet
bMotion VAR Byte 'Motion-detection variable (single element for PIR)
Padding VAR Byte 'Padding for the 8-byte element
SensorID = 5
ElementSize = 1
ElementCount = 1 '1-byte for motion data; 5 for interval
NewInterval VAR Word 'New interval requested by user
Interval VAR Word 'Interval value utlized by firmware
LFD CON $10 'Linefeed character
Interval = 500 '.500 of a second interval
NewInterval = 500
Main:
GOSUB PollSensor 'Was motion detected?
GOSUB RetrieveInterval 'Retrieve units data
Timeout:
SEROUT 16, 16468, [DEC1 SensorID, DEC1 ElementSize, DEC1 ElementCount, DEC1 bMotion, DEC5 Interval,LFD]
GOTO Main
PollSensor:
bMotion = IN0 ' Assign status of P0 to bMotion
RETURN
RetrieveInterval:
SERIN 16, 16468, Interval, Timeout, [DEC NewInterval] 'Retrieve interval
IF NewInterval >= 10 AND NewInterval <= 60000 THEN
Interval = NewInterval
ENDIF
RETURN
|
