From 17f420b48b01d752032992ad2d5726bf0c64c408 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 7 Apr 2020 18:25:35 -0400
Subject: [PATCH] Allow generation of messages with EME-style 'OOO' report.

---
 lib/jt65sim.f90 | 14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

diff --git a/lib/jt65sim.f90 b/lib/jt65sim.f90
index 6f7030cf4..67f33acfb 100644
--- a/lib/jt65sim.f90
+++ b/lib/jt65sim.f90
@@ -169,23 +169,17 @@ program jt65sim
         if(csubmode.eq.'B' .and. snrdb.eq.0.0) xsnr=-21 - isig
         if(csubmode.eq.'C' .and. snrdb.eq.0.0) xsnr=-21 - isig
 
-!###
-!        call1="K1ABC"
-!        ic3=65+mod(isig-1,26)
-!        ic2=65+mod((isig-1)/26,26)
-!        ic1=65
-!        call2="W9"//char(ic1)//char(ic2)//char(ic3)
-!        write(msg,1010) call1,call2,nint(xsnr)
-!1010    format(a5,1x,a5,1x,i3.2)
-!###
         call packmsg(msg,dgen,itype)        !Pack message into 12 six-bit bytes
         call rs_encode(dgen,sent)           !Encode using RS(63,12)
         call interleave63(sent,1)           !Interleave channel symbols
         call graycode65(sent,63,1)          !Apply Gray code
 
+        nprc_test=0
+        i1=len(trim(msg))
+        if(msg(i1-3:i1).eq.' OOO') nprc_test=1
         k=0
         do j=1,nsym                         !Insert sync and data into itone()
-           if(nprc(j).eq.0) then
+           if(nprc(j).eq.nprc_test) then
               k=k+1
               itone(j)=sent(k)+2
            else