Added Instruction datatype and i2s (Instruction to string) function.

ars13025 · Jan 30, 2018 · 4637682 · 4637682
1 parent 83bfdb5
commit 4637682
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/Homework_1.sml b/Homework_1.sml
@@ -10,3 +10,11 @@ fun getA (m : MachineState) = #a m;
 fun getB (m : MachineState) = #b m;
 fun setA (m : MachineState, newA) = newMachine(newA, #b m);
 fun setB (m : MachineState, newB) = newMachine(#a m, newB);
+
+(*Instruction Set*)
+datatype Instruction = SetA of int | SetB of int | Add | Sub | Disp;
+fun i2s (SetA a)	= "SetA " ^ Int.toString(a)
+	| i2s (SetB b)	= "SetB " ^ Int.toString(b)
+	| i2s Add		= "Add"
+	| i2s Sub		= "Sub"
+	| i2s Disp		= "Disp";