diff options
Diffstat (limited to 'wpd/WpdBasicHardwareDriver/firmware')
9 files changed, 0 insertions, 886 deletions
diff --git a/wpd/WpdBasicHardwareDriver/firmware/compass_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/compass_wpd_enabled.bs2 deleted file mode 100644 index 335d2c7e..00000000 --- a/wpd/WpdBasicHardwareDriver/firmware/compass_wpd_enabled.bs2 +++ /dev/null @@ -1,94 +0,0 @@ -' Compass_wpd_enabled.bs2 -' -' Displays x (N/S) and y (W/E) axis measurements along with the direction the -' Compass Module is pointing, measured in degrees clockwise from north. -' -' 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} -' ============================================================================ - -' -----[ Pins/Constants/Variables ]------------------------------------------- -DinDout PIN 6 ' P6 transceives to/from Din/Dout -Clk PIN 5 ' P5 sends pulses to HM55B's Clk -En PIN 4 ' P4 controls HM55B's /EN(ABLE) - -Reset CON %0000 ' Reset command for HM55B -Measure CON %1000 ' Start measurement command -Report CON %1100 ' Get status/axis values command -Ready CON %1100 ' 11 -> Done, 00 -> no errors -NegMask CON %1111100000000000 ' For 11-bit negative to 16-bits - -x VAR Word ' x-axis data -y VAR Word ' y-axis data -status VAR Nib ' Status flags -angle VAR Word ' Store angle measurement - -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 - -SensorID = 1 -ElementSize = 1 -ElementCount = 3 '3-bytes for compass data; - -NewInterval VAR Word 'New interval requested by user -Interval VAR Word 'Interval value utlized by firmware - -LFD CON $10 'Linefeed character - -Interval = 200 '.20 of a second interval -NewInterval = 200 - -' -----[ Main Routine ]------------------------------------------------------- - -Main: - GOSUB PollSensor 'Was motion detected? - GOSUB RetrieveInterval 'Retrieve units data - -' -----[ Subroutines ]-------------------------------------------------------- - -Timeout: - SEROUT 16, 16468, [DEC1 SensorID, DEC1 ElementSize, DEC1 ElementCount, DEC3 angle, DEC5 Interval,LFD] - GOTO Main - -PollSensor: ' Compass module subroutine - - HIGH En: LOW En ' Send reset command to HM55B - SHIFTOUT DinDout,clk,MSBFIRST,[Reset\4] - - HIGH En: LOW En ' HM55B start measurement command - SHIFTOUT DinDout,clk,MSBFIRST,[Measure\4] - status = 0 ' Clear previous status flags - - DO ' Status flag checking loop - HIGH En: LOW En ' Measurement status command - SHIFTOUT DinDout,clk,MSBFIRST,[Report\4] - SHIFTIN DinDout,clk,MSBPOST,[Status\4] ' Get Status - LOOP UNTIL status = Ready ' Exit loop when status is ready - - SHIFTIN DinDout,clk,MSBPOST,[x\11,y\11] ' Get x & y axis values - HIGH En ' Disable module - - IF (y.BIT10 = 1) THEN y = y | NegMask ' Store 11-bits as signed word - IF (x.BIT10 = 1) THEN x = x | NegMask ' Repeat for other axis - - angle = x ATN -y ' Convert x and y to brads - angle = angle */ 360 ' Convert brads to degrees - - RETURN - - -RetrieveInterval: - SERIN 16, 16468, Interval, Timeout, [DEC NewInterval] 'Retrieve interval - IF NewInterval >= 10 AND NewInterval <= 60000 THEN - Interval = NewInterval - ENDIF - RETURN
\ No newline at end of file diff --git a/wpd/WpdBasicHardwareDriver/firmware/flex_force_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/flex_force_wpd_enabled.bs2 deleted file mode 100644 index 9b9e5b2c..00000000 --- a/wpd/WpdBasicHardwareDriver/firmware/flex_force_wpd_enabled.bs2 +++ /dev/null @@ -1,60 +0,0 @@ -' Flex_force_wpd_enabled.bs2 -' -' Displays R/C Discharge Time in BASIC Stamp DEBUG Window -' -' 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} -' ========================================================================= - -' -----[ Declarations ]---------------------------------------------------- - -rawForce VAR Word ' Stores raw output -sensorPin CON 15 ' Flexiforce sensor circuit - -' -----[ Main Routine ]---------------------------------------------------- - -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 - -SensorID = 3 -ElementSize = 1 -ElementCount = 5 '4-bytes for pressure data; 5 for interval - -NewInterval VAR Word 'New interval requested by user -Interval VAR Word 'Interval value utlized by firmware - -Interval = 200 -NewInterval = 200 - -LFD CON $10 'Linefeed character - -Main: - - GOSUB PollSensor 'Was motion detected? - GOSUB RetrieveInterval 'Retrieve units data - -Timeout: - SEROUT 16, 16468, [DEC1 SensorID, DEC1 ElementSize, DEC1 ElementCount, DEC5 rawForce, DEC5 Interval, LFD] - GOTO Main - -PollSensor: - HIGH sensorPin ' Discharge the capacitor - PAUSE 2 - RCTIME sensorPin,1,rawForce ' Measure RC charge time - RETURN - -RetrieveInterval: - SERIN 16, 16468, Interval, Timeout, [DEC NewInterval] 'Retrieve interval - IF NewInterval >= 10 AND NewInterval <= 60000 THEN - Interval = NewInterval - ENDIF - RETURN diff --git a/wpd/WpdBasicHardwareDriver/firmware/h48c_3-axis_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/h48c_3-axis_wpd_enabled.bs2 deleted file mode 100644 index daba0fc9..00000000 --- a/wpd/WpdBasicHardwareDriver/firmware/h48c_3-axis_wpd_enabled.bs2 +++ /dev/null @@ -1,175 +0,0 @@ -' h48c_3-axis_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} -' -' ========================================================================= - -' -----[ Program Description ]--------------------------------------------- -' -' Test program for the H48C 3-Axis Accelerometer module. -' -' Connections: -' -' +------------+ -' | * | -' CLK | o o | Vdd (+5v) -' | +--+ | -' DIO [ o | | o | CS\ -' | +--+ | -' Vss | o o | 0G (free-fall indication) -' | | -' +------------+ -' -' How it Works: -' -' An onboard MCP3204 12-bit ADC is used to read the VRef, X-, Y-, and -' Z-axis outputs from the Hitachi H48C accelerometer. The reference -' voltage output from H48C is 1.65 volts (3.3 / 2). -' -' After reading the reference voltage and an output channel the g-force -' for the channel is calculated with this formula: -' -' axis - vref 3.3 -' G = ----------- x ------ -' 4095 0.3663 -' -' For use in the program the forumla can be simplified to: -' -' G = (axis - vref) x 0.0022 -' -' To allow the display of fractional g-force in the integer system of the -' BASIC Stamp we multiply 0.0022 by 100 -- this will allow us to display -' g-force in 0.01g units. - - - -' -----[ I/O Definitions ]------------------------------------------------- - -Dio PIN 15 ' data to/from module -Clk PIN 14 ' clock output -CS PIN 13 ' active-low chip select - - -' -----[ Constants ]------------------------------------------------------- - -XAxis CON 0 ' adc channels -YAxis CON 1 -ZAxis CON 2 -VRef CON 3 - -Cnt2Mv CON $CE4C ' counts to millivolts - ' 0.80586 with ** -GfCnv CON $3852 ' g-force conversion - ' 0.22 with ** - -' -----[ Variables ]------------------------------------------------------- - -axis VAR Nib ' axis selection -rvCount VAR Word ' ref voltage adc counts -axCount VAR Word ' axis voltage adc counts -mVolts VAR Word ' millivolts -Gforce VAR Word ' axis g-force - -xGforce VAR Word ' x-axis force -yGforce VAR Word ' y-axis force -zGforce VAR Word ' z-axis force - -dValue VAR Word ' display value -dPad VAR Nib ' display pad - -' Below lines are WPD additions - -SensorID VAR Byte 'Sensor identifier = 9 for Hitachi -ElementCount VAR Byte 'Count of elements in packet -ElementSize VAR Byte 'Size (in bytes) of each element - - -NewInterval VAR Word 'New interval requested by user -Interval VAR Word 'Interval value utlized by firmware - -SensorID = 9 -ElementSize = 4 'Each element contains a sign byte, followed by a G-force integer value, followed by a G-force fraction (in hundredths). -ElementCount = 3 'Each element corresponds to one of the three axis (X, Y, and Z) - -Interval = 2000 -NewInterval = 2000 - - -' -----[ EEPROM Data ]----------------------------------------------------- - - -' -----[ Initialization ]-------------------------------------------------- - -Reset: - HIGH CS ' deselect module - -' -----[ Program Code ]---------------------------------------------------- - -Main: - GOSUB GetGforces 'Retrieves G-forces along 3 axis - GOSUB RetrieveInterval 'Retrieves event-interval data - - Timeout: - SEROUT 16, 16780, [DEC1 SensorID, DEC1 ElementSize, DEC1 ElementCount, DEC1(xGforce.BIT15), DEC1(ABS xGforce/100),DEC2(ABS xGforce),DEC1(yGforce.BIT15),DEC1(ABS yGforce/100),DEC2(ABS yGforce),DEC1(zGforce.BIT15),DEC1(ABS zGforce/100),DEC2(ABS zGforce),DEC5 Interval ] - GOTO Main - - GOTO Main - - -' -----[ Subroutines ]----------------------------------------------------- - -' Retrieves the event-interval property from the WPD driver -RetrieveInterval: - SERIN 16, 16780, Interval, Timeout, [DEC NewInterval] 'Retrieve interval - IF NewInterval >= 10 AND NewInterval <= 60000 THEN - Interval = NewInterval - ENDIF - -' Retrieves G forces along all three axis -GetGforces: - FOR axis = XAxis TO ZAxis ' loop through each axis - GOSUB Get_H48C ' read vRef & axis counts - ' calculate g-force - ' -- "Gforce" is signed word - IF (axCount >= rvCount) THEN - Gforce = (axCount - rvCount) ** GfCnv ' positive g-force - ELSE - Gforce = -((rvCount - axCount) ** GfCnv) ' negative g-force - ENDIF - IF (axis = XAxis) THEN - xGforce = Gforce - ENDIF - IF (axis = YAxis) THEN - yGforce = Gforce - ENDIF - IF (axis = ZAxis) THEN - zGforce = Gforce - ENDIF - NEXT - RETURN - -' Reads VRef and selected H48C axis through an MCP3204 ADC -' -- pass axis (0 - 2) in "axis" -' -- returns reference voltage counts in "rvCount" -' -- returns axis voltage counts in "axCounts" - -Get_H48C: - LOW CS - SHIFTOUT Dio, Clk, MSBFIRST, [%11\2, VRef\3] ' select vref register - SHIFTIN Dio, Clk, MSBPOST, [rvCount\13] ' read ref voltage counts - HIGH CS - PAUSE 1 - LOW CS - SHIFTOUT Dio, Clk, MSBFIRST, [%11\2, axis\3] ' select axis - SHIFTIN Dio, Clk, MSBPOST, [axCount\13] ' read axis voltage counts - HIGH CS - RETURN - diff --git a/wpd/WpdBasicHardwareDriver/firmware/memsic2125_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/memsic2125_wpd_enabled.bs2 deleted file mode 100644 index 80449357..00000000 --- a/wpd/WpdBasicHardwareDriver/firmware/memsic2125_wpd_enabled.bs2 +++ /dev/null @@ -1,107 +0,0 @@ -' memsic2125_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} -' -' ========================================================================= - -' -----[ Program Description ]--------------------------------------------- -' -' Read the pulse outputs from a Memsic 2125 accelerometer and converts to -' G-force -' -' g = ((t1 / 10 ms) - 0.5) / 12.5% -' -' www.memsic.com - - -' -----[ Revision History ]------------------------------------------------ - - -' -----[ I/O Definitions ]------------------------------------------------- - -Xin PIN 8 ' X input from Memsic 2125 -Yin PIN 9 ' Y input from Memsic 2125 - - -' -----[ Constants ]------------------------------------------------------- - -' Set scale factor for PULSIN - -#SELECT $STAMP - #CASE BS2, BS2E - Scale CON $200 ' 2.0 us per unit - #CASE BS2SX - Scale CON $0CC ' 0.8 us per unit - #CASE BS2P - Scale CON $0C0 ' 0.75 us per unit - #CASE BS2PE - Scale CON $1E1 ' 1.88 us per unit -#ENDSELECT - -HiPulse CON 1 ' measure high-going pulse -LoPulse CON 0 - -' -----[ Variables ]------------------------------------------------------- - -xRaw VAR Word ' pulse from Memsic 2125 -xmG VAR Word ' g force (1000ths) - -yRaw VAR Word -ymG VAR Word - -'disp VAR Byte ' displacement (0.0 - 0.99) - - -' Below lines are WPD additions - -SensorID VAR Byte 'Sensor identifier = 1 for memsic -ElementSize VAR Byte 'Size (in bytes) of each element -ElementCount VAR Byte 'Count of elements in packet - -NewInterval VAR Word 'New interval requested by user -Interval VAR Word 'Interval value utlized by firmware - -SensorID = 6 -ElementSize = 1 -ElementCount = 6 '6-bytes for g-force - -LFD CON $10 'Linefeed character - -Interval = 100 '.10 of a second interval -NewInterval = 100 - -' -----[ Program Code ]---------------------------------------------------- - -Main: - GOSUB Read_G_Force 'reads G-force - GOSUB RetrieveInterval 'Retrieve units data - - Timeout: - SEROUT 16, 16468, [DEC1 SensorID, DEC1 ElementSize, DEC1 ElementCount, DEC1(xmG.BIT15), DEC1(ABS xmG/1000),DEC1(ABS xmG/10),DEC1(ymG.BIT15),DEC1(ABS ymG/1000),DEC1(ABS ymG/10),DEC5 Interval,LFD] - GOTO Main - - - RetrieveInterval: - SERIN 16, 16468, Interval, Timeout, [DEC NewInterval] 'Retrieve interval - IF NewInterval >= 10 AND NewInterval <= 60000 THEN - Interval = NewInterval - ENDIF - -' -----[ Subroutines ]----------------------------------------------------- - -Read_G_Force: - PULSIN Xin, HiPulse, xRaw ' read pulse output - xRaw = xRaw */ Scale ' convert to uSecs - xmG = ((xRaw / 10) - 500) * 8 ' calc 1/1000 g - PULSIN Yin, HiPulse, yRaw - yRaw = yRaw */ Scale - ymG = ((yRaw / 10) - 500) * 8 - RETURN
\ No newline at end of file diff --git a/wpd/WpdBasicHardwareDriver/firmware/piezo_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/piezo_wpd_enabled.bs2 deleted file mode 100644 index ff5a7b55..00000000 --- a/wpd/WpdBasicHardwareDriver/firmware/piezo_wpd_enabled.bs2 +++ /dev/null @@ -1,55 +0,0 @@ -' Piezo_wpd_enabled.bs2 -' -' This program demonstrates using the LDT0 as a switch/trigger -' -' 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 = 8 for piezo -ElementSize VAR Byte 'Size (in bytes) of each element -ElementCount VAR Byte 'Count of elements in packet -bVibration VAR Byte 'Vibration-detection variable (single element for PIR) -Padding VAR Byte 'Padding for the 8-byte element - -SensorID = 8 -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 - -Interval = 500 -NewInterval = 500 - -LFD CON $10 'Linefeed character - - -' -----[ Program Code ]---------------------------------------------------- - -Main: - - GOSUB PollSensor 'Was motion detected? - GOSUB RetrieveInterval 'Retrieve units data - -Timeout: - SEROUT 16, 16468, [DEC1 SensorID, DEC1 ElementSize, DEC1 ElementCount, DEC1 bVibration, DEC5 Interval, LFD] - GOTO Main - -PollSensor: - bVibration = 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 diff --git a/wpd/WpdBasicHardwareDriver/firmware/ping_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/ping_wpd_enabled.bs2 deleted file mode 100644 index e2af29a7..00000000 --- a/wpd/WpdBasicHardwareDriver/firmware/ping_wpd_enabled.bs2 +++ /dev/null @@ -1,57 +0,0 @@ -' Ping_wpd_enabled.bs2 -' -' Measure distance with Ping))) sensor and display in both in & cm -' -' 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} -' ========================================================================= - -' Conversion constants for room temperature measurements. -CmConstant CON 2260 -cmDistance VAR Word -time VAR Word -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 - -SensorID = 4 -ElementSize = 1 -ElementCount = 5 '4-bytes for pressure 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 = 200 '.20 of a second interval -NewInterval = 200 - -Main: - GOSUB PollSensor 'Was motion detected? - GOSUB RetrieveInterval 'Retrieve units data - -Timeout: - SEROUT 16, 16468, [DEC1 SensorID, DEC1 ElementSize, DEC1 ElementCount, DEC5 cmDistance, DEC5 Interval,LFD] -GOTO Main - -PollSensor: - PULSOUT 0, 5 - PULSIN 0, 1, time - cmDistance = cmConstant ** time -RETURN - -RetrieveInterval: - SERIN 16, 16468, Interval, Timeout, [DEC NewInterval] 'Retrieve interval - IF NewInterval >= 10 AND NewInterval <= 60000 THEN - Interval = NewInterval - ENDIF -RETURN
\ No newline at end of file diff --git a/wpd/WpdBasicHardwareDriver/firmware/pir_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/pir_wpd_enabled.bs2 deleted file mode 100644 index 259c5025..00000000 --- a/wpd/WpdBasicHardwareDriver/firmware/pir_wpd_enabled.bs2 +++ /dev/null @@ -1,50 +0,0 @@ -' 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
\ No newline at end of file diff --git a/wpd/WpdBasicHardwareDriver/firmware/qti_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/qti_wpd_enabled.bs2 deleted file mode 100644 index fdfdff7c..00000000 --- a/wpd/WpdBasicHardwareDriver/firmware/qti_wpd_enabled.bs2 +++ /dev/null @@ -1,63 +0,0 @@ -' 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 - diff --git a/wpd/WpdBasicHardwareDriver/firmware/temp_humidity_wpd_enabled.bs2 b/wpd/WpdBasicHardwareDriver/firmware/temp_humidity_wpd_enabled.bs2 deleted file mode 100644 index bc2982f7..00000000 --- a/wpd/WpdBasicHardwareDriver/firmware/temp_humidity_wpd_enabled.bs2 +++ /dev/null @@ -1,225 +0,0 @@ -' Temp_humidity_wpd_enabled.BS2 -' This program demonstrates the interface and conversion of SHT11/15 data -' to usable program values. This program uses advanced math features of -' PBASIC, specifically the ** operator. -' -' 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 -' ------------------------------------------------------------------------- -ShtData PIN 1 ' bi-directional data -Clock PIN 0 -' ------------------------------------------------------------------------- -' Constants -' ------------------------------------------------------------------------- -ShtTemp CON %00011 ' read temperature -ShtHumi CON %00101 ' read humidity -ShtStatW CON %00110 ' status register write -ShtStatR CON %00111 ' status register read -ShtReset CON %11110 ' soft reset -Ack CON 0 -NoAck CON 1 -No CON 0 -Yes CON 1 -DegSym CON 186 ' degrees symbol for DEBUG -' ------------------------------------------------------------------------- -' Variables -' ------------------------------------------------------------------------- -ioByte VAR Byte ' data from/to SHT11 -ackBit VAR Bit ' ack/nak from/to SHT11 -toDelay VAR Byte ' timeout delay timer -timeOut VAR Bit ' timeout status -soT VAR Word ' temp counts from SHT11 -tC VAR Word ' temp - Celcius -tF VAR Word ' temp - Fahrenheit -soRH VAR Word ' humidity counts -rhLin VAR Word ' humidity; linearized -rhTrue VAR Word ' humidity; compensated -status VAR Byte ' status byte - -'------------------------------------------------------------------------- -' WPD Variables -'------------------------------------------------------------------------- -SensorID VAR Byte 'Sensor identifier = 2 for Sensiron Temp/Humidity -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 - -SensorID = 2 -ElementSize = 1 -ElementCount = 7 '4-bytes for temp, 3-bytes for relative humidity - -NewInterval VAR Word 'New interval requested by user -Interval VAR Word 'Interval value utlized by firmware - -LFD CON $10 'Linefeed character - -Interval = 2000 -NewInterval = 2000 - -' ------------------------------------------------------------------------- -' EEPROM Data -' ------------------------------------------------------------------------- -' ------------------------------------------------------------------------- -' Initialization -' ------------------------------------------------------------------------- -Initialize: -GOSUB SHT_Connection_Reset ' reset device connection -' ------------------------------------------------------------------------- -' Program Code -' ------------------------------------------------------------------------- -Main: - GOSUB SHT_Measure_Temp 'Retrieve temperature - GOSUB SHT_Measure_Humidity 'Retrieve humidity - GOSUB RetrieveInterval 'Retrieve interval data - -SendData: - SEROUT 16, 16468, [DEC1 SensorID, DEC1 ElementSize, DEC1 ElementCount, DEC4 (tF), DEC3 (rhTrue), DEC5 Interval, LFD] - GOTO Main - -RetrieveInterval: - SERIN 16, 16468, Interval, SendData, [DEC NewInterval] 'Retrieve interval - IF NewInterval >= 10 AND NewInterval <= 60000 THEN - Interval = NewInterval - ENDIF -RETURN - -' ------------------------------------------------------------------------- -' Subroutines -' ------------------------------------------------------------------------- -' connection reset: 9 clock cyles with ShtData high, then start sequence -' -SHT_Connection_Reset: -SHIFTOUT ShtData, Clock, LSBFIRST, [$FFF\9] -' generates SHT11 "start" sequence -' _____ _____ -' ShtData |_______| -' ___ ___ -' Clock ___| |___| |___ -' -SHT_Start: -INPUT ShtData ' let pull-up take high -LOW Clock -HIGH Clock -LOW ShtData -LOW Clock -HIGH Clock -INPUT ShtData -LOW Clock -RETURN -' measure temperature -' -- celcius = raw * 0.01 - 40 -' -- fahrenheit = raw * 0.018 - 40 -' -SHT_Measure_Temp: -GOSUB SHT_Start ' alert device -ioByte = ShtTemp ' temperature command -GOSUB SHT_Write_Byte ' send command -GOSUB SHT_Wait ' wait for measurement -ackBit = Ack ' another read follows -GOSUB SHT_Read_Byte ' get MSB -soT.HIGHBYTE = ioByte -ackBit = NoAck ' last read -GOSUB SHT_Read_Byte ' get LSB -soT.LOWBYTE = ioByte -' Note: Conversion factors are multiplied by 10 to return the -' temperature values in tenths of degrees -tC = soT ** $1999 - 400 ' convert to tenths C -tF = soT ** $2E14 - 400 ' convert to tenths F -RETURN -' measure humidity -' -SHT_Measure_Humidity: -GOSUB SHT_Start ' alert device -ioByte = ShtHumi ' humidity command -GOSUB SHT_Write_Byte ' send command -GOSUB SHT_Wait ' wait for measurement -ackBit = Ack ' another read follows -GOSUB SHT_Read_Byte ' get MSB -soRH.HIGHBYTE = ioByte -ackBit = NoAck ' last read -GOSUB SHT_Read_Byte ' get LSB -soRH.LOWBYTE = ioByte -' linearize humidity -' rhLin = (soRH * 0.0405) - (soRH^2 * 0.0000028) - 4 -' -' for the BASIC Stamp: -' rhLin = (soRH * 0.0405) - (soRH * 0.002 * soRH * 0.0014) - 4 -' -' Conversion factors are multiplied by 10 to return tenths -' -rhLin = (soRH ** $67AE) - (soRH ** $83 * soRH ** $5B) - 40 -' temperature compensated humidity -' rhTrue = (tc - 25) * (soRH * 0.00008 + 0.01) + rhLin -' -' Conversion factors are multiplied by 10 to return tenths -' -- simplified -' -rhTrue = (tC - 250) * (soRH ** $34) + rhLin -RETURN -' sends "status" -' -SHT_Write_Status: -GOSUB SHT_Start ' alert device -ioByte = ShtStatW ' write to status reg cmd -GOSUB SHT_Write_Byte ' send command -ioByte = status -GOSUB SHT_Write_Byte -RETURN -' returns "status" -' -SHT_Read_Status: -GOSUB SHT_Start ' alert device -ioByte = ShtStatW ' write to status reg cmd -GOSUB SHT_Read_Byte ' send command -ackBit = NoAck ' only one byte to read -GOSUB SHT_Read_Byte -RETURN -' sends "ioByte" -' returns "ackBit" -' -SHT_Write_Byte: -SHIFTOUT ShtData, Clock, MSBFIRST, [ioByte] ' send byte -SHIFTIN ShtData, Clock, LSBPRE, [ackBit\1] ' get ack bit -RETURN -' returns "ioByte" -' sends "ackBit" -' -SHT_Read_Byte: -SHIFTIN ShtData, Clock, MSBPRE, [ioByte] ' get byte -SHIFTOUT ShtData, Clock, LSBFIRST, [ackBit\1] ' send ack bit -INPUT ShtData ' release data line -RETURN -' wait for device to finish measurement (pulls data line low) -' -- timeout after ~1/4 second -' -SHT_Wait: -INPUT ShtData ' data line is input -timeOut = No ' assume no timeout -FOR toDelay = 1 TO 250 ' wait ~1/4 second -IF (ShtData = 0) THEN EXIT -PAUSE 1 -NEXT -IF (toDelay = 250) THEN timeOut = Yes ' loop completed = timeout -RETURN - -' reset SHT11/15 with soft reset -' -SHT_Soft_Reset: -GOSUB SHT_Connection_Reset ' reset the connection -ioByte = ShtReset ' reset command -ackBit = NoAck ' only one byte to send -GOSUB SHT_Write_Byte ' send it -PAUSE 11 ' wait at least 11 ms -RETURN
\ No newline at end of file |