chris/js8call
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed CRC mod

Browse Source
This commit is contained in:
Jordan Sherer 2018-10-03 18:25:55 -04:00
parent 302e59e403
commit 075b041b0d
5 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/ft8/chkcrc12a.f90
View File

@ -16,7 +16,7 @@ subroutine chkcrc12a(decoded,nbadcrc)
i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),128+64+32) i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),128+64+32)
i1Dec8BitBytes(11)=0 i1Dec8BitBytes(11)=0
icrc12=crc12(c_loc(i1Dec8BitBytes),11) !CRC12 computed from 75 msg bits icrc12=crc12(c_loc(i1Dec8BitBytes),11) !CRC12 computed from 75 msg bits
icrc12=xor(icrc12, 41) ! icrc12=xor(icrc12, 41) ! TODO: jsherer - could change the crc here
nbadcrc=1 nbadcrc=1
if(ncrc12.eq.icrc12) nbadcrc=0 if(ncrc12.eq.icrc12) nbadcrc=0

2
lib/ft8/extractmessage174.f90
View File

@ -22,7 +22,7 @@ subroutine extractmessage174(decoded,msgreceived,ncrcflag)
i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),128+64+32) i1Dec8BitBytes(10)=iand(i1Dec8BitBytes(10),128+64+32)
i1Dec8BitBytes(11)=0 i1Dec8BitBytes(11)=0
icrc12=crc12(c_loc(i1Dec8BitBytes),11) !CRC12 computed from 75 msg bits icrc12=crc12(c_loc(i1Dec8BitBytes),11) !CRC12 computed from 75 msg bits
icrc12=xor(icrc12, 41) ! icrc12=xor(icrc12, 41) ! TODO: jsherer - could change the crc here
if(ncrc12.eq.icrc12 .or. sum(decoded(57:87)).eq.0) then !### Kludge ### if(ncrc12.eq.icrc12 .or. sum(decoded(57:87)).eq.0) then !### Kludge ###
! CRC12 checks out --- unpack 72-bit message ! CRC12 checks out --- unpack 72-bit message

2
lib/ft8/foxgen.f90
View File

@ -73,7 +73,7 @@ subroutine foxgen()
read(cb88,1003) i1Msg8BitBytes(1:11) read(cb88,1003) i1Msg8BitBytes(1:11)
1003 format(11b8) 1003 format(11b8)
icrc12=crc12(c_loc(i1Msg8BitBytes),11) icrc12=crc12(c_loc(i1Msg8BitBytes),11)
icrc12=xor(icrc12, 41) ! icrc12=xor(icrc12, 41) ! TODO: jsherer - could change the crc here
write(cbits,1001) msgbits(1:56),icrc10,nrpt,i3b,icrc12 write(cbits,1001) msgbits(1:56),icrc10,nrpt,i3b,icrc12
read(cbits,1002) msgbits read(cbits,1002) msgbits

2
lib/ft8/genft8.f90
View File

@ -38,7 +38,7 @@ subroutine genft8(msg,mygrid,bcontest,i3bit,msgsent,msgbits,itone)
i1Msg8BitBytes(10)=iand(i1Msg8BitBytes(10),128+64+32) i1Msg8BitBytes(10)=iand(i1Msg8BitBytes(10),128+64+32)
i1Msg8BitBytes(11)=0 i1Msg8BitBytes(11)=0
icrc12=crc12(c_loc(i1Msg8BitBytes),11) icrc12=crc12(c_loc(i1Msg8BitBytes),11)
icrc12=xor(icrc12, 41) ! icrc12=xor(icrc12, 41) ! TODO: jsherer - could change the crc here
! For reference, here's how to check the CRC ! For reference, here's how to check the CRC
! i1Msg8BitBytes(10)=icrc12/256 ! i1Msg8BitBytes(10)=icrc12/256

2
lib/ft8/ldpcsim174.f90
View File

@ -91,7 +91,7 @@ allocate ( rxdata(N), llr(N) )
i1Msg8BitBytes(10:11)=0 i1Msg8BitBytes(10:11)=0
checksum = crc12 (c_loc (i1Msg8BitBytes), 11) checksum = crc12 (c_loc (i1Msg8BitBytes), 11)
checksum = xor(checksum, 41) ! checksum = xor(checksum, 41) ! TODO: jsherer - could change the crc here
! For reference, the next 3 lines show how to check the CRC ! For reference, the next 3 lines show how to check the CRC
i1Msg8BitBytes(10)=checksum/256 i1Msg8BitBytes(10)=checksum/256
i1Msg8BitBytes(11)=iand (checksum,255) i1Msg8BitBytes(11)=iand (checksum,255)