register setting works now

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        ; &

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