toString (MTSDSDelAck i) = "SDS deleted with id: " +++ toString i
toString (MTPub i v) = "Publish id: " +++ toString i
+++ " value " +++ safePrint v
+ toString (MTDevSpec mt) = "Specification: " +++ printToString mt
toString (MTMessage m) = m
toString MTEmpty = "Empty message"
|haveLed=c bitand 1 > 0
,haveAio=c bitand 2 > 0
,haveDio=c bitand 4 > 0
- ,maxTask=toInt s.[1]
- ,maxSDS =toInt s.[2]
+ ,maxTask=from16bit $ s % (1,3)
+ ,maxSDS=from16bit $ s % (3,5)
}
derive gPrint Long, UserLED, Button, AnalogPin, DigitalPin, PinMode, Pin, BC, MTaskDeviceSpec