update specs

[mTask.git] / mTaskInterpret.icl

diff --git a/mTaskInterpret.icl b/mTaskInterpret.icl
index 7917c93..2d2005a 100644 (file)
--- a/mTaskInterpret.icl
+++ b/mTaskInterpret.icl
@@ -164,9 +164,10 @@ instance fromByteCode MTaskDeviceSpec where
                | haveLed     = (c bitand 1) > 0
                , haveAio     = (c bitand 2) > 0
                , haveDio     = (c bitand 4) > 0
-               , aPins       = toInt s.[3]
-               , dPins       = toInt s.[4]
                , bytesMemory = from16bit $ s % (1,3)
+               , stackSize  = from16bit $ s % (3,5)
+               , aPins       = toInt s.[5]
+               , dPins       = toInt s.[6]
                }
 
 derive gPrint Long, UserLED, Button, AnalogPin, DigitalPin, PinMode, Pin, BC, MTaskDeviceSpec