diff options
| author | J M Rossy <[email protected]> | 2015-07-29 15:40:09 -0700 |
|---|---|---|
| committer | J M Rossy <[email protected]> | 2015-07-29 16:34:40 -0700 |
| commit | 5d61a4a79a1e96dc5d9af1e5e712c84507307544 (patch) | |
| tree | 49ed270893578cd18758b74ffcca16dc7ab948d6 /wpd/WpdBasicHardwareDriver/firmware/qti_wpd_enabled.bs2 | |
| parent | 5d41613e26e147d2300c786bb2b34cb4b4067a25 (diff) | |
Samples update for public Windows 10 release
Fix #2 Enabling WPP Recorder in Sensors Samples causes errors
Fix #4 Add back fixed KMDOD sample
Add new BarcodeScanner sample in pos folder
Add new MagneticStripeReader sample in pos folder
Add new SynpaticsTouch sample in input folder
Add new Power Engine Plugin sample in pofx folder
Add new DeviceMft sample in avstream folder
Add new AvsCamera sample in root
Add new SimBatt sample in root
Add other pre-existing samples not yet released for Win10
Diffstat (limited to 'wpd/WpdBasicHardwareDriver/firmware/qti_wpd_enabled.bs2')
| -rw-r--r-- | wpd/WpdBasicHardwareDriver/firmware/qti_wpd_enabled.bs2 | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/wpd/WpdBasicHardwareDriver/firmware/qti_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/qti_wpd_enabled.bs2 new file mode 100644 index 00000000..fdfdff7c --- /dev/null +++ b/wpd/WpdBasicHardwareDriver/firmware/qti_wpd_enabled.bs2 @@ -0,0 +1,63 @@ +' Qti_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} +' ========================================================================= + +' -----[ I/O Definitions ]------------------------------------------------------ +LineSnsrPwr CON 10 ' line sensor power +LineSnsrIn CON 9 ' line sensor input + +' -----[ Constants ]------------------------------------------------------------ +'CLREOL CON 11 ' clear to end of line (DEBUG) + +' -----[ Variables ]------------------------------------------------------------ +Sense VAR Word ' sensor raw reading + +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 +Padding VAR Byte 'Padding for the 8-byte element +NewInterval VAR Word 'New interval requested by user +Interval VAR Word 'Interval value utlized by firmware + +SensorID = 7 +ElementSize = 1 +ElementCount = 4 '4-bytes for sensor data +Interval = 200 +NewInterval = 200 + +LFD CON $10 'Linefeed character + +' -----[ Main Code ]------------------------------------------------------------ +Main: + + GOSUB PollSensor 'Retrieve sensor value + GOSUB RetrieveInterval 'Retrieve units data + +Timeout: + SEROUT 16, 16468, [DEC1 SensorID, DEC1 ElementSize, DEC1 ElementCount, DEC4 Sense, DEC5 Interval, LFD] + GOTO Main + +PollSensor: + HIGH LineSnsrPwr ' activate sensor + HIGH LineSnsrIn ' discharge QTI cap + PAUSE 1 + RCTIME LineSnsrIn, 1, Sense ' read sensor value + LOW LineSnsrPwr ' deactivate sensor +RETURN + +RetrieveInterval: + SERIN 16, 16468, Interval, Timeout, [DEC NewInterval] 'Retrieve interval + IF NewInterval >= 10 AND NewInterval <= 60000 THEN + Interval = NewInterval + ENDIF + RETURN + |
