From 7e0ea1e2527bb792b33d067c8076bcbfee9bcdee Mon Sep 17 00:00:00 2001
From: FeralChild64 <you@example.com>
Date: Sun, 17 Jan 2021 12:23:10 +0100
Subject: [PATCH] register setting works now

---
 src/mon_m65/bsmon.s                    | 2 +-
 src/mon_m65/mon_command_set_register.s | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/mon_m65/bsmon.s b/src/mon_m65/bsmon.s
index 4b41faa2..9fa6a69c 100644
--- a/src/mon_m65/bsmon.s
+++ b/src/mon_m65/bsmon.s
@@ -207,7 +207,7 @@ Jump_Table:
          !word Mon_DOS          ; @
          !word Mon_Assemble     ; .  XXX to be debugged/adapted
          !word Mon_Set_Memory   ; >
-         !word Mon_Set_Register ; ;  XXX to be bugfixed
+         !word Mon_Set_Register ; ;
          !word Converter        ; $
          !word Converter        ; +
          !word Converter        ; &
diff --git a/src/mon_m65/mon_command_set_register.s b/src/mon_m65/mon_command_set_register.s
index 836245fa..b76f6151 100644
--- a/src/mon_m65/mon_command_set_register.s
+++ b/src/mon_m65/mon_command_set_register.s
@@ -52,7 +52,7 @@ Mon_Set_Register:
 
 @lpflag:
 
-	lda  Get_Char
+	jsr  Get_Char
 	beq  @exit
 
 	cmp  #'-'
@@ -77,9 +77,9 @@ Mon_Set_Register:
 	sta  SR
 
 	sec
-	rol  Long_TMP+0
+	ror  Long_TMP+0
 	clc 
-	rol  Long_TMP+1
+	ror  Long_TMP+1
 
 	bne  @lpflag