I do plan to get a Uno R3 soon from eBay but today I picked up two Parallax Propellers on clearance from RadioShack @ $9.95ea. The 'SPIN' Language seems interesting and propeller chip seems very cool but the amount of begginer code seems thin compared to arduino... Especially if I want to do something like temp/moisture/humidity reading and water cntrl for a garden. Should I sell these or give'em a shot..... it is the dev brd w/ 8 rstv tch btns and 8 LEDS.....
Seriously, SPIN is very powerful, but writing code for the multiple cores involves some serious understanding of program threading. Now, Parallax has done a fair job at managing the complexities. But, it is certainly not Arduino!
''*****************************************************
''* MCP3202 12-bit/2-channel ADC Driver v1.0 *
''* also provides up to two 32-bit sigma-delta DACs *
''* Author: Chip Gracey *
''* Copyright (c) 2009 Parallax, Inc. *
''* See end of file for terms of use. *
''*****************************************************
'' Revised by John Abshier (jabshier on Fourm) 23 Aug 2012
'' Added 5th parameter DACpins and moved dacmode into DACpins instead of count
'' Kuroneko added code to prevent startx from returning until initialization is complete
VAR
long cog
long ins '5 contiguous longs (2 words + 1 long + 2 longs + 1 long)
long count
long dacx, dacy
long DACpins
PUB start(dpin, cpin, spin, mode) : okay
'' Start driver - starts a cog
'' returns false if no cog available
'' may be called again to change settings
''
'' dpin = pin connected to both DIN and DOUT on MCP3202
'' cpin = pin connected to CLK on MCP3202
'' spin = pin connected to CS on MCP3202
'' mode = channel enables in bits 0..1, diff mode enables in bits 2..3
return startx(@dpin, 1)
PUB start1(dpin, cpin, spin, mode, xpin) : okay
'' Like start, but sets up 1 extra pin as a 32-bit sigma-delta DAC
''
'' xpin = pin connected to RC filter for 'x' DAC
''
'' R and C values can be 1K and .1uF
return startx(@dpin, xpin & $1F | $80)
PUB start2(dpin, cpin, spin, mode, xpin, ypin) : okay
'' Like start, but sets up 2 extra pins as 32-bit sigma-delta DACs
''
'' xpin = pin connected to RC filter for 'x' DAC
'' ypin = pin connected to RC filter for 'y' DAC
''
'' R and C values can be 1K and .1uF
return startx(@dpin, (ypin & $1F | $80) << 8 + xpin & $1F | $80)
PRI startx(ptr, dacmode) : okay
stop
longmove(@ins, ptr, 4)
DACpins := dacmode
if cog := cognew(@entry, @ins) + 1
repeat while DACpins ' wait for cog to run initialization code
return cog
PUB stop
'' Stop driver - frees a cog
if cog
cogstop(cog~ - 1)
PUB in(channel) : sample
'' Read the current sample from an ADC channel (0..1)
return ins.word[channel]
PUB average(channel, n) : sample | c
'' Average n samples from an ADC channel (0..1)
c := count
repeat n
repeat while c == count
sample += ins.word[channel]
c++
sample /= n
PUB out(x, y)
'' Update DACs with 32-bit values
dacx := x
dacy := y
PUB outPercent(x, y)
'' Update DACs with 32-bit values
'' Inputs are percent high time 0 to 100
x := 0 #> x <# 100 ' limit to 0 to 100 percent
y := 0 #> y <# 100
dacx := x * 42_949_672
dacy := y * 42_949_672
DAT
'************************************
'* Assembly language MCP3202 driver *
'************************************
org
'
'
' Entry
'
entry mov t1,par 'read parameters
call #param 'setup DIN/DOUT pin
mov dmask,t2
call #param 'setup CLK pin
mov cmask,t2
call #param 'setup CS pin
mov smask,t2
call #param 'set mode
mov enables,t3
call #param 'setup DAC configuration
if_c or dira,t2
if_c movs ctra,t3
if_c movi ctra,#%00110_000
shr t3,#8
call #param2
if_c or dira,t2
if_c movs ctrb,t3
if_c movi ctrb,#%00110_000
'
'
' Perform conversions continuously
'
or dira,cmask 'output CLK
or dira,smask 'output CS
main_loop mov command,#%1001 'init command (start + msbf)
mov t1,par 'reset sample pointer
mov t2,enables 'get enables
mov t3,#2 'ready 2 channels
cloop shr t2,#1 wc 'if channel disabled, skip
if_nc jmp #skip
test t2,#2 wc 'channel enabled, get single/diff mode
muxnc command,#%0100
mov stream,command
or outa,smask 'CS high
or dira,dmask 'make DIN/DOUT output
mov bits,#18 'ready 18 bits (cs+1+diff+ch+1+0+data[12])
bloop test stream,#%10000 wc 'update DIN/DOUT
muxc outa,dmask
cmp bits,#13 wz 'if command done, input DIN/DOUT
if_z andn dira,dmask
andn outa,cmask 'CLK low
mov t4,par 'update DACs between clock transitions
add t4,#8
rdlong frqa,t4
add t4,#4
rdlong frqb,t4
or outa,cmask 'CLK high
test dmask,ina wc 'sample DIN/DOUT
rcl stream,#1
andn outa,smask 'CS low
djnz bits,#bloop 'next data bit
and stream,mask12 'trim and write sample
wrword stream,t1
skip add t1,#2 'advance sample pointer
or command,#%0010 'advance command
djnz t3,#cloop 'more channels?
wrlong counter,t1 'channels done, update counter
add counter,#1
jmp #main_loop 'perform conversions again
'
'
' Get parameter
'
param rdlong t3,t1 'get parameter into t3
wrlong par,t1 'acknowledge parameter
add t1,#4 'point to next parameter
param2 mov t2,#1 'make pin mask in t2
shl t2,t3
test t3,#$80 wc 'get DAC flag into c
param2_ret
param_ret ret
'
'
' Initialized data
'
mask12 long $FFF
'
'
' Uninitialized data
'
t1 res 1
t2 res 1
t3 res 1
t4 res 1
dmask res 1
cmask res 1
smask res 1
enables res 1
command res 1
stream res 1
bits res 1
counter res 1