merge

diff --cc CleanSerial
index 8a5d422,bfa6a41..ef64133
--- 1/CleanSerial
--- 2/CleanSerial
+++ b/CleanSerial
@@@ -1,1 -1,1 +1,1 @@@
- Subproject commit 8a5d42279e8067d9dee26d5fae466deea27c6805
 -Subproject commit bfa6a41e5ecfb2e11e9e389b6bb6720fda7f1ebb
++Subproject commit ef6413393c66231637cc89c252c28e866a46f14b

diff --cc Devices/mTaskDevice.dcl
index 1662cbb,f254a22..c489d01
--- 1/Devices/mTaskDevice.dcl
--- 2/Devices/mTaskDevice.dcl
+++ b/Devices/mTaskDevice.dcl
@@@ -32,9 -36,10 +34,11 @@@ instance == MTaskDevic
  class MTaskDuplex a where
        synFun :: a (Shared Channels) -> Task ()
  
+ startupDevices :: Task [MTaskDevice]
+ connectDevice :: (MTaskDevice (Shared Channels) -> Task ()) MTaskDevice -> Task ()
  manageDevices :: (MTaskDevice (Shared Channels) -> Task ()) [MTaskDevice] -> Task ()
  sendToDevice :: String (Main (ByteCode () Stmt)) (MTaskDevice, MTaskInterval) -> Task ()
 +sendMessages :: [MTaskMSGSend] -> (MTaskDevice -> Task Channels)
  
  deviceTaskDelete :: MTaskDevice MTaskTask -> Task ()
  deviceTaskAcked :: MTaskDevice Int -> Task ()

diff --cc Devices/mTaskDevice.icl
index 928432b,58dd5ed..b3f3e85
--- 1/Devices/mTaskDevice.icl
--- 2/Devices/mTaskDevice.icl
+++ b/Devices/mTaskDevice.icl
@@@ -24,6 -24,13 +25,10 @@@ derive consName MTaskResource, TTYSetti
  instance == MTaskDevice where
        (==) a b = a.deviceChannels == b.deviceChannels
  
 -channels :: MTaskDevice -> Shared Channels
 -channels d = memoryShare d.deviceChannels ([], [], False)
 -
+ startupDevices :: Task [MTaskDevice]
+ startupDevices = upd (map reset) deviceStore
+       where reset d = {d & deviceTask=Nothing, deviceTasks=[], deviceError=Nothing}
+ 
  makeDevice :: String MTaskResource -> Task MTaskDevice
  makeDevice name res = get randomInt @ \rand->{MTaskDevice
                |deviceChannels=name +++ toString rand