.p

[mTask.git] / mTaskInterpret.dcl

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 5a80189..0048859 100644 (file)
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -9,7 +9,6 @@ import mTask
        | BCPush String
        | BCPop
        //Unary ops
-       | BCNeg
        | BCNot
        //Binary Int ops
        | BCAdd
@@ -29,6 +28,17 @@ import mTask
        | BCJmp Int
        | BCJmpT Int
        | BCJmpF Int
+       //Serial
+       | BCSerialAvail
+       | BCSerialPrint
+       | BCSerialPrintln
+       | BCSerialRead
+       | BCSerialParseInt
+       //Pins
+       | BCAnalogRead String
+       | BCAnalogWrite String
+       | BCDigitalRead String
+       | BCDigitalWrite String
 
 //:: ByteCode a p = BC (BCState -> ([BC], BCState))
 :: ByteCode a p = BC [BC]