| OnInterrupt Int
:: MTaskDeviceSpec =
- {haveLed :: Bool
- ,haveAio :: Bool
- ,haveDio :: Bool
+ {haveLed :: Bool
+ ,haveAio :: Bool
+ ,haveDio :: Bool
+ ,aPins :: Int
+ ,dPins :: Int
+ ,stackSize :: Int
,bytesMemory :: Int
}
:: ByteCode a p = BC (RWS () [BC] BCState ())
-:: BCShare = {
- sdsi :: Int,
- sdsval :: BCValue
+:: BCShare =
+ { sdsi :: Int
+ , sdsval :: BCValue
+ , sdsname :: String
}
:: BCState = {
- freshl :: [Int],
- freshs :: [Int],
+ freshl :: Int,
+ freshs :: Int,
sdss :: [BCShare]
}
instance zero BCState
instance retrn ByteCode
instance sds ByteCode
+instance sdspub ByteCode
instance assign ByteCode
instance seq ByteCode
instance serial ByteCode