just checking which part of unimplemented i hit

lib/register/set_implementation.rb

@@ -1,3 +1,24 @@
+Virtual::MessageSlot.class_eval do
+  def reg
+    Register::RegisterReference.new(Virtual::Message::MESSAGE_REG )
+  end
+end
+Virtual::FrameSlot.class_eval do
+  def reg
+    Register::RegisterReference.new(Virtual::Message::FRAME_REG )
+  end
+end
+Virtual::SelfSlot.class_eval do
+  def reg
+    Register::RegisterReference.new(Virtual::Message::SELF_REG )
+  end
+end
+Virtual::NewMessageSlot.class_eval do
+  def reg
+    Register::RegisterReference.new(Virtual::Message::NEW_MESSAGE_REG )
+  end
+end
+
 module Register
   # This implements setting of the various slot variables the vm defines. 
   # Basic mem moves, but have to shuffle the type nibbles
@@ -6,18 +27,18 @@ module Register
     def run block
       block.codes.dup.each do |code|
         next unless code.is_a? Virtual::Set
+        # resolve the register and offset that we need to move to
+        to = code.to.reg
+        # need a temporay place because of indexed load/store
         tmp = RegisterReference.new(Virtual::Message::TMP_REG)
-        if( code.to.is_a? Virtual::NewMessageSlot)
-          to = Virtual::Message::NEW_MESSAGE_REG
-          move = RegisterMachine.instance.ldr( to , tmp , code.to.index )
-          block.replace(code , move )
-        elsif( code.to.is_a? Virtual::Self)
-          to =  RegisterReference.new(Virtual::Message::SELF_REG)
-          move = RegisterMachine.instance.ldr( to , tmp , code.to.index )
-          block.replace(code , move )
-        else
-          raise "Start coding #{code.inspect}"
+        # for constants we have to "move" the constants value
+        if( code.from.is_a? Virtual::Constant)
+          move1 = RegisterMachine.instance.mov( tmp , code.from )
+        else # while otherwise we "load"
+          move1 = RegisterMachine.instance.ldr( tmp , code.from.reg , code.from.index )
         end
+        move2 = RegisterMachine.instance.str( tmp , to , code.to.index )
+        block.replace(code , [move1,move2] )
       end
     end
   end