Correct jmp instruction saved on jsr

diff --git a/minsk.c b/minsk.c
index 419ce0d9c3bbcb0b43800f109bf68b551965db3d..352af1fe94b9e06c9c7bdd7f9282af1d20156da1 100644 (file)
--- a/minsk.c
+++ b/minsk.c
@@ -683,7 +683,7 @@ static void run(void)
          ip = x;
          break;
        case 0131:              // Jump to subroutine
-         wr(y, acc = ((030ULL << 30) | ((ip & 07777ULL) << 12)));
+         wr(y, acc = ((0130ULL << 30) | ((ip & 07777ULL) << 12)));
          ip = x;
          break;
        case 0132:              // Jump if positive