,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 = {