fix putstring and puts

using syscall regs

test/risc/interpreter/calling/test_puts.rb

@@ -14,16 +14,17 @@ module Risc
       #show_main_ticks # get output of what is
       check_main_chain  [LoadConstant, SlotToReg, RegToSlot, LoadConstant, SlotToReg, #5
                  RegToSlot, LoadConstant, SlotToReg, RegToSlot, SlotToReg, #10
-                 FunctionCall, LoadConstant, SlotToReg, LoadConstant, OperatorInstruction, #15
+                 FunctionCall, LoadConstant, LoadConstant, SlotToReg, OperatorInstruction, #15
                  IsNotZero, SlotToReg, RegToSlot, RegToSlot, SlotToReg, #20
-                 SlotToReg, Transfer, Syscall, Transfer, Transfer, #25
-                 SlotToReg, RegToSlot, Branch, SlotToReg, RegToSlot, #30
-                 Branch, SlotToReg, SlotToReg, RegToSlot, SlotToReg, #35
-                 SlotToReg, SlotToReg, FunctionReturn, SlotToReg, RegToSlot, #40
-                 Branch, SlotToReg, SlotToReg, RegToSlot, SlotToReg, #45
+                 SlotToReg, Transfer, Transfer, Transfer, Syscall, #25
+                 Transfer, Transfer, SlotToReg, Branch, RegToSlot, #30
+                 SlotToReg, RegToSlot, Branch, SlotToReg, SlotToReg, #35
+                 RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, #40
+                 RegToSlot, Branch, SlotToReg, SlotToReg, RegToSlot, #45
                  SlotToReg, SlotToReg, FunctionReturn, Transfer, SlotToReg, #50
                  SlotToReg, Syscall, NilClass,] #55
        assert_equal "Hello again" , @interpreter.stdout
+       assert_equal Integer , get_return.class
        assert_equal 11 , get_return #bytes written
     end
     def test_call
@@ -32,27 +33,27 @@ module Risc
       assert_equal :putstring , cal.method.name
     end
 
-    def test_putstring_sys
-      done = main_ticks(23)
+    def test_pre_sys
+      done = main_ticks(24)
+      assert_equal Parfait::Word , @interpreter.get_register(:syscall_1).class
+      assert_equal "Hello again" , @interpreter.get_register(:syscall_1).to_string
+      assert_equal 11 , @interpreter.get_register(:syscall_2)
+    end
+
+    def test_sys
+      done = main_ticks(25)
       assert_equal Syscall ,  done.class
       assert_equal "Hello again" , @interpreter.stdout
-      assert_equal 11 , @interpreter.get_register(:r0)
-      assert_equal Parfait::Word , @interpreter.get_register(:r1).class
-      assert_equal "Hello again" , @interpreter.get_register(:r1).to_string
+      assert_equal 11 , @interpreter.get_register(:syscall_1)
     end
+
     def test_move_sys_return
-      sl = main_ticks(23)
-      assert_transfer(sl, :r0 ,:r3)
-      assert_equal 11 , @interpreter.get_register(:r3)
+      assert_transfer(26, :syscall_1 ,:integer_tmp)
+      assert_equal 11 , @interpreter.get_register(:integer_tmp)
     end
     def test_restore_message
-      sl = main_ticks(25)
-      assert_transfer(sl, :r8 ,:r0)
-      assert_equal Parfait::Message , @interpreter.get_register(:r0).class
-    end
-    def test_move_sys_return
-      sl = main_ticks(34)
-      assert_reg_to_slot( sl , :r1 ,:r2 , 5)
+      assert_transfer(27, :saved_message ,:message)
+      assert_equal Parfait::Message , @interpreter.get_register(:message).class
     end
     def test_return
       done = main_ticks(48)

test/risc/interpreter/calling/test_set_byte.rb

@@ -5,7 +5,7 @@ module Risc
     include Ticker
 
     def setup
-      @preload = "Word.set"
+      @preload = "Word.set_byte"
       @string_input = as_main("return 'Hello'.set_internal_byte(0,75)")
       super
     end
@@ -15,17 +15,17 @@ module Risc
       check_main_chain [LoadConstant, SlotToReg, RegToSlot, LoadConstant, SlotToReg, #5
                  RegToSlot, LoadConstant, SlotToReg, RegToSlot, LoadConstant, #10
                  SlotToReg, RegToSlot, LoadConstant, SlotToReg, RegToSlot, #15
-                 SlotToReg, FunctionCall, SlotToReg, SlotToReg, RegToSlot, #20
-                 SlotToReg, SlotToReg, SlotToReg, RegToByte, SlotToReg, #25
-                 RegToSlot, Branch, SlotToReg, SlotToReg, RegToSlot, #30
-                 SlotToReg, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, #35
+                 SlotToReg, FunctionCall, SlotToReg, RegToSlot, SlotToReg, #20
+                 SlotToReg, SlotToReg, SlotToReg, SlotToReg, RegToByte, #25
+                 SlotToReg, RegToSlot, Branch, SlotToReg, SlotToReg, #30
+                 RegToSlot, SlotToReg, SlotToReg, FunctionReturn, SlotToReg, #35
                  RegToSlot, Branch, SlotToReg, SlotToReg, RegToSlot, #40
-                 SlotToReg, SlotToReg, SlotToReg, FunctionReturn, Transfer, #45
-                 SlotToReg, SlotToReg, Syscall, NilClass,] #50
+                 SlotToReg, SlotToReg, FunctionReturn, Transfer, SlotToReg, #45
+                 SlotToReg, Transfer, Syscall, NilClass,] #50
        assert_equal "K".ord , get_return
     end
     def test_reg_to_byte
-      done = main_ticks(24)
+      done = main_ticks(25)
       assert_equal RegToByte ,  done.class
       assert_equal "K".ord ,  @interpreter.get_register(done.register)
     end