add ports
[mTask.git] / mTaskInterpret.dcl
index 885d52e..fa5d1d2 100644 (file)
@@ -28,6 +28,15 @@ import mTask
        | BCJmp Int
        | BCJmpT Int
        | BCJmpF Int
+       //Serial
+       | BCSerialAvail
+       | BCSerialPrint
+       | BCSerialPrintln
+       | BCSerialRead
+       | BCSerialParseInt
+       //Pins
+       | BCAnalogRead AnalogPin
+       | BCAnalogWrite AnalogPin
 
 //:: ByteCode a p = BC (BCState -> ([BC], BCState))
 :: ByteCode a p = BC [BC]