X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=53bb69bd43add0c0cd24cb8d591127d5018b943a;hb=ce48250dbf5d93a0617c7683db9959f2fcacacc6;hp=5a801898de303051e7fcc0d0eb28f546e8b7ec43;hpb=aa90c851099c0f6e5993b8cf83ef6605b3835346;p=mTask.git diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl index 5a80189..53bb69b 100644 --- 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,18 @@ import mTask | BCJmp Int | BCJmpT Int | BCJmpF Int + //Serial + | BCSerialAvail + | BCSerialPrint + | BCSerialPrintln + | BCSerialRead + | BCSerialParseInt + //Pins + | BCAnalogRead String + | BCAnalogWrite String + | BCDigitalRead String + | BCDigitalWrite String + | BCTest AnalogPin //:: ByteCode a p = BC (BCState -> ([BC], BCState)) :: ByteCode a p = BC [BC]