From 7ba47a7e945a3934e2f62be0859b181a9ba8080e Mon Sep 17 00:00:00 2001
From: Joe Taylor <k1jt@arrl.org>
Date: Tue, 2 Apr 2013 16:33:58 +0000
Subject: [PATCH] Fix paxck/unpack bugs reported by VE5VA.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@3120 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
---
 libm65/packtext.f  | 8 ++++----
 libm65/unpackmsg.f | 2 +-
 mainwindow.cpp     | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/libm65/packtext.f b/libm65/packtext.f
index c06581a0a..c4029766f 100644
--- a/libm65/packtext.f
+++ b/libm65/packtext.f
@@ -2,7 +2,7 @@
 
       parameter (MASK28=2**28 - 1)
       character*13 msg
-      character*44 c
+      character*42 c
       data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/
 
       nc1=0
@@ -10,7 +10,7 @@
       nc3=0
 
       do i=1,5                                !First 5 characters in nc1
-         do j=1,44                            !Get character code
+         do j=1,42                            !Get character code
             if(msg(i:i).eq.c(j:j)) go to 10
          enddo
          j=37
@@ -19,7 +19,7 @@
       enddo
 
       do i=6,10                               !Characters 6-10 in nc2
-         do j=1,44                            !Get character code
+         do j=1,42                            !Get character code
             if(msg(i:i).eq.c(j:j)) go to 20
          enddo
          j=37
@@ -28,7 +28,7 @@
       enddo
 
       do i=11,13                              !Characters 11-13 in nc3
-         do j=1,44                            !Get character code
+         do j=1,42                            !Get character code
             if(msg(i:i).eq.c(j:j)) go to 30
          enddo
          j=37
diff --git a/libm65/unpackmsg.f b/libm65/unpackmsg.f
index f9d3962fd..8162bd582 100644
--- a/libm65/unpackmsg.f
+++ b/libm65/unpackmsg.f
@@ -16,7 +16,7 @@
 
       ng=ishft(iand(dat(10),15),12) + ishft(dat(11),6) + dat(12)
 
-      if(ng.gt.32768) then
+      if(ng.ge.32768) then
          call unpacktext(nc1,nc2,ng,msg)
          go to 100
       endif
diff --git a/mainwindow.cpp b/mainwindow.cpp
index 21bcbcb70..26348b34d 100644
--- a/mainwindow.cpp
+++ b/mainwindow.cpp
@@ -1,4 +1,4 @@
-//------------------------------------------------------------- MainWindow
+//-------------------------------------------------------------- MainWindow
 #include "mainwindow.h"
 #include "ui_mainwindow.h"
 #include "devsetup.h"