From abbb2777934a38d49bb912ddd71e58b788bdf2b0 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Sat, 31 Oct 2020 11:15:03 -0400
Subject: [PATCH] Fix the issue with using AP for the "i3" bit and 78th bit.

---
 lib/q65_decode.f90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index 029d399d9..664e63100 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -130,12 +130,11 @@ contains
                apsymbols1)
           write(c78,1050) apmask1
 1050      format(78i1)
-          c78(75:78)='    '
           read(c78,1060) apmask
 1060      format(13b6.6)
           write(c78,1050) apsymbols1
           read(c78,1060) apsymbols
-
+          apsymbols(13)=apsymbols(13)/2              !Fixup for c77-->c78
 !          write(72,3060) 'A',ipass,apmask,apmask
 !3060      format(a1,i1,1x,13b6.6/3x,13i6)
 !          write(72,3060) 'B',ipass,apsymbols,apsymbols