From 8f3e7b507cb09a01a0975862883f4303fb267803 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 1 Oct 2018 10:50:34 +0200
Subject: [PATCH] Fix bug in JEDGAR.

The page number must be shifted by ten bits, not six.
---
 src/moon/jedgar.1 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/moon/jedgar.1 b/src/moon/jedgar.1
index 60f84a92..8e9c69b7 100644
--- a/src/moon/jedgar.1
+++ b/src/moon/jedgar.1
@@ -120,7 +120,7 @@ LOOKU:	SKIPE @USTP
 	TRNN B,600000
 	 JRST NXUSR
 	ANDI B,777
-	LSH B,6
+	LSH B,10.
 	ANDI A,1777
 	IOR A,B
 	CAIN A,@TOOP