Updated decoded to use new alphabet. Updated frame packing to use new 72 bit messages

2018-08-06 10:18:11 -04:00
parent ba0a2fe52d
commit 3318fa1005
4 changed files with 31 additions and 18 deletions
@@ -9,7 +9,7 @@ subroutine extractmessage174(decoded,msgreceived,ncrcflag)
  integer*1, target::  i1Dec8BitBytes(11)
  integer*4 i4Dec6BitWords(12)

-  alphabet='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-+/?. abcdefghijklmnopqrstuvwxyz'
+  alphabet='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz-+/?.'

 ! Write decoded bits into cbits: 75-bit message plus 12-bit CRC
  write(cbits,1000) decoded