diff --git a/Homework_1.sml b/Homework_1.sml
index a3c2d0c..314c138 100644
--- a/Homework_1.sml
+++ b/Homework_1.sml
@@ -1,4 +1,12 @@
 (*
-	Homework 1
+	Homework 1: Simple Register Machine
 	By: Ashley Sanders
 *)
+type MachineState = {a:int, b:int};
+fun newMachine (a, b) : MachineState = {a=a, b=b};
+
+(*Getters and Setters*)
+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);