diff --git a/lib/register/boot.rb b/lib/register/boot.rb
index 229ed9da..a6cfed7b 100644
--- a/lib/register/boot.rb
+++ b/lib/register/boot.rb
@@ -156,7 +156,7 @@ module Register
       end
 
       obj = @space.get_class_by_name(:Integer)
-      [ :putint, :mod4].each do |f|   #mod4 is just a forward declaration
+      [ :putint, :mod4, :div10].each do |f|   #mod4 is just a forward declaration
         obj.add_instance_method Builtin::Integer.send(f , nil)
       end
     end
diff --git a/lib/register/builtin/integer.rb b/lib/register/builtin/integer.rb
index dc8c8458..5b8942ba 100644
--- a/lib/register/builtin/integer.rb
+++ b/lib/register/builtin/integer.rb
@@ -14,6 +14,60 @@ module Register
           return compiler.method
         end
 
+
+        def div10 context
+          s = "div_10"
+          compiler = Soml::Compiler.new.create_method(:Integer,:div10 ).init_method
+          me = compiler.process( s(:name , :self) )
+          tmp = compiler.process( s(:name , :self) )
+          q = compiler.process( s(:name , :self) )
+          const = compiler.process( s(:int , 1) )
+          # int tmp = self >> 1
+          compiler.add_code Register.op( s , ">>" , tmp , const)
+          # int q = self >> 2
+          compiler.add_code Register.load_constant( s , 2 , const)
+          compiler.add_code Register.op( s , ">>" , q , const)
+          # q = q + tmp
+          compiler.add_code Register.op( s , "+" , q , tmp )
+          # tmp = q >> 4
+          compiler.add_code Register.load_constant( s , 4 , const)
+          compiler.add_code Register.transfer( s, q , tmp)
+          compiler.add_code Register.op( s , ">>" , tmp , const)
+          # q = q + tmp
+          compiler.add_code Register.op( s , "+" , q , tmp )
+          # tmp = q >> 8
+          compiler.add_code Register.load_constant( s , 8 , const)
+          compiler.add_code Register.transfer( s, q , tmp)
+          compiler.add_code Register.op( s , ">>" , tmp , const)
+          # q = q + tmp
+          compiler.add_code Register.op( s , "+" , q , tmp )
+          # tmp = q >> 16
+          compiler.add_code Register.load_constant( s , 16 , const)
+          compiler.add_code Register.transfer( s, q , tmp)
+          compiler.add_code Register.op( s , ">>" , tmp , const)
+          # q = q + tmp
+          compiler.add_code Register.op( s , "+" , q , tmp )
+          # q = q >> 3
+          compiler.add_code Register.load_constant( s , 3 , const)
+          compiler.add_code Register.op( s , ">>" , q , const)
+          # tmp = q * 10
+          compiler.add_code Register.load_constant( s , 10 , const)
+          compiler.add_code Register.transfer( s, q , tmp)
+          compiler.add_code Register.op( s , "*" , tmp , const)
+          # tmp = self - tmp
+          compiler.add_code Register.op( s , "-" , me , tmp )
+          compiler.add_code Register.transfer( s , me , tmp)
+          # tmp = tmp + 6
+          compiler.add_code Register.load_constant( s , 6 , const)
+          compiler.add_code Register.op( s , "+" , tmp , const )
+          # tmp = tmp >> 4
+          compiler.add_code Register.load_constant( s , 4 , const)
+          compiler.add_code Register.op( s , ">>" , tmp , const )
+          # return q + tmp
+          compiler.add_code Register.op( s , "+" , q , tmp )
+          compiler.add_code Register.set_slot( s , q , :message , :return_value)
+          return compiler.method
+        end
       end
       extend ClassMethods
     end