From: Rutger van Bergen <rbergen@xs4all.nl>
Date: Sun, 2 Jan 2022 08:58:55 +0000 (+0100)
Subject: Correct jmp instruction saved on jsr
X-Git-Tag: v1.1~9
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=a6af25c7c250af28a6ee7ecb27c6f2dacf243233;p=minsk.git

Correct jmp instruction saved on jsr
---

diff --git a/minsk.c b/minsk.c
index 419ce0d..352af1f 100644
--- 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