From 34753ca6135c00ed386c8996eb65da70c11b5170 Mon Sep 17 00:00:00 2001
From: Bill Somerville <bill@classdesign.com>
Date: Sun, 17 Oct 2021 20:26:57 +0100
Subject: [PATCH] Repair issue with DE & DX call not being added to hash tables
 in Q65

---
 lib/q65_decode.f90 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index cbe295adc..207026053 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -93,6 +93,9 @@ contains
     nfft2=ntrperiod*6000
     npasses=1
 
+    dxcall13=hiscall  ! initialize for use in packjt77
+    mycall13=mycall
+
 ! Determine the T/R sequence: iseq=0 (even), or iseq=1 (odd)
     n=nutc
     if(ntrperiod.ge.60 .and. nutc.le.2359) n=100*n