X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=mTaskInterpret.dcl;h=2648cb9314c48fb9d31fbbc2a2871a9b089a64a5;hb=e62ff4107298a5c69667b10ab807cf932b2c8d9a;hp=53bb69bd43add0c0cd24cb8d591127d5018b943a;hpb=f63e9891ef344e992a8a837cd3301ba3209f1e5c;p=mTask.git

diff --git a/mTaskInterpret.dcl b/mTaskInterpret.dcl
index 53bb69b..2648cb9 100644
--- a/mTaskInterpret.dcl
+++ b/mTaskInterpret.dcl
@@ -6,7 +6,7 @@ import mTask
 
 :: BC
 	= BCNop
-	| BCPush String
+	| BCPush Int
 	| BCPop
 	//Unary ops
 	| BCNot
@@ -35,10 +35,10 @@ import mTask
 	| BCSerialRead
 	| BCSerialParseInt
 	//Pins
-	| BCAnalogRead String
-	| BCAnalogWrite String
-	| BCDigitalRead String
-	| BCDigitalWrite String
+	| BCAnalogRead Pin
+	| BCAnalogWrite Pin
+	| BCDigitalRead Pin
+	| BCDigitalWrite Pin
 	| BCTest AnalogPin
 
 //:: ByteCode a p = BC (BCState -> ([BC], BCState))
@@ -48,7 +48,7 @@ import mTask
 		a::()
 	}
 
-toByteVal :: BC -> String
+toByteVal :: BC -> [Char]
 toReadableByteVal :: BC -> String
 
 //instance toCode Pin