comicsansg
/
ft8d
mirror of https://github.com/pavel-demin/ft8d.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

update unpacktext in packjt.f90

This commit is contained in:
Pavel Demin 2018-10-23 08:54:07 +02:00
parent df334d9ec7
commit 7e0d334ca4
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packjt.f90
View File

@ -640,13 +640,15 @@ subroutine packcall(callsign,ncall,text)
return
end subroutine packtext
subroutine unpacktext(nc1,nc2,nc3,msg)
subroutine unpacktext(nc1a,nc2a,nc3a,msg)
character*22 msg
character*44 c
data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/
nc3=iand(nc3,32767) !Remove the "plain text" bit
nc1=nc1a
nc2=nc2a
nc3=iand(nc3a,32767) !Remove the "plain text" bit
if(iand(nc1,1).ne.0) nc3=nc3+32768
nc1=nc1/2
if(iand(nc2,1).ne.0) nc3=nc3+65536