Merged master 8748

2018-08-05 11:33:30 -04:00
parent 8f8772f1bd
commit 62899069bf
1222 changed files with 70382 additions and 406763 deletions
@@ -1,34 +0,0 @@
-<table cellspacing=1>
-  <tr><td><b>F1       </b></td><td>Online User's Guide</td></tr>
-  <tr><td><b>Ctrl+F1  </b></td><td>About WSJT-X</td></tr>
-  <tr><td><b>F2       </b></td><td>Open configuration window</td></tr>
-  <tr><td><b>F3       </b></td><td>Display keyboard shortcuts</td></tr>
-  <tr><td><b>F4       </b></td><td>Clear DX Call, DX Grid, Tx messages 1-5</td></tr>
-  <tr><td><b>Alt+F4   </b></td><td>Exit program</td></tr>
-  <tr><td><b>F5       </b></td><td>Display special mouse commands</td></tr>
-  <tr><td><b>F6       </b></td><td>Open next file in directory</td></tr>
-  <tr><td><b>F7       </b></td><td>Display Message Averaging window</td></tr>
-  <tr><td><b>Shift+F6 </b></td><td>Decode all remaining files in directrory</td></tr>
-  <tr><td><b>F11      </b></td><td>Move Rx frequency down 1 Hz</td></tr>
-  <tr><td><b>Ctrl+F11 </b></td><td>Move Rx and Tx frequencies down 1 Hz</td></tr>
-  <tr><td><b>F12      </b></td><td>Move Rx frequency up 1 Hz</td></tr>
-  <tr><td><b>Ctrl+F12 </b></td><td>Move Rx and Tx frequencies up 1 Hz</td></tr>
-  <tr><td><b>Alt+1-6  </b></td><td>Set now transmission to this number on Tab 1</td></tr>
-  <tr><td><b>Ctl+1-6  </b></td><td>Set next transmission to this number on Tab 1</td></tr>
-  <tr><td><b>Alt+D    </b></td><td>Decode again at QSO frequency</td></tr>
-  <tr><td><b>Shift+D  </b></td><td>Full decode (both windows)</td></tr>
-  <tr><td><b>Ctrl+E   </b></td><td>Turn on TX even/1st</td></tr>
-  <tr><td><b>Shift+E  </b></td><td>Turn off TX even/1st</td></tr>
-  <tr><td><b>Alt+E    </b></td><td>Erase</td></tr>
-  <tr><td><b>Ctrl+F   </b></td><td>Edit the free text message box</td></tr>
-  <tr><td><b>Alt+G    </b></td><td>Generate standard messages</td></tr>
-  <tr><td><b>Alt+H    </b></td><td>Halt Tx</td></tr>
-  <tr><td><b>Ctrl+L   </b></td><td>Lookup callsign in database, generate standard messages</td></tr>
-  <tr><td><b>Alt+M    </b></td><td>Monitor</td></tr>
-  <tr><td><b>Alt+N    </b></td><td>Enable Tx</td></tr>
-  <tr><td><b>Ctrl+O   </b></td><td>Open a .wav file</td></tr>
-  <tr><td><b>Alt+Q    </b></td><td>Log QSO</td></tr>
-  <tr><td><b>Alt+S    </b></td><td>Stop monitoring</td></tr>
-  <tr><td><b>Alt+T    </b></td><td>Tune</td></tr>
-  <tr><td><b>Alt+V    </b></td><td>Save the most recently completed *.wav file</td></tr>
-</table>
@@ -0,0 +1,63 @@
+subroutine genwsprdpsk(msg,msgsent,imsgde)
+
+! Encode a WSPRDPSK message, producing array txwave().
+!  
+  use crc
+  include 'wsprdpsk_params.f90'
+
+  character*22 msg,msgsent
+  character*64 cbits
+  character*32 sbits
+  integer      iuniqueword0
+  integer*1,target :: idat(9)
+  integer*1 msgbits(68),codeword(ND)
+  logical first
+  integer ipreamble(16)                      !Freq estimation preamble
+  integer isync(32)                          !Long sync vector
+  integer imsg(NN),imsgde(NN)                   
+  data ipreamble/1,1,1,1,0,0,0,0,0,0,0,0,1,1,1,1/
+  data first/.true./
+  data iuniqueword0/z'30C9E8AD'/
+  save first,isync,ipreamble
+
+  if(first) then
+    write(sbits,'(b32.32)') iuniqueword0
+    read(sbits,'(32i1)') isync(1:32)
+    first=.false.
+  endif
+
+  idat=0
+  call wqencode(msg,ntype0,idat)             !Source encoding
+  id7=idat(7)
+  if(id7.lt.0) id7=id7+256
+  id7=id7/64
+write(*,*) 'idat ',idat
+  icrc=crc14(c_loc(idat),9)  
+write(*,*) 'icrc: ',icrc
+write(*,'(a6,b16.16)') 'icrc: ',icrc
+  call wqdecode(idat,msgsent,itype)
+  print*,msgsent,itype
+  write(cbits,1004) idat(1:6),id7,iand(icrc,z'3FFF')
+1004 format(6b8.8,b2.2,b14.14)
+  msgbits=0
+  read(cbits,1006) msgbits(1:64)
+1006 format(64i1)
+
+write(*,'(50i1,1x,14i1,1x,4i1)') msgbits
+
+  call encode204(msgbits,codeword)      !Encode the test message
+
+  imsg(1)=1                         !reference bit
+  imsg(2:101)=codeword(1:100)
+  imsg(102:132)=isync(1:31)         !only use 31 of the sync bits 
+  imsg(133:232)=codeword(101:200)
+write(*,'(232i1)') imsg(1:232)
+  imsgde(1)=1
+  do i=2,232
+    imsgde(i)=mod(imsgde(i-1)+imsg(i),2)
+  enddo
+
+write(*,*) '-------------'
+write(*,'(232i1)') imsgde(1:232)
+  return
+end subroutine genwsprdpsk