./about.cpp0000664000175000017500000000121612172374464011215 0ustar jtnjtn#include "about.h" #include "ui_about.h" CAboutDlg::CAboutDlg(QWidget *parent, QString Revision) : QDialog(parent), m_Revision(Revision), ui(new Ui::CAboutDlg) { ui->setupUi(this); ui->labelTxt->clear(); m_Str = "

" + m_Revision + "

\n\n"; m_Str += "WSJT-X implements experimental mode JT9 for
"; m_Str += "Amateur Radio communication at HF, MF, and LF.

"; m_Str += "Copyright 2001-2013 by Joe Taylor, K1JT. Additional
"; m_Str += "contributions from AC6SL, AE4JY, G4KLA, K3WYC, PY2SDR,
"; m_Str += "and VK4BDJ.
"; ui->labelTxt->setText(m_Str); } CAboutDlg::~CAboutDlg() { delete ui; } ./about.h0000664000175000017500000000050612172374464010663 0ustar jtnjtn#ifndef ABOUTDLG_H #define ABOUTDLG_H #include namespace Ui { class CAboutDlg; } class CAboutDlg : public QDialog { Q_OBJECT public: explicit CAboutDlg(QWidget *parent=0, QString Revision=""); ~CAboutDlg(); private: QString m_Revision; Ui::CAboutDlg *ui; QString m_Str; }; #endif // ABOUTDLG_H ./about.ui0000664000175000017500000000176512172374464011061 0ustar jtnjtn CAboutDlg Qt::NonModal 0 0 374 164 0 0 About WSJT-X Qt::AlignLeading|Qt::AlignLeft|Qt::AlignVCenter ./afmhot.dat0000664000175000017500000002343712172374464011360 0ustar jtnjtn 0 0.0000 0.0000 0.0000 1 0.0000 0.0000 0.0000 2 0.0078 0.0000 0.0000 3 0.0157 0.0000 0.0000 4 0.0235 0.0000 0.0000 5 0.0314 0.0000 0.0000 6 0.0392 0.0000 0.0000 7 0.0471 0.0000 0.0000 8 0.0549 0.0000 0.0000 9 0.0627 0.0000 0.0000 10 0.0706 0.0000 0.0000 11 0.0784 0.0000 0.0000 12 0.0863 0.0000 0.0000 13 0.0941 0.0000 0.0000 14 0.1020 0.0000 0.0000 15 0.1098 0.0000 0.0000 16 0.1176 0.0000 0.0000 17 0.1255 0.0000 0.0000 18 0.1333 0.0000 0.0000 19 0.1412 0.0000 0.0000 20 0.1490 0.0000 0.0000 21 0.1569 0.0000 0.0000 22 0.1647 0.0000 0.0000 23 0.1725 0.0000 0.0000 24 0.1804 0.0000 0.0000 25 0.1882 0.0000 0.0000 26 0.1961 0.0000 0.0000 27 0.2039 0.0000 0.0000 28 0.2118 0.0000 0.0000 29 0.2196 0.0000 0.0000 30 0.2275 0.0000 0.0000 31 0.2353 0.0000 0.0000 32 0.2431 0.0000 0.0000 33 0.2510 0.0000 0.0000 34 0.2588 0.0000 0.0000 35 0.2667 0.0000 0.0000 36 0.2745 0.0000 0.0000 37 0.2824 0.0000 0.0000 38 0.2902 0.0000 0.0000 39 0.2980 0.0000 0.0000 40 0.3059 0.0000 0.0000 41 0.3137 0.0000 0.0000 42 0.3216 0.0000 0.0000 43 0.3294 0.0000 0.0000 44 0.3373 0.0000 0.0000 45 0.3451 0.0000 0.0000 46 0.3529 0.0000 0.0000 47 0.3608 0.0000 0.0000 48 0.3686 0.0000 0.0000 49 0.3765 0.0000 0.0000 50 0.3843 0.0000 0.0000 51 0.3922 0.0000 0.0000 52 0.4000 0.0000 0.0000 53 0.4078 0.0000 0.0000 54 0.4157 0.0000 0.0000 55 0.4235 0.0000 0.0000 56 0.4314 0.0000 0.0000 57 0.4392 0.0000 0.0000 58 0.4471 0.0000 0.0000 59 0.4549 0.0000 0.0000 60 0.4627 0.0000 0.0000 61 0.4706 0.0000 0.0000 62 0.4784 0.0000 0.0000 63 0.4863 0.0000 0.0000 64 0.4941 0.0000 0.0000 65 0.5020 0.0000 0.0000 66 0.5098 0.0098 0.0000 67 0.5176 0.0176 0.0000 68 0.5255 0.0255 0.0000 69 0.5333 0.0333 0.0000 70 0.5412 0.0412 0.0000 71 0.5490 0.0490 0.0000 72 0.5569 0.0569 0.0000 73 0.5647 0.0647 0.0000 74 0.5725 0.0725 0.0000 75 0.5804 0.0804 0.0000 76 0.5882 0.0882 0.0000 77 0.5961 0.0961 0.0000 78 0.6039 0.1039 0.0000 79 0.6118 0.1118 0.0000 80 0.6196 0.1196 0.0000 81 0.6275 0.1275 0.0000 82 0.6353 0.1353 0.0000 83 0.6431 0.1431 0.0000 84 0.6510 0.1510 0.0000 85 0.6588 0.1588 0.0000 86 0.6667 0.1667 0.0000 87 0.6745 0.1745 0.0000 88 0.6824 0.1824 0.0000 89 0.6902 0.1902 0.0000 90 0.6980 0.1980 0.0000 91 0.7059 0.2059 0.0000 92 0.7137 0.2137 0.0000 93 0.7216 0.2216 0.0000 94 0.7294 0.2294 0.0000 95 0.7373 0.2373 0.0000 96 0.7451 0.2451 0.0000 97 0.7529 0.2529 0.0000 98 0.7608 0.2608 0.0000 99 0.7686 0.2686 0.0000 100 0.7765 0.2765 0.0000 101 0.7843 0.2843 0.0000 102 0.7922 0.2922 0.0000 103 0.8000 0.3000 0.0000 104 0.8078 0.3078 0.0000 105 0.8157 0.3157 0.0000 106 0.8235 0.3235 0.0000 107 0.8314 0.3314 0.0000 108 0.8392 0.3392 0.0000 109 0.8471 0.3471 0.0000 110 0.8549 0.3549 0.0000 111 0.8627 0.3627 0.0000 112 0.8706 0.3706 0.0000 113 0.8784 0.3784 0.0000 114 0.8863 0.3863 0.0000 115 0.8941 0.3941 0.0000 116 0.9020 0.4020 0.0000 117 0.9098 0.4098 0.0000 118 0.9176 0.4176 0.0000 119 0.9255 0.4255 0.0000 120 0.9333 0.4333 0.0000 121 0.9412 0.4412 0.0000 122 0.9490 0.4490 0.0000 123 0.9569 0.4569 0.0000 124 0.9647 0.4647 0.0000 125 0.9725 0.4725 0.0000 126 0.9804 0.4804 0.0000 127 0.9882 0.4882 0.0000 128 0.9961 0.4961 0.0000 129 1.0000 0.5039 0.0000 130 1.0000 0.5118 0.0118 131 1.0000 0.5196 0.0196 132 1.0000 0.5275 0.0275 133 1.0000 0.5353 0.0353 134 1.0000 0.5431 0.0431 135 1.0000 0.5510 0.0510 136 1.0000 0.5588 0.0588 137 1.0000 0.5667 0.0667 138 1.0000 0.5745 0.0745 139 1.0000 0.5824 0.0824 140 1.0000 0.5902 0.0902 141 1.0000 0.5980 0.0980 142 1.0000 0.6059 0.1059 143 1.0000 0.6137 0.1137 144 1.0000 0.6216 0.1216 145 1.0000 0.6294 0.1294 146 1.0000 0.6373 0.1373 147 1.0000 0.6451 0.1451 148 1.0000 0.6529 0.1529 149 1.0000 0.6608 0.1608 150 1.0000 0.6686 0.1686 151 1.0000 0.6765 0.1765 152 1.0000 0.6843 0.1843 153 1.0000 0.6922 0.1922 154 1.0000 0.7000 0.2000 155 1.0000 0.7078 0.2078 156 1.0000 0.7157 0.2157 157 1.0000 0.7235 0.2235 158 1.0000 0.7314 0.2314 159 1.0000 0.7392 0.2392 160 1.0000 0.7471 0.2471 161 1.0000 0.7549 0.2549 162 1.0000 0.7627 0.2627 163 1.0000 0.7706 0.2706 164 1.0000 0.7784 0.2784 165 1.0000 0.7863 0.2863 166 1.0000 0.7941 0.2941 167 1.0000 0.8020 0.3020 168 1.0000 0.8098 0.3098 169 1.0000 0.8176 0.3176 170 1.0000 0.8255 0.3255 171 1.0000 0.8333 0.3333 172 1.0000 0.8412 0.3412 173 1.0000 0.8490 0.3490 174 1.0000 0.8569 0.3569 175 1.0000 0.8647 0.3647 176 1.0000 0.8725 0.3725 177 1.0000 0.8804 0.3804 178 1.0000 0.8882 0.3882 179 1.0000 0.8961 0.3961 180 1.0000 0.9039 0.4039 181 1.0000 0.9118 0.4118 182 1.0000 0.9196 0.4196 183 1.0000 0.9275 0.4275 184 1.0000 0.9353 0.4353 185 1.0000 0.9431 0.4431 186 1.0000 0.9510 0.4510 187 1.0000 0.9588 0.4588 188 1.0000 0.9667 0.4667 189 1.0000 0.9745 0.4745 190 1.0000 0.9824 0.4824 191 1.0000 0.9902 0.4902 192 1.0000 0.9980 0.4980 193 1.0000 1.0000 0.5059 194 1.0000 1.0000 0.5137 195 1.0000 1.0000 0.5216 196 1.0000 1.0000 0.5294 197 1.0000 1.0000 0.5373 198 1.0000 1.0000 0.5451 199 1.0000 1.0000 0.5529 200 1.0000 1.0000 0.5608 201 1.0000 1.0000 0.5686 202 1.0000 1.0000 0.5765 203 1.0000 1.0000 0.5843 204 1.0000 1.0000 0.5922 205 1.0000 1.0000 0.6000 206 1.0000 1.0000 0.6078 207 1.0000 1.0000 0.6157 208 1.0000 1.0000 0.6235 209 1.0000 1.0000 0.6314 210 1.0000 1.0000 0.6392 211 1.0000 1.0000 0.6471 212 1.0000 1.0000 0.6549 213 1.0000 1.0000 0.6627 214 1.0000 1.0000 0.6706 215 1.0000 1.0000 0.6784 216 1.0000 1.0000 0.6863 217 1.0000 1.0000 0.6941 218 1.0000 1.0000 0.7020 219 1.0000 1.0000 0.7098 220 1.0000 1.0000 0.7176 221 1.0000 1.0000 0.7255 222 1.0000 1.0000 0.7333 223 1.0000 1.0000 0.7412 224 1.0000 1.0000 0.7490 225 1.0000 1.0000 0.7569 226 1.0000 1.0000 0.7647 227 1.0000 1.0000 0.7725 228 1.0000 1.0000 0.7804 229 1.0000 1.0000 0.7882 230 1.0000 1.0000 0.7961 231 1.0000 1.0000 0.8039 232 1.0000 1.0000 0.8118 233 1.0000 1.0000 0.8196 234 1.0000 1.0000 0.8275 235 1.0000 1.0000 0.8353 236 1.0000 1.0000 0.8431 237 1.0000 1.0000 0.8510 238 1.0000 1.0000 0.8588 239 1.0000 1.0000 0.8667 240 1.0000 1.0000 0.8745 241 1.0000 1.0000 0.8824 242 1.0000 1.0000 0.8902 243 1.0000 1.0000 0.8980 244 1.0000 1.0000 0.9059 245 1.0000 1.0000 0.9137 246 1.0000 1.0000 0.9216 247 1.0000 1.0000 0.9294 248 1.0000 1.0000 0.9373 249 1.0000 1.0000 0.9451 250 1.0000 1.0000 0.9529 251 1.0000 1.0000 0.9608 252 1.0000 1.0000 0.9686 253 1.0000 1.0000 0.9765 254 1.0 0.0 0.0 255 1.0 1.0 0.0 256 0.0 1.000 0.0 ./blue.dat0000664000175000017500000002337012172374464011025 0ustar jtnjtn 0 0.0000 0.0000 0.0000 1 0.0902 0.0902 0.2558 2 0.1176 0.1176 0.2694 3 0.1412 0.1412 0.2820 4 0.1569 0.1569 0.2938 5 0.1725 0.1725 0.3049 6 0.1843 0.1843 0.3154 7 0.1961 0.1961 0.3254 8 0.2039 0.2039 0.3349 9 0.2157 0.2157 0.3440 10 0.2235 0.2235 0.3528 11 0.2314 0.2314 0.3612 12 0.2392 0.2392 0.3693 13 0.2471 0.2471 0.3772 14 0.2549 0.2549 0.3848 15 0.2588 0.2588 0.3921 16 0.2667 0.2667 0.3992 17 0.2706 0.2706 0.4061 18 0.2784 0.2784 0.4129 19 0.2824 0.2824 0.4194 20 0.2902 0.2902 0.4258 21 0.2941 0.2941 0.4319 22 0.2980 0.2980 0.4380 23 0.3059 0.3059 0.4439 24 0.3098 0.3098 0.4496 25 0.3137 0.3137 0.4553 26 0.3176 0.3176 0.4608 27 0.3216 0.3216 0.4661 28 0.3294 0.3294 0.4714 29 0.3333 0.3333 0.4765 30 0.3373 0.3373 0.4815 31 0.3412 0.3412 0.4865 32 0.3451 0.3451 0.4913 33 0.3490 0.3490 0.4960 34 0.3529 0.3529 0.5006 35 0.3569 0.3569 0.5052 36 0.3608 0.3608 0.5096 37 0.3647 0.3647 0.5140 38 0.3686 0.3686 0.5183 39 0.3725 0.3725 0.5225 40 0.3765 0.3765 0.5266 41 0.3804 0.3804 0.5306 42 0.3843 0.3843 0.5346 43 0.3843 0.3843 0.5385 44 0.3882 0.3882 0.5423 45 0.3922 0.3922 0.5460 46 0.3961 0.3961 0.5497 47 0.4000 0.4000 0.5533 48 0.4039 0.4039 0.5569 49 0.4078 0.4078 0.5603 50 0.4118 0.4118 0.5638 51 0.4118 0.4118 0.5671 52 0.4157 0.4157 0.5704 53 0.4196 0.4196 0.5736 54 0.4235 0.4235 0.5768 55 0.4275 0.4275 0.5799 56 0.4314 0.4314 0.5829 57 0.4314 0.4314 0.5859 58 0.4353 0.4353 0.5889 59 0.4392 0.4392 0.5917 60 0.4431 0.4431 0.5946 61 0.4471 0.4471 0.5973 62 0.4471 0.4471 0.6001 63 0.4510 0.4510 0.6027 64 0.4549 0.4549 0.6053 65 0.4588 0.4588 0.6079 66 0.4627 0.4627 0.6104 67 0.4627 0.4627 0.6129 68 0.4667 0.4667 0.6153 69 0.4706 0.4706 0.6176 70 0.4745 0.4745 0.6199 71 0.4745 0.4745 0.6222 72 0.4784 0.4784 0.6244 73 0.4824 0.4824 0.6266 74 0.4863 0.4863 0.6287 75 0.4863 0.4863 0.6308 76 0.4902 0.4902 0.6328 77 0.4941 0.4941 0.6348 78 0.4980 0.4980 0.6367 79 0.5020 0.5020 0.6386 80 0.5020 0.5020 0.6404 81 0.5059 0.5059 0.6422 82 0.5098 0.5098 0.6440 83 0.5098 0.5098 0.6457 84 0.5137 0.5137 0.6474 85 0.5176 0.5176 0.6490 86 0.5216 0.5216 0.6506 87 0.5216 0.5216 0.6521 88 0.5255 0.5255 0.6536 89 0.5294 0.5294 0.6551 90 0.5333 0.5333 0.6565 91 0.5333 0.5333 0.6578 92 0.5373 0.5373 0.6591 93 0.5412 0.5412 0.6604 94 0.5451 0.5451 0.6617 95 0.5451 0.5451 0.6629 96 0.5490 0.5490 0.6640 97 0.5529 0.5529 0.6651 98 0.5569 0.5569 0.6662 99 0.5569 0.5569 0.6672 100 0.5608 0.5608 0.6682 101 0.5647 0.5647 0.6692 102 0.5647 0.5647 0.6701 103 0.5686 0.5686 0.6710 104 0.5725 0.5725 0.6718 105 0.5765 0.5765 0.6726 106 0.5765 0.5765 0.6733 107 0.5804 0.5804 0.6740 108 0.5843 0.5843 0.6747 109 0.5843 0.5843 0.6753 110 0.5882 0.5882 0.6759 111 0.5922 0.5922 0.6765 112 0.5961 0.5961 0.6770 113 0.5961 0.5961 0.6774 114 0.6000 0.6000 0.6779 115 0.6039 0.6039 0.6783 116 0.6039 0.6039 0.6786 117 0.6078 0.6078 0.6789 118 0.6118 0.6118 0.6792 119 0.6157 0.6157 0.6794 120 0.6157 0.6157 0.6796 121 0.6196 0.6196 0.6798 122 0.6235 0.6235 0.6799 123 0.6235 0.6235 0.6800 124 0.6275 0.6275 0.6800 125 0.6314 0.6314 0.6800 126 0.6353 0.6353 0.6799 127 0.6353 0.6353 0.6799 128 0.6392 0.6392 0.6797 129 0.6431 0.6431 0.6796 130 0.6431 0.6431 0.6794 131 0.6471 0.6471 0.6791 132 0.6510 0.6510 0.6789 133 0.6549 0.6549 0.6785 134 0.6549 0.6549 0.6782 135 0.6588 0.6588 0.6778 136 0.6627 0.6627 0.6773 137 0.6627 0.6627 0.6769 138 0.6667 0.6667 0.6763 139 0.6706 0.6706 0.6758 140 0.6745 0.6745 0.6752 141 0.6745 0.6745 0.6746 142 0.6784 0.6784 0.6739 143 0.6824 0.6824 0.6732 144 0.6824 0.6824 0.6724 145 0.6863 0.6863 0.6716 146 0.6902 0.6902 0.6708 147 0.6941 0.6941 0.6699 148 0.6941 0.6941 0.6690 149 0.6980 0.6980 0.6680 150 0.7020 0.7020 0.6670 151 0.7020 0.7020 0.6660 152 0.7059 0.7059 0.6649 153 0.7098 0.7098 0.6638 154 0.7098 0.7098 0.6626 155 0.7137 0.7137 0.6614 156 0.7176 0.7176 0.6601 157 0.7216 0.7216 0.6589 158 0.7216 0.7216 0.6575 159 0.7255 0.7255 0.6561 160 0.7294 0.7294 0.6547 161 0.7294 0.7294 0.6533 162 0.7333 0.7333 0.6518 163 0.7373 0.7373 0.6502 164 0.7412 0.7412 0.6486 165 0.7412 0.7412 0.6470 166 0.7451 0.7451 0.6453 167 0.7490 0.7490 0.6436 168 0.7490 0.7490 0.6418 169 0.7529 0.7529 0.6400 170 0.7569 0.7569 0.6382 171 0.7608 0.7608 0.6363 172 0.7608 0.7608 0.6343 173 0.7647 0.7647 0.6324 174 0.7686 0.7686 0.6303 175 0.7686 0.7686 0.6282 176 0.7725 0.7725 0.6261 177 0.7765 0.7765 0.6239 178 0.7804 0.7804 0.6217 179 0.7804 0.7804 0.6194 180 0.7843 0.7843 0.6171 181 0.7882 0.7882 0.6147 182 0.7882 0.7882 0.6123 183 0.7922 0.7922 0.6098 184 0.7961 0.7961 0.6073 185 0.8000 0.8000 0.6047 186 0.8000 0.8000 0.6021 187 0.8039 0.8039 0.5994 188 0.8078 0.8078 0.5967 189 0.8078 0.8078 0.5939 190 0.8118 0.8118 0.5911 191 0.8157 0.8157 0.5882 192 0.8196 0.8196 0.5853 193 0.8196 0.8196 0.5823 194 0.8235 0.8235 0.5792 195 0.8275 0.8275 0.5761 196 0.8275 0.8275 0.5729 197 0.8314 0.8314 0.5697 198 0.8353 0.8353 0.5664 199 0.8392 0.8392 0.5630 200 0.8392 0.8392 0.5596 201 0.8431 0.8431 0.5561 202 0.8471 0.8471 0.5525 203 0.8471 0.8471 0.5489 204 0.8510 0.8510 0.5452 205 0.8549 0.8549 0.5414 206 0.8588 0.8588 0.5376 207 0.8588 0.8588 0.5337 208 0.8627 0.8627 0.5297 209 0.8667 0.8667 0.5257 210 0.8667 0.8667 0.5215 211 0.8706 0.8706 0.5173 212 0.8745 0.8745 0.5130 213 0.8784 0.8784 0.5086 214 0.8784 0.8784 0.5042 215 0.8824 0.8824 0.4996 216 0.8863 0.8863 0.4950 217 0.8863 0.8863 0.4902 218 0.8902 0.8902 0.4854 219 0.8941 0.8941 0.4804 220 0.8980 0.8980 0.4754 221 0.8980 0.8980 0.4702 222 0.9020 0.9020 0.4649 223 0.9059 0.9059 0.4595 224 0.9098 0.9098 0.4540 225 0.9098 0.9098 0.4484 226 0.9137 0.9137 0.4426 227 0.9176 0.9176 0.4366 228 0.9176 0.9176 0.4306 229 0.9216 0.9216 0.4243 230 0.9255 0.9255 0.4179 231 0.9294 0.9294 0.4114 232 0.9294 0.9294 0.4046 233 0.9333 0.9333 0.3977 234 0.9373 0.9373 0.3905 235 0.9373 0.9373 0.3831 236 0.9412 0.9412 0.3754 237 0.9451 0.9451 0.3675 238 0.9490 0.9490 0.3594 239 0.9490 0.9490 0.3509 240 0.9529 0.9529 0.3420 241 0.9569 0.9569 0.3328 242 0.9608 0.9608 0.3232 243 0.9608 0.9608 0.3131 244 0.9647 0.9647 0.3024 245 0.9686 0.9686 0.2912 246 0.9686 0.9686 0.2792 247 0.9725 0.9725 0.2664 248 0.9765 0.9765 0.2526 249 0.9804 0.9804 0.2375 250 0.9804 0.9804 0.2208 251 0.9843 0.9843 0.2020 252 0.9882 0.9882 0.1800 253 1.0 0.0 0.0 254 1.0 1.0 0.0 255 0.0 1.000 0.0 ./commons.h0000664000175000017500000000172512172374464011230 0ustar jtnjtn#ifndef COMMONS_H #define COMMONS_H //#define NSMAX 1365 #define NSMAX 6827 #define NTMAX 120 extern "C" { extern struct { float ss[184*NSMAX]; //This is "common/jt9com/..." in fortran float savg[NSMAX]; short int d2[NTMAX*12000]; int nutc; //UTC as integer, HHMM int ndiskdat; //1 ==> data read from *.wav file int ntrperiod; //TR period (seconds) int nfqso; //User-selected QSO freq (kHz) int newdat; //1 ==> new data, must do long FFT int npts8; //npts for c0() array int nfa; //Low decode limit (Hz) int nfb; //High decode limit (Hz) int ntol; //+/- decoding range around fQSO (Hz) int kin; int nzhsym; int nsave; int nagain; int ndepth; int ntxmode; int nmode; char datetime[20]; } jt9com_; } #endif // COMMONS_H ./devsetup.cpp0000664000175000017500000004043212172374465011746 0ustar jtnjtn#include "devsetup.h" #include #include #include #define MAXDEVICES 100 extern double dFreq[16]; qint32 g2_iptt; qint32 g2_COMportOpen; //----------------------------------------------------------- DevSetup() DevSetup::DevSetup(QWidget *parent) : QDialog(parent) { ui.setupUi(this); //setup the dialog form m_restartSoundIn=false; m_restartSoundOut=false; m_firstCall=true; g2_iptt=0; m_test=0; m_bRigOpen=false; g2_COMportOpen=0; } DevSetup::~DevSetup() { } void DevSetup::initDlg() { QString m_appDir = QApplication::applicationDirPath(); QString inifile = m_appDir + "/wsjtx.ini"; QSettings settings(inifile, QSettings::IniFormat); settings.beginGroup("Common"); QString catPortDriver = settings.value("CATdriver","None").toString(); settings.endGroup(); int k,id; int numDevices=Pa_GetDeviceCount(); const PaDeviceInfo *pdi; int nchin; int nchout; char pa_device_name[128]; char pa_device_hostapi[128]; k=0; for(id=0; idmaxInputChannels; if(nchin>0) { m_inDevList[k]=id; if (id == m_paInDevice) m_nDevIn = k; k++; sprintf((char*)(pa_device_name),"%s",pdi->name); sprintf((char*)(pa_device_hostapi),"%s", Pa_GetHostApiInfo(pdi->hostApi)->name); #ifdef WIN32 char *p,*p1; char p2[50]; p1=(char*)""; p=strstr(pa_device_hostapi,"MME"); if(p!=NULL) p1=(char*)"MME"; p=strstr(pa_device_hostapi,"Direct"); if(p!=NULL) p1=(char*)"DirectX"; p=strstr(pa_device_hostapi,"WASAPI"); if(p!=NULL) p1=(char*)"WASAPI"; p=strstr(pa_device_hostapi,"ASIO"); if(p!=NULL) p1=(char*)"ASIO"; p=strstr(pa_device_hostapi,"WDM-KS"); if(p!=NULL) p1=(char*)"WDM-KS"; sprintf(p2,"%2d %d %-8s %-39s",id,nchin,p1,pa_device_name); QString t(p2); #else QString t; t.sprintf("%2d %d %-8s %-39s",id,nchin, Pa_GetHostApiInfo(pdi->hostApi)->name,pdi->name); #endif ui.comboBoxSndIn->addItem(t); } } k=0; for(id=0; idmaxOutputChannels; if(nchout>0) { m_outDevList[k]=id; if (id == m_paOutDevice) m_nDevOut = k; k++; sprintf((char*)(pa_device_name),"%s",pdi->name); sprintf((char*)(pa_device_hostapi),"%s", Pa_GetHostApiInfo(pdi->hostApi)->name); #ifdef WIN32 char *p,*p1; char p2[50]; p1=(char*)""; p=strstr(pa_device_hostapi,"MME"); if(p!=NULL) p1=(char*)"MME"; p=strstr(pa_device_hostapi,"Direct"); if(p!=NULL) p1=(char*)"DirectX"; p=strstr(pa_device_hostapi,"WASAPI"); if(p!=NULL) p1=(char*)"WASAPI"; p=strstr(pa_device_hostapi,"ASIO"); if(p!=NULL) p1=(char*)"ASIO"; p=strstr(pa_device_hostapi,"WDM-KS"); if(p!=NULL) p1=(char*)"WDM-KS"; sprintf(p2,"%2d %d %-8s %-39s",id,nchout,p1,pa_device_name); QString t(p2); #else QString t; t.sprintf("%2d %d %-8s %-39s",id,nchout, Pa_GetHostApiInfo(pdi->hostApi)->name,pdi->name); #endif ui.comboBoxSndOut->addItem(t); } } connect(&p4, SIGNAL(readyReadStandardOutput()), this, SLOT(p4ReadFromStdout())); connect(&p4, SIGNAL(readyReadStandardError()), this, SLOT(p4ReadFromStderr())); connect(&p4, SIGNAL(error(QProcess::ProcessError)), this, SLOT(p4Error())); p4.start("rigctl -l"); p4.waitForFinished(1000); ui.rigComboBox->addItem(" 9998 Commander"); ui.rigComboBox->addItem(" 9999 Ham Radio Deluxe"); QPalette pal(ui.myCallEntry->palette()); if(m_myCall=="") { pal.setColor(QPalette::Base,"#ffccff"); } else { pal.setColor(QPalette::Base,Qt::white); } ui.myCallEntry->setPalette(pal); ui.myGridEntry->setPalette(pal); ui.myCallEntry->setText(m_myCall); ui.myGridEntry->setText(m_myGrid); ui.pskReporterAntenna->setText(m_pskAntenna); ui.idIntSpinBox->setValue(m_idInt); ui.pttMethodComboBox->setCurrentIndex(m_pttMethodIndex); ui.saveDirEntry->setText(m_saveDir); ui.comboBoxSndIn->setCurrentIndex(m_nDevIn); ui.comboBoxSndOut->setCurrentIndex(m_nDevOut); ui.cbID73->setChecked(m_After73); ui.cbPSKReporter->setChecked(m_pskReporter); ui.cbSplit->setChecked(m_bSplit and m_catEnabled); ui.cbXIT->setChecked(m_bXIT); ui.cbXIT->setVisible(false); enableWidgets(); ui.rigComboBox->setCurrentIndex(m_rigIndex); ui.catPortComboBox->setCurrentIndex(m_catPortIndex); ui.serialRateComboBox->setCurrentIndex(m_serialRateIndex); ui.dataBitsComboBox->setCurrentIndex(m_dataBitsIndex); ui.stopBitsComboBox->setCurrentIndex(m_stopBitsIndex); ui.handshakeComboBox->setCurrentIndex(m_handshakeIndex); ui.rbData->setChecked(m_pttData); ui.pollSpinBox->setValue(m_poll); // PY2SDR -- Per OS serial port names m_tmp=m_pttPort; ui.pttComboBox->clear(); ui.catPortComboBox->clear(); ui.pttComboBox->addItem("None"); ui.catPortComboBox->addItem("None"); #ifdef WIN32 for ( int i = 1; i < 100; i++ ) { ui.pttComboBox->addItem("COM" + QString::number(i)); ui.catPortComboBox->addItem("COM" + QString::number(i)); } ui.pttComboBox->addItem("USB"); ui.catPortComboBox->addItem("USB"); #else ui.catPortComboBox->addItem("/dev/ttyS0"); ui.catPortComboBox->addItem("/dev/ttyS1"); ui.catPortComboBox->addItem("/dev/ttyS2"); ui.catPortComboBox->addItem("/dev/ttyS3"); ui.catPortComboBox->addItem("/dev/ttyS4"); ui.catPortComboBox->addItem("/dev/ttyS5"); ui.catPortComboBox->addItem("/dev/ttyS6"); ui.catPortComboBox->addItem("/dev/ttyS7"); ui.catPortComboBox->addItem("/dev/ttyUSB0"); ui.catPortComboBox->addItem("/dev/ttyUSB1"); ui.catPortComboBox->addItem("/dev/ttyUSB2"); ui.catPortComboBox->addItem("/dev/ttyUSB3"); ui.catPortComboBox->addItem(catPortDriver); ui.pttComboBox->addItem("/dev/ttyS0"); ui.pttComboBox->addItem("/dev/ttyS1"); ui.pttComboBox->addItem("/dev/ttyS2"); ui.pttComboBox->addItem("/dev/ttyS3"); ui.pttComboBox->addItem("/dev/ttyS4"); ui.pttComboBox->addItem("/dev/ttyS5"); ui.pttComboBox->addItem("/dev/ttyS6"); ui.pttComboBox->addItem("/dev/ttyS7"); ui.pttComboBox->addItem("/dev/ttyUSB0"); ui.pttComboBox->addItem("/dev/ttyUSB1"); ui.pttComboBox->addItem("/dev/ttyUSB2"); ui.pttComboBox->addItem("/dev/ttyUSB3"); #endif ui.pttComboBox->setCurrentIndex(m_tmp); ui.catPortComboBox->setCurrentIndex(m_catPortIndex); int n=m_macro.length(); if(n>=1) ui.macro1->setText(m_macro[0].toUpper()); if(n>=2) ui.macro2->setText(m_macro[1].toUpper()); if(n>=3) ui.macro3->setText(m_macro[2].toUpper()); if(n>=4) ui.macro4->setText(m_macro[3].toUpper()); if(n>=5) ui.macro5->setText(m_macro[4].toUpper()); if(n>=6) ui.macro6->setText(m_macro[5].toUpper()); if(n>=7) ui.macro7->setText(m_macro[6].toUpper()); if(n>=8) ui.macro8->setText(m_macro[7].toUpper()); if(n>=8) ui.macro9->setText(m_macro[8].toUpper()); if(n>=10) ui.macro10->setText(m_macro[9].toUpper()); ui.f1->setText(m_dFreq[0]); ui.f2->setText(m_dFreq[1]); ui.f3->setText(m_dFreq[2]); ui.f4->setText(m_dFreq[3]); ui.f5->setText(m_dFreq[4]); ui.f6->setText(m_dFreq[5]); ui.f7->setText(m_dFreq[6]); ui.f8->setText(m_dFreq[7]); ui.f9->setText(m_dFreq[8]); ui.f10->setText(m_dFreq[9]); ui.f11->setText(m_dFreq[10]); ui.f12->setText(m_dFreq[11]); ui.f13->setText(m_dFreq[12]); ui.f14->setText(m_dFreq[13]); ui.f15->setText(m_dFreq[14]); ui.f16->setText(m_dFreq[15]); } //------------------------------------------------------- accept() void DevSetup::accept() { // Called when OK button is clicked. // Check to see whether SoundInThread must be restarted, // and save user parameters. if(m_nDevIn!=ui.comboBoxSndIn->currentIndex() or m_paInDevice!=m_inDevList[m_nDevIn]) m_restartSoundIn=true; if(m_nDevOut!=ui.comboBoxSndOut->currentIndex() or m_paOutDevice!=m_outDevList[m_nDevOut]) m_restartSoundOut=true; m_myCall=ui.myCallEntry->text(); m_myGrid=ui.myGridEntry->text(); m_pskAntenna=ui.pskReporterAntenna->text(); m_idInt=ui.idIntSpinBox->value(); m_pttMethodIndex=ui.pttMethodComboBox->currentIndex(); m_pttPort=ui.pttComboBox->currentIndex(); m_saveDir=ui.saveDirEntry->text(); m_nDevIn=ui.comboBoxSndIn->currentIndex(); m_paInDevice=m_inDevList[m_nDevIn]; m_nDevOut=ui.comboBoxSndOut->currentIndex(); m_paOutDevice=m_outDevList[m_nDevOut]; m_macro.clear(); m_macro.append(ui.macro1->text()); m_macro.append(ui.macro2->text()); m_macro.append(ui.macro3->text()); m_macro.append(ui.macro4->text()); m_macro.append(ui.macro5->text()); m_macro.append(ui.macro6->text()); m_macro.append(ui.macro7->text()); m_macro.append(ui.macro8->text()); m_macro.append(ui.macro9->text()); m_macro.append(ui.macro10->text()); m_dFreq.clear(); m_dFreq.append(ui.f1->text()); m_dFreq.append(ui.f2->text()); m_dFreq.append(ui.f3->text()); m_dFreq.append(ui.f4->text()); m_dFreq.append(ui.f5->text()); m_dFreq.append(ui.f6->text()); m_dFreq.append(ui.f7->text()); m_dFreq.append(ui.f8->text()); m_dFreq.append(ui.f9->text()); m_dFreq.append(ui.f10->text()); m_dFreq.append(ui.f11->text()); m_dFreq.append(ui.f12->text()); m_dFreq.append(ui.f13->text()); m_dFreq.append(ui.f14->text()); m_dFreq.append(ui.f15->text()); m_dFreq.append(ui.f16->text()); if(m_bRigOpen) { rig->close(); if(m_rig<9900) delete rig; m_bRigOpen=false; } QDialog::accept(); } //------------------------------------------------------- reject() void DevSetup::reject() { if(m_bRigOpen) rig->close(); QDialog::reject(); } void DevSetup::p4ReadFromStdout() //p4readFromStdout { while(p4.canReadLine()) { QString t(p4.readLine()); QString t1,t2,t3; if(t.mid(0,6)!=" Rig #") { t1=t.mid(0,6); t2=t.mid(8,22).trimmed(); t3=t.mid(31,23).trimmed(); t=t1 + " " + t2 + " " + t3; ui.rigComboBox->addItem(t); } } } void DevSetup::p4ReadFromStderr() //p4readFromStderr { QByteArray t=p4.readAllStandardError(); if(t.length()>0) { msgBox(t); } } void DevSetup::p4Error() //p4rror { msgBox("Error running 'rigctl -l'."); } void DevSetup::msgBox(QString t) //msgBox { msgBox0.setText(t); msgBox0.exec(); } void DevSetup::on_myCallEntry_editingFinished() { QString t=ui.myCallEntry->text(); ui.myCallEntry->setText(t.toUpper()); } void DevSetup::on_myGridEntry_editingFinished() { QString t=ui.myGridEntry->text(); t=t.mid(0,4).toUpper()+t.mid(4,2).toLower(); ui.myGridEntry->setText(t); } void DevSetup::on_cbPSKReporter_clicked(bool b) { m_pskReporter=b; ui.label_8->setEnabled(m_pskReporter); ui.pskReporterAntenna->setEnabled(m_pskReporter); } void DevSetup::on_pttMethodComboBox_activated(int index) { m_pttMethodIndex=index; enableWidgets(); } void DevSetup::on_catPortComboBox_activated(int index) { m_catPortIndex=index; m_catPort=ui.catPortComboBox->itemText(index); } void DevSetup::on_cbEnableCAT_toggled(bool b) { m_catEnabled=b; enableWidgets(); ui.cbSplit->setChecked(m_bSplit and m_catEnabled); } void DevSetup::on_serialRateComboBox_activated(int index) { m_serialRateIndex=index; m_serialRate=ui.serialRateComboBox->itemText(index).toInt(); } void DevSetup::on_handshakeComboBox_activated(int index) { m_handshakeIndex=index; m_handshake=ui.handshakeComboBox->itemText(index); } void DevSetup::on_dataBitsComboBox_activated(int index) { m_dataBitsIndex=index; m_dataBits=ui.dataBitsComboBox->itemText(index).toInt(); } void DevSetup::on_stopBitsComboBox_activated(int index) { m_stopBitsIndex=index; m_stopBits=ui.stopBitsComboBox->itemText(index).toInt(); } void DevSetup::on_rigComboBox_activated(int index) { m_rigIndex=index; QString t=ui.rigComboBox->itemText(index); m_rig=t.mid(0,7).toInt(); enableWidgets(); } void DevSetup::on_cbID73_toggled(bool checked) { m_After73=checked; } void DevSetup::on_testCATButton_clicked() { openRig(); if(!m_catEnabled) return; QString t; double fMHz=rig->getFreq(RIG_VFO_CURR)/1000000.0; if(fMHz>0.0) { t.sprintf("Rig control appears to be working.\nDial Frequency: %.6f MHz", fMHz); } else { t.sprintf("Rig control error %d\nFailed to read frequency.", int(1000000.0*fMHz)); if(m_poll>0) { m_catEnabled=false; ui.cbEnableCAT->setChecked(false); } } msgBox(t); } void DevSetup::openRig() { QString t; int ret; if(!m_catEnabled) return; if(m_bRigOpen) { rig->close(); if(m_rig<9900) delete rig; m_bRigOpen=false; } rig = new Rig(); if(m_rig<9900) { if (!rig->init(m_rig)) { msgBox("Rig init failure"); m_catEnabled=false; return; } QString sCATport=m_catPort; #ifdef WIN32 sCATport="\\\\.\\" + m_catPort; //Allow COM ports above 9 #endif rig->setConf("rig_pathname", sCATport.toLatin1().data()); char buf[80]; sprintf(buf,"%d",m_serialRate); rig->setConf("serial_speed",buf); sprintf(buf,"%d",m_dataBits); rig->setConf("data_bits",buf); sprintf(buf,"%d",m_stopBits); rig->setConf("stop_bits",buf); rig->setConf("serial_handshake",m_handshake.toLatin1().data()); if(m_bDTRoff) { rig->setConf("rts_state","OFF"); rig->setConf("dtr_state","OFF"); } } ret=rig->open(m_rig); if(ret==RIG_OK) { m_bRigOpen=true; } else { t="Open rig failed"; msgBox(t); m_catEnabled=false; ui.cbEnableCAT->setChecked(false); return; } } void DevSetup::on_testPTTButton_clicked() { m_test=1-m_test; if(m_pttMethodIndex==1 or m_pttMethodIndex==2) { ptt(m_pttPort,m_test,&g2_iptt,&g2_COMportOpen); } if(m_pttMethodIndex==0 and !m_bRigOpen) { // on_testCATButton_clicked(); openRig(); } if(m_pttMethodIndex==0 and m_bRigOpen) { if(m_test==0) rig->setPTT(RIG_PTT_OFF, RIG_VFO_CURR); if(m_test==1) { if(m_pttData) rig->setPTT(RIG_PTT_ON_DATA, RIG_VFO_CURR); if(!m_pttData) rig->setPTT(RIG_PTT_ON_MIC, RIG_VFO_CURR); } } } void DevSetup::on_cbDTRoff_toggled(bool checked) { m_bDTRoff=checked; } void DevSetup::on_rbData_toggled(bool checked) { m_pttData=checked; } void DevSetup::on_pollSpinBox_valueChanged(int n) { m_poll=n; } void DevSetup::on_pttComboBox_currentIndexChanged(int index) { m_pttPort=index; enableWidgets(); } void DevSetup::on_pttMethodComboBox_currentIndexChanged(int index) { m_pttMethodIndex=index; bool b=m_pttMethodIndex==1 or m_pttMethodIndex==2; ui.pttComboBox->setEnabled(b); } void DevSetup::enableWidgets() { ui.label_8->setEnabled(m_pskReporter); ui.pskReporterAntenna->setEnabled(m_pskReporter); ui.cbEnableCAT->setChecked(m_catEnabled); ui.cbDTRoff->setChecked(m_bDTRoff); ui.rigComboBox->setEnabled(m_catEnabled); ui.testCATButton->setEnabled(m_catEnabled); ui.label_4->setEnabled(m_catEnabled); ui.label_47->setEnabled(m_catEnabled); ui.cbSplit->setEnabled(m_catEnabled); if(m_rig==9999) { //No Split Tx with HRD ui.cbSplit->setChecked(false); ui.cbSplit->setEnabled(false); } ui.cbXIT->setEnabled(m_catEnabled); bool bSerial=m_catEnabled and (m_rig<9900); ui.catPortComboBox->setEnabled(bSerial); ui.serialRateComboBox->setEnabled(bSerial); ui.dataBitsComboBox->setEnabled(bSerial); ui.stopBitsComboBox->setEnabled(bSerial); ui.handshakeComboBox->setEnabled(bSerial); ui.cbDTRoff->setEnabled(bSerial); ui.rbData->setEnabled(bSerial); ui.rbMic->setEnabled(bSerial); ui.label_21->setEnabled(bSerial); ui.label_22->setEnabled(bSerial); ui.label_23->setEnabled(bSerial); ui.label_24->setEnabled(bSerial); ui.label_25->setEnabled(bSerial); ui.pollSpinBox->setEnabled(m_catEnabled); bool b1=(m_pttMethodIndex==1 or m_pttMethodIndex==2); ui.pttComboBox->setEnabled(b1); b1=b1 and (m_pttPort!=0); bool b2 = (m_catEnabled and m_pttMethodIndex==1 and m_rig<9900) or (m_catEnabled and m_pttMethodIndex==2 and m_rig<9900); bool b3 = (m_catEnabled and m_pttMethodIndex==0); ui.testPTTButton->setEnabled(b1 or b2 or b3); //Include PTT via HRD or Commander } void DevSetup::on_cbSplit_toggled(bool checked) { m_bSplit=checked; if(m_bSplit and m_bXIT) ui.cbXIT->setChecked(false); } void DevSetup::on_cbXIT_toggled(bool checked) { m_bXIT=checked; if(m_bSplit and m_bXIT) ui.cbSplit->setChecked(false); } ./devsetup.h0000664000175000017500000000541512172374464011414 0ustar jtnjtn#ifndef DEVSETUP_H #define DEVSETUP_H #include #include #include #include "ui_devsetup.h" #include "rigclass.h" class DevSetup : public QDialog { Q_OBJECT public: DevSetup(QWidget *parent=0); ~DevSetup(); void initDlg(); qint32 m_idInt; qint32 m_pttMethodIndex; qint32 m_pttPort; qint32 m_nDevIn; qint32 m_nDevOut; qint32 m_inDevList[100]; qint32 m_outDevList[100]; qint32 m_paInDevice; qint32 m_paOutDevice; qint32 m_catPortIndex; qint32 m_rig; qint32 m_rigIndex; qint32 m_serialRate; qint32 m_serialRateIndex; qint32 m_dataBits; qint32 m_dataBitsIndex; qint32 m_stopBits; qint32 m_stopBitsIndex; qint32 m_handshakeIndex; qint32 m_test; qint32 m_poll; qint32 m_tmp; bool m_restartSoundIn; bool m_restartSoundOut; bool m_pskReporter; bool m_firstCall; bool m_catEnabled; bool m_After73; bool m_bRigOpen; bool m_bDTRoff; bool m_pttData; bool m_bSplit; bool m_bXIT; QString m_myCall; QString m_myGrid; QString m_saveDir; QString m_azelDir; QString m_catPort; QString m_handshake; QString m_pskAntenna; QStringList m_macro; QStringList m_dFreq; QProcess p4; QMessageBox msgBox0; public slots: void accept(); void reject(); void p4ReadFromStdout(); void p4ReadFromStderr(); void p4Error(); private slots: void on_myCallEntry_editingFinished(); void on_myGridEntry_editingFinished(); void on_cbPSKReporter_clicked(bool checked); void on_pttMethodComboBox_activated(int index); void on_catPortComboBox_activated(int index); void on_cbEnableCAT_toggled(bool checked); void on_serialRateComboBox_activated(int index); void on_handshakeComboBox_activated(int index); void on_dataBitsComboBox_activated(int index); void on_stopBitsComboBox_activated(int index); void on_rigComboBox_activated(int index); void on_cbID73_toggled(bool checked); void on_testCATButton_clicked(); void on_testPTTButton_clicked(); void on_cbDTRoff_toggled(bool checked); void on_rbData_toggled(bool checked); void on_pollSpinBox_valueChanged(int n); void on_pttComboBox_currentIndexChanged(int index); void on_pttMethodComboBox_currentIndexChanged(int index); void on_cbSplit_toggled(bool checked); void on_cbXIT_toggled(bool checked); private: Rig* rig; void msgBox(QString t); void enableWidgets(); void openRig(); Ui::DialogSndCard ui; }; extern int ptt(int nport, int ntx, int* iptt, int* nopen); #ifdef WIN32 extern "C" { bool HRDInterfaceConnect(const wchar_t *host, const ushort); void HRDInterfaceDisconnect(); bool HRDInterfaceIsConnected(); wchar_t* HRDInterfaceSendMessage(const wchar_t *msg); void HRDInterfaceFreeString(const wchar_t *lstring); } #endif #endif // DEVSETUP_H ./devsetup.ui0000664000175000017500000024016212172374464011602 0ustar jtnjtn DialogSndCard 0 0 569 493 569 493 Configuration 0 0 0 Station 0 0 80 20 80 16777215 My Call: 0 0 90 0 90 16777215 Station callsign Qt::Horizontal 40 20 0 0 80 20 80 16777215 My Grid: Qt::AlignRight|Qt::AlignTrailing|Qt::AlignVCenter 0 0 100 0 60 16777215 Maidenhead locator 0 0 80 0 80 16777215 PTT method: 0 0 90 0 90 16777215 Select method for T/R switching 1 CAT DTR RTS VOX Qt::Horizontal 40 20 0 0 80 0 80 16777215 PTT Port: Qt::AlignRight|Qt::AlignTrailing|Qt::AlignVCenter 0 0 100 0 100 16777215 Select port for hardware T/R switching None 0 0 146 0 146 16777215 Send spots to PSK Reporter web site Enable PSK Reporter Qt::Horizontal 40 20 Send CW ID after a message with 73 or free text CW ID after 73 Qt::Horizontal 40 20 0 20 CW ID Interval (min): true 60 16777215 Select CW ID interval (0 for none) 0 10 Antenna for PSK Reporter: Qt::Vertical 20 13 0 0 110 0 100 16777215 Enable computer control of transceiver Enable CAT 0 0 20 0 20 16777215 Rig: 0 0 200 0 Select radio type 0 0 110 0 100 16777215 CAT port: 0 0 100 0 90 16777215 Select port for CAT control 0 None Qt::Horizontal QSizePolicy::Fixed 40 20 RTS/DTR OFF Qt::Horizontal QSizePolicy::Fixed 40 20 0 0 60 0 60 16777215 Data bits: 0 0 50 0 50 16777215 1 7 8 0 0 110 0 100 16777215 Serial rate: 0 0 100 0 90 16777215 1 1200 4800 9600 19200 38400 57600 Qt::Horizontal QSizePolicy::Fixed 40 20 Use special Tx command for "data" Data Use normal Tx command Mic true Qt::Horizontal 40 20 0 0 60 0 60 16777215 Stop bits: 0 0 50 0 50 16777215 1 1 2 0 0 110 0 100 16777215 Handshake: 0 0 100 0 90 16777215 2 None XonXoff Hardware Qt::Horizontal QSizePolicy::Fixed 40 20 Split Tx Qt::Horizontal 40 20 0 0 110 0 100 16777215 Check to see if CAT control is working Test CAT Control 0 0 100 0 90 16777215 Test to see if T/R switching is working Test PTT Qt::Horizontal QSizePolicy::Fixed 40 20 XIT Qt::Horizontal 40 20 0 0 60 0 Polling interval (s): 50 0 Select interval for reading dial frequency 60 Qt::Vertical 20 13 Qt::Horizontal QSizePolicy::Fixed 96 20 0 0 90 0 16777215 16777215 Dev Ch API Name 90 0 90 16777215 Audio In: true Select audio input device and driver API 0 0 90 0 90 16777215 Audio Out: select audio output device and driver API 0 0 90 20 Save Directory: Directory for saved audio files C:\Users\joe\wsjt\map65\save Tx Macros Qt::Vertical 20 40 0 0 20 0 20 16777215 7 0 0 200 0 200 16777215 0 0 200 0 200 16777215 0 0 20 0 20 16777215 3 0 0 200 0 200 16777215 10W DPL 73 GL 0 0 20 0 20 16777215 5 0 0 20 0 20 16777215 8 0 0 20 0 20 16777215 9 0 0 20 0 20 16777215 10 0 0 20 0 20 16777215 6 0 0 20 0 20 16777215 4 0 0 200 0 200 16777215 0 0 200 0 200 16777215 0 0 200 0 200 16777215 0 0 200 0 200 16777215 5W DPL 73 GL 0 0 200 0 200 16777215 Qt::Horizontal 40 20 0 0 20 0 20 16777215 1 0 0 200 0 200 16777215 0 0 20 0 20 16777215 2 0 0 200 0 200 16777215 Qt::Horizontal 40 20 Qt::Vertical 20 40 Default Frequencies Qt::Vertical 20 40 6 m 0 0 90 27 90 16777215 50.293 Qt::AlignCenter Band Freq (MHz) 0 0 90 27 90 16777215 24.9246 Qt::AlignCenter 80 m 15 m 0 0 90 27 90 16777215 21.078 Qt::AlignCenter 10 m 2200 m 12 m 0 0 90 27 90 16777215 28.078 Qt::AlignCenter 0 0 90 27 90 16777215 70.091 Qt::AlignCenter 60 m 40 m 4 m 17 m Band Freq (MHz) 30 m 0 0 90 27 90 16777215 432.178 Qt::AlignCenter 160 m 630 m 20 m Other 0 0 90 27 90 16777215 18.1046 Qt::AlignCenter 0 0 90 27 90 16777215 0.4742 Qt::AlignCenter 2 m 0 0 90 27 90 16777215 144.489 Qt::AlignCenter 0 0 90 27 90 16777215 0.136 Qt::AlignCenter 0 0 90 27 90 16777215 1.838 Qt::AlignCenter 0 0 90 27 90 16777215 5.2872 Qt::AlignCenter 0 0 90 27 90 16777215 3.578 Qt::AlignCenter Qt::Horizontal 40 20 0 0 90 27 90 16777215 10.130 Qt::AlignCenter 0 0 90 27 90 16777215 7.078 Qt::AlignCenter 0 0 90 27 90 16777215 14.078 Qt::AlignCenter Qt::Horizontal 40 20 Qt::Horizontal 40 20 Qt::Vertical 20 40 469 16777215 Qt::Horizontal QDialogButtonBox::Cancel|QDialogButtonBox::Ok myCallEntry myGridEntry pttMethodComboBox pttComboBox cbPSKReporter cbID73 idIntSpinBox pskReporterAntenna cbEnableCAT rigComboBox catPortComboBox dataBitsComboBox serialRateComboBox stopBitsComboBox handshakeComboBox testCATButton testPTTButton pollSpinBox comboBoxSndIn comboBoxSndOut saveDirEntry macro1 macro2 macro3 macro4 macro5 macro6 macro7 macro8 macro9 macro10 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11 f12 f13 f14 f15 f16 buttonBox ioTabWidget buttonBox accepted() DialogSndCard accept() 248 254 157 274 buttonBox rejected() DialogSndCard reject() 316 260 286 274 ./displaytext.cpp0000664000175000017500000000060212172374464012453 0ustar jtnjtn#include "displaytext.h" #include #include DisplayText::DisplayText(QWidget *parent) : QTextBrowser(parent) { } void DisplayText::mouseDoubleClickEvent(QMouseEvent *e) { bool ctrl = (e->modifiers() & Qt::ControlModifier); bool shift = (e->modifiers() & Qt::ShiftModifier); emit(selectCallsign(shift,ctrl)); QTextBrowser::mouseDoubleClickEvent(e); } ./displaytext.h0000664000175000017500000000052212172374464012121 0ustar jtnjtn#ifndef DISPLAYTEXT_H #define DISPLAYTEXT_H #include class DisplayText : public QTextBrowser { Q_OBJECT public: explicit DisplayText(QWidget *parent = 0); signals: void selectCallsign(bool shift, bool ctrl); public slots: protected: void mouseDoubleClickEvent(QMouseEvent *e); }; #endif // DISPLAYTEXT_H ./ffft.f0000664000175000017500000000305212172374465010474 0ustar jtnjtn subroutine ffft(d,npts,isign,ireal) C Fourier transform of length npts=2**k, performed in place. C Input data in array d, treated as complex if ireal=0, and as real if ireal=1. C In either case the transform values are returned in array d, treated as C complex. The DC term is d(1), and d(npts/2+1) is the term at the Nyquist C frequency. The basic algorithm is the same as Norm Brenner's FOUR1, and C uses radix-2 transforms. C J. H. Taylor, Princeton University. complex d(npts),t,w,wstep,tt,uu data pi/3.14159265359/ C Shuffle the data to bit-reversed order. imax=npts/(ireal+1) irev=1 do 5 i=1,imax if(i.ge.irev) go to 2 t=d(i) d(i)=d(irev) d(irev)=t 2 mmax=imax/2 3 if(irev.le.mmax) go to 5 irev=irev-mmax mmax=mmax/2 if(mmax.ge.1) go to 3 5 irev=irev+mmax C The radix-2 transform begins here. api=isign*pi/2. mmax=1 6 istep=2*mmax wstep=cmplx(-2.*sin(api/mmax)**2,sin(2.*api/mmax)) w=1. do 9 m=1,mmax C This in the inner-most loop -- optimization here is important! do 8 i=m,imax,istep t=w*d(i+mmax) d(i+mmax)=d(i)-t 8 d(i)=d(i)+t 9 w=w*(1.+wstep) mmax=istep if(mmax.lt.imax) go to 6 if(ireal.eq.0) return C Now complete the last stage of a doubled-up real transform. jmax=imax/2 + 1 wstep=cmplx(-2.*sin(isign*pi/npts)**2,sin(isign*pi/imax)) w=1.0 d(imax+1)=d(1) do 10 j=1,jmax uu=cmplx(real(d(j))+real(d(2+imax-j)),aimag(d(j)) - + aimag(d(2+imax-j))) tt=w*cmplx(aimag(d(j))+aimag(d(2+imax-j)),-real(d(j)) + + real(d(2+imax-j))) d(j)=uu+tt d(2+imax-j)=conjg(uu-tt) 10 w=w*(1.+wstep) return end ./fftw3.f0000664000175000017500000000413712172374465010605 0ustar jtnjtn INTEGER FFTW_R2HC PARAMETER (FFTW_R2HC=0) INTEGER FFTW_HC2R PARAMETER (FFTW_HC2R=1) INTEGER FFTW_DHT PARAMETER (FFTW_DHT=2) INTEGER FFTW_REDFT00 PARAMETER (FFTW_REDFT00=3) INTEGER FFTW_REDFT01 PARAMETER (FFTW_REDFT01=4) INTEGER FFTW_REDFT10 PARAMETER (FFTW_REDFT10=5) INTEGER FFTW_REDFT11 PARAMETER (FFTW_REDFT11=6) INTEGER FFTW_RODFT00 PARAMETER (FFTW_RODFT00=7) INTEGER FFTW_RODFT01 PARAMETER (FFTW_RODFT01=8) INTEGER FFTW_RODFT10 PARAMETER (FFTW_RODFT10=9) INTEGER FFTW_RODFT11 PARAMETER (FFTW_RODFT11=10) INTEGER FFTW_FORWARD PARAMETER (FFTW_FORWARD=-1) INTEGER FFTW_BACKWARD PARAMETER (FFTW_BACKWARD=+1) INTEGER FFTW_MEASURE PARAMETER (FFTW_MEASURE=0) INTEGER FFTW_DESTROY_INPUT PARAMETER (FFTW_DESTROY_INPUT=1) INTEGER FFTW_UNALIGNED PARAMETER (FFTW_UNALIGNED=2) INTEGER FFTW_CONSERVE_MEMORY PARAMETER (FFTW_CONSERVE_MEMORY=4) INTEGER FFTW_EXHAUSTIVE PARAMETER (FFTW_EXHAUSTIVE=8) INTEGER FFTW_PRESERVE_INPUT PARAMETER (FFTW_PRESERVE_INPUT=16) INTEGER FFTW_PATIENT PARAMETER (FFTW_PATIENT=32) INTEGER FFTW_ESTIMATE PARAMETER (FFTW_ESTIMATE=64) INTEGER FFTW_ESTIMATE_PATIENT PARAMETER (FFTW_ESTIMATE_PATIENT=128) INTEGER FFTW_BELIEVE_PCOST PARAMETER (FFTW_BELIEVE_PCOST=256) INTEGER FFTW_DFT_R2HC_ICKY PARAMETER (FFTW_DFT_R2HC_ICKY=512) INTEGER FFTW_NONTHREADED_ICKY PARAMETER (FFTW_NONTHREADED_ICKY=1024) INTEGER FFTW_NO_BUFFERING PARAMETER (FFTW_NO_BUFFERING=2048) INTEGER FFTW_NO_INDIRECT_OP PARAMETER (FFTW_NO_INDIRECT_OP=4096) INTEGER FFTW_ALLOW_LARGE_GENERIC PARAMETER (FFTW_ALLOW_LARGE_GENERIC=8192) INTEGER FFTW_NO_RANK_SPLITS PARAMETER (FFTW_NO_RANK_SPLITS=16384) INTEGER FFTW_NO_VRANK_SPLITS PARAMETER (FFTW_NO_VRANK_SPLITS=32768) INTEGER FFTW_NO_VRECURSE PARAMETER (FFTW_NO_VRECURSE=65536) INTEGER FFTW_NO_SIMD PARAMETER (FFTW_NO_SIMD=131072) ./getdev.cpp0000664000175000017500000001754612172374465011377 0ustar jtnjtn#include #define MAXDEVICES 100 #include #include #include //------------------------------------------------------- pa_get_device_info int pa_get_device_info (int n, void *pa_device_name, void *pa_device_hostapi, double *pa_device_max_speed, double *pa_device_min_speed, int *pa_device_max_bytes, int *pa_device_min_bytes, int *pa_device_max_channels, int *pa_device_min_channels ) { (void) n ; (void) pa_device_name; (void) pa_device_hostapi; (void) pa_device_max_speed; (void) pa_device_min_speed; (void) pa_device_max_bytes; (void) pa_device_min_bytes; (void) pa_device_max_channels; (void) pa_device_min_channels; const PaDeviceInfo *deviceInfo; PaError pa_err; PaStreamParameters inputParameters; int i,j, speed_warning; int minBytes, maxBytes; double maxStandardSampleRate; double minStandardSampleRate; int minInputChannels; int maxInputChannels; // negative terminated list static double standardSampleRates[] = {8000.0, 9600.0, 11025.0, 12000.0, 16000.0, 22050.0, 24000.0, 32000.0, 44100.0, 48000.0, 88200.0, 96000.0, 192000.0, -1}; // ******************************************************* *pa_device_max_speed=0; *pa_device_min_speed=0; *pa_device_max_bytes=0; *pa_device_min_bytes=0; *pa_device_max_channels=0; *pa_device_min_channels=0; minInputChannels=0; if(n >= Pa_GetDeviceCount() ) return -1; deviceInfo = Pa_GetDeviceInfo(n); if (deviceInfo->maxInputChannels==0) return -1; sprintf((char*)(pa_device_name),"%s",deviceInfo->name); sprintf((char*)(pa_device_hostapi),"%s", Pa_GetHostApiInfo( deviceInfo->hostApi )->name); speed_warning=0; // bypass bug in Juli@ ASIO driver: // this driver hangs after a Pa_IsFormatSupported call i = strncmp(deviceInfo->name, "ASIO 2.0 - ESI Juli@", 19); if (i == 0) { minStandardSampleRate=44100; maxStandardSampleRate=192000; minBytes=1; maxBytes=4; maxInputChannels= deviceInfo->maxInputChannels; minInputChannels= 1; goto end_pa_get_device_info; } // Investigate device capabilities. // Check min and max samplerates with 16 bit data. maxStandardSampleRate=0; minStandardSampleRate=0; inputParameters.device = n; inputParameters.channelCount = deviceInfo->maxInputChannels; inputParameters.sampleFormat = paInt16; inputParameters.suggestedLatency = 0; inputParameters.hostApiSpecificStreamInfo = NULL; // ************************************************************************ //filter for portaudio Windows hostapi's with non experts. //only allow ASIO or WASAPI or WDM-KS i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name, "ASIO", 4); if (i==0 ) goto end_filter_hostapi; i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name, "Windows WASAPI", 14); if (i==0 ) goto end_filter_hostapi; i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name, "Windows WDM-KS", 14); if (i==0 ) goto end_filter_hostapi; speed_warning=1; end_filter_hostapi:; // ************************************************************************ i=0; while(standardSampleRates[i] > 0 && minStandardSampleRate==0) { pa_err=Pa_IsFormatSupported(&inputParameters, NULL, standardSampleRates[i] ); if(pa_err == paDeviceUnavailable) return -1; if(pa_err == paInvalidDevice) return -1; if(pa_err == paFormatIsSupported ) { minStandardSampleRate=standardSampleRates[i]; } i++; } if(minStandardSampleRate == 0) return -1; j=i; while(standardSampleRates[i] > 0 ) i++; i--; while(i >= j && maxStandardSampleRate==0) { pa_err=Pa_IsFormatSupported(&inputParameters, NULL, standardSampleRates[i] ); if(pa_err == paDeviceUnavailable) return -1; if(pa_err == paInvalidDevice) return -1; if( pa_err == paFormatIsSupported ) { maxStandardSampleRate=standardSampleRates[i]; } i--; } // check if min SampleRate = max SampleRate if(maxStandardSampleRate==0 && (minStandardSampleRate != 0)) { maxStandardSampleRate= minStandardSampleRate; } // check min and max bytes minBytes=2; maxBytes=2; inputParameters.sampleFormat = paUInt8; pa_err=Pa_IsFormatSupported(&inputParameters, NULL, maxStandardSampleRate ); if( pa_err == paFormatIsSupported ) { minBytes=1; } inputParameters.sampleFormat = paInt32; pa_err=Pa_IsFormatSupported(&inputParameters, NULL, maxStandardSampleRate ); if( pa_err == paFormatIsSupported ) { maxBytes=4; } // check min channel count maxInputChannels= deviceInfo->maxInputChannels; inputParameters.channelCount = 1; inputParameters.sampleFormat = paInt16; pa_err=paFormatIsSupported+32000; while(pa_err != paFormatIsSupported && ( inputParameters.channelCount < (maxInputChannels+1)) ) { pa_err=Pa_IsFormatSupported(&inputParameters, NULL, maxStandardSampleRate ); inputParameters.channelCount++; } if( pa_err == paFormatIsSupported ) { minInputChannels=inputParameters.channelCount-1; } else { return -1; } end_pa_get_device_info:; *pa_device_max_speed=maxStandardSampleRate; *pa_device_min_speed=minStandardSampleRate; *pa_device_max_bytes=maxBytes; *pa_device_min_bytes=minBytes; *pa_device_max_channels= maxInputChannels; *pa_device_min_channels= minInputChannels; return speed_warning; } void paInputDevice(int id, char* hostAPI_DeviceName, int* minChan, int* maxChan, int* minSpeed, int* maxSpeed) { int i; char pa_device_name[128]; char pa_device_hostapi[128]; double pa_device_max_speed; double pa_device_min_speed; int pa_device_max_bytes; int pa_device_min_bytes; int pa_device_max_channels; int pa_device_min_channels; char p2[50]; char *p,*p1; static int iret, valid_dev_cnt; iret=pa_get_device_info (id, &pa_device_name, &pa_device_hostapi, &pa_device_max_speed, &pa_device_min_speed, &pa_device_max_bytes, &pa_device_min_bytes, &pa_device_max_channels, &pa_device_min_channels); if (iret >= 0 ) { valid_dev_cnt++; p1=(char*)""; p=strstr(pa_device_hostapi,"MME"); if(p!=NULL) p1=(char*)"MME"; p=strstr(pa_device_hostapi,"Direct"); if(p!=NULL) p1=(char*)"DirectX"; p=strstr(pa_device_hostapi,"WASAPI"); if(p!=NULL) p1=(char*)"WASAPI"; p=strstr(pa_device_hostapi,"ASIO"); if(p!=NULL) p1=(char*)"ASIO"; p=strstr(pa_device_hostapi,"WDM-KS"); if(p!=NULL) p1=(char*)"WDM-KS"; sprintf(p2,"%-8s %-39s",p1,pa_device_name); for(i=0; i<50; i++) { hostAPI_DeviceName[i]=p2[i]; if(p2[i]==0) break; } *minChan=pa_device_min_channels; *maxChan=pa_device_max_channels; *minSpeed=(int)pa_device_min_speed; *maxSpeed=(int)pa_device_max_speed; } else { for(i=0; i<50; i++) { hostAPI_DeviceName[i]=0; } *minChan=0; *maxChan=0; *minSpeed=0; *maxSpeed=0; } } void getDev(int* numDevices0, char hostAPI_DeviceName[][50], int minChan[], int maxChan[], int minSpeed[], int maxSpeed[]) { int i,id,numDevices; int minch,maxch,minsp,maxsp; char apidev[256]; numDevices=Pa_GetDeviceCount(); *numDevices0=numDevices; for(id=0; id #include #include #ifdef WIN32 #include #else #include #include #include #include #include #include #include #include #endif void getfile(QString fname, int ntrperiod) { char name[80]; strcpy(name,fname.toLatin1()); FILE* fp=fopen(name,"rb"); int i0=fname.indexOf(".wav"); jt9com_.nutc=0; if(i0>0) jt9com_.nutc=100*fname.mid(i0-4,2).toInt() + fname.mid(i0-2,2).toInt(); int npts=ntrperiod*12000; memset(jt9com_.d2,0,2*npts); if(fp != NULL) { // Read (and ignore) a 44-byte WAV header; then read data int n=fread(jt9com_.d2,1,44,fp); n=fread(jt9com_.d2,2,npts,fp); fclose(fp); jt9com_.newdat=1; if(n==-99999) jt9com_.newdat=2; //Silence compiler warning } } void savewav(QString fname, int ntrperiod) { struct { char ariff[4]; //ChunkID: "RIFF" int nchunk; //ChunkSize: 36+SubChunk2Size char awave[4]; //Format: "WAVE" char afmt[4]; //Subchunk1ID: "fmt " int lenfmt; //Subchunk1Size: 16 short int nfmt2; //AudioFormat: 1 short int nchan2; //NumChannels: 1 int nsamrate; //SampleRate: 12000 int nbytesec; //ByteRate: SampleRate*NumChannels*BitsPerSample/8 short int nbytesam2; //BlockAlign: NumChannels*BitsPerSample/8 short int nbitsam2; //BitsPerSample: 16 char adata[4]; //Subchunk2ID: "data" int ndata; //Subchunk2Size: numSamples*NumChannels*BitsPerSample/8 } hdr; int npts=ntrperiod*12000; // qint16* buf=(qint16*)malloc(2*npts); char name[80]; strcpy(name,fname.toLatin1()); FILE* fp=fopen(name,"wb"); if(fp != NULL) { // Write a WAV header hdr.ariff[0]='R'; hdr.ariff[1]='I'; hdr.ariff[2]='F'; hdr.ariff[3]='F'; hdr.nchunk=36 + 2*npts; hdr.awave[0]='W'; hdr.awave[1]='A'; hdr.awave[2]='V'; hdr.awave[3]='E'; hdr.afmt[0]='f'; hdr.afmt[1]='m'; hdr.afmt[2]='t'; hdr.afmt[3]=' '; hdr.lenfmt=16; hdr.nfmt2=1; hdr.nchan2=1; hdr.nsamrate=12000; hdr.nbytesec=2*12000; hdr.nbytesam2=2; hdr.nbitsam2=16; hdr.adata[0]='d'; hdr.adata[1]='a'; hdr.adata[2]='t'; hdr.adata[3]='a'; hdr.ndata=2*npts; fwrite(&hdr,sizeof(hdr),1,fp); // memcpy(jt9com_.d2,buf,2*npts); // fwrite(buf,2,npts,fp); fwrite(jt9com_.d2,2,npts,fp); fclose(fp); } // free(buf); } //#define MAX_RANDOM 0x7fffffff /* Generate gaussian random float with mean=0 and std_dev=1 */ float gran() { float fac,rsq,v1,v2; static float gset; static int iset; if(iset){ /* Already got one */ iset = 0; return gset; } /* Generate two evenly distributed numbers between -1 and +1 * that are inside the unit circle */ do { v1 = 2.0 * (float)rand() / RAND_MAX - 1; v2 = 2.0 * (float)rand() / RAND_MAX - 1; rsq = v1*v1 + v2*v2; } while(rsq >= 1.0 || rsq == 0.0); fac = sqrt(-2.0*log(rsq)/rsq); gset = v1*fac; iset++; return v2*fac; } int ptt(int nport, int ntx, int* iptt, int* nopen) { #ifdef WIN32 static HANDLE hFile; char s[10]; int i3=1,i4=1,i5=1,i6=1,i9=1,i00=1; //Defs to silence compiler warning if(nport==0) { *iptt=ntx; return 0; } if(ntx && (!(*nopen))) { sprintf(s,"\\\\.\\COM%d",nport); hFile=CreateFile(TEXT(s),GENERIC_WRITE,0,NULL,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,NULL); if(hFile==INVALID_HANDLE_VALUE) { QString t; t.sprintf("Cannot open COM port %d for PTT\n",nport); return 1; } *nopen=1; } if(ntx && *nopen) { i3=EscapeCommFunction(hFile,SETRTS); i5=EscapeCommFunction(hFile,SETDTR); *iptt=1; } else { i4=EscapeCommFunction(hFile,CLRRTS); i6=EscapeCommFunction(hFile,CLRDTR); i9=EscapeCommFunction(hFile,CLRBREAK); i00=CloseHandle(hFile); *iptt=0; *nopen=0; } if((i3+i4+i5+i6+i9+i00)==-999) return 1; //Silence compiler warning return 0; #else int control=TIOCM_RTS | TIOCM_DTR; // int control = TIOCM_RTS; static int fd; if(*nopen==0) { fd=open("/dev/ttyUSB0",O_RDWR | O_NONBLOCK); if(fd<0) { return -1; } *nopen=1; } if(ntx) { ioctl(fd, TIOCMBIS, &control); *iptt=1; *nopen=1; } else { ioctl(fd, TIOCMBIC, &control); close(fd); *iptt=0; *nopen=0; } return 0; #endif if((nport+ntx+(*iptt)==-99999)) *nopen=0; //Silence compiler warning return 0; } ./getfile.h0000664000175000017500000000054512172374464011173 0ustar jtnjtn#ifndef GETFILE_H #define GETFILE_H #include #include #include #include "commons.h" void getfile(QString fname, int ntrperiod); float gran(); //int ptt(int* nport, int* ntx, int* iptt); int ptt(int nport, int ntx, int* iptt, int* nopen); extern "C" { int ptt_(int nport, int ntx, int* iptt, int* nopen); } #endif // GETFILE_H ./in.dat0000664000175000017500000000200012172374464010467 0ustar jtnjtn 35 36 22 8 31 11 14 55 20 36 55 13 24 15 56 38 16 28 61 58 15 26 45 8 41 53 37 57 59 60 29 29 41 46 44 35 52 61 24 26 16 20 53 35 2 6 9 27 47 28 57 6 15 9 16 10 56 9 63 46 9 15 3 74 61 44 233 29 245 254 64 119 64 250 111 38 145 53 29 140 194 119 99 55 86 48 110 142 95 48 120 61 66 252 252 245 88 62 41 124 249 246 68 250 249 65 64 140 142 88 190 237 90 240 52 79 216 55 31 112 135 66 44 99 57 68 54 61 26 5 13 60 3 56 30 58 57 4 16 43 28 43 6 61 13 19 56 8 4 9 45 32 9 7 14 52 4 38 40 27 3 26 51 54 40 29 36 63 34 43 3 48 36 49 46 30 8 20 40 59 29 28 17 11 8 19 11 63 5 38 25 35 8 28 0 0 60 60 25 0 31 28 52 14 24 9 30 18 54 49 55 48 15 27 54 26 22 30 27 1 1 4 31 35 29 23 2 2 27 0 1 25 32 21 84 28 19 5 60 2 27 15 9 39 23 42 12 29 17 16 50 49 ./jt9.txt0000664000175000017500000000664312172374465010660 0ustar jtnjtnJT9 is a mode designed for amateur QSOs at MF and LF. The mode uses the same 72-bit structured messages as JT65. Error control coding (ECC) uses a strong convolutional code with constraint length K=32, rate r=1/2, and a zero tail, leading to an encoded message length of (72+31)*2 = 206 information-carrying bits. Modulation is 9-FSK: 8 tones for data, one for synchronization. Sixteen symbol intervals are used for synchronization, so a transmission requires a total of 207/3 + 16 = 85 channel symbols. Symbol durations tsym are approximately (TRperiod-8)/85, where TRperiod is the T/R sequence length in seconds. Exact symbol lengths are chosen so that nsps, the number of samples per symbol (at 12000 samples per second) is a number with no prime factor greater than 7. This choice makes for efficient FFTs. Tone spacing of the 9-FSK modulation is df=1/tsym=12000/nsps, equal to the keying rate. The total occupied bandwidth is 9*df. The generated signal has continuous phase, and there are no key clicks. Parameters of five JT9 sub-modes are summarized in the following table, along with S/N thresholds measured by simulation on an AWGN channel. Numbers following "JT9-" in the sub-mode names specify the T/R sequence length in minutes. -------------------------------------------------------------------------- Mode nsps nsps2 df tsym BW S/N* Tdec Tfree Factors 12000 1500 (Hz) (s) (Hz) (dB) (s) (s) of nsps nfft3 -------------------------------------------------------------------------- JT9-1 6912 864 1.736 0.58 15.6 -26.9 52.5 7.5 2^8 3^3 2048 JT9-2 15360 1920 0.781 1.28 7.0 -30.2 112.3 7.7 2^10 3 5 2048 JT9-5 40960 5120 0.293 3.41 2.6 -34.4 293.6 6.4 2^13 5 6144 JT9-10 82944 10368 0.145 6.91 1.3 -37.5 591.0 9.0 2^10 3^4 12288 JT9-30 252000 31500 0.048 21.00 0.4 -42.3 1788.5 11.5 2^5 3^2 5^3 7 32768 -------------------------------------------------------------------------- * Noise power measured in a 2500 Hz bandwidth. NB: nfft3 might be doubled and used with a sin^2 window. Transmitting ------------ 1. Source encode the structured message to 72 bits 2. Apply convolutional ECC (K=32, r=1/2) to yield (72+31)*2 = 206 bits 3. Interleave to scramble the bit order 4. Assemble 3-bit groups to make (206+1)/3 = 69 symbols 5. Gray-code the symbol values 6. Insert 16 sync symbols ==> 69+16=85 channel symbols, values 0-8 Receiving --------- 1. Apply noise blanking with the timf2 method 2. Filter to 1000 Hz bandwidth and downsample (1/8) to 1500 Hz, saving complex data to array c0(2,700,000). 3. Compute spectra at half-symbol steps. Use for waterfall display s(22000) and save in ss(184,22000) and savg(22000) for detecting sync vectors. 4. At time Tdec, find sync vectors in ss(); get approx DF or list of DFs 5. Do full-length FFT, NFFT1=96*nsps2, zero-padded as required. 6. For each candidate signal, do inverse FFT of length 1536 (or 3072?). This yields 16 complex samples per symbol; sync tone should be close to zero frequency. 7. Use afc65b method to get improved values of DF, DT. 8. Tweak freq and time offset to 0. 9. Compute 8-bin spectra of 69 data symbols: ssym(0:7,69). Re-order the bins to remove Gray code. 10. Compute soft symbols for 206 bits (bit 207 is always 0). 11. Remove interleaving 12. Pack bits into bytes, send to Fano decoder 13. If Fano succeeds, remove source encoding and display user message. ./killbyname.cpp0000664000175000017500000002332312172374465012236 0ustar jtnjtn#include #include #include int killbyname(const char *szToTerminate) // Created: 6/23/2000 (Ravi Kochhar) // Last modified: 3/10/2002 (RK) // Please report any problems or bugs to kochhar@physiology.wisc.edu // The latest version of this routine can be found at: // http://www.neurophys.wisc.edu/ravi/software/killproc/ // Terminate the process "szToTerminate" if it is currently running // This works for Win/95/98/ME and also Win/NT/2000/XP // The process name is case-insensitive, i.e. "notepad.exe" and "NOTEPAD.EXE" // will both work (for szToTerminate) // Return codes are as follows: // 0 = Process was successfully terminated // 602 = Unable to terminate process for some other reason // 603 = Process was not currently running // 604 = No permission to terminate process // 605 = Unable to load PSAPI.DLL // 606 = Unable to identify system type // 607 = Unsupported OS // 632 = Invalid process name // 700 = Unable to get procedure address from PSAPI.DLL // 701 = Unable to get process list, EnumProcesses failed // 702 = Unable to load KERNEL32.DLL // 703 = Unable to get procedure address from KERNEL32.DLL // 704 = CreateToolhelp32Snapshot failed { BOOL bResult,bResultm; DWORD aiPID[1000],iCb=1000,iNumProc; //,iV2000=0; DWORD iCbneeded,i,iFound=0; char szName[MAX_PATH],szToTermUpper[MAX_PATH]; HANDLE hProc,hSnapShot,hSnapShotm; OSVERSIONINFO osvi; HINSTANCE hInstLib; // int iLen,iLenP,indx; int iLenP,indx; HMODULE hMod; PROCESSENTRY32 procentry; MODULEENTRY32 modentry; // Transfer Process name into "szToTermUpper" and convert to upper case iLenP=strlen(szToTerminate); if(iLenP<1 || iLenP>MAX_PATH) return 632; for(indx=0;indx #include /* Generate gaussian random float with mean=0 and std_dev=1 */ float gran_() { float fac,rsq,v1,v2; static float gset; static int iset; if(iset){ /* Already got one */ iset = 0; return gset; } /* Generate two evenly distributed numbers between -1 and +1 * that are inside the unit circle */ do { v1 = 2.0 * (float)rand() / RAND_MAX - 1; v2 = 2.0 * (float)rand() / RAND_MAX - 1; rsq = v1*v1 + v2*v2; } while(rsq >= 1.0 || rsq == 0.0); fac = sqrt(-2.0*log(rsq)/rsq); gset = v1*fac; iset++; return v2*fac; } ./lib/grid2n.f900000664000175000017500000000026512172374464011655 0ustar jtnjtnsubroutine grid2n(grid,n) character*4 grid i1=ichar(grid(1:1))-ichar('A') i2=ichar(grid(3:3))-ichar('0') i=10*i1 + i2 n=-i - 31 return end subroutine grid2n ./lib/ss.bat0000664000175000017500000000003212172374464011255 0ustar jtnjtnsvn status | grep -v '?' ./lib/grid2k.f900000664000175000017500000000031112172374464011642 0ustar jtnjtnsubroutine grid2k(grid,k) character*6 grid call grid2deg(grid,xlong,xlat) nlong=nint(xlong) nlat=nint(xlat) k=0 if(nlat.ge.85) k=5*(nlong+179)/2 + nlat-84 return end subroutine grid2k ./lib/timeval.h0000664000175000017500000000267412172374464011770 0ustar jtnjtn/* * timeval.h 1.0 01/12/19 * * Defines gettimeofday, timeval, etc. for Win32 * * By Wu Yongwei * */ #ifndef _TIMEVAL_H #define _TIMEVAL_H #ifdef _WIN32 #define WIN32_LEAN_AND_MEAN #include #include #ifndef __GNUC__ #define EPOCHFILETIME (116444736000000000i64) #else #define EPOCHFILETIME (116444736000000000LL) #endif //struct timeval { // long tv_sec; /* seconds */ // long tv_usec; /* microseconds */ //}; struct timezone { int tz_minuteswest; /* minutes W of Greenwich */ int tz_dsttime; /* type of dst correction */ }; __inline int gettimeofday(struct timeval *tv, struct timezone *tz) { FILETIME ft; LARGE_INTEGER li; __int64 t; static int tzflag; if (tv) { GetSystemTimeAsFileTime(&ft); li.LowPart = ft.dwLowDateTime; li.HighPart = ft.dwHighDateTime; t = li.QuadPart; /* In 100-nanosecond intervals */ t -= EPOCHFILETIME; /* Offset to the Epoch time */ t /= 10; /* In microseconds */ tv->tv_sec = (long)(t / 1000000); tv->tv_usec = (long)(t % 1000000); } if (tz) { if (!tzflag) { _tzset(); tzflag++; } tz->tz_minuteswest = _timezone / 60; tz->tz_dsttime = _daylight; } return 0; } #else /* _WIN32 */ #include #endif /* _WIN32 */ #endif /* _TIMEVAL_H */ ./lib/chkss2.f900000664000175000017500000000070212172374464011661 0ustar jtnjtnsubroutine chkss2(ss2,freq,drift,schk) real ss2(0:8,85) real s(0:8,85) real s1(0:5) include 'jt9sync.f90' ave=sum(ss2)/(9*85) if(freq+drift.eq.-999999.0) ave=0. !To silence compiler warning s=ss2/ave-1.0 ! call zplot9(s,freq,drift) s1=0. do lag=0,5 do i=1,16 j=ii(i)+lag if(j.le.85) s1(lag)=s1(lag) + s(0,j) enddo enddo schk=s1(0)/16.0 return end subroutine chkss2 ./lib/decoder.f900000664000175000017500000001125212172374464012073 0ustar jtnjtnsubroutine decoder(ss,id2) ! Decoder for JT9. include 'constants.f90' real ss(184,NSMAX) character*22 msg character*20 datetime real*4 ccfred(NSMAX) real*4 red2(NSMAX) logical ccfok(NSMAX) logical done(NSMAX) logical done65 integer*2 id2(NTMAX*12000) real*4 dd(NTMAX*12000) integer*1 i1SoftSymbols(207) common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol, & kin,nzhsym,nsave,nagain,ndepth,ntxmode,nmode,datetime common/tracer/limtrace,lu save call system_clock(iclock0,iclock_rate,iclock_max) !### nfreqs0=0 nfreqs1=0 ndecodes0=0 ndecodes1=0 open(13,file='decoded.txt',status='unknown') open(22,file='kvasd.dat',access='direct',recl=1024,status='unknown') npts65=52*12000 ntol65=20 done65=.false. if(nmode.ge.65 .and. ntxmode.eq.65) then if(newdat.ne.0) dd(1:npts65)=id2(1:npts65) call jt65a(dd,npts65,newdat,nutc,nfa,nfqso,ntol65,nagain,ndecoded) done65=.true. endif if(nmode.eq.65) go to 800 nsynced=0 ndecoded=0 nsps=0 nsps=6912 !Params for JT9-1 df3=1500.0/2048.0 tstep=0.5*nsps/12000.0 !Half-symbol step (seconds) done=.false. nf0=0 ia=max(1,nint((nfa-nf0)/df3)) ib=min(NSMAX,nint((nfb-nf0)/df3)) lag1=-(2.5/tstep + 0.9999) lag2=5.0/tstep + 0.9999 if(newdat.ne.0) then call timer('sync9 ',0) call sync9(ss,nzhsym,lag1,lag2,ia,ib,ccfred,red2,ipk) call timer('sync9 ',1) endif nsps8=nsps/8 df8=1500.0/nsps8 dblim=db(864.0/nsps8) - 26.2 do nqd=1,0,-1 limit=1000 ccflim=4.0 red2lim=1.6 schklim=2.2 if(ndepth.eq.2) then limit=10000 ccflim=3.5 endif if(ndepth.ge.3 .or. nqd.eq.1) then limit=100000 ccflim=2.5 endif ccfok=.false. if(nqd.eq.1) then nfa1=nfqso-ntol nfb1=nfqso+ntol ia=max(1,nint((nfa1-nf0)/df3)) ib=min(NSMAX,nint((nfb1-nf0)/df3)) ccfok(ia:ib)=(ccfred(ia:ib).gt.(ccflim-2.0)) .and. & (red2(ia:ib).gt.(red2lim-1.0)) ia1=ia ib1=ib else nfa1=nfa nfb1=nfb ia=max(1,nint((nfa1-nf0)/df3)) ib=min(NSMAX,nint((nfb1-nf0)/df3)) do i=ia,ib ccfok(i)=ccfred(i).gt.ccflim .and. red2(i).gt.red2lim enddo ccfok(ia1:ib1)=.false. endif fgood=0. do i=ia,ib if(done(i) .or. (.not.ccfok(i))) cycle f=(i-1)*df3 if(nqd.eq.1 .or. & (ccfred(i).ge.ccflim .and. abs(f-fgood).gt.10.0*df8)) then if(nqd.eq.0) nfreqs0=nfreqs0+1 if(nqd.eq.1) nfreqs1=nfreqs1+1 call timer('softsym ',0) fpk=nf0 + df3*(i-1) call softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, & freq,drift,schk,i1SoftSymbols) call timer('softsym ',1) ! write(71,3001) nqd,i,f,fpk,ccfred(i),red2(i),schk !3001 format(2i6,2f8.1,3f6.1) ! call flush(71) if(schk.lt.schklim) cycle call timer('decode9 ',0) call decode9(i1SoftSymbols,limit,nlim,msg) call timer('decode9 ',1) sync=(syncpk+1)/4.0 if(sync.lt.0.0 .or. snrdb.lt.dblim-2.0) sync=0.0 nsync=sync if(nsync.gt.10) nsync=10 nsnr=nint(snrdb) ndrift=nint(drift/df3) if(msg.ne.' ') then if(nqd.eq.0) ndecodes0=ndecodes0+1 if(nqd.eq.1) ndecodes1=ndecodes1+1 write(*,1000) nutc,nsnr,xdt,nint(freq),msg 1000 format(i4.4,i4,f5.1,i5,1x,'@',1x,a22) write(13,1002) nutc,nsync,nsnr,xdt,freq,ndrift,msg 1002 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT9') iaa=max(1,i-1) ibb=min(NSMAX,i+22) fgood=f nsynced=1 ndecoded=1 ccfok(iaa:ibb)=.false. done(iaa:ibb)=.true. call flush(6) endif endif enddo call flush(6) if(nagain.ne.0) exit enddo if(nmode.ge.65 .and. (.not.done65)) then if(newdat.ne.0) dd(1:npts65)=id2(1:npts65) call jt65a(dd,npts65,newdat,nutc,nfa,nfqso,ntol65,nagain,ndecoded) endif !### JT65 is not yet producing info for nsynced, ndecoded. 800 write(*,1010) nsynced,ndecoded 1010 format('',2i4) call flush(6) close(13) close(22) return end subroutine decoder ./lib/twkfreq.f900000664000175000017500000000112012172374464012142 0ustar jtnjtnsubroutine twkfreq(c3,c4,npts,fsample,a) complex c3(npts) complex c4(npts) complex w,wstep real a(3) data twopi/6.283185307/ ! Mix the complex signal w=1.0 wstep=1.0 x0=0.5*(npts+1) s=2.0/npts do i=1,npts x=s*(i-x0) if(mod(i,100).eq.1) then p2=1.5*x*x - 0.5 ! p3=2.5*(x**3) - 1.5*x ! p4=4.375*(x**4) - 3.75*(x**2) + 0.375 dphi=(a(1) + x*a(2) + p2*a(3)) * (twopi/fsample) wstep=cmplx(cos(dphi),sin(dphi)) endif w=w*wstep c4(i)=w*c3(i) enddo return end subroutine twkfreq ./lib/extract4.f900000664000175000017500000000270212172374464012224 0ustar jtnjtnsubroutine extract4(sym,nadd,ncount,decoded) real sym(207) character decoded*22, submode*1 character*72 c72 integer*1 symbol(207) integer*1 data1(13) !Decoded data (8-bit bytes) integer data4a(9) !Decoded data (8-bit bytes) integer data4(12) !Decoded data (6-bit bytes) integer mettab(0:255,0:1) !Metric table logical first data first/.true./ save first,mettab if(first) then call getmet24(mode,mettab) first=.false. endif do j=1,207 r=sym(j) + 128. if(r.gt.255.0) r=255.0 if(r.lt.0.0) r=0.0 i4=nint(r) if(i4.gt.127) i4=i4-256 symbol(j)=i4 enddo nbits=72+31 ndelta=50 limit=100000 ncycles=0 ncount=-1 decoded=' ' submode=' ' call interleave24(symbol(2),-1) !Remove the interleaving call fano232(symbol(2),nbits,mettab,ndelta,limit,data1,ncycles,metric,ncount) nlim=ncycles/nbits if(ncount.ge.0) then do i=1,9 i4=data1(i) if(i4.lt.0) i4=i4+256 data4a(i)=i4 enddo write(c72,1100) (data4a(i),i=1,9) 1100 format(9b8.8) read(c72,1102) data4 1102 format(12b6) call unpackmsg(data4,decoded) submode=char(ichar('A')+ich-1) if(decoded(1:6).eq.'000AAA') then decoded='***WRONG MODE?***' ncount=-1 endif endif return end subroutine extract4 ./lib/fil3.f900000664000175000017500000001474212172374464011332 0ustar jtnjtnsubroutine fil3(x1,n1,c2,n2) ! FIR real-to-complex filter designed using ScopeFIR ! !----------------------------------------------- ! fsample (Hz) 12000 Input sample rate ! Ntaps 113 Number of filter taps ! fc (Hz) 500 Cutoff frequency ! fstop (Hz) 750 Lower limit of stopband ! Ripple (dB) 0.2 Ripple in passband ! Stop Atten (dB) 50 Stopband attenuation ! fmix (HZ) 1500 Mixing frequency ! fout (Hz) 1500 Output sample rate ! Resulting passband is 1000 - 2000 Hz ! Suggest calling with n1 = 8*n2 + 105, where n2 is the desired number ! of 1500 Hz output samples. parameter (NTAPS=113) parameter (NH=NTAPS/2) parameter (NDOWN=8) !Downsample ratio = 1/8 real x1(n1) complex z complex c2(n1/NDOWN) ! Filter coefficients: complex ca(-NH:NH) data ca/ & (-0.001818142144, 0.000000000000), & (-0.000664066641,-0.000664066640), & (-0.000000000000,-0.001044063550), & ( 0.000737290018,-0.000737290010), & ( 0.000908957610,-0.000000000000), & ( 0.000444156615, 0.000444156610), & (-0.000000000000, 0.000202701460), & ( 0.000244876473,-0.000244876470), & ( 0.000978154552, 0.000000000000), & ( 0.001155650277, 0.001155650270), & ( 0.000000000000, 0.002243121590), & (-0.001927618608, 0.001927618600), & (-0.003006201675, 0.000000000000), & (-0.002134087852,-0.002134087850), & ( 0.000000000000,-0.002717699570), & ( 0.001478946738,-0.001478946730), & ( 0.001162489032, 0.000000000000), & (-0.000005589545,-0.000005589540), & (-0.000000000000,-0.001321554800), & ( 0.001873767954,-0.001873767950), & ( 0.003843608784,-0.000000000000), & ( 0.003356874940, 0.003356874940), & (-0.000000000000, 0.005218967040), & (-0.003640348011, 0.003640348010), & (-0.004470167307, 0.000000000000), & (-0.002247131477,-0.002247131470), & (-0.000000000000,-0.001335998900), & (-0.000647656208, 0.000647656200), & (-0.003386100636, 0.000000000000), & (-0.004114456189,-0.004114456180), & ( 0.000000000000,-0.007939147960), & ( 0.006692816134,-0.006692816130), & ( 0.010145641899, 0.000000000000), & ( 0.006920770724, 0.006920770720), & ( 0.000000000000, 0.008285915750), & (-0.003992321524, 0.003992321520), & (-0.001995842303, 0.000000000000), & ( 0.001704388774, 0.001704388770), & (-0.000000000000, 0.007202515550), & (-0.008426458377, 0.008426458370), & (-0.016028350845, 0.000000000000), & (-0.013430355885,-0.013430355880), & (-0.000000000000,-0.020297455950), & ( 0.013791263729,-0.013791263720), & ( 0.016298136197,-0.000000000000), & ( 0.007443596155, 0.007443596150), & (-0.000000000000, 0.002223837360), & ( 0.005924356866,-0.005924356860), & ( 0.020854478160, 0.000000000000), & ( 0.024471928130, 0.024471928130), & ( 0.000000000000, 0.048909701460), & (-0.044508219241, 0.044508219240), & (-0.075874892030, 0.000000000000), & (-0.061450241075,-0.061450241070), & ( 0.000000000000,-0.095332017640), & ( 0.071148679982,-0.071148679980), & ( 0.102420526192, 0.000000000000), & ( 0.071148679982, 0.071148679980), & ( 0.000000000000, 0.095332017640), & (-0.061450241075, 0.061450241070), & (-0.075874892030, 0.000000000000), & (-0.044508219241,-0.044508219240), & ( 0.000000000000,-0.048909701460), & ( 0.024471928130,-0.024471928130), & ( 0.020854478160, 0.000000000000), & ( 0.005924356866, 0.005924356860), & (-0.000000000000,-0.002223837360), & ( 0.007443596155,-0.007443596150), & ( 0.016298136197,-0.000000000000), & ( 0.013791263729, 0.013791263720), & (-0.000000000000, 0.020297455950), & (-0.013430355885, 0.013430355880), & (-0.016028350845, 0.000000000000), & (-0.008426458377,-0.008426458370), & (-0.000000000000,-0.007202515550), & ( 0.001704388774,-0.001704388770), & (-0.001995842303, 0.000000000000), & (-0.003992321524,-0.003992321520), & ( 0.000000000000,-0.008285915750), & ( 0.006920770724,-0.006920770720), & ( 0.010145641899, 0.000000000000), & ( 0.006692816134, 0.006692816130), & ( 0.000000000000, 0.007939147960), & (-0.004114456189, 0.004114456180), & (-0.003386100636, 0.000000000000), & (-0.000647656208,-0.000647656200), & (-0.000000000000, 0.001335998900), & (-0.002247131477, 0.002247131470), & (-0.004470167307, 0.000000000000), & (-0.003640348011,-0.003640348010), & (-0.000000000000,-0.005218967040), & ( 0.003356874940,-0.003356874940), & ( 0.003843608784,-0.000000000000), & ( 0.001873767954, 0.001873767950), & (-0.000000000000, 0.001321554800), & (-0.000005589545, 0.000005589540), & ( 0.001162489032, 0.000000000000), & ( 0.001478946738, 0.001478946730), & ( 0.000000000000, 0.002717699570), & (-0.002134087852, 0.002134087850), & (-0.003006201675, 0.000000000000), & (-0.001927618608,-0.001927618600), & ( 0.000000000000,-0.002243121590), & ( 0.001155650277,-0.001155650270), & ( 0.000978154552, 0.000000000000), & ( 0.000244876473, 0.000244876470), & (-0.000000000000,-0.000202701460), & ( 0.000444156615,-0.000444156610), & ( 0.000908957610,-0.000000000000), & ( 0.000737290018, 0.000737290010), & (-0.000000000000, 0.001044063550), & (-0.000664066641, 0.000664066640), & (-0.001818142144, 0.000000000000)/ save ca n2=(n1-NTAPS+NDOWN)/NDOWN k0=NH-NDOWN+1 ! Loop over all output samples do i=1,n2 z=0. k=k0 + NDOWN*i do j=-NH,NH z=z + x1(j+k)*ca(j) enddo c2(i)=z enddo return end subroutine fil3 ./lib/decode65b.f900000664000175000017500000000170112172374464012224 0ustar jtnjtnsubroutine decode65b(s2,nflip,mode65,nbmkv,nhist,decoded) real s2(66,126) real s3(64,63) logical first,ltext character decoded*22 common/prcom/pr(126),mdat(126),mref(126,2),mdat2(126),mref2(126,2) data first/.true./ save if(first) call setup65 first=.false. do j=1,63 k=mdat(j) !Points to data symbol if(nflip.lt.0) k=mdat2(j) do i=1,64 s3(i,j)=s2(i+2,k) enddo k=mdat2(j) !Points to data symbol if(nflip.lt.0) k=mdat(j) enddo nadd=mode65 call extract(s3,nadd,ncount,nhist,decoded,ltext,nbmkv) !Extract the message ! Suppress "birdie messages" and other garbage decodes: if(decoded(1:7).eq.'000AAA ') ncount=-1 if(decoded(1:7).eq.'0L6MWK ') ncount=-1 if(nflip.lt.0 .and. ltext) ncount=-1 if(ncount.lt.0) then nbmkv=0 decoded=' ' endif return end subroutine decode65b ./lib/sleep.h0000664000175000017500000000112712172374464011427 0ustar jtnjtn/* * sleep.h 1.0 02/03/10 * * Defines cross-platform sleep, usleep, etc. * * By Wu Yongwei * */ #ifndef _SLEEP_H #define _SLEEP_H #ifdef _WIN32 # if defined(_NEED_SLEEP_ONLY) && (defined(_MSC_VER) || defined(__MINGW32__)) # include # define sleep(t) _sleep((t) * 1000) # else # include # define sleep(t) Sleep((t) * 1000) # endif # ifndef _NEED_SLEEP_ONLY # define msleep(t) Sleep(t) # define usleep(t) Sleep((t) / 1000) # endif #else # include # ifndef _NEED_SLEEP_ONLY # define msleep(t) usleep((t) * 1000) # endif #endif #endif /* _SLEEP_H */ ./lib/fano232.f900000664000175000017500000001115312172374464011640 0ustar jtnjtnsubroutine fano232(symbol,nbits,mettab,ndelta,maxcycles,dat, & ncycles,metric,ierr) ! Sequential decoder for K=32, r=1/2 convolutional code using ! the Fano algorithm. Translated from C routine for same purpose ! written by Phil Karn, KA9Q. parameter (MAXBITS=103) parameter (MAXBYTES=(MAXBITS+7)/8) integer*1 symbol(0:2*MAXBITS-1) !Soft symbols (as unsigned i*1) integer*1 dat(MAXBYTES) !Decoded user data, 8 bits per byte integer mettab(0:255,0:1) !Metric table ! These were the "node" structure in Karn's C code: integer nstate(0:MAXBITS-1) !Encoder state of next node integer gamma(0:MAXBITS-1) !Cumulative metric to this node integer metrics(0:3,0:MAXBITS-1) !Metrics indexed by all possible Tx syms integer tm(0:1,0:MAXBITS-1) !Sorted metrics for current hypotheses integer ii(0:MAXBITS-1) !Current branch being tested logical noback include 'conv232.f90' !Polynomials defined here ntail=nbits-31 ! Compute all possible branch metrics for each symbol pair. ! This is the only place we actually look at the raw input symbols i4a=0 i4b=0 do np=0,nbits-1 j=2*np i4a=symbol(j) i4b=symbol(j+1) if (i4a.lt.0) i4a=i4a+256 if (i4b.lt.0) i4b=i4b+256 metrics(0,np) = mettab(i4a,0) + mettab(i4b,0) metrics(1,np) = mettab(i4a,0) + mettab(i4b,1) metrics(2,np) = mettab(i4a,1) + mettab(i4b,0) metrics(3,np) = mettab(i4a,1) + mettab(i4b,1) enddo np=0 nstate(np)=0 n=iand(nstate(np),npoly1) !Compute and sort branch metrics n=ieor(n,ishft(n,-16)) !from the root node lsym=partab(iand(ieor(n,ishft(n,-8)),255)) n=iand(nstate(np),npoly2) n=ieor(n,ishft(n,-16)) lsym=lsym+lsym+partab(iand(ieor(n,ishft(n,-8)),255)) m0=metrics(lsym,np) m1=metrics(ieor(3,lsym),np) if(m0.gt.m1) then tm(0,np)=m0 !0-branch has better metric tm(1,np)=m1 else tm(0,np)=m1 !1-branch is better tm(1,np)=m0 nstate(np)=nstate(np) + 1 !Set low bit endif ii(np)=0 !Start with best branch gamma(np)=0 nt=0 do i=1,nbits*maxcycles !Start the Fano decoder ngamma=gamma(np) + tm(ii(np),np) !Look forward if(ngamma.ge.nt) then ! Node is acceptable. If first time visiting this node, tighten threshold: if(gamma(np).lt.(nt+ndelta)) nt=nt + ndelta * ((ngamma-nt)/ndelta) gamma(np+1)=ngamma !Move forward nstate(np+1)=ishft(nstate(np),1) np=np+1 if(np.eq.nbits-1) go to 100 !We're done! n=iand(nstate(np),npoly1) n=ieor(n,ishft(n,-16)) lsym=partab(iand(ieor(n,ishft(n,-8)),255)) n=iand(nstate(np),npoly2) n=ieor(n,ishft(n,-16)) lsym=lsym+lsym+partab(iand(ieor(n,ishft(n,-8)),255)) if(np.ge.ntail) then tm(0,np)=metrics(lsym,np) !We're in the tail, now all zeros else m0=metrics(lsym,np) m1=metrics(ieor(3,lsym),np) if(m0.gt.m1) then tm(0,np)=m0 !0-branch has better metric tm(1,np)=m1 else tm(0,np)=m1 !1-branch is better tm(1,np)=m0 nstate(np)=nstate(np) + 1 !Set low bit endif endif ii(np)=0 !Start with best branch else do while(.true.) noback=.false. !Threshold violated, can't go forward if(np.eq.0) noback=.true. if(np.gt.0) then if(gamma(np-1).lt.nt) noback=.true. endif if(noback) then !Can't back up, either nt=nt-ndelta !Relax threshold and look forward again if(ii(np).ne.0) then ii(np)=0 nstate(np)=ieor(nstate(np),1) endif exit endif np=np-1 !Back up if(np.lt.ntail .and. ii(np).ne.1) then ii(np)=ii(np)+1 !Search the next best branch nstate(np)=ieor(nstate(np),1) exit endif enddo endif enddo i=nbits*maxcycles 100 metric=gamma(np) !Final path metric nbytes=(nbits+7)/8 !Copy decoded data to user's buffer np=7 do j=1,nbytes-1 i4a=nstate(np) dat(j)=i4a np=np+8 enddo dat(nbytes)=0 ncycles=i+1 ierr=0 if(i.ge.maxcycles*nbits) ierr=-1 return end subroutine fano232 ./lib/deg2grid.f900000664000175000017500000000200012172374464012144 0ustar jtnjtnsubroutine deg2grid(dlong0,dlat,grid) real dlong !West longitude (deg) real dlat !Latitude (deg) character grid*6 dlong=dlong0 if(dlong.lt.-180.0) dlong=dlong+360.0 if(dlong.gt.180.0) dlong=dlong-360.0 ! Convert to units of 5 min of longitude, working east from 180 deg. nlong=int(60.0*(180.0-dlong)/5.0) n1=nlong/240 !20-degree field n2=(nlong-240*n1)/24 !2 degree square n3=nlong-240*n1-24*n2 !5 minute subsquare grid(1:1)=char(ichar('A')+n1) grid(3:3)=char(ichar('0')+n2) grid(5:5)=char(ichar('a')+n3) ! Convert to units of 2.5 min of latitude, working north from -90 deg. nlat=int(60.0*(dlat+90)/2.5) n1=nlat/240 !10-degree field n2=(nlat-240*n1)/24 !1 degree square n3=nlat-240*n1-24*n2 !2.5 minuts subsquare grid(2:2)=char(ichar('A')+n1) grid(4:4)=char(ichar('0')+n2) grid(6:6)=char(ichar('a')+n3) return end subroutine deg2grid ./lib/vit216.c0000664000175000017500000001257712172374464011360 0ustar jtnjtn/* Viterbi decoder for arbitrary convolutional code * viterbi27 and viterbi37 for the r=1/2 and r=1/3 K=7 codes are faster * Copyright 1999 Phil Karn, KA9Q * May be used under the terms of the GNU Public License */ /* Select code here */ #define V216 #ifdef V216 #define K 16 /* Constraint length */ #define N 2 /* Number of symbols per data bit */ #define Polys Poly216 /* Select polynomials here */ #endif /* Rate 1/2 codes */ unsigned int Poly216[] = {0126723, 0152711}; /* k = 16 */ #include #define NULL ((void *)0) #define LONGBITS 32 #define LOGLONGBITS 5 #undef max #define max(x,y) ((x) > (y) ? (x) : (y)) #define D (1 << max(0,K-LOGLONGBITS-1)) #define MAXNBITS 200 /* Maximum frame size (user bits) */ extern unsigned char Partab[]; /* Parity lookup table */ int Syms[1 << K]; int VDInit = 0; int parity(int x) { x ^= (x >> 16); x ^= (x >> 8); return Partab[x & 0xff]; } // Wrapper for calling "encode" from Fortran: //void __stdcall ENCODE( void enc216_( unsigned char data[], // User data, 8 bits per byte int *nbits, // Number of user bits unsigned char symbols[], // Encoded one-bit symbols, 8 per byte int *nsymbols, // Number of symbols int *kk, // K int *nn) // N { int nbytes; nbytes=(*nbits+7)/8; // Always encode multiple of 8 information bits enc216(symbols,data,nbytes,0,0); // Do the encoding *nsymbols=(*nbits+K-1)*N; // Return number of encoded symbols *kk=K; *nn=N; } /* Convolutionally encode data into binary symbols */ enc216(unsigned char symbols[], unsigned char data[], unsigned int nbytes, unsigned int startstate, unsigned int endstate) { int i,j,k,n=-1; unsigned int encstate = startstate; for(k=0; k=0;i--){ encstate = (encstate + encstate) + ((data[k] >> i) & 1); for(j=0;j> i) & 1); for(j=0;j> (N-j-1)) & 1][symbols[j]]; } } symbols += N; /* Run the add-compare-select operations */ mask = 1; for(i=0;i< 1 << (K-1);i+=2){ int b1,b2; b1 = mets[Syms[i]]; nmetric[i] = m0 = cmetric[i/2] + b1; b2 = mets[Syms[i+1]]; b1 -= b2; m1 = cmetric[(i/2) + (1<<(K-2))] + b2; if(m1 > m0){ nmetric[i] = m1; *pp |= mask; } m0 -= b1; nmetric[i+1] = m0; m1 += b1; if(m1 > m0){ nmetric[i+1] = m1; *pp |= mask << 1; } mask <<= 2; if(mask == 0){ mask = 1; pp++; ipp++; } } if(mask != 1){ pp++; ipp++; } if(++bitcnt == nbits){ *metric = nmetric[endstate]; break; } memcpy(cmetric,nmetric,sizeof(cmetric)); } /* Chain back from terminal state to produce decoded data */ if(data == NULL) return 0;/* Discard output */ memset(data,0,(nbits+7)/8); /* round up in case nbits % 8 != 0 */ for(i=nbits-1;i >= 0;i--){ // int a0,a1; pp -= D; ipp -= D; m0=endstate >> LOGLONGBITS; m1=1L << (endstate & (LONGBITS-1)); if(pp[m0] & m1) { // a0=nmetric[endstate]; endstate |= (1 << (K-1)); // a1=nmetric[endstate]; data[i>>3] |= 0x80 >> (i&7); // printf("B %d %d %d %d\n",*metric,i,a0,a1); } endstate >>= 1; } return 0; } ./lib/fchisq.f900000664000175000017500000000133412172374464011743 0ustar jtnjtnreal function fchisq(c3,npts,fsample,a) parameter (NMAX=85*16) complex c3(npts) complex c4(NMAX) real a(3) complex z data a1,a2,a3/99.,99.,99./ include 'jt9sync.f90' save if(a(1).ne.a1 .or. a(2).ne.a2 .or. a(3).ne.a3) then a1=a(1) a2=a(2) a3=a(3) call twkfreq(c3,c4,npts,fsample,a) endif ! Get sync power. nspsd=16 sum1=0. sum0=0. k=-1 do i=1,85 z=0. do j=1,nspsd k=k+1 z=z+c4(k+1) enddo pp=real(z)**2 + aimag(z)**2 if(isync(i).eq.1) then sum1=sum1+pp else sum0=sum0+pp endif enddo sync=(sum1/16.0)/(sum0/69.0) - 1.0 fchisq=-sync return end function fchisq ./lib/setup65.f900000664000175000017500000000422012172374464011776 0ustar jtnjtnsubroutine setup65 ! Defines arrays related to the JT65 pseudo-random synchronizing pattern. ! Executed at program start. integer nprc(126) common/prcom/pr(126),mdat(126),mref(126,2),mdat2(126),mref2(126,2) ! JT65 data nprc/ & 1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0, & 0,1,0,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,1,1, & 0,1,1,0,1,1,1,1,0,0,0,1,1,0,1,0,1,0,1,1, & 0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1, & 1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,0,1,1,0,1, & 0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,1, & 1,1,1,1,1,1/ data mr2/0/ !Silence compiler warning ! Put the appropriate pseudo-random sequence into pr nsym=126 do i=1,nsym pr(i)=2*nprc(i)-1 enddo ! Determine locations of data and reference symbols k=0 mr1=0 do i=1,nsym if(pr(i).lt.0.0) then k=k+1 mdat(k)=i else mr2=i if(mr1.eq.0) mr1=i endif enddo nsig=k ! Determine the reference symbols for each data symbol. do k=1,nsig m=mdat(k) mref(k,1)=mr1 do n=1,10 !Get ref symbol before data if((m-n).gt.0) then if (pr(m-n).gt.0.0) go to 10 endif enddo go to 12 10 mref(k,1)=m-n 12 mref(k,2)=mr2 do n=1,10 !Get ref symbol after data if((m+n).le.nsym) then if (pr(m+n).gt.0.0) go to 20 endif enddo cycle 20 mref(k,2)=m+n enddo ! Now do it all again, using opposite logic on pr(i) k=0 mr1=0 do i=1,nsym if(pr(i).gt.0.0) then k=k+1 mdat2(k)=i else mr2=i if(mr1.eq.0) mr1=i endif enddo nsig=k do k=1,nsig m=mdat2(k) mref2(k,1)=mr1 do n=1,10 if((m-n).gt.0) then if (pr(m-n).lt.0.0) go to 110 endif enddo go to 112 110 mref2(k,1)=m-n 112 mref2(k,2)=mr2 do n=1,10 if((m+n).le.nsym) then if (pr(m+n).lt.0.0) go to 120 endif enddo cycle 120 mref2(k,2)=m+n enddo return end subroutine setup65 ./lib/sleep_msec.f900000664000175000017500000000012212172374464012577 0ustar jtnjtnsubroutine sleep_msec(n) call usleep(n*1000) return end subroutine sleep_msec ./lib/timer.f900000664000175000017500000000554312172374464011614 0ustar jtnjtnsubroutine timer(dname,k) ! Times procedure number n between a call with k=0 (tstart) and with ! k=1 (tstop). Accumulates sums of these times in array ut (user time). ! Also traces all calls (for debugging purposes) if limtrace.gt.0 character*8 dname,name(50),space,ename character*16 sname logical on(50) real ut(50),ut0(50),dut(50) integer ncall(50),nlevel(50),nparent(50) integer onlevel(0:10) common/tracer/ limtrace,lu data eps/0.000001/,ntrace/0/ data level/0/,nmax/0/,space/' '/ data limtrace/0/,lu/-1/ save if(limtrace.lt.0) go to 999 if(lu.lt.1) lu=6 if(k.gt.1) go to 40 !Check for "all done" (k>1) onlevel(0)=0 do n=1,nmax !Check for existing name if(name(n).eq.dname) go to 20 enddo nmax=nmax+1 !This is a new one n=nmax ncall(n)=0 on(n)=.false. ut(n)=eps name(n)=dname 20 if(k.eq.0) then !Get start times (k=0) if(on(n)) print*,'Error in timer: ',dname,' already on.' level=level+1 !Increment the level on(n)=.true. call system_clock(icount,irate) ut0(n)=float(icount)/irate ncall(n)=ncall(n)+1 if(ncall(n).gt.1.and.nlevel(n).ne.level) then nlevel(n)=-1 else nlevel(n)=level endif nparent(n)=onlevel(level-1) onlevel(level)=n else if(k.eq.1) then !Get stop times and accumulate sums. (k=1) if(on(n)) then on(n)=.false. call system_clock(icount,irate) ut1=float(icount)/irate ut(n)=ut(n)+ut1-ut0(n) endif level=level-1 endif ntrace=ntrace+1 if(ntrace.lt.limtrace) write(lu,1020) ntrace,dname,k,level,nparent(n) 1020 format(i8,': ',a8,3i5) go to 998 ! Write out the timer statistics 40 write(lu,1040) 1040 format(/' name time frac dtime', & ' dfrac calls level parent'/73('-')) if(k.gt.100) then ndiv=k-100 do i=1,nmax ncall(i)=ncall(i)/ndiv ut(i)=ut(i)/ndiv enddo endif total=ut(1) sum=0. sumf=0. do i=1,nmax dut(i)=ut(i) do j=i,nmax if(nparent(j).eq.i) dut(i)=dut(i)-ut(j) enddo utf=ut(i)/total dutf=dut(i)/total sum=sum+dut(i) sumf=sumf+dutf kk=nlevel(i) sname=space(1:kk)//name(i)//space(1:8-kk) ename=space if(i.ge.2) ename=name(nparent(i)) write(lu,1060) float(i),sname,ut(i),utf,dut(i),dutf, & ncall(i),nlevel(i),ename 1060 format(f4.0,a16,2(f10.2,f6.2),i7,i5,2x,a8) enddo write(lu,1070) sum,sumf 1070 format(/36x,f10.2,f6.2) nmax=0 eps=0.000001 ntrace=0 level=0 space=' ' onlevel(0)=0 998 flush(lu) 999 return end subroutine timer ./lib/filbig.f900000664000175000017500000000735612172374464011734 0ustar jtnjtnsubroutine filbig(dd,npts,f0,newdat,c4a,n4,sq0) ! Filter and downsample the real data in array dd(npts), sampled at 12000 Hz. ! Output is complex, sampled at 1378.125 Hz. parameter (NSZ=3413) parameter (NFFT1=672000,NFFT2=77175) parameter (NZ2=1000) real*4 dd(npts) !Input data complex ca(NFFT1) !FFT of input complex c4a(NFFT2) !Output data real*4 s(NZ2) real*8 df real halfpulse(8) !Impulse response of filter (one sided) complex cfilt(NFFT2) !Filter (complex; imag = 0) real rfilt(NFFT2) !Filter (real) integer*8 plan1,plan2,plan3 logical first include 'fftw3.f90' equivalence (rfilt,cfilt) data first/.true./,npatience/0/ data halfpulse/114.97547150,36.57879257,-20.93789101, & 5.89886379,1.59355187,-2.49138308,0.60910773,-0.04248129/ common/refspec/dfref,ref(NSZ) save if(npts.lt.0) go to 900 !Clean up at end of program if(first) then nflags=FFTW_ESTIMATE if(npatience.eq.1) nflags=FFTW_ESTIMATE_PATIENT if(npatience.eq.2) nflags=FFTW_MEASURE if(npatience.eq.3) nflags=FFTW_PATIENT if(npatience.eq.4) nflags=FFTW_EXHAUSTIVE ! Plan the FFTs just once call timer('FFTplans ',0) call sfftw_plan_dft_1d(plan1,nfft1,ca,ca,FFTW_BACKWARD,nflags) call sfftw_plan_dft_1d(plan2,nfft2,c4a,c4a,FFTW_FORWARD,nflags) call sfftw_plan_dft_1d(plan3,nfft2,cfilt,cfilt,FFTW_BACKWARD,nflags) call timer('FFTplans ',1) ! Convert impulse response to filter function do i=1,nfft2 cfilt(i)=0. enddo fac=0.00625/nfft1 cfilt(1)=fac*halfpulse(1) do i=2,8 cfilt(i)=fac*halfpulse(i) cfilt(nfft2+2-i)=fac*halfpulse(i) enddo call timer('FFTfilt ',0) call sfftw_execute(plan3) call timer('FFTfilt ',1) base=cfilt(nfft2/2+1) do i=1,nfft2 rfilt(i)=real(cfilt(i))-base enddo df=12000.d0/nfft1 first=.false. endif ! When new data comes along, we need to compute a new "big FFT" ! If we just have a new f0, continue with the existing data in ca. if(newdat.ne.0) then nz=min(npts,nfft1) ca(1:nz)=dd(1:nz) ca(nz+1:)=0. !### Should change this to r2c FFT ### call timer('FFTbig ',0) call sfftw_execute(plan1) call timer('FFTbig ',1) do i=1,NFFT1/2 !Flatten the spectrum j=nint(i*df/dfref) if(j.lt.1) j=1 if(j.gt.NSZ) j=NSZ fac=sqrt(min(30.0,1.0/ref(j))) ca(i)=fac * ca(i) enddo endif ! NB: f0 is the frequency at which we want our filter centered. ! i0 is the bin number in ca closest to f0. i0=nint(f0/df) + 1 nh=nfft2/2 do i=1,nh !Copy data into c4a and apply j=i0+i-1 !the filter function if(j.ge.1 .and. j.le.nfft1) then c4a(i)=rfilt(i)*ca(j) else c4a(i)=0. endif enddo do i=nh+1,nfft2 j=i0+i-1-nfft2 if(j.lt.1) j=j+nfft1 !nfft1 was nfft2 c4a(i)=rfilt(i)*ca(j) enddo nadd=nfft2/NZ2 i=0 do j=1,NZ2 s(j)=0. do n=1,nadd i=i+1 s(j)=s(j) + real(c4a(i))**2 + aimag(c4a(i))**2 enddo enddo call pctile(s,NZ2,30,sq0) ! Do the short reverse transform, to go back to time domain. call timer('FFTsmall',0) call sfftw_execute(plan2) call timer('FFTsmall',1) n4=min(npts/8,nfft2) return 900 call sfftw_destroy_plan(plan1) call sfftw_destroy_plan(plan2) call sfftw_destroy_plan(plan3) return end subroutine filbig ./lib/fchisq65.f900000664000175000017500000000315612172374464012122 0ustar jtnjtnreal function fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax) parameter (NMAX=60*12000) !Samples per 60 s complex cx(npts) real a(5) complex w,wstep,z real ss(3000) complex csx(0:NMAX/8) data twopi/6.283185307/a1,a2,a3/99.,99.,99./ save call timer('fchisq65',0) baud=11025.0/4096.0 nsps=nint(fsample/baud) !Samples per symbol nsph=nsps/2 !Samples per half-symbol ndiv=16 !Output ss() steps per symbol nout=ndiv*npts/nsps dtstep=1.0/(ndiv*baud) !Time per output step if(a(1).ne.a1 .or. a(2).ne.a2 .or. a(3).ne.a3) then a1=a(1) a2=a(2) a3=a(3) ! Mix and integrate the complex signal csx(0)=0. w=1.0 x0=0.5*(npts+1) s=2.0/npts do i=1,npts x=s*(i-x0) if(mod(i,100).eq.1) then p2=1.5*x*x - 0.5 dphi=(a(1) + x*a(2) + p2*a(3)) * (twopi/fsample) wstep=cmplx(cos(dphi),sin(dphi)) endif w=w*wstep csx(i)=csx(i-1) + w*cx(i) enddo endif ! Compute 1/2-symbol powers at 1/16-symbol steps. fac=1.e-4 do i=1,nout j=i*nsps/ndiv k=j-nsph ss(i)=0. if(k.ge.1) then z=csx(j)-csx(k) ss(i)=fac*(real(z)**2 + aimag(z)**2) endif enddo ccfmax=0. call timer('ccf2 ',0) call ccf2(ss,nout,nflip,ccf,lagpk) call timer('ccf2 ',1) if(ccf.gt.ccfmax) then ccfmax=ccf dtmax=lagpk*dtstep endif fchisq65=-ccfmax call timer('fchisq65',1) return end function fchisq65 ./lib/encode232.f900000664000175000017500000000144012172374464012150 0ustar jtnjtnsubroutine encode232(dat,nsym,symbol) ! Convolutional encoder for a K=32, r=1/2 code. integer*1 dat(13) !User data, packed 8 bits per byte integer*1 symbol(500) !Channel symbols, one bit per byte integer*1 i1 include 'conv232.f90' nstate=0 k=0 do j=1,nsym do i=7,0,-1 i1=dat(j) i4=i1 if (i4.lt.0) i4=i4+256 nstate=ior(ishft(nstate,1),iand(ishft(i4,-i),1)) n=iand(nstate,npoly1) n=ieor(n,ishft(n,-16)) k=k+1 symbol(k)=partab(iand(ieor(n,ishft(n,-8)),255)) n=iand(nstate,npoly2) n=ieor(n,ishft(n,-16)) k=k+1 symbol(k)=partab(iand(ieor(n,ishft(n,-8)),255)) if(k.ge.nsym) go to 100 enddo enddo 100 continue return end subroutine encode232 ./lib/decode_rs.c0000664000175000017500000001540512172374464012245 0ustar jtnjtn/* Reed-Solomon decoder * Copyright 2002 Phil Karn, KA9Q * May be used under the terms of the GNU General Public License (GPL) */ #ifdef DEBUG #include #endif #include //#define NULL ((void *)0) #define min(a,b) ((a) < (b) ? (a) : (b)) #ifdef FIXED #include "fixed.h" #elif defined(BIGSYM) #include "int.h" #else #include "char.h" #endif int DECODE_RS( #ifdef FIXED DTYPE *data, int *eras_pos, int no_eras,int pad){ #else void *p,DTYPE *data, int *eras_pos, int no_eras){ struct rs *rs = (struct rs *)p; #endif int deg_lambda, el, deg_omega; int i, j, r,k; DTYPE u,q,tmp,num1,num2,den,discr_r; DTYPE lambda[NROOTS+1], s[NROOTS]; /* Err+Eras Locator poly * and syndrome poly */ DTYPE b[NROOTS+1], t[NROOTS+1], omega[NROOTS+1]; DTYPE root[NROOTS], reg[NROOTS+1], loc[NROOTS]; int syn_error, count; #ifdef FIXED /* Check pad parameter for validity */ if(pad < 0 || pad >= NN) return -1; #endif /* form the syndromes; i.e., evaluate data(x) at roots of g(x) */ for(i=0;i 0) { /* Init lambda to be the erasure locator polynomial */ lambda[1] = ALPHA_TO[MODNN(PRIM*(NN-1-eras_pos[0]))]; for (i = 1; i < no_eras; i++) { u = MODNN(PRIM*(NN-1-eras_pos[i])); for (j = i+1; j > 0; j--) { tmp = INDEX_OF[lambda[j - 1]]; if(tmp != A0) lambda[j] ^= ALPHA_TO[MODNN(u + tmp)]; } } #if DEBUG >= 1 /* Test code that verifies the erasure locator polynomial just constructed Needed only for decoder debugging. */ /* find roots of the erasure location polynomial */ for(i=1;i<=no_eras;i++) reg[i] = INDEX_OF[lambda[i]]; count = 0; for (i = 1,k=IPRIM-1; i <= NN; i++,k = MODNN(k+IPRIM)) { q = 1; for (j = 1; j <= no_eras; j++) if (reg[j] != A0) { reg[j] = MODNN(reg[j] + j); q ^= ALPHA_TO[reg[j]]; } if (q != 0) continue; /* store root and error location number indices */ root[count] = i; loc[count] = k; count++; } if (count != no_eras) { printf("count = %d no_eras = %d\n lambda(x) is WRONG\n",count,no_eras); count = -1; goto finish; } #if DEBUG >= 2 printf("\n Erasure positions as determined by roots of Eras Loc Poly:\n"); for (i = 0; i < count; i++) printf("%d ", loc[i]); printf("\n"); #endif #endif } for(i=0;i 0; j--){ if (reg[j] != A0) { reg[j] = MODNN(reg[j] + j); q ^= ALPHA_TO[reg[j]]; } } if (q != 0) continue; /* Not a root */ /* store root (index-form) and error location number */ #if DEBUG>=2 printf("count %d root %d loc %d\n",count,i,k); #endif root[count] = i; loc[count] = k; /* If we've already found max possible roots, * abort the search to save time */ if(++count == deg_lambda) break; } if (deg_lambda != count) { /* * deg(lambda) unequal to number of roots => uncorrectable * error detected */ count = -1; goto finish; } /* * Compute err+eras evaluator poly omega(x) = s(x)*lambda(x) (modulo * x**NROOTS). in index form. Also find deg(omega). */ deg_omega = deg_lambda-1; for (i = 0; i <= deg_omega;i++){ tmp = 0; for(j=i;j >= 0; j--){ if ((s[i - j] != A0) && (lambda[j] != A0)) tmp ^= ALPHA_TO[MODNN(s[i - j] + lambda[j])]; } omega[i] = INDEX_OF[tmp]; } /* * Compute error values in poly-form. num1 = omega(inv(X(l))), num2 = * inv(X(l))**(FCR-1) and den = lambda_pr(inv(X(l))) all in poly-form */ for (j = count-1; j >=0; j--) { num1 = 0; for (i = deg_omega; i >= 0; i--) { if (omega[i] != A0) num1 ^= ALPHA_TO[MODNN(omega[i] + i * root[j])]; } num2 = ALPHA_TO[MODNN(root[j] * (FCR - 1) + NN)]; den = 0; /* lambda[i+1] for i even is the formal derivative lambda_pr of lambda[i] */ for (i = min(deg_lambda,NROOTS-1) & ~1; i >= 0; i -=2) { if(lambda[i+1] != A0) den ^= ALPHA_TO[MODNN(lambda[i+1] + i * root[j])]; } #if DEBUG >= 1 if (den == 0) { printf("\n ERROR: denominator = 0\n"); count = -1; goto finish; } #endif /* Apply error to data */ if (num1 != 0 && loc[j] >= PAD) { data[loc[j]-PAD] ^= ALPHA_TO[MODNN(INDEX_OF[num1] + INDEX_OF[num2] + NN - INDEX_OF[den])]; } } finish: if(eras_pos != NULL){ for(i=0;i #include #include #include "tstrig.h" RIG *my_rig; // handle to rig int set_conf(RIG *my_rig, char *conf_parms); //------------------------------------------------------------------------ int set_conf(RIG *my_rig, char *conf_parms) { char *p, *q, *n; int iret; p = conf_parms; while (p && *p != '\0') { /* FIXME: left hand value of = cannot be null */ q = strchr(p, '='); if ( !q ) return -RIG_EINVAL; *q++ = '\0'; n = strchr(q, ','); if (n) *n++ = '\0'; iret = rig_set_conf(my_rig, rig_token_lookup(my_rig, p), q); if (iret != RIG_OK) return iret; p = n; } return RIG_OK; } //------------------------------------------------------------------------ int rigOpen(int verbose, rig_model_t my_model, const char* rig_file, int serial_rate, const char* conf_parms2) { int iret; /* generic return code from functions */ char *civaddr = NULL; /* NULL means no need to set conf */ // const char *rig_file; // const char *conf_parms2; // int serial_rate; rig_set_debug(verbose); my_rig=rig_init(my_model); if (!my_rig) { // fprintf(stderr, "Unknown rig num %d, or initialization error.\n",my_model); return -1; } // rig_file="COM1"; // serial_rate=4800; // conf_parms2="data_bits=8,stop_bits=2,serial_handshake=Hardware"; iret=set_conf(my_rig, conf_parms2); if (iret!=RIG_OK) { // fprintf(stderr, "Config parameter error: %s\n", rigerror(iret)); return -2; } if (rig_file) strncpy(my_rig->state.rigport.pathname, rig_file, FILPATHLEN - 1); if (serial_rate!=0) my_rig->state.rigport.parm.serial.rate = serial_rate; if (civaddr) rig_set_conf(my_rig, rig_token_lookup(my_rig, "civaddr"), civaddr); iret = rig_open(my_rig); if(iret!=0) return -3; return 0; } int rigSetFreq(int fHz) { return rig_set_freq(my_rig,RIG_VFO_CURR,fHz); } int rigFreq(int *fHz) { int iret=0; freq_t freq; iret=rig_get_freq(my_rig, RIG_VFO_CURR, &freq); *fHz=freq; return iret; } int rigSetPTT(int iptt) { return rig_set_ptt(my_rig, RIG_VFO_CURR, iptt); } void rigClose() { rig_close(my_rig); rig_cleanup(my_rig); } ./lib/packmsg.f900000664000175000017500000000632712172374464012122 0ustar jtnjtnsubroutine packmsg(msg,dat,text) parameter (NBASE=37*36*10*27*27*27) parameter (NBASE2=262178562) character*22 msg integer dat(12) character*12 c1,c2 character*4 c3 character*6 grid6 logical text1,text2,text3,text text=.false. ! Convert all letters to upper case iz=22 do i=1,22 if(msg(i:i).ge.'a' .and. msg(i:i).le.'z') & msg(i:i)= char(ichar(msg(i:i))+ichar('A')-ichar('a')) if(msg(i:i).ne.' ') iz=i enddo do iter=1,5 !Collapse multiple blanks into one ib2=index(msg(1:iz),' ') if(ib2.lt.1) go to 5 msg=msg(1:ib2)//msg(ib2+2:) iz=iz-1 enddo 5 if(msg(1:6).eq.'CQ DX ') msg(3:3)='9' ! See if it's a CQ message if(msg(1:3).eq.'CQ ') then i=3 ! ... and if so, does it have a reply frequency? if(msg(4:4).ge.'0' .and. msg(4:4).le.'9' .and. & msg(5:5).ge.'0' .and. msg(5:5).le.'9' .and. & msg(6:6).ge.'0' .and. msg(6:6).le.'9') i=7 go to 1 endif do i=1,22 if(msg(i:i).eq.' ') go to 1 !Get 1st blank enddo go to 10 !Consider msg as plain text 1 ia=i c1=msg(1:ia-1) do i=ia+1,22 if(msg(i:i).eq.' ') go to 2 !Get 2nd blank enddo go to 10 !Consider msg as plain text 2 ib=i c2=msg(ia+1:ib-1) do i=ib+1,22 if(msg(i:i).eq.' ') go to 3 !Get 3rd blank enddo go to 10 !Consider msg as plain text 3 ic=i c3=' ' if(ic.ge.ib+1) c3=msg(ib+1:ic) if(c3.eq.'OOO ') c3=' ' !Strip out the OOO flag call getpfx1(c1,k1,junk) call packcall(c1,nc1,text1) call getpfx1(c2,k2,nv2) call packcall(c2,nc2,text2) if(nv2.eq.0) then if(k1.lt.0 .or. k2.lt.0 .or. k1*k2.ne.0) go to 10 if(k2.gt.0) k2=k2+450 k=max(k1,k2) if(k.gt.0) then call k2grid(k,grid6) c3=grid6(:4) endif endif call packgrid(c3,ng,text3) if(nv2.eq.0 .and. (.not.text1) .and. (.not.text2) .and. & (.not.text3)) go to 20 if(nv2.gt.0) then if(nv2.eq.1) then if(c1(1:3).eq.'CQ ') nc1=262178563 + k2 if(c1(1:4).eq.'QRZ ') nc1=264002072 + k2 if(c1(1:3).eq.'DE ') nc1=265825581 + k2 endif if(nv2.eq.2) then if(c1(1:3).eq.'CQ ') nc1=267649090 + k2 if(c1(1:4).eq.'QRZ ') nc1=267698375 + k2 if(c1(1:3).eq.'DE ') nc1=267747660 + k2 endif go to 20 endif ! The message will be treated as plain text. 10 text=.true. call packtext(msg,nc1,nc2,ng) ng=ng+32768 ! Encode data into 6-bit words 20 dat(1)=iand(ishft(nc1,-22),63) !6 bits dat(2)=iand(ishft(nc1,-16),63) !6 bits dat(3)=iand(ishft(nc1,-10),63) !6 bits dat(4)=iand(ishft(nc1, -4),63) !6 bits dat(5)=4*iand(nc1,15)+iand(ishft(nc2,-26),3) !4+2 bits dat(6)=iand(ishft(nc2,-20),63) !6 bits dat(7)=iand(ishft(nc2,-14),63) !6 bits dat(8)=iand(ishft(nc2, -8),63) !6 bits dat(9)=iand(ishft(nc2, -2),63) !6 bits dat(10)=16*iand(nc2,3)+iand(ishft(ng,-12),15) !2+4 bits dat(11)=iand(ishft(ng,-6),63) dat(12)=iand(ng,63) return end subroutine packmsg ./lib/interleave9.f900000664000175000017500000000145012172374464012714 0ustar jtnjtnsubroutine interleave9(ia,ndir,ib) integer*1 ia(0:205),ib(0:205) integer j0(0:205) logical first data first/.true./ save first,j0 !Save not working, or j0 overwritten ??? if(first) then k=-1 do i=0,255 m=i n=iand(m,1) n=2*n + iand(m/2,1) n=2*n + iand(m/4,1) n=2*n + iand(m/8,1) n=2*n + iand(m/16,1) n=2*n + iand(m/32,1) n=2*n + iand(m/64,1) n=2*n + iand(m/128,1) if(n.le.205) then k=k+1 j0(k)=n endif enddo ! first=.false. endif if(ndir.gt.0) then do i=0,205 ib(j0(i))=ia(i) enddo else do i=0,205 ib(i)=ia(j0(i)) enddo endif return end subroutine interleave9 ./lib/jt65a.f900000664000175000017500000000506712172374464011426 0ustar jtnjtnsubroutine jt65a(dd,npts,newdat,nutc,nfa,nfqso,ntol,nagain,ndecoded) ! Process dd() data to find and decode JT65 signals. parameter (NSZ=3413) parameter (NZMAX=60*12000) parameter (NFFT=8192) real dd(NZMAX) real*4 ss(322,NSZ) real*4 savg(NSZ) logical done(NSZ) real a(5) character decoded*22 save if(newdat.ne.0) then call timer('symsp65 ',0) call symspec65(dd,npts,ss,nhsym,savg) !Get normalized symbol spectra call timer('symsp65 ',1) endif df=12000.0/NFFT !df = 12000.0/16384 = 0.732 Hz ftol=16.0 !Frequency tolerance (Hz) mode65=1 !Decoding JT65A only, for now. done=.false. freq0=-999. do nqd=1,0,-1 if(nqd.eq.1) then !Quick decode, at fQSO fa=nfqso - ntol fb=nfqso + ntol else !Wideband decode at all freqs fa=200 fb=nfa endif ia=max(51,nint(fa/df)) ib=min(NSZ-51,nint(fb/df)) thresh0=1.5 do i=ia,ib !Search over freq range freq=i*df if(savg(i).lt.thresh0 .or. done(i)) cycle call timer('ccf65 ',0) call ccf65(ss(1,i),nhsym,savg(i),sync1,dt,flipk,syncshort,snr2,dt2) call timer('ccf65 ',1) ftest=abs(freq-freq0) thresh1=1.0 if(nqd.eq.1 .and. ntol.le.100) thresh1=0. if(sync1.lt.thresh1 .or. ftest.lt.ftol) cycle nflip=nint(flipk) call timer('decod65a',0) call decode65a(dd,npts,newdat,freq,nflip,mode65,sync2,a,dt, & nbmkv,nhist,decoded) call timer('decod65a',1) ftest=abs(freq+a(1)-freq0) if(ftest.lt.ftol) cycle if(decoded.ne.' ') then ndecoded=1 nfreq=nint(freq+a(1)) ndrift=nint(2.0*a(2)) s2db=10.0*log10(sync2) - 32 !### empirical (was 40) ### nsnr=nint(s2db) if(nsnr.lt.-30) nsnr=-30 if(nsnr.gt.-1) nsnr=-1 write(*,1010) nutc,nsnr,dt,nfreq,decoded 1010 format(i4.4,i4,f5.1,i5,1x,'#',1x,a22) write(13,1012) nutc,nint(sync1),nsnr,dt,float(nfreq),ndrift, & decoded,nbmkv 1012 format(i4.4,i4,i5,f6.1,f8.0,i4,3x,a22,' JT65',i4) freq0=freq+a(1) i2=min(NSZ,i+15) !### ??? ### done(i:i2)=.true. endif enddo if(nagain.eq.1) exit enddo return end subroutine jt65a ./lib/symspec65.f900000664000175000017500000000220712172374464012324 0ustar jtnjtnsubroutine symspec65(dd,npts,ss,nhsym,savg) ! Compute JT65 symbol spectra at half-symbol steps parameter (NFFT=8192) parameter (NSZ=3413) !NFFT*5000/12000 parameter (MAXHSYM=322) real*8 hstep real*4 dd(npts) real*4 ss(MAXHSYM,NSZ) real*4 savg(NSZ) real*4 x(NFFT) complex c(0:NFFT/2) common/refspec/dfref,ref(NSZ) equivalence (x,c) save /refspec/ hstep=2048.d0*12000.d0/11025.d0 !half-symbol = 2229.116 samples nsps=nint(2*hstep) df=12000.0/NFFT nhsym=npts/hstep - 1.0 savg=0. fac1=1.e-3 do j=1,nhsym i0=(j-1)*hstep x(1:nsps)=fac1*dd(i0+1:i0+nsps) x(nsps+1:)=0. call four2a(c,NFFT,1,-1,0) !r2c forward FFT do i=1,NSZ s=real(c(i))**2 + aimag(c(i))**2 ss(j,i)=s savg(i)=savg(i)+s enddo enddo savg=savg/nhsym call flat65(ss,nhsym,MAXHSYM,NSZ,ref) !Flatten the 2d spectrum, saving dfref=df ! the reference spectrum ref() savg=savg/ref do j=1,nhsym ss(j,1:NSZ)=ss(j,1:NSZ)/ref enddo return end subroutine symspec65 ./lib/getmet24.f900000664000175000017500000000510412172374464012120 0ustar jtnjtnsubroutine getmet24(mode,mettab) ! Return appropriate metric table for soft-decision convolutional decoder. ! Metric table (RxSymbol,TxSymbol) integer mettab(0:255,0:1) real*4 xx0(0:255) data xx0/ & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 0.988, 1.000, 0.991, 0.993, 1.000, 0.995, 1.000, 0.991, & 1.000, 0.991, 0.992, 0.991, 0.990, 0.990, 0.992, 0.996, & 0.990, 0.994, 0.993, 0.991, 0.992, 0.989, 0.991, 0.987, & 0.985, 0.989, 0.984, 0.983, 0.979, 0.977, 0.971, 0.975, & 0.974, 0.970, 0.970, 0.970, 0.967, 0.962, 0.960, 0.957, & 0.956, 0.953, 0.942, 0.946, 0.937, 0.933, 0.929, 0.920, & 0.917, 0.911, 0.903, 0.895, 0.884, 0.877, 0.869, 0.858, & 0.846, 0.834, 0.821, 0.806, 0.790, 0.775, 0.755, 0.737, & 0.713, 0.691, 0.667, 0.640, 0.612, 0.581, 0.548, 0.510, & 0.472, 0.425, 0.378, 0.328, 0.274, 0.212, 0.146, 0.075, & 0.000,-0.079,-0.163,-0.249,-0.338,-0.425,-0.514,-0.606, & -0.706,-0.796,-0.895,-0.987,-1.084,-1.181,-1.280,-1.376, & -1.473,-1.587,-1.678,-1.790,-1.882,-1.992,-2.096,-2.201, & -2.301,-2.411,-2.531,-2.608,-2.690,-2.829,-2.939,-3.058, & -3.164,-3.212,-3.377,-3.463,-3.550,-3.768,-3.677,-3.975, & -4.062,-4.098,-4.186,-4.261,-4.472,-4.621,-4.623,-4.608, & -4.822,-4.870,-4.652,-4.954,-5.108,-5.377,-5.544,-5.995, & -5.632,-5.826,-6.304,-6.002,-6.559,-6.369,-6.658,-7.016, & -6.184,-7.332,-6.534,-6.152,-6.113,-6.288,-6.426,-6.313, & -9.966,-6.371,-9.966,-7.055,-9.966,-6.629,-6.313,-9.966, & -5.858,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966/ save bias=0.5 scale=10.0 do i=0,255 mettab(i,0)=nint(scale*(xx0(i)-bias)) if(i.ge.1) mettab(256-i,1)=mettab(i,0) enddo return end subroutine getmet24 ./lib/sort.f900000664000175000017500000000011612172374464011452 0ustar jtnjtnsubroutine sort(n,arr) call ssort(arr,tmp,n,1) return end subroutine sort ./lib/stdmsg.f900000664000175000017500000000034412172374464011767 0ustar jtnjtnlogical*1 function stdmsg(msg0) character*22 msg0,msg integer dat(12) logical text call packmsg(msg0,dat,text) call unpackmsg(dat,msg) stdmsg=msg.eq.msg0 .and. (.not.text) return end function stdmsg ./lib/wrapkarn.c0000664000175000017500000000320112172374464012132 0ustar jtnjtn#include #include #include #include #include #include "rs.h" static void *rs; static int first=1; void rs_encode_(int *dgen, int *sent) // Encode JT65 data dgen[12], producing sent[63]. { int dat1[12]; int b[51]; int i; if(first) { // Initialize the JT65 codec rs=init_rs_int(6,0x43,3,1,51,0); first=0; } // Reverse data order for the Karn codec. for(i=0; i<12; i++) { dat1[i]=dgen[11-i]; } // Compute the parity symbols encode_rs_int(rs,dat1,b); // Move parity symbols and data into sent[] array, in reverse order. for (i = 0; i < 51; i++) sent[50-i] = b[i]; for (i = 0; i < 12; i++) sent[i+51] = dat1[11-i]; } void rs_decode_(int *recd0, int *era0, int *numera0, int *decoded, int *nerr) // Decode JT65 received data recd0[63], producing decoded[12]. // Erasures are indicated in era0[numera]. The number of corrected // errors is *nerr. If the data are uncorrectable, *nerr=-1 is returned. { int numera; int i; int era_pos[50]; int recd[63]; if(first) { rs=init_rs_int(6,0x43,3,1,51,0); first=0; } numera=*numera0; for(i=0; i<12; i++) recd[i]=recd0[62-i]; for(i=0; i<51; i++) recd[12+i]=recd0[50-i]; if(numera) for(i=0; i #include #include #include "tstrig.h" int set_conf(RIG *my_rig, char *conf_parms); int rig_control(rig_model_t my_model, int verbose); int main (int argc, char *argv[]) { rig_model_t my_model = RIG_MODEL_DUMMY; int verbose=0; my_model=214; rig_control(my_model,verbose); return 0; } /* gcc -c -Wall -I../include rig_control.c gcc -c -Wall -I../include tstrig.c gcc -o tstrig.exe -Wl,--enable-auto-import tstrig.o rig_control.o libhamlib.dll.a strip tstrig.exe */ ./lib/msgs.txt0000664000175000017500000000207012172374464011656 0ustar jtnjtnW1AAA K2BBB EM00 W2CCC K3DDD EM01 W3EEE K4FFF EM02 W5GGG K6HHH EM03 W7III K8JJJ EM04 W9KKK K0LLL EM05 G0MMM F1NNN JN06 G2OOO F3PPP JN07 G4QQQ F5RRR JN08 G6SSS F7TTT JN09 W1XAA K2XBB EM10 W2XCC K3XDD EM11 W3XEE K4XFF EM12 W5XGG K6XHH EM13 W7XII K8XJJ EM14 W9XKK K0XLL EM15 G0XMM F1XNN JN16 G2XOO F3XPP JN17 G4XQQ F5XRR JN18 G6XSS F7XTT JN19 W1YAA K2YBB EM20 W2YCC K3YDD EM21 W3YEE K4YFF EM22 W5YGG K6YHH EM23 W7YII K8YJJ EM24 W9YKK K0YLL EM25 G0YMM F1YNN JN26 G2YOO F3YPP JN27 G4YQQ F5YRR JN28 G6YSS F7YTT JN29 W1ZAA K2ZBB EM30 W2ZCC K3ZDD EM31 W3ZEE K4ZFF EM32 W5ZGG K6ZHH EM33 W7ZII K8ZJJ EM34 W9ZKK K0ZLL EM35 G0ZMM F1ZNN JN36 G2ZOO F3ZPP JN37 G4ZQQ F5ZRR JN38 G6ZSS F7ZTT JN39 W1AXA K2BXB EM40 W2CXC K3DXD EM41 W3EXE K4FXF EM42 W5GXG K6HXH EM43 W7IXI K8JXJ EM44 W9KXK K0LXL EM45 G0MXM F1NXN JN46 G2OXO F3PXP JN47 G4QXQ F5RXR JN48 G6SXS F7TXT JN49 W1AYA K2BYB EM50 W2CYC K3DYD EM51 W3EYE K4FYF EM52 W5GYG K6HYH EM53 W7IYI K8JYJ EM54 W9KYK K0LYL EM55 G0MYM F1NYN JN56 G2OYO F3PYP JN57 G4QYQ F5RYR JN58 G6SYS F7TYT JN59 ./lib/char.h0000664000175000017500000000311112172374464011227 0ustar jtnjtn/* Include file to configure the RS codec for character symbols * * Copyright 2002, Phil Karn, KA9Q * May be used under the terms of the GNU General Public License (GPL) */ #define DTYPE unsigned char /* Reed-Solomon codec control block */ struct rs { int mm; /* Bits per symbol */ int nn; /* Symbols per block (= (1<= rs->nn) { x -= rs->nn; x = (x >> rs->mm) + (x & rs->nn); } return x; } #define MODNN(x) modnn(rs,x) #define MM (rs->mm) #define NN (rs->nn) #define ALPHA_TO (rs->alpha_to) #define INDEX_OF (rs->index_of) #define GENPOLY (rs->genpoly) #define NROOTS (rs->nroots) #define FCR (rs->fcr) #define PRIM (rs->prim) #define IPRIM (rs->iprim) #define PAD (rs->pad) #define A0 (NN) #define ENCODE_RS encode_rs_char #define DECODE_RS decode_rs_char #define INIT_RS init_rs_char #define FREE_RS free_rs_char void ENCODE_RS(void *p,DTYPE *data,DTYPE *parity); int DECODE_RS(void *p,DTYPE *data,int *eras_pos,int no_eras); void *INIT_RS(int symsize,int gfpoly,int fcr, int prim,int nroots,int pad); void FREE_RS(void *p); ./lib/sync9.f900000664000175000017500000000470612172374464011541 0ustar jtnjtnsubroutine sync9(ss,nzhsym,lag1,lag2,ia,ib,ccfred,red2,ipkbest) include 'constants.f90' ! parameter (NSMAX=1365) !Max length of saved spectra real ss(184,NSMAX) real ss1(184) real ccfred(NSMAX) real savg(NSMAX) real savg2(NSMAX) real smo(-5:25) real sq(NSMAX) real red2(NSMAX) include 'jt9sync.f90' ipk=0 ipkbest=0 sbest=0. ccfred=0. do i=ia,ib !Loop over freq range ss1=ss(1:184,i) call pctile(ss1,nzhsym,40,xmed) ! xmed=sum(ss1(1:nzhsym))/nzhsym ss1=ss1/xmed - 1.0 do j=1,nzhsym if(ss1(j).gt.3.0) ss1(j)=3.0 enddo call pctile(ss1,nzhsym,45,sbase) ss1=ss1-sbase sq0=dot_product(ss1(1:nzhsym),ss1(1:nzhsym)) rms=sqrt(sq0/(nzhsym-1)) smax=0. do lag=lag1,lag2 !DT = 2.5 to 5.0 s sum1=0. sq2=sq0 nsum=nzhsym do j=1,16 !Sum over 16 sync symbols k=ii2(j) + lag if(k.ge.1 .and. k.le.nzhsym) then sum1=sum1 + ss1(k) sq2=sq2 - ss1(k)*ss1(k) nsum=nsum-1 endif enddo if(sum1.gt.smax) then smax=sum1 ipk=i endif rms=sqrt(sq2/(nsum-1)) enddo ccfred(i)=smax !Best at this freq, over all lags if(smax.gt.sbest) then sbest=smax ipkbest=ipk endif enddo call pctile(ccfred(ia),ib-ia+1,50,xmed) if(xmed.le.0.0) xmed=1.0 ccfred=2.0*ccfred/xmed savg=0. do j=1,nzhsym savg(ia:ib)=savg(ia:ib) + ss(j,ia:ib) enddo ! df=1500.0/2048.0 ! 0.732422 ! df9=12000.0/6912.0 ! 1.736111 savg(ia:ib)=savg(ia:ib)/nzhsym smo(0:20)=1.0/21.0 smo(-5:-1)=-(1.0/21.0)*(21.0/10.0) smo(21:25)=smo(-5) do i=ia,ib sm=0. do j=-5,25 if(i+j.ge.1 .and. i+j.lt.NSMAX) sm=sm + smo(j)*savg(i+j) enddo savg2(i)=sm sq(i)=sm*sm enddo call pctile(sq(ia:ib),ib-ia+1,20,sq0) rms=sqrt(sq0) savg2(ia:ib)=savg2(ia:ib)/(5.0*rms) red2=0. do i=ia+11,ib-10 ref=max(savg2(i-10),savg2(i+10)) red2(i)=savg2(i)-ref if(red2(i).lt.-99.0) red2(i)=-99.0 if(red2(i).gt.99.0) red2(i)=99.0 ! write(30,3001) i,i*df+1000.0,savg2(i),red2(i),ccfred(i) !3001 format(i8,4f10.3) enddo ! call flush(30) return end subroutine sync9 ./lib/peakup.f900000664000175000017500000000017712172374464011757 0ustar jtnjtnsubroutine peakup(ym,y0,yp,dx) b=(yp-ym)/2.0 c=(yp+ym-2.0*y0)/2.0 dx=-b/(2.0*c) return end subroutine peakup ./lib/unpackcall.f900000664000175000017500000000472712172374464012614 0ustar jtnjtnsubroutine unpackcall(ncall,word,iv2,psfx) parameter (NBASE=37*36*10*27*27*27) character word*12,c*37,psfx*4 data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ '/ n=ncall iv2=0 if(n.ge.262177560) go to 20 word='......' if(n.ge.262177560) go to 999 !Plain text message ... i=mod(n,27)+11 word(6:6)=c(i:i) n=n/27 i=mod(n,27)+11 word(5:5)=c(i:i) n=n/27 i=mod(n,27)+11 word(4:4)=c(i:i) n=n/27 i=mod(n,10)+1 word(3:3)=c(i:i) n=n/10 i=mod(n,36)+1 word(2:2)=c(i:i) n=n/36 i=n+1 word(1:1)=c(i:i) do i=1,4 if(word(i:i).ne.' ') go to 10 enddo go to 999 10 word=word(i:) go to 999 20 if(n.ge.267796946) go to 999 ! We have a JT65v2 message if((n.ge.262178563) .and. (n.le.264002071)) Then ! CQ with prefix iv2=1 n=n-262178563 i=mod(n,37)+1 psfx(4:4)=c(i:i) n=n/37 i=mod(n,37)+1 psfx(3:3)=c(i:i) n=n/37 i=mod(n,37)+1 psfx(2:2)=c(i:i) n=n/37 i=n+1 psfx(1:1)=c(i:i) endif if((n.ge.264002072) .and. (n.le.265825580)) Then ! QRZ with prefix iv2=2 n=n-264002072 i=mod(n,37)+1 psfx(4:4)=c(i:i) n=n/37 i=mod(n,37)+1 psfx(3:3)=c(i:i) n=n/37 i=mod(n,37)+1 psfx(2:2)=c(i:i) n=n/37 i=n+1 psfx(1:1)=c(i:i) endif if((n.ge.265825581) .and. (n.le.267649089)) Then ! DE with prefix iv2=3 n=n-265825581 i=mod(n,37)+1 psfx(4:4)=c(i:i) n=n/37 i=mod(n,37)+1 psfx(3:3)=c(i:i) n=n/37 i=mod(n,37)+1 psfx(2:2)=c(i:i) n=n/37 i=n+1 psfx(1:1)=c(i:i) endif if((n.ge.267649090) .and. (n.le.267698374)) Then ! CQ with suffix iv2=4 n=n-267649090 i=mod(n,37)+1 psfx(3:3)=c(i:i) n=n/37 i=mod(n,37)+1 psfx(2:2)=c(i:i) n=n/37 i=n+1 psfx(1:1)=c(i:i) endif if((n.ge.267698375) .and. (n.le.267747659)) Then ! QRZ with suffix iv2=5 n=n-267698375 i=mod(n,37)+1 psfx(3:3)=c(i:i) n=n/37 i=mod(n,37)+1 psfx(2:2)=c(i:i) n=n/37 i=n+1 psfx(1:1)=c(i:i) endif if((n.ge.267747660) .and. (n.le.267796944)) Then ! DE with suffix iv2=6 n=n-267747660 i=mod(n,37)+1 psfx(3:3)=c(i:i) n=n/37 i=mod(n,37)+1 psfx(2:2)=c(i:i) n=n/37 i=n+1 psfx(1:1)=c(i:i) endif if(n.eq.267796945) Then ! DE with no prefix or suffix iv2=7 psfx = ' ' endif 999 if(word(1:3).eq.'3D0') word='3DA0'//word(4:) return end subroutine unpackcall ./lib/pfx.f900000664000175000017500000000663612172374464011275 0ustar jtnjtn parameter (NZ=339) !Total number of prefixes parameter (NZ2=12) !Total number of suffixes character*1 sfx(NZ2) character*5 pfx(NZ) data sfx/'P','0','1','2','3','4','5','6','7','8','9','A'/ data pfx/ & '1A ','1S ','3A ','3B6 ','3B8 ','3B9 ','3C ','3C0 ', & '3D2 ','3D2C ','3D2R ','3DA ','3V ','3W ','3X ','3Y ', & '3YB ','3YP ','4J ','4L ','4S ','4U1I ','4U1U ','4W ', & '4X ','5A ','5B ','5H ','5N ','5R ','5T ','5U ', & '5V ','5W ','5X ','5Z ','6W ','6Y ','7O ','7P ', & '7Q ','7X ','8P ','8Q ','8R ','9A ','9G ','9H ', & '9J ','9K ','9L ','9M2 ','9M6 ','9N ','9Q ','9U ', & '9V ','9X ','9Y ','A2 ','A3 ','A4 ','A5 ','A6 ', & 'A7 ','A9 ','AP ','BS7 ','BV ','BV9 ','BY ','C2 ', & 'C3 ','C5 ','C6 ','C9 ','CE ','CE0X ','CE0Y ','CE0Z ', & 'CE9 ','CM ','CN ','CP ','CT ','CT3 ','CU ','CX ', & 'CY0 ','CY9 ','D2 ','D4 ','D6 ','DL ','DU ','E3 ', & 'E4 ','EA ','EA6 ','EA8 ','EA9 ','EI ','EK ','EL ', & 'EP ','ER ','ES ','ET ','EU ','EX ','EY ','EZ ', & 'F ','FG ','FH ','FJ ','FK ','FKC ','FM ','FO ', & 'FOA ','FOC ','FOM ','FP ','FR ','FRG ','FRJ ','FRT ', & 'FT5W ','FT5X ','FT5Z ','FW ','FY ','M ','MD ','MI ', & 'MJ ','MM ', 'MU ','MW ','H4 ','H40 ','HA ', & 'HB ','HB0 ','HC ','HC8 ','HH ','HI ','HK ','HK0A ', & 'HK0M ','HL ','HM ','HP ','HR ','HS ','HV ','HZ ', & 'I ','IS ','IS0 ', 'J2 ','J3 ','J5 ','J6 ', & 'J7 ','J8 ','JA ','JDM ','JDO ','JT ','JW ', & 'JX ','JY ','K ','KG4 ','KH0 ','KH1 ','KH2 ','KH3 ', & 'KH4 ','KH5 ','KH5K ','KH6 ','KH7 ','KH8 ','KH9 ','KL ', & 'KP1 ','KP2 ','KP4 ','KP5 ','LA ','LU ','LX ','LY ', & 'LZ ','OA ','OD ','OE ','OH ','OH0 ','OJ0 ','OK ', & 'OM ','ON ','OX ','OY ','OZ ','P2 ','P4 ','PA ', & 'PJ2 ','PJ7 ','PY ','PY0F ','PT0S ','PY0T ','PZ ','R1F ', & 'R1M ','S0 ','S2 ','S5 ','S7 ','S9 ','SM ','SP ', & 'ST ','SU ','SV ','SVA ','SV5 ','SV9 ','T2 ','T30 ', & 'T31 ','T32 ','T33 ','T5 ','T7 ','T8 ','T9 ','TA ', & 'TF ','TG ','TI ','TI9 ','TJ ','TK ','TL ', & 'TN ','TR ','TT ','TU ','TY ','TZ ','UA ','UA2 ', & 'UA9 ','UK ','UN ','UR ','V2 ','V3 ','V4 ','V5 ', & 'V6 ','V7 ','V8 ','VE ','VK ','VK0H ','VK0M ','VK9C ', & 'VK9L ','VK9M ','VK9N ','VK9W ','VK9X ','VP2E ','VP2M ','VP2V ', & 'VP5 ','VP6 ','VP6D ','VP8 ','VP8G ','VP8H ','VP8O ','VP8S ', & 'VP9 ','VQ9 ','VR ','VU ','VU4 ','VU7 ','XE ','XF4 ', & 'XT ','XU ','XW ','XX9 ','XZ ','YA ','YB ','YI ', & 'YJ ','YK ','YL ','YN ','YO ','YS ','YU ','YV ', & 'YV0 ','Z2 ','Z3 ','ZA ','ZB ','ZC4 ','ZD7 ','ZD8 ', & 'ZD9 ','ZF ','ZK1N ','ZK1S ','ZK2 ','ZK3 ','ZL ','ZL7 ', & 'ZL8 ','ZL9 ','ZP ','ZS ','ZS8 ','KC4 ','E5 '/ ./lib/jt9c.f900000664000175000017500000000116612172374464011342 0ustar jtnjtnsubroutine jt9c(ss,savg,id2,nparams0) include 'constants.f90' real*4 ss(184*NSMAX),savg(NSMAX) integer*2 id2(NTMAX*12000) integer nparams0(21),nparams(21) character*20 datetime common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol, & kin,nzhsym,nsave,nagain,ndepth,ntxmode,nmode,datetime equivalence (nparams,nutc) nutc=id2(1)+int(savg(1)) !Silence compiler warning nparams=nparams0 !Copy parameters into common/npar/ call flush(6) ! if(sum(nparams).ne.0) call decoder(ss,id2) call decoder(ss,id2) return end subroutine jt9c ./lib/packgrid.f900000664000175000017500000000344312172374464012255 0ustar jtnjtnsubroutine packgrid(grid,ng,text) parameter (NGBASE=180*180) character*4 grid character*1 c1 logical text text=.false. if(grid.eq.' ') go to 90 !Blank grid is OK ! First, handle signal reports in the original range, -01 to -30 dB if(grid(1:1).eq.'-') then read(grid(2:3),*,err=800,end=800) n if(n.ge.1 .and. n.le.30) then ng=NGBASE+1+n go to 900 endif go to 10 else if(grid(1:2).eq.'R-') then read(grid(3:4),*,err=800,end=800) n if(n.ge.1 .and. n.le.30) then ng=NGBASE+31+n go to 900 endif go to 10 ! Now check for RO, RRR, or 73 in the message field normally used for grid else if(grid(1:4).eq.'RO ') then ng=NGBASE+62 go to 900 else if(grid(1:4).eq.'RRR ') then ng=NGBASE+63 go to 900 else if(grid(1:4).eq.'73 ') then ng=NGBASE+64 go to 900 endif ! Now check for extended-range signal reports: -50 to -31, and 0 to +49. 10 n=99 c1=grid(1:1) read(grid,*,err=20,end=20) n go to 30 20 read(grid(2:4),*,err=30,end=30) n 30 if(n.ge.-50 .and. n.le.49) then if(c1.eq.'R') then write(grid,1002) n+50 1002 format('LA',i2.2) else write(grid,1003) n+50 1003 format('KA',i2.2) endif go to 40 endif ! Maybe it's free text ? if(grid(1:1).lt.'A' .or. grid(1:1).gt.'R') text=.true. if(grid(2:2).lt.'A' .or. grid(2:2).gt.'R') text=.true. if(grid(3:3).lt.'0' .or. grid(3:3).gt.'9') text=.true. if(grid(4:4).lt.'0' .or. grid(4:4).gt.'9') text=.true. if(text) go to 900 ! OK, we have a properly formatted grid locator 40 call grid2deg(grid//'mm',dlong,dlat) long=int(dlong) lat=int(dlat+ 90.0) ng=((long+180)/2)*180 + lat go to 900 90 ng=NGBASE + 1 go to 900 800 text=.true. 900 continue return end subroutine packgrid ./lib/chkhist.f900000664000175000017500000000046412172374464012126 0ustar jtnjtnsubroutine chkhist(mrsym,nmax,ipk) integer mrsym(63) integer hist(0:63) hist=0 do j=1,63 i=mrsym(j) hist(i)=hist(i)+1 enddo nmax=0 do i=0,63 if(hist(i).gt.nmax) then nmax=hist(i) ipk=i+1 endif enddo return end subroutine chkhist ./lib/extract.F900000664000175000017500000000502612172374464012102 0ustar jtnjtnsubroutine extract(s3,nadd,ncount,nhist,decoded,ltext,nbmkv) real s3(64,63) character decoded*22 integer era(51),dat4(12),indx(64) integer mrsym(63),mr2sym(63),mrprob(63),mr2prob(63) logical nokv,ltext data nokv/.false./,nsec1/0/ save nbmkv=0 nfail=0 1 continue call demod64a(s3,nadd,mrsym,mrprob,mr2sym,mr2prob,ntest,nlow) if(ntest.lt.50 .or. nlow.gt.20) then ncount=-999 !Flag bad data go to 900 endif call chkhist(mrsym,nhist,ipk) if(nhist.ge.20) then nfail=nfail+1 call pctile(s3,4032,50,base) ! ### or, use ave from demod64a do j=1,63 s3(ipk,j)=base enddo if(nfail.gt.30) then decoded=' ' ncount=-1 go to 900 endif go to 1 endif call graycode65(mrsym,63,-1) call interleave63(mrsym,-1) call interleave63(mrprob,-1) ! Decode using Berlekamp-Massey algorithm nemax=30 !Max BM erasures call indexx(63,mrprob,indx) do i=1,nemax j=indx(i) if(mrprob(j).gt.120) then ne2=i-1 go to 2 endif era(i)=j-1 enddo ne2=nemax 2 decoded=' ' do nerase=0,ne2,2 call rs_decode(mrsym,era,nerase,dat4,ncount) if(ncount.ge.0) then call unpackmsg(dat4,decoded) if(iand(dat4(10),8).ne.0) ltext=.true. nbmkv=1 go to 900 endif enddo ! Berlekamp-Massey algorithm failed, try Koetter-Vardy if(nokv) go to 900 maxe=8 !Max KV errors in 12 most reliable symbols ! xlambda=12.0 xlambda=7.99 call graycode65(mr2sym,63,-1) call interleave63(mr2sym,-1) call interleave63(mr2prob,-1) nsec1=nsec1+1 write(22,rec=1) nsec1,xlambda,maxe,200,mrsym,mrprob,mr2sym,mr2prob call flush(22) call timer('kvasd ',0) #ifdef UNIX iret=system('./kvasd -q > dev_null') #else iret=system('kvasd -q > dev_null') #endif call timer('kvasd ',1) if(iret.ne.0) then if(.not.nokv) write(*,1000) 1000 format('Error in KV decoder, or no KV decoder present.') nokv=.true. go to 900 endif read(22,rec=2,err=900) nsec2,ncount,dat4 j=nsec2 !Silence compiler warning decoded=' ' ltext=.false. if(ncount.ge.0) then call unpackmsg(dat4,decoded) !Unpack the user message if(iand(dat4(10),8).ne.0) ltext=.true. nbmkv=2 endif 900 continue return end subroutine extract ./lib/unpackmsg.f900000664000175000017500000000504412172374464012460 0ustar jtnjtnsubroutine unpackmsg(dat,msg) parameter (NBASE=37*36*10*27*27*27) parameter (NGBASE=180*180) integer dat(12) character c1*12,c2*12,grid*4,msg*22,grid6*6,psfx*4,junk2*4 logical cqnnn cqnnn=.false. nc1=ishft(dat(1),22) + ishft(dat(2),16) + ishft(dat(3),10)+ & ishft(dat(4),4) + iand(ishft(dat(5),-2),15) nc2=ishft(iand(dat(5),3),26) + ishft(dat(6),20) + & ishft(dat(7),14) + ishft(dat(8),8) + ishft(dat(9),2) + & iand(ishft(dat(10),-4),3) ng=ishft(iand(dat(10),15),12) + ishft(dat(11),6) + dat(12) if(ng.ge.32768) then call unpacktext(nc1,nc2,ng,msg) go to 100 endif call unpackcall(nc1,c1,iv2,psfx) if(iv2.eq.0) then ! This is an "original JT65" message if(nc1.eq.NBASE+1) c1='CQ ' if(nc1.eq.NBASE+2) c1='QRZ ' nfreq=nc1-NBASE-3 if(nfreq.ge.0 .and. nfreq.le.999) then write(c1,1002) nfreq 1002 format('CQ ',i3.3) cqnnn=.true. endif endif call unpackcall(nc2,c2,junk1,junk2) call unpackgrid(ng,grid) if(iv2.gt.0) then ! This is a JT65v2 message do i=1,4 if(ichar(psfx(i:i)).eq.0) psfx(i:i)=' ' enddo n1=len_trim(psfx) n2=len_trim(c2) if(iv2.eq.1) msg='CQ '//psfx(:n1)//'/'//c2(:n2)//' '//grid if(iv2.eq.2) msg='QRZ '//psfx(:n1)//'/'//c2(:n2)//' '//grid if(iv2.eq.3) msg='DE '//psfx(:n1)//'/'//c2(:n2)//' '//grid if(iv2.eq.4) msg='CQ '//c2(:n2)//'/'//psfx(:n1)//' '//grid if(iv2.eq.5) msg='QRZ '//c2(:n2)//'/'//psfx(:n1)//' '//grid if(iv2.eq.6) msg='DE '//c2(:n2)//'/'//psfx(:n1)//' '//grid if(iv2.eq.7) msg='DE '//c2(:n2)//' '//grid go to 100 else endif grid6=grid//'ma' call grid2k(grid6,k) if(k.ge.1 .and. k.le.450) call getpfx2(k,c1) if(k.ge.451 .and. k.le.900) call getpfx2(k,c2) i=index(c1,char(0)) if(i.ge.3) c1=c1(1:i-1)//' ' i=index(c2,char(0)) if(i.ge.3) c2=c2(1:i-1)//' ' msg=' ' j=0 if(cqnnn) then msg=c1//' ' j=7 !### ??? ### go to 10 endif do i=1,12 j=j+1 msg(j:j)=c1(i:i) if(c1(i:i).eq.' ') go to 10 enddo j=j+1 msg(j:j)=' ' 10 do i=1,12 if(j.le.21) j=j+1 msg(j:j)=c2(i:i) if(c2(i:i).eq.' ') go to 20 enddo if(j.le.21) j=j+1 msg(j:j)=' ' 20 if(k.eq.0) then do i=1,4 if(j.le.21) j=j+1 msg(j:j)=grid(i:i) enddo if(j.le.21) j=j+1 msg(j:j)=' ' endif 100 continue if(msg(1:6).eq.'CQ9DX ') msg(3:3)=' ' return end subroutine unpackmsg ./lib/ccf2.f900000664000175000017500000000216712172374464011310 0ustar jtnjtnsubroutine ccf2(ss,nz,nflip,ccfbest,lagpk) parameter (LAGMAX=60) ! parameter (LAGMAX=200) real ss(nz) real ccf(-LAGMAX:LAGMAX) integer npr(126) ! The JT65 pseudo-random sync pattern: data npr/ & 1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0, & 0,1,0,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,1,1, & 0,1,1,0,1,1,1,1,0,0,0,1,1,0,1,0,1,0,1,1, & 0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1, & 1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,0,1,1,0,1, & 0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,1, & 1,1,1,1,1,1/ save ccfbest=0. lag1=-LAGMAX lag2=LAGMAX do lag=lag1,lag2 s0=0. s1=0. do i=1,126 j=2*(8*i + 43) + lag if(j.ge.1 .and. j.le.nz-8) then x=ss(j)+ss(j+8) !Add two half-symbol contributions if(npr(i).eq.0) then s0=s0 + x else s1=s1 + x endif endif enddo ccf(lag)=nflip*(s1-s0) if(ccf(lag).gt.ccfbest) then ccfbest=ccf(lag) lagpk=lag endif enddo return end subroutine ccf2 ./lib/fftw3.f900000664000175000017500000000353712172374464011526 0ustar jtnjtn INTEGER FFTW_R2HC PARAMETER (FFTW_R2HC=0) INTEGER FFTW_HC2R PARAMETER (FFTW_HC2R=1) INTEGER FFTW_DHT PARAMETER (FFTW_DHT=2) INTEGER FFTW_REDFT00 PARAMETER (FFTW_REDFT00=3) INTEGER FFTW_REDFT01 PARAMETER (FFTW_REDFT01=4) INTEGER FFTW_REDFT10 PARAMETER (FFTW_REDFT10=5) INTEGER FFTW_REDFT11 PARAMETER (FFTW_REDFT11=6) INTEGER FFTW_RODFT00 PARAMETER (FFTW_RODFT00=7) INTEGER FFTW_RODFT01 PARAMETER (FFTW_RODFT01=8) INTEGER FFTW_RODFT10 PARAMETER (FFTW_RODFT10=9) INTEGER FFTW_RODFT11 PARAMETER (FFTW_RODFT11=10) INTEGER FFTW_FORWARD PARAMETER (FFTW_FORWARD=-1) INTEGER FFTW_BACKWARD PARAMETER (FFTW_BACKWARD=+1) INTEGER FFTW_MEASURE PARAMETER (FFTW_MEASURE=0) INTEGER FFTW_DESTROY_INPUT PARAMETER (FFTW_DESTROY_INPUT=1) INTEGER FFTW_UNALIGNED PARAMETER (FFTW_UNALIGNED=2) INTEGER FFTW_CONSERVE_MEMORY PARAMETER (FFTW_CONSERVE_MEMORY=4) INTEGER FFTW_EXHAUSTIVE PARAMETER (FFTW_EXHAUSTIVE=8) INTEGER FFTW_PRESERVE_INPUT PARAMETER (FFTW_PRESERVE_INPUT=16) INTEGER FFTW_PATIENT PARAMETER (FFTW_PATIENT=32) INTEGER FFTW_ESTIMATE PARAMETER (FFTW_ESTIMATE=64) INTEGER FFTW_ESTIMATE_PATIENT PARAMETER (FFTW_ESTIMATE_PATIENT=128) INTEGER FFTW_BELIEVE_PCOST PARAMETER (FFTW_BELIEVE_PCOST=256) INTEGER FFTW_DFT_R2HC_ICKY PARAMETER (FFTW_DFT_R2HC_ICKY=512) INTEGER FFTW_NONTHREADED_ICKY PARAMETER (FFTW_NONTHREADED_ICKY=1024) INTEGER FFTW_NO_BUFFERING PARAMETER (FFTW_NO_BUFFERING=2048) INTEGER FFTW_NO_INDIRECT_OP PARAMETER (FFTW_NO_INDIRECT_OP=4096) INTEGER FFTW_ALLOW_LARGE_GENERIC PARAMETER (FFTW_ALLOW_LARGE_GENERIC=8192) INTEGER FFTW_NO_RANK_SPLITS PARAMETER (FFTW_NO_RANK_SPLITS=16384) INTEGER FFTW_NO_VRANK_SPLITS PARAMETER (FFTW_NO_VRANK_SPLITS=32768) INTEGER FFTW_NO_VRECURSE PARAMETER (FFTW_NO_VRECURSE=65536) INTEGER FFTW_NO_SIMD PARAMETER (FFTW_NO_SIMD=131072) ./lib/unpackgrid.f900000664000175000017500000000161612172374464012620 0ustar jtnjtnsubroutine unpackgrid(ng,grid) parameter (NGBASE=180*180) character grid*4,grid6*6 grid=' ' if(ng.ge.32400) go to 10 dlat=mod(ng,180)-90 dlong=(ng/180)*2 - 180 + 2 call deg2grid(dlong,dlat,grid6) grid=grid6(:4) if(grid(1:2).eq.'KA') then read(grid(3:4),*) n n=n-50 write(grid,1001) n 1001 format(i3.2) if(grid(1:1).eq.' ') grid(1:1)='+' else if(grid(1:2).eq.'LA') then read(grid(3:4),*) n n=n-50 write(grid,1002) n 1002 format('R',i3.2) if(grid(2:2).eq.' ') grid(2:2)='+' endif go to 900 10 n=ng-NGBASE-1 if(n.ge.1 .and.n.le.30) then write(grid,1012) -n 1012 format(i3.2) else if(n.ge.31 .and.n.le.60) then n=n-30 write(grid,1022) -n 1022 format('R',i3.2) else if(n.eq.61) then grid='RO' else if(n.eq.62) then grid='RRR' else if(n.eq.63) then grid='73' endif 900 return end subroutine unpackgrid ./lib/pfxdump.f900000664000175000017500000000046212172374464012152 0ustar jtnjtnsubroutine pfxdump(fname) character*(*) fname include 'pfx.f90' open(11,file=fname,status='unknown') write(11,1001) sfx 1001 format('Supported Suffixes:'/(11('/',a1,2x))) write(11,1002) pfx 1002 format(/'Supported Add-On DXCC Prefixes:'/(15(a5,1x))) close(11) return end subroutine pfxdump ./lib/jt9sync.f900000664000175000017500000000144612172374464012075 0ustar jtnjtn integer ii(16) !Locations of sync symbols data ii/ 1,2,5,10,16,23,33,35,51,52,55,60,66,73,83,85/ integer ii2(16) !Locations of sync half-symbols data ii2/1,3,9,19,31,45,65,69,101,103,109,119,131,145,165,169/ integer ka(16),kb(16) !Reference symbols for sync data ka/5,5,11,21,33,47,63,71,97,105,111,121,133,147,159,163/ data kb/7,7,13,23,35,49,67,73,99,107,113,123,135,149,161,167/ integer isync(85) !Sync vector data isync/ & 1,1,0,0,1,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0, & 0,0,1,0,0,0,0,0,0,0,0,0,1,0,1,0,0,0,0,0, & 0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,0,0,0,0,1, & 0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0, & 0,0,1,0,1/ ./lib/afc9.f900000664000175000017500000000304412172374464011310 0ustar jtnjtnsubroutine afc9(c3,npts,fsample,a,syncpk) complex c3(0:npts-1) real a(3),deltaa(3) a(1)=0. !f0 a(2)=0. !f1 a(3)=0. !f2 deltaa(1)=0.2 deltaa(2)=0.01 deltaa(3)=0.01 nterms=3 ! Start the iteration chisqr=0. chisqr0=1.e6 do iter=1,4 !One iteration is enough? do j=1,nterms chisq1=fchisq(c3,npts,fsample,a) fn=0. delta=deltaa(j) 10 a(j)=a(j)+delta chisq2=fchisq(c3,npts,fsample,a) if(chisq2.eq.chisq1) go to 10 if(chisq2.gt.chisq1) then delta=-delta !Reverse direction a(j)=a(j)+delta tmp=chisq1 chisq1=chisq2 chisq2=tmp endif 20 fn=fn+1.0 a(j)=a(j)+delta chisq3=fchisq(c3,npts,fsample,a) if(chisq3.lt.chisq2) then chisq1=chisq2 chisq2=chisq3 go to 20 endif ! Find minimum of parabola defined by last three points delta=delta*(1./(1.+(chisq1-chisq2)/(chisq3-chisq2))+0.5) a(j)=a(j)-delta deltaa(j)=deltaa(j)*fn/3. ! write(*,4000) iter,j,a,deltaa,-chisq2 !4000 format(i1,i2,6f10.4,f9.3) enddo chisqr=fchisq(c3,npts,fsample,a) if(chisqr/chisqr0.gt.0.9999) exit chisqr0=chisqr enddo syncpk=-chisqr ! write(*,4001) a,deltaa,-chisq2 !4001 format(3x,6f10.4,f9.3) return end subroutine afc9 ./lib/libhamlib.dll.a0000664000175000017500000053252412172374464013017 0ustar jtnjtn! / 1358175502 0 0 0 13032 ` 03,4p5ö5ö8888:r:r<ž<ž>â>âA&A&ChChE¬E¬GîGîJ0J0LrLrN´N´PöPöS8S8UzUzW¼W¼ZZ\X\X^ª^ª`â`âc2c2evevg°g°iôiôl:l:nrnrpªpªrârâu2u2wwyàyà||~h~h€¬€¬‚ð‚ð…4…4‡‡‰Ê‰ÊŒ Œ Ž^Ž^––’Ö’Ö•"•"—r—r™Ä™ÄœœžFžF Œ Œ¢Î¢Î¥¥§`§`©¢©¢«æ«æ®*®*°l°l²º²º´ü´ü·X·X¹š¹š»Ú»Ú¾¾ÀnÀnÂÆÂÆÅÅÇvÇvÉÈÉÈÌ Ì ÎfÎfШШÒúÒúÕ`Õ`פפÚÚÜFÜFÞžÞžàìàìã.ã.åtåtç¸ç¸êêìZìZîªîªðüðüóTóTõ¸õ¸÷þ÷þúLúLüœüœþøþøPP¢¢ææ44 Ž Ž Þ Þ""dd°°öö..hh¬¬òò!4!4#z#z%´%´'ø'ø*J*J,¤,¤.þ.þ1N1N3”3”5à5à8<8<:ˆ:ˆ<Ö<Ö?"?"ApApC¼C¼EôEôH@H@J†J†LÊLÊO$O$QtQtSÒSÒV"V"XZXZZ¦Z¦\ö\ö_H_Ha˜a˜cÜcÜf,f,h~h~jÎjÎmmoRoRq’q’sÔsÔv&v&x~x~zÖzÖ}.}.€€Â„„†`†`ˆ¢ˆ¢ŠôŠô88||‘Ô‘Ô”"”"–d–d˜ª˜ªšîšî22ŸvŸv¡Æ¡Æ¤¤¦f¦f¨¶¨¶ªøªø­P­P¯¢¯¢±æ±æ´4´4¶Ž¶Ž¸Þ¸Þ»"»"½d½d¿Ê¿ÊÂ&Â&Ä‚Ä‚ÆÚÆÚÉ&É&Ë„Ë„;;ÐÐÒTÒTÔ–Ô–ÖüÖüÙNÙNÛÛÝÐÝÐßôßôâXâXä’ä’æÒæÒééëpëpí°í°ïþïþòDòDô”ô”öÌöÌù ù ûLûLý„ý„ÿÜÿÜ""ttÐÐ   X X ¦ ¦àà22ŠŠÚÚ((xxÆÆ  "z"z$Ô$Ô'0'0)j)j+¸+¸..0d0d2¼2¼557P7P9Š9Š;Ê;Ê> > @f@fBÂBÂEEGxGxIÊIÊLLNrNrPÀPÀSSUlUlW²W²YòYò\2\2^€^€`Ì`ÌccejejgºgºjjlPlPn¢n¢pîpîs>s>uŠuŠwÚwÚz z |x|x~º~º€ú€úƒ:ƒ:…’…’‡â‡âŠ:Š:Œ€Œ€ŽÎŽÎ‘(‘(“v“v•Ú•Ú˜˜šNšNœœœœŸ Ÿ ¡8¡8£h£h¥ª¥ª§â§âªª¬F¬F®ž®ž°Ê°Ê³³_libhamlib_2_dll_iname__head_libhamlib_2_dll_write_block__imp__write_block_to_bcd_be__imp__to_bcd_be_to_bcd__imp__to_bcd_sprintf_freq__imp__sprintf_freq_serial_setup__imp__serial_setup_serial_open__imp__serial_open_serial_flush__imp__serial_flush_ser_set_rts__imp__ser_set_rts_ser_set_dtr__imp__ser_set_dtr_ser_set_brk__imp__ser_set_brk_ser_get_rts__imp__ser_get_rts_ser_get_dtr__imp__ser_get_dtr_ser_get_dsr__imp__ser_get_dsr_ser_get_cts__imp__ser_get_cts_ser_get_car__imp__ser_get_car_rot_unregister__imp__rot_unregister_rot_token_lookup__imp__rot_token_lookup_rot_token_foreach__imp__rot_token_foreach_rot_stop__imp__rot_stop_rot_set_position__imp__rot_set_position_rot_set_conf__imp__rot_set_conf_rot_reset__imp__rot_reset_rot_register__imp__rot_register_rot_probe_all__imp__rot_probe_all_rot_park__imp__rot_park_rot_open__imp__rot_open_rot_move__imp__rot_move_rot_load_backend__imp__rot_load_backend_rot_load_all_backends__imp__rot_load_all_backends_rot_list_foreach__imp__rot_list_foreach_rot_init__imp__rot_init_rot_get_position__imp__rot_get_position_rot_get_info__imp__rot_get_info_rot_get_conf__imp__rot_get_conf_rot_get_caps__imp__rot_get_caps_rot_confparam_lookup__imp__rot_confparam_lookup_rot_close__imp__rot_close_rot_cleanup__imp__rot_cleanup_rot_check_backend__imp__rot_check_backend_rigerror__imp__rigerror_rig_vfo_op__imp__rig_vfo_op_rig_unregister__imp__rig_unregister_rig_token_lookup__imp__rig_token_lookup_rig_token_foreach__imp__rig_token_foreach_rig_strvfop__imp__rig_strvfop_rig_strvfo__imp__rig_strvfo_rig_strstatus__imp__rig_strstatus_rig_strscan__imp__rig_strscan_rig_strrmode__imp__rig_strrmode_rig_strptrshift__imp__rig_strptrshift_rig_strparm__imp__rig_strparm_rig_strmtype__imp__rig_strmtype_rig_strlevel__imp__rig_strlevel_rig_strfunc__imp__rig_strfunc_rig_setting2idx__imp__rig_setting2idx_rig_set_xit__imp__rig_set_xit_rig_set_vfo_callback__imp__rig_set_vfo_callback_rig_set_vfo__imp__rig_set_vfo_rig_set_ts__imp__rig_set_ts_rig_set_trn__imp__rig_set_trn_rig_set_split_vfo__imp__rig_set_split_vfo_rig_set_split_mode__imp__rig_set_split_mode_rig_set_split_freq__imp__rig_set_split_freq_rig_set_rptr_shift__imp__rig_set_rptr_shift_rig_set_rptr_offs__imp__rig_set_rptr_offs_rig_set_rit__imp__rig_set_rit_rig_set_ptt_callback__imp__rig_set_ptt_callback_rig_set_ptt__imp__rig_set_ptt_rig_set_powerstat__imp__rig_set_powerstat_rig_set_pltune_callback__imp__rig_set_pltune_callback_rig_set_parm__imp__rig_set_parm_rig_set_mode_callback__imp__rig_set_mode_callback_rig_set_mode__imp__rig_set_mode_rig_set_mem_all_cb__imp__rig_set_mem_all_cb_rig_set_mem_all__imp__rig_set_mem_all_rig_set_mem__imp__rig_set_mem_rig_set_level__imp__rig_set_level_rig_set_func__imp__rig_set_func_rig_set_freq_callback__imp__rig_set_freq_callback_rig_set_freq__imp__rig_set_freq_rig_set_ext_parm__imp__rig_set_ext_parm_rig_set_ext_level__imp__rig_set_ext_level_rig_set_debug_file__imp__rig_set_debug_file_rig_set_debug_callback__imp__rig_set_debug_callback_rig_set_debug__imp__rig_set_debug_rig_set_dcs_sql__imp__rig_set_dcs_sql_rig_set_dcs_code__imp__rig_set_dcs_code_rig_set_dcd_callback__imp__rig_set_dcd_callback_rig_set_ctcss_tone__imp__rig_set_ctcss_tone_rig_set_ctcss_sql__imp__rig_set_ctcss_sql_rig_set_conf__imp__rig_set_conf_rig_set_channel__imp__rig_set_channel_rig_set_chan_all_cb__imp__rig_set_chan_all_cb_rig_set_chan_all__imp__rig_set_chan_all_rig_set_bank__imp__rig_set_bank_rig_set_ant__imp__rig_set_ant_rig_send_morse__imp__rig_send_morse_rig_send_dtmf__imp__rig_send_dtmf_rig_scan__imp__rig_scan_rig_reset__imp__rig_reset_rig_register__imp__rig_register_rig_recv_dtmf__imp__rig_recv_dtmf_rig_raw2val__imp__rig_raw2val_rig_probe_all__imp__rig_probe_all_rig_probe__imp__rig_probe_rig_power2mW__imp__rig_power2mW_rig_passband_wide__imp__rig_passband_wide_rig_passband_normal__imp__rig_passband_normal_rig_passband_narrow__imp__rig_passband_narrow_rig_parse_vfo_op__imp__rig_parse_vfo_op_rig_parse_vfo__imp__rig_parse_vfo_rig_parse_scan__imp__rig_parse_scan_rig_parse_rptr_shift__imp__rig_parse_rptr_shift_rig_parse_parm__imp__rig_parse_parm_rig_parse_mtype__imp__rig_parse_mtype_rig_parse_mode__imp__rig_parse_mode_rig_parse_level__imp__rig_parse_level_rig_parse_func__imp__rig_parse_func_rig_open__imp__rig_open_rig_need_debug__imp__rig_need_debug_rig_mem_count__imp__rig_mem_count_rig_mW2power__imp__rig_mW2power_rig_lookup_mem_caps__imp__rig_lookup_mem_caps_rig_load_backend__imp__rig_load_backend_rig_load_all_backends__imp__rig_load_all_backends_rig_list_foreach__imp__rig_list_foreach_rig_init__imp__rig_init_rig_has_vfo_op__imp__rig_has_vfo_op_rig_has_set_parm__imp__rig_has_set_parm_rig_has_set_level__imp__rig_has_set_level_rig_has_set_func__imp__rig_has_set_func_rig_has_scan__imp__rig_has_scan_rig_has_get_parm__imp__rig_has_get_parm_rig_has_get_level__imp__rig_has_get_level_rig_has_get_func__imp__rig_has_get_func_rig_get_xit__imp__rig_get_xit_rig_get_vfo__imp__rig_get_vfo_rig_get_ts__imp__rig_get_ts_rig_get_trn__imp__rig_get_trn_rig_get_split_vfo__imp__rig_get_split_vfo_rig_get_split_mode__imp__rig_get_split_mode_rig_get_split_freq__imp__rig_get_split_freq_rig_get_rptr_shift__imp__rig_get_rptr_shift_rig_get_rptr_offs__imp__rig_get_rptr_offs_rig_get_rit__imp__rig_get_rit_rig_get_resolution__imp__rig_get_resolution_rig_get_range__imp__rig_get_range_rig_get_ptt__imp__rig_get_ptt_rig_get_powerstat__imp__rig_get_powerstat_rig_get_parm__imp__rig_get_parm_rig_get_mode__imp__rig_get_mode_rig_get_mem_all_cb__imp__rig_get_mem_all_cb_rig_get_mem_all__imp__rig_get_mem_all_rig_get_mem__imp__rig_get_mem_rig_get_level__imp__rig_get_level_rig_get_info__imp__rig_get_info_rig_get_func__imp__rig_get_func_rig_get_freq__imp__rig_get_freq_rig_get_ext_parm__imp__rig_get_ext_parm_rig_get_ext_level__imp__rig_get_ext_level_rig_get_dcs_sql__imp__rig_get_dcs_sql_rig_get_dcs_code__imp__rig_get_dcs_code_rig_get_dcd__imp__rig_get_dcd_rig_get_ctcss_tone__imp__rig_get_ctcss_tone_rig_get_ctcss_sql__imp__rig_get_ctcss_sql_rig_get_conf__imp__rig_get_conf_rig_get_channel__imp__rig_get_channel_rig_get_chan_all_cb__imp__rig_get_chan_all_cb_rig_get_chan_all__imp__rig_get_chan_all_rig_get_caps__imp__rig_get_caps_rig_get_ant__imp__rig_get_ant_rig_force_cache_timeout__imp__rig_force_cache_timeout_rig_ext_token_lookup__imp__rig_ext_token_lookup_rig_ext_parm_foreach__imp__rig_ext_parm_foreach_rig_ext_lookup_tok__imp__rig_ext_lookup_tok_rig_ext_lookup__imp__rig_ext_lookup_rig_ext_level_foreach__imp__rig_ext_level_foreach_rig_debug__imp__rig_debug_rig_confparam_lookup__imp__rig_confparam_lookup_rig_close__imp__rig_close_rig_cleanup__imp__rig_cleanup_rig_check_cache_timeout__imp__rig_check_cache_timeout_rig_check_backend__imp__rig_check_backend_read_string__imp__read_string_read_block__imp__read_block_qrb__imp__qrb_preopen_LTX_get_vtable__imp__preopen_LTX_get_vtable_port_open__imp__port_open_port_close__imp__port_close_par_write_data__imp__par_write_data_par_write_control__imp__par_write_control_par_unlock__imp__par_unlock_par_read_status__imp__par_read_status_par_read_data__imp__par_read_data_par_read_control__imp__par_read_control_par_lock__imp__par_lock_lt_strlcpy__imp__lt_strlcpy_lt_strlcat__imp__lt_strlcat_lt_dlsym__imp__lt_dlsym_lt_dlsetsearchpath__imp__lt_dlsetsearchpath_lt_dlseterror__imp__lt_dlseterror_lt_dlpreload_open__imp__lt_dlpreload_open_lt_dlpreload_default__imp__lt_dlpreload_default_lt_dlpreload__imp__lt_dlpreload_lt_dlopenext__imp__lt_dlopenext_lt_dlopenadvise__imp__lt_dlopenadvise_lt_dlopen__imp__lt_dlopen_lt_dlmakeresident__imp__lt_dlmakeresident_lt_dlloader_remove__imp__lt_dlloader_remove_lt_dlloader_next__imp__lt_dlloader_next_lt_dlloader_get__imp__lt_dlloader_get_lt_dlloader_find__imp__lt_dlloader_find_lt_dlloader_add__imp__lt_dlloader_add_lt_dlisresident__imp__lt_dlisresident_lt_dlinterface_register__imp__lt_dlinterface_register_lt_dlinterface_free__imp__lt_dlinterface_free_lt_dlinsertsearchdir__imp__lt_dlinsertsearchdir_lt_dlinit__imp__lt_dlinit_lt_dlhandle_map__imp__lt_dlhandle_map_lt_dlhandle_iterate__imp__lt_dlhandle_iterate_lt_dlhandle_fetch__imp__lt_dlhandle_fetch_lt_dlgetsearchpath__imp__lt_dlgetsearchpath_lt_dlgetinfo__imp__lt_dlgetinfo_lt_dlforeachfile__imp__lt_dlforeachfile_lt_dlexit__imp__lt_dlexit_lt_dlerror__imp__lt_dlerror_lt_dlclose__imp__lt_dlclose_lt_dlcaller_set_data__imp__lt_dlcaller_set_data_lt_dlcaller_get_data__imp__lt_dlcaller_get_data_lt_dladvise_resident__imp__lt_dladvise_resident_lt_dladvise_preload__imp__lt_dladvise_preload_lt_dladvise_local__imp__lt_dladvise_local_lt_dladvise_init__imp__lt_dladvise_init_lt_dladvise_global__imp__lt_dladvise_global_lt_dladvise_ext__imp__lt_dladvise_ext_lt_dladvise_destroy__imp__lt_dladvise_destroy_lt_dladdsearchdir__imp__lt_dladdsearchdir_lt_dladderror__imp__lt_dladderror_lt__zalloc__imp__lt__zalloc_lt__strdup__imp__lt__strdup_lt__slist_unbox__imp__lt__slist_unbox_lt__slist_tail__imp__lt__slist_tail_lt__slist_sort__imp__lt__slist_sort_lt__slist_reverse__imp__lt__slist_reverse_lt__slist_remove__imp__lt__slist_remove_lt__slist_nth__imp__lt__slist_nth_lt__slist_length__imp__lt__slist_length_lt__slist_foreach__imp__lt__slist_foreach_lt__slist_find__imp__lt__slist_find_lt__slist_delete__imp__lt__slist_delete_lt__slist_cons__imp__lt__slist_cons_lt__slist_concat__imp__lt__slist_concat_lt__slist_box__imp__lt__slist_box_lt__set_last_error__imp__lt__set_last_error_lt__realloc__imp__lt__realloc_lt__memdup__imp__lt__memdup_lt__malloc__imp__lt__malloc_lt__get_last_error__imp__lt__get_last_error_lt__error_string__imp__lt__error_string_lt__argz_stringify__imp__lt__argz_stringify_lt__argz_next__imp__lt__argz_next_lt__argz_insert__imp__lt__argz_insert_lt__argz_create_sep__imp__lt__argz_create_sep_lt__argz_append__imp__lt__argz_append_lt__alloc_die_callback__imp__lt__alloc_die_callback__imp__lt__alloc_die__nm__lt__alloc_die_longlat2locator__imp__longlat2locator_locator2longlat__imp__locator2longlat_loadlibrary_LTX_get_vtable__imp__loadlibrary_LTX_get_vtable__imp__hamlib_version__nm__hamlib_version__imp__hamlib_copyright__nm__hamlib_copyright_from_bcd_be__imp__from_bcd_be_from_bcd__imp__from_bcd_dms2dec__imp__dms2dec_dmmm2dec__imp__dmmm2dec_distance_long_path__imp__distance_long_path_dec2dms__imp__dec2dms_dec2dmmm__imp__dec2dmmm_azimuth_long_path__imp__azimuth_long_pathd000280.o/ 1358175502 0 0 644 263 ` L¤.idata$4Œ0À.idata$50À.idata$7”0Àlibhamlib-2.dll.idata$4.idata$5.idata$7_libhamlib_2_dll_iname d000000.o/ 1358175502 0 0 644 330 ` L¾.idata$2Œ 0À.idata$50À.idata$40À .idata$2.idata$5.idata$42__head_libhamlib_2_dll_libhamlib_2_dll_inamed000279.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%write_block.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_write_block__imp__write_block__head_libhamlib_2_dll d000278.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%to_bcd_be.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_to_bcd_be__imp__to_bcd_be__head_libhamlib_2_dll d000277.o/ 1358175502 0 0 644 495 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%to_bcd.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ_to_bcd)__imp__to_bcd__head_libhamlib_2_dll d000276.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%sprintf_freq.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_sprintf_freq__imp__sprintf_freq__head_libhamlib_2_dll d000275.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%serial_setup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_serial_setup__imp__serial_setup__head_libhamlib_2_dll d000274.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%serial_open.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_serial_open__imp__serial_open__head_libhamlib_2_dll d000273.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%serial_flush.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_serial_flush__imp__serial_flush__head_libhamlib_2_dll d000272.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ser_set_rts.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_ser_set_rts__imp__ser_set_rts__head_libhamlib_2_dll d000271.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ser_set_dtr.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_ser_set_dtr__imp__ser_set_dtr__head_libhamlib_2_dll d000270.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ% ser_set_brk.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_ser_set_brk__imp__ser_set_brk__head_libhamlib_2_dll d000269.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ% ser_get_rts.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_ser_get_rts__imp__ser_get_rts__head_libhamlib_2_dll d000268.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ% ser_get_dtr.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_ser_get_dtr__imp__ser_get_dtr__head_libhamlib_2_dll d000267.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ% ser_get_dsr.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_ser_get_dsr__imp__ser_get_dsr__head_libhamlib_2_dll d000266.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ% ser_get_cts.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_ser_get_cts__imp__ser_get_cts__head_libhamlib_2_dll d000265.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ser_get_car.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_ser_get_car__imp__ser_get_car__head_libhamlib_2_dll d000264.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%rot_unregister.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rot_unregister__imp__rot_unregister__head_libhamlib_2_dll d000263.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%rot_token_lookup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rot_token_lookup__imp__rot_token_lookup__head_libhamlib_2_dll d000262.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%rot_token_foreach.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rot_token_foreach__imp__rot_token_foreach__head_libhamlib_2_dll d000261.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%rot_stop.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_rot_stop__imp__rot_stop__head_libhamlib_2_dll d000260.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%rot_set_position.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rot_set_position__imp__rot_set_position__head_libhamlib_2_dll d000259.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%rot_set_conf.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rot_set_conf__imp__rot_set_conf__head_libhamlib_2_dll d000258.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%rot_reset.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_rot_reset__imp__rot_reset__head_libhamlib_2_dll d000257.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%rot_register.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rot_register__imp__rot_register__head_libhamlib_2_dll d000256.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ÿrot_probe_all.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rot_probe_all__imp__rot_probe_all__head_libhamlib_2_dll d000255.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%þrot_park.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_rot_park__imp__rot_park__head_libhamlib_2_dll d000254.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%ýrot_open.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_rot_open__imp__rot_open__head_libhamlib_2_dll d000253.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%ürot_move.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_rot_move__imp__rot_move__head_libhamlib_2_dll d000252.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%ûrot_load_backend.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rot_load_backend__imp__rot_load_backend__head_libhamlib_2_dll d000251.o/ 1358175502 0 0 644 545 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%úrot_load_all_backends.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ8O_rot_load_all_backends__imp__rot_load_all_backends__head_libhamlib_2_dll d000250.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%ùrot_list_foreach.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rot_list_foreach__imp__rot_list_foreach__head_libhamlib_2_dll d000249.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%ørot_init.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_rot_init__imp__rot_init__head_libhamlib_2_dll d000248.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%÷rot_get_position.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rot_get_position__imp__rot_get_position__head_libhamlib_2_dll d000247.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%örot_get_info.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rot_get_info__imp__rot_get_info__head_libhamlib_2_dll d000246.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%õrot_get_conf.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rot_get_conf__imp__rot_get_conf__head_libhamlib_2_dll d000245.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ôrot_get_caps.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rot_get_caps__imp__rot_get_caps__head_libhamlib_2_dll d000244.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%órot_confparam_lookup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_rot_confparam_lookup__imp__rot_confparam_lookup__head_libhamlib_2_dll d000243.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%òrot_close.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_rot_close__imp__rot_close__head_libhamlib_2_dll d000242.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ñrot_cleanup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rot_cleanup__imp__rot_cleanup__head_libhamlib_2_dll d000241.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%ðrot_check_backend.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rot_check_backend__imp__rot_check_backend__head_libhamlib_2_dll d000240.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%ïrigerror.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_rigerror__imp__rigerror__head_libhamlib_2_dll d000239.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%îrig_vfo_op.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_rig_vfo_op__imp__rig_vfo_op__head_libhamlib_2_dll d000238.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%írig_unregister.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rig_unregister__imp__rig_unregister__head_libhamlib_2_dll d000237.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%ìrig_token_lookup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_token_lookup__imp__rig_token_lookup__head_libhamlib_2_dll d000236.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%ërig_token_foreach.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_token_foreach__imp__rig_token_foreach__head_libhamlib_2_dll d000235.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%êrig_strvfop.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_strvfop__imp__rig_strvfop__head_libhamlib_2_dll d000234.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%érig_strvfo.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_rig_strvfo__imp__rig_strvfo__head_libhamlib_2_dll d000233.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%èrig_strstatus.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_strstatus__imp__rig_strstatus__head_libhamlib_2_dll d000232.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%çrig_strscan.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_strscan__imp__rig_strscan__head_libhamlib_2_dll d000231.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ærig_strrmode.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_strrmode__imp__rig_strrmode__head_libhamlib_2_dll d000230.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%årig_strptrshift.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_strptrshift__imp__rig_strptrshift__head_libhamlib_2_dll d000229.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ärig_strparm.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_strparm__imp__rig_strparm__head_libhamlib_2_dll d000228.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ãrig_strmtype.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_strmtype__imp__rig_strmtype__head_libhamlib_2_dll d000227.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ârig_strlevel.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_strlevel__imp__rig_strlevel__head_libhamlib_2_dll d000226.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%árig_strfunc.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_strfunc__imp__rig_strfunc__head_libhamlib_2_dll d000225.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%àrig_setting2idx.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_setting2idx__imp__rig_setting2idx__head_libhamlib_2_dll d000224.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ßrig_set_xit.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_set_xit__imp__rig_set_xit__head_libhamlib_2_dll d000223.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Þrig_set_vfo_callback.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_rig_set_vfo_callback__imp__rig_set_vfo_callback__head_libhamlib_2_dll d000222.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Ýrig_set_vfo.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_set_vfo__imp__rig_set_vfo__head_libhamlib_2_dll d000221.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Ürig_set_ts.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_rig_set_ts__imp__rig_set_ts__head_libhamlib_2_dll d000220.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Ûrig_set_trn.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_set_trn__imp__rig_set_trn__head_libhamlib_2_dll d000219.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Úrig_set_split_vfo.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_set_split_vfo__imp__rig_set_split_vfo__head_libhamlib_2_dll d000218.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Ùrig_set_split_mode.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_set_split_mode__imp__rig_set_split_mode__head_libhamlib_2_dll d000217.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Ørig_set_split_freq.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_set_split_freq__imp__rig_set_split_freq__head_libhamlib_2_dll d000216.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%×rig_set_rptr_shift.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_set_rptr_shift__imp__rig_set_rptr_shift__head_libhamlib_2_dll d000215.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Örig_set_rptr_offs.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_set_rptr_offs__imp__rig_set_rptr_offs__head_libhamlib_2_dll d000214.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Õrig_set_rit.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_set_rit__imp__rig_set_rit__head_libhamlib_2_dll d000213.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Ôrig_set_ptt_callback.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_rig_set_ptt_callback__imp__rig_set_ptt_callback__head_libhamlib_2_dll d000212.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Órig_set_ptt.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_set_ptt__imp__rig_set_ptt__head_libhamlib_2_dll d000211.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Òrig_set_powerstat.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_set_powerstat__imp__rig_set_powerstat__head_libhamlib_2_dll d000210.o/ 1358175502 0 0 644 553 ` L4 .textÜ  0`.idata$7ä0À.idata$5è 0À.idata$4ì*0À.idata$6ð0Àÿ%Ñrig_set_pltune_callback.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ<S_rig_set_pltune_callback__imp__rig_set_pltune_callback__head_libhamlib_2_dll d000209.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Ðrig_set_parm.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_set_parm__imp__rig_set_parm__head_libhamlib_2_dll d000208.o/ 1358175502 0 0 644 545 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Ïrig_set_mode_callback.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ8O_rig_set_mode_callback__imp__rig_set_mode_callback__head_libhamlib_2_dll d000207.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Îrig_set_mode.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_set_mode__imp__rig_set_mode__head_libhamlib_2_dll d000206.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Írig_set_mem_all_cb.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_set_mem_all_cb__imp__rig_set_mem_all_cb__head_libhamlib_2_dll d000205.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Ìrig_set_mem_all.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_set_mem_all__imp__rig_set_mem_all__head_libhamlib_2_dll d000204.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Ërig_set_mem.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_set_mem__imp__rig_set_mem__head_libhamlib_2_dll d000203.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Êrig_set_level.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_set_level__imp__rig_set_level__head_libhamlib_2_dll d000202.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Érig_set_func.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_set_func__imp__rig_set_func__head_libhamlib_2_dll d000201.o/ 1358175502 0 0 644 545 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Èrig_set_freq_callback.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ8O_rig_set_freq_callback__imp__rig_set_freq_callback__head_libhamlib_2_dll d000200.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Çrig_set_freq.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_set_freq__imp__rig_set_freq__head_libhamlib_2_dll d000199.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Ærig_set_ext_parm.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_set_ext_parm__imp__rig_set_ext_parm__head_libhamlib_2_dll d000198.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Årig_set_ext_level.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_set_ext_level__imp__rig_set_ext_level__head_libhamlib_2_dll d000197.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Ärig_set_debug_file.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_set_debug_file__imp__rig_set_debug_file__head_libhamlib_2_dll d000196.o/ 1358175502 0 0 644 551 ` L4 .textÜ  0`.idata$7ä0À.idata$5è 0À.idata$4ì*0À.idata$6ð0Àÿ%Ãrig_set_debug_callback.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ:Q_rig_set_debug_callback__imp__rig_set_debug_callback__head_libhamlib_2_dll d000195.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Ârig_set_debug.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_set_debug__imp__rig_set_debug__head_libhamlib_2_dll d000194.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Árig_set_dcs_sql.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_set_dcs_sql__imp__rig_set_dcs_sql__head_libhamlib_2_dll d000193.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Àrig_set_dcs_code.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_set_dcs_code__imp__rig_set_dcs_code__head_libhamlib_2_dll d000192.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%¿rig_set_dcd_callback.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_rig_set_dcd_callback__imp__rig_set_dcd_callback__head_libhamlib_2_dll d000191.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%¾rig_set_ctcss_tone.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_set_ctcss_tone__imp__rig_set_ctcss_tone__head_libhamlib_2_dll d000190.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%½rig_set_ctcss_sql.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_set_ctcss_sql__imp__rig_set_ctcss_sql__head_libhamlib_2_dll d000189.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%¼rig_set_conf.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_set_conf__imp__rig_set_conf__head_libhamlib_2_dll d000188.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%»rig_set_channel.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_set_channel__imp__rig_set_channel__head_libhamlib_2_dll d000187.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%ºrig_set_chan_all_cb.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_rig_set_chan_all_cb__imp__rig_set_chan_all_cb__head_libhamlib_2_dll d000186.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%¹rig_set_chan_all.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_set_chan_all__imp__rig_set_chan_all__head_libhamlib_2_dll d000185.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%¸rig_set_bank.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_set_bank__imp__rig_set_bank__head_libhamlib_2_dll d000184.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%·rig_set_ant.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_set_ant__imp__rig_set_ant__head_libhamlib_2_dll d000183.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%¶rig_send_morse.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rig_send_morse__imp__rig_send_morse__head_libhamlib_2_dll d000182.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%µrig_send_dtmf.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_send_dtmf__imp__rig_send_dtmf__head_libhamlib_2_dll d000181.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%´rig_scan.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_rig_scan__imp__rig_scan__head_libhamlib_2_dll d000180.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%³rig_reset.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_rig_reset__imp__rig_reset__head_libhamlib_2_dll d000179.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%²rig_register.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_register__imp__rig_register__head_libhamlib_2_dll d000178.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%±rig_recv_dtmf.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_recv_dtmf__imp__rig_recv_dtmf__head_libhamlib_2_dll d000177.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%°rig_raw2val.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_raw2val__imp__rig_raw2val__head_libhamlib_2_dll d000176.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%¯rig_probe_all.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_probe_all__imp__rig_probe_all__head_libhamlib_2_dll d000175.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%®rig_probe.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_rig_probe__imp__rig_probe__head_libhamlib_2_dll d000174.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%­rig_power2mW.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_power2mW__imp__rig_power2mW__head_libhamlib_2_dll d000173.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%¬rig_passband_wide.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_passband_wide__imp__rig_passband_wide__head_libhamlib_2_dll d000172.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%«rig_passband_normal.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_rig_passband_normal__imp__rig_passband_normal__head_libhamlib_2_dll d000171.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%ªrig_passband_narrow.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_rig_passband_narrow__imp__rig_passband_narrow__head_libhamlib_2_dll d000170.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%©rig_parse_vfo_op.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_parse_vfo_op__imp__rig_parse_vfo_op__head_libhamlib_2_dll d000169.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%¨rig_parse_vfo.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_parse_vfo__imp__rig_parse_vfo__head_libhamlib_2_dll d000168.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%§rig_parse_scan.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rig_parse_scan__imp__rig_parse_scan__head_libhamlib_2_dll d000167.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%¦rig_parse_rptr_shift.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_rig_parse_rptr_shift__imp__rig_parse_rptr_shift__head_libhamlib_2_dll d000166.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%¥rig_parse_parm.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rig_parse_parm__imp__rig_parse_parm__head_libhamlib_2_dll d000165.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%¤rig_parse_mtype.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_parse_mtype__imp__rig_parse_mtype__head_libhamlib_2_dll d000164.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%£rig_parse_mode.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rig_parse_mode__imp__rig_parse_mode__head_libhamlib_2_dll d000163.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%¢rig_parse_level.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_parse_level__imp__rig_parse_level__head_libhamlib_2_dll d000162.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%¡rig_parse_func.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rig_parse_func__imp__rig_parse_func__head_libhamlib_2_dll d000161.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ% rig_open.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_rig_open__imp__rig_open__head_libhamlib_2_dll d000160.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Ÿrig_need_debug.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rig_need_debug__imp__rig_need_debug__head_libhamlib_2_dll d000159.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%žrig_mem_count.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_mem_count__imp__rig_mem_count__head_libhamlib_2_dll d000158.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%rig_mW2power.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_mW2power__imp__rig_mW2power__head_libhamlib_2_dll d000157.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%œrig_lookup_mem_caps.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_rig_lookup_mem_caps__imp__rig_lookup_mem_caps__head_libhamlib_2_dll d000156.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%›rig_load_backend.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_load_backend__imp__rig_load_backend__head_libhamlib_2_dll d000155.o/ 1358175502 0 0 644 545 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%šrig_load_all_backends.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ8O_rig_load_all_backends__imp__rig_load_all_backends__head_libhamlib_2_dll d000154.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%™rig_list_foreach.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_list_foreach__imp__rig_list_foreach__head_libhamlib_2_dll d000153.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%˜rig_init.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_rig_init__imp__rig_init__head_libhamlib_2_dll d000152.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%—rig_has_vfo_op.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rig_has_vfo_op__imp__rig_has_vfo_op__head_libhamlib_2_dll d000151.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%–rig_has_set_parm.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_has_set_parm__imp__rig_has_set_parm__head_libhamlib_2_dll d000150.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%•rig_has_set_level.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_has_set_level__imp__rig_has_set_level__head_libhamlib_2_dll d000149.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%”rig_has_set_func.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_has_set_func__imp__rig_has_set_func__head_libhamlib_2_dll d000148.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%“rig_has_scan.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_has_scan__imp__rig_has_scan__head_libhamlib_2_dll d000147.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%’rig_has_get_parm.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_has_get_parm__imp__rig_has_get_parm__head_libhamlib_2_dll d000146.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%‘rig_has_get_level.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_has_get_level__imp__rig_has_get_level__head_libhamlib_2_dll d000145.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%rig_has_get_func.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_has_get_func__imp__rig_has_get_func__head_libhamlib_2_dll d000144.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%rig_get_xit.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_get_xit__imp__rig_get_xit__head_libhamlib_2_dll d000143.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Žrig_get_vfo.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_get_vfo__imp__rig_get_vfo__head_libhamlib_2_dll d000142.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%rig_get_ts.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_rig_get_ts__imp__rig_get_ts__head_libhamlib_2_dll d000141.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Œrig_get_trn.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_get_trn__imp__rig_get_trn__head_libhamlib_2_dll d000140.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%‹rig_get_split_vfo.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_get_split_vfo__imp__rig_get_split_vfo__head_libhamlib_2_dll d000139.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Šrig_get_split_mode.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_get_split_mode__imp__rig_get_split_mode__head_libhamlib_2_dll d000138.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%‰rig_get_split_freq.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_get_split_freq__imp__rig_get_split_freq__head_libhamlib_2_dll d000137.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%ˆrig_get_rptr_shift.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_get_rptr_shift__imp__rig_get_rptr_shift__head_libhamlib_2_dll d000136.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%‡rig_get_rptr_offs.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_get_rptr_offs__imp__rig_get_rptr_offs__head_libhamlib_2_dll d000135.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%†rig_get_rit.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_get_rit__imp__rig_get_rit__head_libhamlib_2_dll d000134.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%…rig_get_resolution.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_get_resolution__imp__rig_get_resolution__head_libhamlib_2_dll d000133.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%„rig_get_range.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_get_range__imp__rig_get_range__head_libhamlib_2_dll d000132.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%ƒrig_get_ptt.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_get_ptt__imp__rig_get_ptt__head_libhamlib_2_dll d000131.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%‚rig_get_powerstat.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_get_powerstat__imp__rig_get_powerstat__head_libhamlib_2_dll d000130.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%rig_get_parm.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_get_parm__imp__rig_get_parm__head_libhamlib_2_dll d000129.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%€rig_get_mode.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_get_mode__imp__rig_get_mode__head_libhamlib_2_dll d000128.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%rig_get_mem_all_cb.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_get_mem_all_cb__imp__rig_get_mem_all_cb__head_libhamlib_2_dll d000127.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%~rig_get_mem_all.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_get_mem_all__imp__rig_get_mem_all__head_libhamlib_2_dll d000126.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%}rig_get_mem.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_get_mem__imp__rig_get_mem__head_libhamlib_2_dll d000125.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%|rig_get_level.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_rig_get_level__imp__rig_get_level__head_libhamlib_2_dll d000124.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%{rig_get_info.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_get_info__imp__rig_get_info__head_libhamlib_2_dll d000123.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%zrig_get_func.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_get_func__imp__rig_get_func__head_libhamlib_2_dll d000122.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%yrig_get_freq.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_get_freq__imp__rig_get_freq__head_libhamlib_2_dll d000121.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%xrig_get_ext_parm.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_get_ext_parm__imp__rig_get_ext_parm__head_libhamlib_2_dll d000120.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%wrig_get_ext_level.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_get_ext_level__imp__rig_get_ext_level__head_libhamlib_2_dll d000119.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%vrig_get_dcs_sql.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_get_dcs_sql__imp__rig_get_dcs_sql__head_libhamlib_2_dll d000118.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%urig_get_dcs_code.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_get_dcs_code__imp__rig_get_dcs_code__head_libhamlib_2_dll d000117.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%trig_get_dcd.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_get_dcd__imp__rig_get_dcd__head_libhamlib_2_dll d000116.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%srig_get_ctcss_tone.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_get_ctcss_tone__imp__rig_get_ctcss_tone__head_libhamlib_2_dll d000115.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%rrig_get_ctcss_sql.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_get_ctcss_sql__imp__rig_get_ctcss_sql__head_libhamlib_2_dll d000114.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%qrig_get_conf.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_get_conf__imp__rig_get_conf__head_libhamlib_2_dll d000113.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%prig_get_channel.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_rig_get_channel__imp__rig_get_channel__head_libhamlib_2_dll d000112.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%orig_get_chan_all_cb.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_rig_get_chan_all_cb__imp__rig_get_chan_all_cb__head_libhamlib_2_dll d000111.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%nrig_get_chan_all.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_rig_get_chan_all__imp__rig_get_chan_all__head_libhamlib_2_dll d000110.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%mrig_get_caps.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_rig_get_caps__imp__rig_get_caps__head_libhamlib_2_dll d000109.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%lrig_get_ant.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_get_ant__imp__rig_get_ant__head_libhamlib_2_dll d000108.o/ 1358175502 0 0 644 553 ` L4 .textÜ  0`.idata$7ä0À.idata$5è 0À.idata$4ì*0À.idata$6ð0Àÿ%krig_force_cache_timeout.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ<S_rig_force_cache_timeout__imp__rig_force_cache_timeout__head_libhamlib_2_dll d000107.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%jrig_ext_token_lookup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_rig_ext_token_lookup__imp__rig_ext_token_lookup__head_libhamlib_2_dll d000106.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%irig_ext_parm_foreach.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_rig_ext_parm_foreach__imp__rig_ext_parm_foreach__head_libhamlib_2_dll d000105.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%hrig_ext_lookup_tok.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_rig_ext_lookup_tok__imp__rig_ext_lookup_tok__head_libhamlib_2_dll d000104.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%grig_ext_lookup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_rig_ext_lookup__imp__rig_ext_lookup__head_libhamlib_2_dll d000103.o/ 1358175502 0 0 644 545 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%frig_ext_level_foreach.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ8O_rig_ext_level_foreach__imp__rig_ext_level_foreach__head_libhamlib_2_dll d000102.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%erig_debug.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_rig_debug__imp__rig_debug__head_libhamlib_2_dll d000101.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%drig_confparam_lookup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_rig_confparam_lookup__imp__rig_confparam_lookup__head_libhamlib_2_dll d000100.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%crig_close.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_rig_close__imp__rig_close__head_libhamlib_2_dll d000099.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%brig_cleanup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_rig_cleanup__imp__rig_cleanup__head_libhamlib_2_dll d000098.o/ 1358175502 0 0 644 553 ` L4 .textÜ  0`.idata$7ä0À.idata$5è 0À.idata$4ì*0À.idata$6ð0Àÿ%arig_check_cache_timeout.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ<S_rig_check_cache_timeout__imp__rig_check_cache_timeout__head_libhamlib_2_dll d000097.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%`rig_check_backend.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_rig_check_backend__imp__rig_check_backend__head_libhamlib_2_dll d000096.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%_read_string.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_read_string__imp__read_string__head_libhamlib_2_dll d000095.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%^read_block.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_read_block__imp__read_block__head_libhamlib_2_dll d000094.o/ 1358175502 0 0 644 488 ` L  .textÜø 0`.idata$7ä0À.idata$5è 0À.idata$4ì0À.idata$6ð0Àÿ%]qrb.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ_qrb&__imp__qrb__head_libhamlib_2_dlld000093.o/ 1358175502 0 0 644 551 ` L4 .textÜ  0`.idata$7ä0À.idata$5è 0À.idata$4ì*0À.idata$6ð0Àÿ%\preopen_LTX_get_vtable.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ:Q_preopen_LTX_get_vtable__imp__preopen_LTX_get_vtable__head_libhamlib_2_dll d000092.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%[port_open.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_port_open__imp__port_open__head_libhamlib_2_dll d000091.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Zport_close.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_port_close__imp__port_close__head_libhamlib_2_dll d000090.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Ypar_write_data.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_par_write_data__imp__par_write_data__head_libhamlib_2_dll d000089.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Xpar_write_control.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_par_write_control__imp__par_write_control__head_libhamlib_2_dll d000088.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Wpar_unlock.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_par_unlock__imp__par_unlock__head_libhamlib_2_dll d000087.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Vpar_read_status.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_par_read_status__imp__par_read_status__head_libhamlib_2_dll d000086.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Upar_read_data.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_par_read_data__imp__par_read_data__head_libhamlib_2_dll d000085.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Tpar_read_control.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_par_read_control__imp__par_read_control__head_libhamlib_2_dll d000084.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%Spar_lock.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_par_lock__imp__par_lock__head_libhamlib_2_dll d000083.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Rlt_strlcpy.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_lt_strlcpy__imp__lt_strlcpy__head_libhamlib_2_dll d000082.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Qlt_strlcat.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_lt_strlcat__imp__lt_strlcat__head_libhamlib_2_dll d000081.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%Plt_dlsym.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_lt_dlsym__imp__lt_dlsym__head_libhamlib_2_dll d000080.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Olt_dlsetsearchpath.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_lt_dlsetsearchpath__imp__lt_dlsetsearchpath__head_libhamlib_2_dll d000079.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Nlt_dlseterror.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_lt_dlseterror__imp__lt_dlseterror__head_libhamlib_2_dll d000078.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Mlt_dlpreload_open.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_lt_dlpreload_open__imp__lt_dlpreload_open__head_libhamlib_2_dll d000077.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Llt_dlpreload_default.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_lt_dlpreload_default__imp__lt_dlpreload_default__head_libhamlib_2_dll d000076.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Klt_dlpreload.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_lt_dlpreload__imp__lt_dlpreload__head_libhamlib_2_dll d000075.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%Jlt_dlopenext.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_lt_dlopenext__imp__lt_dlopenext__head_libhamlib_2_dll d000074.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Ilt_dlopenadvise.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_lt_dlopenadvise__imp__lt_dlopenadvise__head_libhamlib_2_dll d000073.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%Hlt_dlopen.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_lt_dlopen__imp__lt_dlopen__head_libhamlib_2_dll d000072.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Glt_dlmakeresident.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_lt_dlmakeresident__imp__lt_dlmakeresident__head_libhamlib_2_dll d000071.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%Flt_dlloader_remove.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_lt_dlloader_remove__imp__lt_dlloader_remove__head_libhamlib_2_dll d000070.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Elt_dlloader_next.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_lt_dlloader_next__imp__lt_dlloader_next__head_libhamlib_2_dll d000069.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Dlt_dlloader_get.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_lt_dlloader_get__imp__lt_dlloader_get__head_libhamlib_2_dll d000068.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Clt_dlloader_find.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_lt_dlloader_find__imp__lt_dlloader_find__head_libhamlib_2_dll d000067.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Blt_dlloader_add.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_lt_dlloader_add__imp__lt_dlloader_add__head_libhamlib_2_dll d000066.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%Alt_dlisresident.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_lt_dlisresident__imp__lt_dlisresident__head_libhamlib_2_dll d000065.o/ 1358175502 0 0 644 553 ` L4 .textÜ  0`.idata$7ä0À.idata$5è 0À.idata$4ì*0À.idata$6ð0Àÿ%@lt_dlinterface_register.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ<S_lt_dlinterface_register__imp__lt_dlinterface_register__head_libhamlib_2_dll d000064.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%?lt_dlinterface_free.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_lt_dlinterface_free__imp__lt_dlinterface_free__head_libhamlib_2_dll d000063.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%>lt_dlinsertsearchdir.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_lt_dlinsertsearchdir__imp__lt_dlinsertsearchdir__head_libhamlib_2_dll d000062.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%=lt_dlinit.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_lt_dlinit__imp__lt_dlinit__head_libhamlib_2_dll d000061.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%<lt_dlhandle_map.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_lt_dlhandle_map__imp__lt_dlhandle_map__head_libhamlib_2_dll d000060.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%;lt_dlhandle_iterate.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_lt_dlhandle_iterate__imp__lt_dlhandle_iterate__head_libhamlib_2_dll d000059.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%:lt_dlhandle_fetch.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_lt_dlhandle_fetch__imp__lt_dlhandle_fetch__head_libhamlib_2_dll d000058.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%9lt_dlgetsearchpath.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_lt_dlgetsearchpath__imp__lt_dlgetsearchpath__head_libhamlib_2_dll d000057.o/ 1358175502 0 0 644 519 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%8lt_dlgetinfo.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ&=_lt_dlgetinfo__imp__lt_dlgetinfo__head_libhamlib_2_dll d000056.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%7lt_dlforeachfile.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_lt_dlforeachfile__imp__lt_dlforeachfile__head_libhamlib_2_dll d000055.o/ 1358175502 0 0 644 509 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%6lt_dlexit.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ 7_lt_dlexit__imp__lt_dlexit__head_libhamlib_2_dll d000054.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%5lt_dlerror.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_lt_dlerror__imp__lt_dlerror__head_libhamlib_2_dll d000053.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%4lt_dlclose.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_lt_dlclose__imp__lt_dlclose__head_libhamlib_2_dll d000052.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%3lt_dlcaller_set_data.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_lt_dlcaller_set_data__imp__lt_dlcaller_set_data__head_libhamlib_2_dll d000051.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%2lt_dlcaller_get_data.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_lt_dlcaller_get_data__imp__lt_dlcaller_get_data__head_libhamlib_2_dll d000050.o/ 1358175502 0 0 644 543 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%1lt_dladvise_resident.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ6M_lt_dladvise_resident__imp__lt_dladvise_resident__head_libhamlib_2_dll d000049.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%0lt_dladvise_preload.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_lt_dladvise_preload__imp__lt_dladvise_preload__head_libhamlib_2_dll d000048.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%/lt_dladvise_local.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_lt_dladvise_local__imp__lt_dladvise_local__head_libhamlib_2_dll d000047.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%.lt_dladvise_init.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_lt_dladvise_init__imp__lt_dladvise_init__head_libhamlib_2_dll d000046.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%-lt_dladvise_global.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_lt_dladvise_global__imp__lt_dladvise_global__head_libhamlib_2_dll d000045.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%,lt_dladvise_ext.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_lt_dladvise_ext__imp__lt_dladvise_ext__head_libhamlib_2_dll d000044.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%+lt_dladvise_destroy.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_lt_dladvise_destroy__imp__lt_dladvise_destroy__head_libhamlib_2_dll d000043.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%*lt_dladdsearchdir.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_lt_dladdsearchdir__imp__lt_dladdsearchdir__head_libhamlib_2_dll d000042.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%)lt_dladderror.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_lt_dladderror__imp__lt_dladderror__head_libhamlib_2_dll d000041.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%(lt__zalloc.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_lt__zalloc__imp__lt__zalloc__head_libhamlib_2_dll d000040.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%'lt__strdup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_lt__strdup__imp__lt__strdup__head_libhamlib_2_dll d000039.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%&lt__slist_unbox.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_lt__slist_unbox__imp__lt__slist_unbox__head_libhamlib_2_dll d000038.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%%lt__slist_tail.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_lt__slist_tail__imp__lt__slist_tail__head_libhamlib_2_dll d000037.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%$lt__slist_sort.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_lt__slist_sort__imp__lt__slist_sort__head_libhamlib_2_dll d000036.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%#lt__slist_reverse.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_lt__slist_reverse__imp__lt__slist_reverse__head_libhamlib_2_dll d000035.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%"lt__slist_remove.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_lt__slist_remove__imp__lt__slist_remove__head_libhamlib_2_dll d000034.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%!lt__slist_nth.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_lt__slist_nth__imp__lt__slist_nth__head_libhamlib_2_dll d000033.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ% lt__slist_length.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_lt__slist_length__imp__lt__slist_length__head_libhamlib_2_dll d000032.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%lt__slist_foreach.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_lt__slist_foreach__imp__lt__slist_foreach__head_libhamlib_2_dll d000031.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%lt__slist_find.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_lt__slist_find__imp__lt__slist_find__head_libhamlib_2_dll d000030.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%lt__slist_delete.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_lt__slist_delete__imp__lt__slist_delete__head_libhamlib_2_dll d000029.o/ 1358175502 0 0 644 527 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%lt__slist_cons.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ*A_lt__slist_cons__imp__lt__slist_cons__head_libhamlib_2_dll d000028.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%lt__slist_concat.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_lt__slist_concat__imp__lt__slist_concat__head_libhamlib_2_dll d000027.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%lt__slist_box.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_lt__slist_box__imp__lt__slist_box__head_libhamlib_2_dll d000026.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%lt__set_last_error.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_lt__set_last_error__imp__lt__set_last_error__head_libhamlib_2_dll d000025.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%lt__realloc.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_lt__realloc__imp__lt__realloc__head_libhamlib_2_dll d000024.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%lt__memdup.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_lt__memdup__imp__lt__memdup__head_libhamlib_2_dll d000023.o/ 1358175502 0 0 644 515 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%lt__malloc.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ"9_lt__malloc__imp__lt__malloc__head_libhamlib_2_dll d000022.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%lt__get_last_error.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_lt__get_last_error__imp__lt__get_last_error__head_libhamlib_2_dll d000021.o/ 1358175502 0 0 644 531 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%lt__error_string.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ.E_lt__error_string__imp__lt__error_string__head_libhamlib_2_dll d000020.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%lt__argz_stringify.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_lt__argz_stringify__imp__lt__argz_stringify__head_libhamlib_2_dll d000019.o/ 1358175502 0 0 644 521 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%lt__argz_next.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ(?_lt__argz_next__imp__lt__argz_next__head_libhamlib_2_dll d000018.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%lt__argz_insert.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_lt__argz_insert__imp__lt__argz_insert__head_libhamlib_2_dll d000017.o/ 1358175502 0 0 644 541 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%lt__argz_create_sep.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ4K_lt__argz_create_sep__imp__lt__argz_create_sep__head_libhamlib_2_dll d000016.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%lt__argz_append.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_lt__argz_append__imp__lt__argz_append__head_libhamlib_2_dll d000015.o/ 1358175502 0 0 644 551 ` L4 .textÜ  0`.idata$7ä0À.idata$5è 0À.idata$4ì*0À.idata$6ð0Àÿ%lt__alloc_die_callback.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ:Q_lt__alloc_die_callback__imp__lt__alloc_die_callback__head_libhamlib_2_dll d000014.o/ 1358175502 0 0 644 490 ` L.text 0`.idata$7Üø0À.idata$5à0À.idata$4ä 0À.idata$6è0À lt__alloc_die.text.idata$7.idata$5.idata$4.idata$6-D__imp__lt__alloc_die__nm__lt__alloc_die__head_libhamlib_2_dlld000013.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ% longlat2locator.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_longlat2locator__imp__longlat2locator__head_libhamlib_2_dll d000012.o/ 1358175502 0 0 644 529 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ% locator2longlat.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ,C_locator2longlat__imp__locator2longlat__head_libhamlib_2_dll d000011.o/ 1358175502 0 0 644 563 ` L8 .textÜ 0`.idata$7ä0À.idata$5è$0À.idata$4ì.0À.idata$6 ð0Àÿ% loadlibrary_LTX_get_vtable.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ BY_loadlibrary_LTX_get_vtable__imp__loadlibrary_LTX_get_vtable__head_libhamlib_2_dll d000010.o/ 1358175502 0 0 644 496 ` L.text 0`.idata$7Üü0À.idata$5à0À.idata$4ä0À.idata$6è0À hamlib_version.text.idata$7.idata$5.idata$4.idata$6/F__imp__hamlib_version__nm__hamlib_version__head_libhamlib_2_dlld000009.o/ 1358175502 0 0 644 500 ` L.text 0`.idata$7Üü0À.idata$5à0À.idata$4ä0À.idata$6è0Àhamlib_copyright.text.idata$7.idata$5.idata$4.idata$63J__imp__hamlib_copyright__nm__hamlib_copyright__head_libhamlib_2_dlld000008.o/ 1358175502 0 0 644 517 ` L( .textÜ 0`.idata$7ä 0À.idata$5è0À.idata$4ì0À.idata$6ð0Àÿ%from_bcd_be.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ$;_from_bcd_be__imp__from_bcd_be__head_libhamlib_2_dll d000007.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%from_bcd.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_from_bcd__imp__from_bcd__head_libhamlib_2_dll d000006.o/ 1358175502 0 0 644 496 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%dms2dec.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ_dms2dec*__imp__dms2dec__head_libhamlib_2_dlld000005.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%dmmm2dec.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_dmmm2dec__imp__dmmm2dec__head_libhamlib_2_dll d000004.o/ 1358175502 0 0 644 539 ` L0 .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì&0À.idata$6ð0Àÿ%distance_long_path.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ2I_distance_long_path__imp__distance_long_path__head_libhamlib_2_dll d000003.o/ 1358175502 0 0 644 496 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%dec2dms.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ_dec2dms*__imp__dec2dms__head_libhamlib_2_dlld000002.o/ 1358175502 0 0 644 507 ` L$ .textÜü 0`.idata$7ä0À.idata$5è0À.idata$4ì0À.idata$6 ð0Àÿ%dec2dmmm.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ5_dec2dmmm__imp__dec2dmmm__head_libhamlib_2_dll d000001.o/ 1358175502 0 0 644 533 ` L, .textÜ 0`.idata$7ä0À.idata$5è0À.idata$4ì"0À.idata$6ð0Àÿ%azimuth_long_path.text.idata$7.idata$5.idata$4.idata$6@feat.00ÿÿ0G_azimuth_long_path__imp__azimuth_long_path__head_libhamlib_2_dll ./lib/encode4.f900000664000175000017500000000117212172374464012007 0ustar jtnjtnsubroutine encode4(message,ncode) parameter (MAXCALLS=7000,MAXRPT=63) integer ncode(206) character*22 message !Message to be generated character*3 cok !' ' or 'OOO' integer dgen(13) integer*1 data0(13),symbol(216) logical text call chkmsg(message,cok,nspecial,flip) call packmsg(message,dgen,text) !Pack 72-bit message into 12 six-bit symbols call entail(dgen,data0) call encode232(data0,206,symbol) !Convolutional encoding call interleave24(symbol,1) !Apply JT4 interleaving do i=1,206 ncode(i)=symbol(i) enddo end subroutine encode4 ./lib/entail.f900000664000175000017500000000076512172374464011751 0ustar jtnjtnsubroutine entail(dgen,data0) ! Move 72-bit packed data from 6-bit to 8-bit symbols and add a zero tail. integer dgen(13) integer*1 data0(13) i4=0 k=0 m=0 do i=1,12 n=dgen(i) do j=1,6 k=k+1 i4=i4+i4+iand(1,ishft(n,j-6)) i4=iand(i4,255) if(k.eq.8) then m=m+1 if(i4.gt.127) i4=i4-256 data0(m)=i4 k=0 endif enddo enddo do m=10,13 data0(m)=0 enddo return end subroutine entail ./lib/jt9sim.f900000664000175000017500000001235112172374464011706 0ustar jtnjtnprogram jt9sim ! Generate simulated data for testing of WSJT-X parameter (NTMAX=120) parameter (NMAX=NTMAX*12000) integer ihdr(11) integer*2 iwave !Generated waveform (no noise) real*8 f0,f,dt,twopi,phi,dphi,baud,fspan,fsample,freq character msg*22,msg0*22,message*22,msgsent*22,arg*8,fname*11 integer*4 i4tone(85) !Channel symbols (values 0-8) integer*4 i4DataSymNoGray(69) !Data Symbols, values 0-7 integer*1 i1ScrambledBits(207) !Unpacked bits, scrambled order integer*1 i1Bits(207) !Encoded information-carrying bits integer*1 i1SoftSymbols(207) include 'jt9sync.f90' common/acom/dat(NMAX),iwave(NMAX) nargs=iargc() if(nargs.ne.6) then print*,'Usage: jt9sim "message" fspan nsigs minutes SNR nfiles' print*,'Example: "CQ K1ABC FN42" 200 20 2 -28 1' print*,' ' print*,'Enter message = "" to use entries in msgs.txt.' print*,'Enter SNR = 0 to generate a range of SNRs.' go to 999 endif call getarg(1,msg0) message=msg0 !Transmitted message call getarg(2,arg) read(arg,*) fspan !Total freq range (Hz) call getarg(3,arg) read(arg,*) nsigs !Number of signals in each file call getarg(4,arg) read(arg,*) minutes !Length of file (1 2 5 10 30 minutes) call getarg(5,arg) read(arg,*) snrdb !S/N in dB (2500 hz reference BW) call getarg(6,arg) read(arg,*) nfiles !Number of files rmsdb=25. rms=10.0**(0.05*rmsdb) fsample=12000.d0 !Sample rate (Hz) dt=1.d0/fsample !Sample interval (s) twopi=8.d0*atan(1.d0) npts=12000*(60*minutes-6) nsps=0 if(minutes.eq.1) nsps=6912 if(minutes.eq.2) nsps=15360 if(minutes.eq.5) nsps=40960 if(minutes.eq.10) nsps=82944 if(minutes.eq.30) nsps=252000 if(nsps.eq.0) stop 'Bad value for minutes.' f0=1400.d0 !Center frequency (Hz) ! f0=1500.0 ! if(minutes.eq.5) f0=1100. ! if(minutes.eq.10) f0=1050. ! if(minutes.eq.30) f0=1025. ihdr=0 !Temporary ### k=0 !Silence compiler warning if(msg0(1:3).eq.'sin') read(msg0(4:),*) sinfreq open(12,file='msgs.txt',status='old') write(*,1000) 1000 format('File N freq S/N Message'/ & '---------------------------------------------------') do ifile=1,nfiles !Loop over all files nmin=(ifile-1)*minutes ihr=nmin/60 imin=mod(nmin,60) write(fname,1002) ihr,imin !Create output filename 1002 format('000000_',2i2.2) open(10,file=fname//'.wav',access='stream',status='unknown') if(snrdb.lt.90) then do i=1,npts dat(i)=gran() enddo else dat(1:npts)=0. endif if(msg0.ne.' ') then call genjt9(message,msgsent,i4tone) !Encode message into tone #s endif rewind 12 do isig=1,nsigs !Loop over multiple signals if(msg0.eq.' ') then read(12,1004) message !Use pre-generated message texts 1004 format(a22) call genjt9(message,msgsent,i4tone) endif f=f0 if(nsigs.gt.1) f=f0 - 0.5d0*fspan + fspan*(isig-1.d0)/(nsigs-1.d0) snrdbx=snrdb ! snrdbx=snrdb + (ifile-1)*4.0 sig=10.0**(0.05*snrdbx) write(*,1020) ifile,isig,f,snrdbx,msgsent 1020 format(i3,i4,f10.3,f7.1,2x,a22) phi=0. baud=12000.d0/nsps k=12000 !Start audio at t = 1.0 s ! f1=0.0001 * (ifile-1) f1=0. ! print*,ifile-1,f1 dphi2=0. ddphi2=twopi*f1*dt/60.0 do isym=1,85 freq=f + i4tone(isym)*baud if(msg0(1:3).eq.'sin') freq=sinfreq dphi=twopi*freq*dt + dphi2 do i=1,nsps phi=phi + dphi dphi2=dphi2 + ddphi2 if(phi.lt.-twopi) phi=phi+twopi if(phi.gt.twopi) phi=phi-twopi xphi=phi k=k+1 dat(k)=dat(k) + sig*sin(xphi) !Use lookup table for i*2 sin(x) ? enddo enddo enddo do i=1,npts iwave(i)=nint(rms*dat(i)) enddo write(10) ihdr,iwave(1:npts) close(10) ! We're done! Now decode the data symbols from i4tone, as a test. if(msg0.ne.' ') then j=0 do i=1,85 if(isync(i).eq.1) cycle j=j+1 i4DataSymNoGray(j)=igray(i4tone(i)-1,-1) enddo call unpackbits(i4DataSymNoGray,69,3,i1ScrambledBits) call interleave9(i1ScrambledBits,-1,i1Bits) do i=1,206 i4=-10 if(i1Bits(i).eq.1) i4=10 i4=i4+128 if(i4.le.127) i1SoftSymbols(k)=i4 if(i4.ge.128) i1SoftSymbols(k)=i4-256 enddo limit=1000 call decode9(i1SoftSymbols,limit,nlim,msg) if(msg.ne.msg0) print*,'Decode error: ',msg0,' ',msg endif enddo 999 end program jt9sim ./lib/int.h0000664000175000017500000000310612172374464011110 0ustar jtnjtn/* Include file to configure the RS codec for integer symbols * * Copyright 2002, Phil Karn, KA9Q * May be used under the terms of the GNU General Public License (GPL) */ #define DTYPE int /* Reed-Solomon codec control block */ struct rs { int mm; /* Bits per symbol */ int nn; /* Symbols per block (= (1<= rs->nn) { x -= rs->nn; x = (x >> rs->mm) + (x & rs->nn); } return x; } #define MODNN(x) modnn(rs,x) #define MM (rs->mm) #define NN (rs->nn) #define ALPHA_TO (rs->alpha_to) #define INDEX_OF (rs->index_of) #define GENPOLY (rs->genpoly) //#define NROOTS (rs->nroots) #define NROOTS (51) #define FCR (rs->fcr) #define PRIM (rs->prim) #define IPRIM (rs->iprim) #define PAD (rs->pad) #define A0 (NN) #define ENCODE_RS encode_rs_int #define DECODE_RS decode_rs_int #define INIT_RS init_rs_int #define FREE_RS free_rs_int void ENCODE_RS(void *p,DTYPE *data,DTYPE *parity); int DECODE_RS(void *p,DTYPE *data,int *eras_pos,int no_eras); void *INIT_RS(int symsize,int gfpoly,int fcr, int prim,int nroots,int pad); void FREE_RS(void *p); ./lib/decode65a.f900000664000175000017500000000534012172374464012226 0ustar jtnjtnsubroutine decode65a(dd,npts,newdat,f0,nflip,mode65,sync2,a,dt, & nbmkv,nhist,decoded) ! Apply AFC corrections to a candidate JT65 signal, then decode it. parameter (NMAX=60*12000) !Samples per 60 s real*4 dd(NMAX) !92 MB: raw data from Linrad timf2 complex cx(NMAX/8) !Data at 1378.125 samples/s complex c5x(NMAX/32) !Data at 344.53125 Hz complex c5a(512) real s2(66,126) real a(5) logical first character decoded*22 data first/.true./,jjjmin/1000/,jjjmax/-1000/ data nhz0/-9999999/ save ! Mix sync tone to baseband, low-pass filter, downsample to 1378.125 Hz dt00=dt call timer('filbig ',0) call filbig(dd,npts,f0,newdat,cx,n5,sq0) call timer('filbig ',1) ! NB: cx has sample rate 12000*77125/672000 = 1378.125 Hz ! Find best DF, f1, f2, and DT. Start by downsampling to 344.53125 Hz call timer('fil6521 ',0) ! Add some zeros at start of c5 arrays -- empirical fix for negative DT's nadd=1089 c5x(:nadd)=0. call fil6521(cx,n5,c5x(nadd+1),n6) n6=n6+nadd call timer('fil6521 ',1) fsample=1378.125/4. a(5)=dt00 i0=nint((a(5)+0.5)*fsample) - 2 + nadd if(i0.lt.1) then ! write(23,*) 'i0 too small in decode1a:',i0,f0,a(5),fsample,nadd ! flush(23) i0=1 endif nz=n6+1-i0 ! We're looking only at sync tone here... so why not downsample by another ! factor of 1/8, say? Should be a significant execution speed-up. call timer('afc65b ',0) ! Best fit for DF, f1, and f2 call afc65b(c5x(i0),nz,fsample,nflip,a,ccfbest,dtbest) call timer('afc65b ',1) sync2=3.7e-4*ccfbest/sq0 !Constant is empirical ! Apply AFC corrections to the time-domain signal ! Now we are back to using the 1378.125 Hz sample rate, enough to ! accommodate the full JT65C bandwidth. call timer('twkfreq ',0) call twkfreq65(cx,n5,a) call timer('twkfreq ',1) ! Compute spectrum for each half symbol. ! Adding or subtracting a small number (e.g., 5) to j may make it decode.\ ! NB: might want to try computing full-symbol spectra (nfft=512, even for ! submodes B and C). nsym=126 nfft=512 j=(dt00+dtbest+2.685)*1378.125 if(j.lt.0) j=0 call timer('sh_ffts ',0) do k=1,nsym do i=1,nfft j=j+1 c5a(i)=cx(j) enddo call four2a(c5a,nfft,1,1,1) do i=1,66 jj=i if(mode65.eq.2) jj=2*i-1 if(mode65.eq.4) jj=4*i-3 s2(i,k)=real(c5a(jj))**2 + aimag(c5a(jj))**2 enddo enddo call timer('sh_ffts ',1) call timer('dec65b ',0) call decode65b(s2,nflip,mode65,nbmkv,nhist,decoded) dt=dt00 + dtbest + 1.7 call timer('dec65b ',1) return end subroutine decode65a ./lib/flat2.f900000664000175000017500000000043412172374464011476 0ustar jtnjtnsubroutine flat2(s,nz,ref) parameter (NSMAX=6827) real s(NSMAX) real ref(NSMAX) nsmo=10 ia=nsmo+1 ib=nz-nsmo-1 do i=ia,ib call pctile(s(i-nsmo),2*nsmo+1,5,ref(i)) enddo ref(:ia-1)=ref(ia) ref(ib+1:)=ref(ib) return end subroutine flat2 ./lib/morse.f900000664000175000017500000000573612172374464011625 0ustar jtnjtnsubroutine morse(msg,idat,n) ! Convert ascii message to a Morse code bit string. ! Dash = 3 dots ! Space between dots, dashes = 1 dot ! Space between letters = 3 dots ! Space between words = 7 dots character*(*) msg integer idat(250) integer*1 ic(21,38) data ic/ & 1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,20, & 1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,18, & 1,0,1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,0,16, & 1,0,1,0,1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,14, & 1,0,1,0,1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,12, & 1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, & 1,1,1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,12, & 1,1,1,0,1,1,1,0,1,0,1,0,1,0,0,0,0,0,0,0,14, & 1,1,1,0,1,1,1,0,1,1,1,0,1,0,1,0,0,0,0,0,16, & 1,1,1,0,1,1,1,0,1,1,1,0,1,1,1,0,1,0,0,0,18, & 1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 6, & 1,1,1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, & 1,1,1,0,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,12, & 1,1,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, & 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 2, & 1,0,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, & 1,1,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, & 1,0,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, & 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 4, & 1,0,1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,14, & 1,1,1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,10, & 1,0,1,1,1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,10, & 1,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, & 1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 6, & 1,1,1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,12, & 1,0,1,1,1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,12, & 1,1,1,0,1,1,1,0,1,0,1,1,1,0,0,0,0,0,0,0,14, & 1,0,1,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, & 1,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 6, & 1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 4, & 1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0, 8, & 1,0,1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,10, & 1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,10, & 1,1,1,0,1,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,12, & 1,1,1,0,1,0,1,1,1,0,1,1,1,0,0,0,0,0,0,0,14, & 1,1,1,0,1,1,1,0,1,0,1,0,0,0,0,0,0,0,0,0,12, & 1,1,1,0,1,0,1,0,1,1,1,0,1,0,0,0,0,0,0,0,14, & 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 2/ !Incremental word space save msglen=len(msg) idat=0 n=6 do k=1,msglen jj=ichar(msg(k:k)) if(jj.ge.97 .and. jj.le.122) jj=jj-32 !Convert lower to upper case if(jj.ge.48 .and. jj.le.57) j=jj-48 !Numbers if(jj.ge.65 .and. jj.le.90) j=jj-55 !Letters if(jj.eq.47) j=36 !Slash (/) if(jj.eq.32) j=37 !Word space j=j+1 ! Insert this character nmax=ic(21,j) do i=1,nmax n=n+1 idat(n)=ic(i,j) enddo ! Insert character space of 2 dit lengths: n=n+1 idat(n)=0 n=n+1 idat(n)=0 enddo ! Insert word space at end of message do j=1,4 n=n+1 idat(n)=0 enddo return end subroutine morse ./lib/twkfreq65.f900000664000175000017500000000076012172374464012326 0ustar jtnjtnsubroutine twkfreq65(c4aa,n5,a) complex c4aa(n5) real a(5) complex w,wstep data twopi/6.283185307/ ! Apply AFC corrections to the c4aa data w=1.0 wstep=1.0 x0=0.5*(n5+1) s=2.0/n5 do i=1,n5 x=s*(i-x0) if(mod(i,100).eq.1) then p2=1.5*x*x - 0.5 dphi=(a(1) + x*a(2) + p2*a(3)) * (twopi/1378.125) wstep=cmplx(cos(dphi),sin(dphi)) endif w=w*wstep c4aa(i)=w*c4aa(i) enddo return end subroutine twkfreq65 ./lib/getpfx1.f900000664000175000017500000000460112172374464012044 0ustar jtnjtnsubroutine getpfx1(callsign,k,nv2) character*12 callsign0,callsign,lof,rof character*8 c character addpfx*8,tpfx*4,tsfx*3 logical ispfx,issfx,invalid common/pfxcom/addpfx include 'pfx.f90' callsign0=callsign nv2=0 iz=index(callsign,' ') - 1 if(iz.lt.0) iz=12 islash=index(callsign(1:iz),'/') k=0 if(k.eq.0) go to 10 !### Always use JT65v2 ### c=' ' if(islash.gt.0 .and. islash.le.(iz-4)) then ! Add-on prefix c=callsign(1:islash-1) callsign=callsign(islash+1:iz) do i=1,NZ if(pfx(i)(1:4).eq.c) then k=i go to 10 endif enddo if(addpfx.eq.c) then k=449 go to 10 endif else if(islash.eq.(iz-1)) then ! Add-on suffix c=callsign(islash+1:iz) callsign=callsign(1:islash-1) do i=1,NZ2 if(sfx(i).eq.c(1:1)) then k=400+i go to 10 endif enddo endif 10 if(islash.ne.0 .and.k.eq.0) then ! Original JT65 would force this compound callsign to be treated as ! plain text. In JT65v2, we will encode the prefix or suffix into nc1. ! The task here is to compute the proper value of k. lof=callsign0(:islash-1) rof=callsign0(islash+1:) llof=len_trim(lof) lrof=len_trim(rof) ispfx=(llof.gt.0 .and. llof.le.4) issfx=(lrof.gt.0 .and. lrof.le.3) invalid=.not.(ispfx.or.issfx) if(ispfx.and.issfx) then if(llof.lt.3) issfx=.false. if(lrof.lt.3) ispfx=.false. if(ispfx.and.issfx) then i=ichar(callsign0(islash-1:islash-1)) if(i.ge.ichar('0') .and. i.le.ichar('9')) then issfx=.false. else ispfx=.false. endif endif endif if(invalid) then k=-1 else if(ispfx) then tpfx=lof(1:4) k=nchar(tpfx(1:1)) k=37*k + nchar(tpfx(2:2)) k=37*k + nchar(tpfx(3:3)) k=37*k + nchar(tpfx(4:4)) nv2=1 i=index(callsign0,'/') callsign=callsign0(:i-1) callsign=callsign0(i+1:) endif if(issfx) then tsfx=rof(1:3) k=nchar(tsfx(1:1)) k=37*k + nchar(tsfx(2:2)) k=37*k + nchar(tsfx(3:3)) nv2=2 i=index(callsign0,'/') callsign=callsign0(:i-1) endif endif endif return end subroutine getpfx1 ./lib/jt65.f900000664000175000017500000000323112172374464011254 0ustar jtnjtnprogram jt65 ! Test the JT65 decoder for WSJT-X parameter (NZMAX=60*12000) integer*4 ihdr(11) integer*2 id2(NZMAX) real*4 dd(NZMAX) character*80 infile integer*2 nfmt2,nchan2,nbitsam2,nbytesam2 character*4 ariff,awave,afmt,adata common/hdr/ariff,lenfile,awave,afmt,lenfmt,nfmt2,nchan2, & nsamrate,nbytesec,nbytesam2,nbitsam2,adata,ndata common/tracer/limtrace,lu equivalence (lenfile,ihdr(2)) nargs=iargc() if(nargs.lt.1) then print*,'Usage: jt65 file1 [file2 ...]' go to 999 endif limtrace=0 lu=12 newdat=1 ntol=50 nfa=2700 ! nfb=4000 nfqso=933 nagain=0 open(12,file='timer.out',status='unknown') open(22,file='kvasd.dat',access='direct',recl=1024,status='unknown') call timer('jt65 ',0) do ifile=1,nargs call getarg(ifile,infile) open(10,file=infile,access='stream',status='old',err=998) call timer('read ',0) read(10) ihdr nutc=ihdr(1) !Silence compiler warning i1=index(infile,'.wav') read(infile(i1-4:i1-1),*,err=10) nutc go to 20 10 nutc=0 20 npts=52*12000 read(10) id2(1:npts) call timer('read ',1) dd(1:npts)=id2(1:npts) dd(npts+1:)=0. call timer('jt65a ',0) call jt65a(dd,npts,newdat,nutc,ntol,nfa,nfqso,nagain,ndecoded) call timer('jt65a ',1) enddo call timer('jt65 ',1) call timer('jt65 ',101) call four2a(a,-1,1,1,1) !Free the memory used for plans call filbig(a,-1,1,0.0,0,0,0,0,0) ! (ditto) go to 999 998 print*,'Cannot open file:' print*,infile 999 end program jt65 ./lib/geodist.f900000664000175000017500000000540712172374464012131 0ustar jtnjtnsubroutine geodist(Eplat,Eplon,Stlat,Stlon,Az,Baz,Dist) implicit none real eplat, eplon, stlat, stlon, az, baz, dist ! JHT: In actual fact, I use the first two arguments for "My Location", ! the second two for "His location"; West longitude is positive. ! Taken directly from: ! Thomas, P.D., 1970, Spheroidal geodesics, reference systems, ! & local geometry, U.S. Naval Oceanographi!Office SP-138, ! 165 pp. ! assumes North Latitude and East Longitude are positive ! EpLat, EpLon = End point Lat/Long ! Stlat, Stlon = Start point lat/long ! Az, BAz = direct & reverse azimuith ! Dist = Dist (km); Deg = central angle, discarded real BOA, F, P1R, P2R, L1R, L2R, DLR, T1R, T2R, TM, & DTM, STM, CTM, SDTM,CDTM, KL, KK, SDLMR, L, & CD, DL, SD, T, U, V, D, X, E, Y, A, FF64, TDLPM, & HAPBR, HAMBR, A1M2, A2M1 real AL,BL,D2R,Pi2 data AL/6378206.4/ ! Clarke 1866 ellipsoid data BL/6356583.8/ ! real pi /3.14159265359/ data D2R/0.01745329251994/ ! degrees to radians conversion factor data Pi2/6.28318530718/ BOA = BL/AL F = 1.0 - BOA ! Convert st/end pts to radians P1R = Eplat * D2R P2R = Stlat * D2R L1R = Eplon * D2R L2R = StLon * D2R DLR = L2R - L1R ! DLR = Delta Long in Rads T1R = ATan(BOA * Tan(P1R)) T2R = ATan(BOA * Tan(P2R)) TM = (T1R + T2R) / 2.0 DTM = (T2R - T1R) / 2.0 STM = Sin(TM) CTM = Cos(TM) SDTM = Sin(DTM) CDTM = Cos(DTM) KL = STM * CDTM KK = SDTM * CTM SDLMR = Sin(DLR/2.0) L = SDTM * SDTM + SDLMR * SDLMR * (CDTM * CDTM - STM * STM) CD = 1.0 - 2.0 * L DL = ACos(CD) SD = Sin(DL) T = DL/SD U = 2.0 * KL * KL / (1.0 - L) V = 2.0 * KK * KK / L D = 4.0 * T * T X = U + V E = -2.0 * CD Y = U - V A = -D * E FF64 = F * F / 64.0 Dist = AL*SD*(T -(F/4.0)*(T*X-Y)+FF64*(X*(A+(T-(A+E) & /2.0)*X)+Y*(-2.0*D+E*Y)+D*X*Y))/1000.0 TDLPM = Tan((DLR+(-((E*(4.0-X)+2.0*Y)*((F/2.0)*T+FF64* & (32.0*T+(A-20.0*T)*X-2.0*(D+2.0)*Y))/4.0)*Tan(DLR)))/2.0) HAPBR = ATan2(SDTM,(CTM*TDLPM)) HAMBR = Atan2(CDTM,(STM*TDLPM)) A1M2 = Pi2 + HAMBR - HAPBR A2M1 = Pi2 - HAMBR - HAPBR 1 If ((A1M2 .ge. 0.0) .AND. (A1M2 .lt. Pi2)) GOTO 5 If (A1M2 .lt. Pi2) GOTO 4 A1M2 = A1M2 - Pi2 GOTO 1 4 A1M2 = A1M2 + Pi2 GOTO 1 ! All of this gens the proper az, baz (forward and back azimuth) 5 If ((A2M1 .ge. 0.0) .AND. (A2M1 .lt. Pi2)) GOTO 9 If (A2M1 .lt. Pi2) GOTO 8 A2M1 = A2M1 - Pi2 GOTO 5 8 A2M1 = A2M1 + Pi2 GOTO 5 9 Az = A1M2 / D2R BAZ = A2M1 / D2R !Fix the mirrored coords here. az = 360.0 - az baz = 360.0 - baz end subroutine geodist ./lib/igray.c0000664000175000017500000000036412172374464011427 0ustar jtnjtnint igray_(int *n0, int *idir) { int n; unsigned long sh; unsigned long nn; n=*n0; if(*idir>0) return (n ^ (n >> 1)); sh = 1; nn = (n >> sh); while (nn > 0) { n ^= nn; sh <<= 1; nn = (n >> sh); } return (n); } ./lib/sync24.f900000664000175000017500000001116512172374464011613 0ustar jtnjtnsubroutine sync24(dat,jz,DFTolerance,NFreeze,MouseDF,mode,mode4, & dtx,dfx,snrx,snrsync,ccfblue,ccfred1,flip,width) ! Synchronizes JT4 data, finding the best-fit DT and DF. parameter (NFFTMAX=2520) !Max length of FFTs parameter (NHMAX=NFFTMAX/2) !Max length of power spectra parameter (NSMAX=525) !Max number of half-symbol steps integer DFTolerance !Range of DF search real dat(jz) real psavg(NHMAX) !Average spectrum of whole record real s2(NHMAX,NSMAX) !2d spectrum, stepped by half-symbols real ccfblue(-5:540) !CCF with pseudorandom sequence real ccfred(-450:450) !Peak of ccfblue, as function of freq real ccfred1(-224:224) !Peak of ccfblue, as function of freq real tmp(1260) save ! Do FFTs of twice symbol length, stepped by half symbols. Note that ! we have already downsampled the data by factor of 2. nsym=207 nfft=2520 nh=nfft/2 nq=nfft/4 nsteps=jz/nq - 1 df=0.5*11025.0/nfft psavg(1:nh)=0. do j=1,nsteps !Compute spectrum for each step, get average k=(j-1)*nq + 1 call ps24(dat(k),nfft,s2(1,j)) psavg(1:nh)=psavg(1:nh) + s2(1:nh,j) enddo call flat1(psavg,s2,nh,nsteps,NHMAX,NSMAX) !Flatten spectra ! Set freq and lag ranges famin=200. fbmax=2700. fa=famin fb=fbmax if(NFreeze.eq.1) then fa=max(famin,1270.46+MouseDF-DFTolerance) fb=min(fbmax,1270.46+MouseDF+DFTolerance) else fa=max(famin,1270.46+MouseDF-600) fb=min(fbmax,1270.46+MouseDF+600) endif ia=fa/df ib=fb/df if(mode.eq.7) then ia=ia - 3*mode4 ib=ib - 3*mode4 endif i0=nint(1270.46/df) lag1=-5 lag2=59 syncbest=-1.e30 syncbest2=-1.e30 ccfred=0. do i=ia,ib !Find best frequency channel for CCF call xcor24(s2,i,nsteps,nsym,lag1,lag2,mode4,ccfblue,ccf0,lagpk0,flip) j=i-i0 if(mode.eq.7) j=j + 3*mode4 if(j.ge.-372 .and. j.le.372) ccfred(j)=ccf0 ! Find rms of the CCF, without main peak call slope(ccfblue(lag1),lag2-lag1+1,lagpk0-lag1+1.0) sync=abs(ccfblue(lagpk0)) ppmax=psavg(i)-1.0 ! Find best sync value if(sync.gt.syncbest2) then ipk2=i lagpk2=lagpk0 syncbest2=sync endif ! We are most interested if snrx will be more than -30 dB. if(ppmax.gt.0.2938) then !Corresponds to snrx.gt.-30.0 if(sync.gt.syncbest) then ipk=i lagpk=lagpk0 syncbest=sync endif endif enddo ! If we found nothing with snrx > -30 dB, take the best sync that *was* found. if(syncbest.lt.-10.) then ipk=ipk2 lagpk=lagpk2 syncbest=syncbest2 endif dfx=(ipk-i0)*df if(mode.eq.7) dfx=dfx + 3*mode4*df ! Peak up in time, at best whole-channel frequency call xcor24(s2,ipk,nsteps,nsym,lag1,lag2,mode4,ccfblue,ccfmax,lagpk,flip) xlag=lagpk if(lagpk.gt.lag1 .and. lagpk.lt.lag2) then call peakup(ccfblue(lagpk-1),ccfmax,ccfblue(lagpk+1),dx2) xlag=lagpk+dx2 endif ! Find rms of the CCF, without the main peak call slope(ccfblue(lag1),lag2-lag1+1,xlag-lag1+1.0) sq=0. nsq=0 do lag=lag1,lag2 if(abs(lag-xlag).gt.2.0) then sq=sq+ccfblue(lag)**2 nsq=nsq+1 endif enddo rms=sqrt(sq/nsq) snrsync=abs(ccfblue(lagpk))/rms - 1.1 !Empirical dt=2.0/11025.0 istart=xlag*nq dtx=istart*dt snrx=-99.0 ppmax=psavg(ipk)-1.0 if(ppmax.gt.0.0001) then snrx=db(ppmax*df/2500.0) + 7.5 !Empirical if(mode.eq.7) snrx=snrx + 3.0 !Empirical endif if(snrx.lt.-33.0) snrx=-33.0 ! Compute width of sync tone to outermost -3 dB points i1=max(-450,ia-i0) i2=min(450,ib-i0) call pctile(ccfred(i1),i2-i1+1,45,base) jpk=ipk-i0 if(abs(jpk).gt.450) then print*,'sync24 a:',jpk,ipk,i0 snrsync=0. go to 999 else stest=base + 0.5*(ccfred(jpk)-base) ! -3 dB endif do i=-10,0 if(jpk+i.ge.-371) then if(ccfred(jpk+i).gt.stest) go to 30 endif enddo i=0 30 continue if(abs(jpk+i-1).gt.450 .or. abs(jpk+i).gt.450) then print*,'sync24 b:',jpk,i else x1=i-0.5 endif do i=10,0,-1 if(jpk+i.le.371) then if(ccfred(jpk+i).gt.stest) go to 32 endif enddo i=0 32 x2=i+0.5 width=x2-x1 if(width.gt.1.2) width=sqrt(width**2 - 1.44) width=df*width width=max(0.0,min(99.0,width)) do i=-224,224 ccfred1(i)=ccfred(i) enddo 999 return end subroutine sync24 ./lib/ptt.c0000664000175000017500000000172712172374464011127 0ustar jtnjtn#include #include int ptt_(int *nport, int *ntx, int *iptt) { static HANDLE hFile; static int open=0; char s[10]; int i3=1,i4=1,i5=1,i6=1,i9=1,i00=1; if(*nport==0) { *iptt=*ntx; return(0); } if(*ntx && (!open)) { sprintf(s,"\\\\.\\COM%d",*nport); hFile=CreateFile(TEXT(s),GENERIC_WRITE,0,NULL,OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL,NULL); if(hFile==INVALID_HANDLE_VALUE) { // printf("PTT: Cannot open COM port %d.\n",*nport); return 1; } open=1; } if(*ntx && open) { i3=EscapeCommFunction(hFile,3); i5=EscapeCommFunction(hFile,5); *iptt=1; } else { i4=EscapeCommFunction(hFile,4); i6=EscapeCommFunction(hFile,6); i9=EscapeCommFunction(hFile,9); i00=CloseHandle(hFile); *iptt=0; open=0; } /* if(i3==0) return 3; if(i4==0) return 4; if(i5==0) return 5; if(i6==0) return 6; if(i9==0) return 9; if(i00==0) return 10; */ return 0; } ./lib/sec_midn.f900000664000175000017500000000024412172374464012246 0ustar jtnjtnreal function sec_midn() sec_midn=secnds(0.0) return end function sec_midn subroutine sleep_msec(n) call usleep(1000*n) return end subroutine sleep_msec ./lib/four2a.f900000664000175000017500000000533312172374464011667 0ustar jtnjtnsubroutine four2a(a,nfft,ndim,isign,iform) ! IFORM = 1, 0 or -1, as data is ! complex, real, or the first half of a complex array. Transform ! values are returned in array DATA. They are complex, real, or ! the first half of a complex array, as IFORM = 1, -1 or 0. ! The transform of a real array (IFORM = 0) dimensioned N(1) by N(2) ! by ... will be returned in the same array, now considered to ! be complex of dimensions N(1)/2+1 by N(2) by .... Note that if ! IFORM = 0 or -1, N(1) must be even, and enough room must be ! reserved. The missing values may be obtained by complex conjugation. ! The reverse transformation of a half complex array dimensioned ! N(1)/2+1 by N(2) by ..., is accomplished by setting IFORM ! to -1. In the N array, N(1) must be the true N(1), not N(1)/2+1. ! The transform will be real and returned to the input array. parameter (NPMAX=100) parameter (NSMALL=16384) complex a(nfft) complex aa(NSMALL) integer nn(NPMAX),ns(NPMAX),nf(NPMAX) integer*8 plan(NPMAX),nl(NPMAX),nloc data nplan/0/,npatience/1/ ! data nplan/0/,npatience/0/ include 'fftw3.f90' save plan,nplan,nn,ns,nf,nl if(nfft.lt.0) go to 999 nloc=loc(a) do i=1,nplan if(nfft.eq.nn(i) .and. isign.eq.ns(i) .and. & iform.eq.nf(i) .and. nloc.eq.nl(i)) go to 10 enddo if(nplan.ge.NPMAX) stop 'Too many FFTW plans requested.' nplan=nplan+1 i=nplan nn(i)=nfft ns(i)=isign nf(i)=iform nl(i)=nloc ! Planning: FFTW_ESTIMATE, FFTW_ESTIMATE_PATIENT, FFTW_MEASURE, ! FFTW_PATIENT, FFTW_EXHAUSTIVE nflags=FFTW_ESTIMATE if(npatience.eq.1) nflags=FFTW_ESTIMATE_PATIENT if(npatience.eq.2) nflags=FFTW_MEASURE if(npatience.eq.3) nflags=FFTW_PATIENT if(npatience.eq.4) nflags=FFTW_EXHAUSTIVE if(nfft.le.NSMALL) then jz=nfft if(iform.eq.0) jz=nfft/2 do j=1,jz aa(j)=a(j) enddo endif if(isign.eq.-1 .and. iform.eq.1) then call sfftw_plan_dft_1d(plan(i),nfft,a,a,FFTW_FORWARD,nflags) else if(isign.eq.1 .and. iform.eq.1) then call sfftw_plan_dft_1d(plan(i),nfft,a,a,FFTW_BACKWARD,nflags) else if(isign.eq.-1 .and. iform.eq.0) then call sfftw_plan_dft_r2c_1d(plan(i),nfft,a,a,nflags) else if(isign.eq.1 .and. iform.eq.-1) then call sfftw_plan_dft_c2r_1d(plan(i),nfft,a,a,nflags) else stop 'Unsupported request in four2a' endif i=nplan if(nfft.le.NSMALL) then jz=nfft if(iform.eq.0) jz=nfft/2 do j=1,jz a(j)=aa(j) enddo endif 10 continue call sfftw_execute(plan(i)) return 999 do i=1,nplan ! The test is only to silence a compiler warning: if(ndim.ne.-999) call sfftw_destroy_plan(plan(i)) enddo return end subroutine four2a ./lib/f77_wisdom.f900000664000175000017500000000176012172374464012456 0ustar jtnjtnsubroutine write_char(c, iunit) character c integer iunit write(iunit,1000) c 1000 format(a,$) end subroutine write_char subroutine export_wisdom_to_file(iunit) integer iunit external write_char ! call dfftw_export_wisdom(write_char, iunit) call sfftw_export_wisdom(write_char, iunit) end subroutine export_wisdom_to_file subroutine read_char(ic, iunit) integer ic integer iunit character*256 buf save buf integer ibuf data ibuf/257/ save ibuf if (ibuf .lt. 257) then ic = ichar(buf(ibuf:ibuf)) ibuf = ibuf + 1 return endif read(iunit,1000,end=10) buf 1000 format(a256) ic = ichar(buf(1:1)) ibuf = 2 return 10 ic = -1 ibuf = 257 rewind iunit return end subroutine read_char subroutine import_wisdom_from_file(isuccess, iunit) integer isuccess integer iunit external read_char ! call dfftw_import_wisdom(isuccess, read_char, iunit) call sfftw_import_wisdom(isuccess, read_char, iunit) end subroutine import_wisdom_from_file ./lib/Makefile.MinGW0000664000175000017500000000632512172374464012573 0ustar jtnjtn# Makefile for MinGW on Windows # Windows re-direct: # C> make > junk1 2>&1 CC = gcc FC = g95 FFLAGS = -O2 -fbounds-check -Wall -Wno-precision-loss -fno-second-underscore CFLAGS = -I. -fbounds-check -mno-stack-arg-probe # Default rules %.o: %.c ${CC} ${CFLAGS} -c $< %.o: %.f ${FC} ${FFLAGS} -c $< %.o: %.F ${FC} ${FFLAGS} -c $< %.o: %.f90 ${FC} ${FFLAGS} -c $< %.o: %.F90 ${FC} ${FFLAGS} -c $< all: libjt9.a jt9sim.exe jt9.exe jt9code.exe jt65.exe OBJS1 = pctile.o graycode.o sort.o ssort.o \ unpackmsg.o igray.o unpackcall.o unpackgrid.o \ grid2k.o unpacktext.o getpfx2.o packmsg.o deg2grid.o \ packtext.o getpfx1.o packcall.o k2grid.o packgrid.o \ nchar.o four2a.o grid2deg.o pfxdump.o f77_wisdom.o \ symspec.o analytic.o db.o genjt9.o \ packbits.o unpackbits.o encode232.o interleave9.o \ entail.o fano232.o gran.o sync9.o decode9.o \ fil3.o decoder.o grid2n.o n2grid.o timer.o \ softsym.o getlags.o afc9.o fchisq.o twkfreq.o downsam9.o \ peakdt9.o symspec2.o stdmsg.o morse.o azdist.o geodist.o \ fillcom.o chkss2.o zplot9.o flat2.o \ jt65a.o symspec65.o flat65.o ccf65.o decode65a.o \ filbig.o fil6521.o afc65b.o decode65b.o setup65.o \ extract.o fchisq65.o demod64a.o chkhist.o interleave63.o ccf2.o \ move.o indexx.o graycode65.o twkfreq65.o smo121.o \ wrapkarn.o init_rs.o encode_rs.o decode_rs.o gen65.o libjt9.a: $(OBJS1) ar cr libjt9.a $(OBJS1) ranlib libjt9.a OBJS2 = jt9.o jt9a.o jt9b.o jt9c.o ipcomm.o sec_midn.o cutil.o LIBS2 = -L'c:/QtSDK/Desktop/Qt/4.7.4/mingw/lib' -lQtCore4 jt9.exe: $(OBJS2) libjt9.a g++ -o jt9.exe $(OBJS2) $(LIBS2) libjt9.a ../libfftw3f_win.a \ c:/MinGW/lib/libf95.a cp jt9.exe ../../wsjtx_install OBJS3 = jt9sim.o jt9sim.exe: $(OBJS3) libjt9.a $(FC) -o jt9sim.exe $(OBJS3) libjt9.a OBJS4 = jt9code.o jt9code.exe: $(OBJS4) libjt9.a $(FC) -o jt9code.exe $(OBJS4) libjt9.a OBJS5 = jt65.o jt65.exe: $(OBJS5) libjt9.a $(FC) -o jt65.exe $(OBJS5) libjt9.a ../libfftw3f_win.a INCPATH = -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/QtCore' \ -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include' \ -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/ActiveQt' \ -I'release' -I'.' -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/mkspecs/win32-g++' sync9.o: sync9.f90 jt9sync.f90 $(FC) $(FFLAGS) -c sync9.f90 spec9.o: spec9.f90 jt9sync.f90 $(FC) $(FFLAGS) -c spec9.f90 peakdt9.o: peakdt9.f90 jt9sync.f90 $(FC) $(FFLAGS) -c peakdt9.f90 jt9sim.o: jt9sim.f90 jt9sync.f90 $(FC) $(FFLAGS) -c jt9sim.f90 genjt9.o: genjt9.f90 jt9sync.f90 $(FC) $(FFLAGS) -c genjt9.f90 redsync.o: redsync.f90 jt9sync.f90 $(FC) $(FFLAGS) -c redsync.f90 unpackmsg.o: unpackmsg.f90 $(FC) -c -O0 -fbounds-check -Wall -Wno-precision-loss unpackmsg.f90 ipcomm.o: ipcomm.cpp g++ -c $(INCPATH) ipcomm.cpp sec_midn.o: sec_midn.f90 $(FC) -c -fno-second-underscore sec_midn.f90 #rig_control.o: rig_control.c # $(CC) -c -Wall -I..\..\..\hamlib-1.2.15.3\include rig_control.c tstrig.o: tstrig.c $(CC) -c -Wall -I..\..\..\hamlib-1.2.15.3\include tstrig.c init_rs.o: init_rs.c $(CC) -c -DBIGSYM=1 -o init_rs.o init_rs.c encode_rs.o: encode_rs.c $(CC) -c -DBIGSYM=1 -o encode_rs.o encode_rs.c decode_rs.o: decode_rs.c $(CC) -c -DBIGSYM=1 -o decode_rs.o decode_rs.c .PHONY : clean clean: rm -f *.o libjt9.a wsjtx.exe jt9sim.exe jt9.exe jt65.exe ./lib/packcall.f900000664000175000017500000000404112172374464012236 0ustar jtnjtnsubroutine packcall(callsign,ncall,text) ! Pack a valid callsign into a 28-bit integer. parameter (NBASE=37*36*10*27*27*27) character callsign*6,c*1,tmp*6 logical text text=.false. ! Work-around for Swaziland prefix: if(callsign(1:4).eq.'3DA0') callsign='3D0'//callsign(5:6) if(callsign(1:3).eq.'CQ ') then ncall=NBASE + 1 if(callsign(4:4).ge.'0' .and. callsign(4:4).le.'9' .and. & callsign(5:5).ge.'0' .and. callsign(5:5).le.'9' .and. & callsign(6:6).ge.'0' .and. callsign(6:6).le.'9') then read(callsign(4:6),*) nfreq ncall=NBASE + 3 + nfreq endif return else if(callsign(1:4).eq.'QRZ ') then ncall=NBASE + 2 return else if(callsign(1:3).eq.'DE ') then ncall=267796945 return endif tmp=' ' if(callsign(3:3).ge.'0' .and. callsign(3:3).le.'9') then tmp=callsign else if(callsign(2:2).ge.'0' .and. callsign(2:2).le.'9') then if(callsign(6:6).ne.' ') then text=.true. return endif tmp=' '//callsign(:5) else text=.true. return endif do i=1,6 c=tmp(i:i) if(c.ge.'a' .and. c.le.'z') & tmp(i:i)=char(ichar(c)-ichar('a')+ichar('A')) enddo n1=0 if((tmp(1:1).ge.'A'.and.tmp(1:1).le.'Z').or.tmp(1:1).eq.' ') n1=1 if(tmp(1:1).ge.'0' .and. tmp(1:1).le.'9') n1=1 n2=0 if(tmp(2:2).ge.'A' .and. tmp(2:2).le.'Z') n2=1 if(tmp(2:2).ge.'0' .and. tmp(2:2).le.'9') n2=1 n3=0 if(tmp(3:3).ge.'0' .and. tmp(3:3).le.'9') n3=1 n4=0 if((tmp(4:4).ge.'A'.and.tmp(4:4).le.'Z').or.tmp(4:4).eq.' ') n4=1 n5=0 if((tmp(5:5).ge.'A'.and.tmp(5:5).le.'Z').or.tmp(5:5).eq.' ') n5=1 n6=0 if((tmp(6:6).ge.'A'.and.tmp(6:6).le.'Z').or.tmp(6:6).eq.' ') n6=1 if(n1+n2+n3+n4+n5+n6 .ne. 6) then text=.true. return endif ncall=nchar(tmp(1:1)) ncall=36*ncall+nchar(tmp(2:2)) ncall=10*ncall+nchar(tmp(3:3)) ncall=27*ncall+nchar(tmp(4:4))-10 ncall=27*ncall+nchar(tmp(5:5))-10 ncall=27*ncall+nchar(tmp(6:6))-10 return end subroutine packcall ./lib/fil6521.f900000664000175000017500000000265612172374464011566 0ustar jtnjtnsubroutine fil6521(c1,n1,c2,n2) ! FIR lowpass filter designed using ScopeFIR ! Pass #1 Pass #2 ! ----------------------------------------------- ! fsample (Hz) 1378.125 Input sample rate ! Ntaps 21 Number of filter taps ! fc (Hz) 40 Cutoff frequency ! fstop (Hz) 172.266 Lower limit of stopband ! Ripple (dB) 0.1 Ripple in passband ! Stop Atten (dB) 38 Stopband attenuation ! fout (Hz) 344.531 Output sample rate parameter (NTAPS=21) parameter (NH=NTAPS/2) parameter (NDOWN=4) !Downsample ratio = 1/4 complex c1(n1) complex c2(n1/NDOWN) ! Filter coefficients: real a(-NH:NH) data a/ & -0.011958606980,-0.013888627387,-0.015601306443,-0.010602249570, & 0.003804023436, 0.028320058273, 0.060903935217, 0.096841904411, & 0.129639871228, 0.152644580853, 0.160917511283, 0.152644580853, & 0.129639871228, 0.096841904411, 0.060903935217, 0.028320058273, & 0.003804023436,-0.010602249570,-0.015601306443,-0.013888627387, & -0.011958606980/ n2=(n1-NTAPS+NDOWN)/NDOWN k0=NH-NDOWN+1 ! Loop over all output samples do i=1,n2 c2(i)=0. k=k0 + NDOWN*i do j=-NH,NH c2(i)=c2(i) + c1(j+k)*a(j) enddo enddo return end subroutine fil6521 ./lib/ccf65.f900000664000175000017500000000710712172374464011400 0ustar jtnjtnsubroutine ccf65(ss,nhsym,ssmax,sync1,dt1,flipk,syncshort,snr2,dt2) parameter (NFFT=512,NH=NFFT/2) real ss(322) !Input: half-symbol normalized powers real s(NFFT) !CCF = ss*pr complex cs(0:NH) !Complex FT of s real s2(NFFT) !CCF = ss*pr2 complex cs2(0:NH) !Complex FT of s2 real pr(NFFT) !JT65 pseudo-random sync pattern complex cpr(0:NH) !Complex FT of pr real pr2(NFFT) !JT65 shorthand pattern complex cpr2(0:NH) !Complex FT of pr2 real tmp1(322) real ccf(-11:54) logical first integer npr(126) data first/.true./ equivalence (s,cs),(pr,cpr),(s2,cs2),(pr2,cpr2) save ! The JT65 pseudo-random sync pattern: data npr/ & 1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0, & 0,1,0,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,1,1, & 0,1,1,0,1,1,1,1,0,0,0,1,1,0,1,0,1,0,1,1, & 0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1, & 1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,0,1,1,0,1, & 0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,1, & 1,1,1,1,1,1/ if(first) then ! Initialize pr, pr2; compute cpr, cpr2. fac=1.0/NFFT do i=1,NFFT pr(i)=0. pr2(i)=0. k=2*mod((i-1)/8,2)-1 if(i.le.NH) pr2(i)=fac*k enddo do i=1,126 j=2*i pr(j)=fac*(2*npr(i)-1) ! Not sure why, but it works significantly better without the following line: ! pr(j-1)=pr(j) enddo call four2a(cpr,NFFT,1,-1,0) call four2a(cpr2,NFFT,1,-1,0) first=.false. endif ! Look for JT65 sync pattern and shorthand square-wave pattern. ccfbest=0. ccfbest2=0. do i=1,nhsym-1 s(i)=min(ssmax,ss(i)+ss(i+1)) ! s(i)=ss(i)+ss(i+1) enddo call pctile(s,nhsym-1,50,base) s(1:nhsym-1)=s(1:nhsym-1)-base s(nhsym:NFFT)=0. call four2a(cs,NFFT,1,-1,0) !Real-to-complex FFT do i=0,NH ! cs2(i)=cs(i)*conjg(cpr2(i)) !Mult by complex FFT of pr2 cs(i)=cs(i)*conjg(cpr(i)) !Mult by complex FFT of pr enddo call four2a(cs,NFFT,1,1,-1) !Complex-to-real inv-FFT ! call four2a(cs2,NFFT,1,1,-1) !Complex-to-real inv-FFT do lag=-11,54 !Check for best JT65 sync j=lag if(j.lt.1) j=j+NFFT ccf(lag)=s(j) ! if(abs(ccf(lag)).gt.ccfbest) then if(ccf(lag).gt.ccfbest) then !No inverted sync for use at HF ! ccfbest=abs(ccf(lag)) ccfbest=ccf(lag) lagpk=lag flipk=1.0 ! if(ccf(lag).lt.0.0) flipk=-1.0 endif enddo ! do lag=-11,54 !Check for best shorthand ! ccf2=s2(lag+28) ! if(ccf2.gt.ccfbest2) then ! ccfbest2=ccf2 ! lagpk2=lag ! endif ! enddo ! Find rms level on baseline of "ccfblue", for normalization. sum=0. do lag=-11,54 if(abs(lag-lagpk).gt.1) sum=sum + ccf(lag) enddo base=sum/50.0 sq=0. do lag=-11,54 if(abs(lag-lagpk).gt.1) sq=sq + (ccf(lag)-base)**2 enddo rms=sqrt(sq/49.0) sync1=ccfbest/rms - 4.0 dt1=lagpk*(2048.0/11025.0) - 2.5 ! Find base level for normalizing snr2. do i=1,nhsym tmp1(i)=ss(i) enddo call pctile(tmp1,nhsym,40,base) snr2=0.398107*ccfbest2/base !### empirical syncshort=0.5*ccfbest2/rms - 4.0 !### better normalizer than rms? ! dt2=(2.5 + lagpk2*(2048.0/11025.0)) dt2=0. return end subroutine ccf65 ./lib/jt9.f900000664000175000017500000000554612172374464011205 0ustar jtnjtnprogram jt9 ! Decoder for JT9. Can run stand-alone, reading data from *.wav files; ! or as the back end of wsjt-x, with data placed in a shared memory region. include 'constants.f90' integer*4 ihdr(11) real*4 s(NSMAX) integer*2 id2 character*80 arg,infile common/jt9com/ss(184,NSMAX),savg(NSMAX),id2(NMAX),nutc,ndiskdat, & ntr,mousefqso,newdat,nfa,nfb,ntol,kin,nzhsym,nsynced,ndecoded common/tracer/limtrace,lu nargs=iargc() if(nargs.lt.1) then print*,'Usage: jt9 TRperiod ndepth rxfreq file1 [file2 ...]' print*,' Reads data from *.wav files.' print*,'' print*,' jt9 -s ' print*,' Gets data from shared memory region with key==' go to 999 endif call getarg(1,arg) if(arg(1:2).eq.'-s') then ! Multiple instances: call getarg(2,arg) i0=len(trim(arg)) call jt9a(trim(arg)) go to 999 endif read(arg,*) ntrperiod call getarg(2,arg) read(arg,*) ndepth call getarg(3,arg) read(arg,*) nrxfreq ifile1=4 limtrace=0 lu=12 do ifile=ifile1,nargs call getarg(ifile,infile) open(10,file=infile,access='stream',status='old',err=998) read(10) ihdr nutc0=ihdr(1) !Silence compiler warning i1=index(infile,'.wav') read(infile(i1-4:i1-1),*,err=1) nutc0 go to 2 1 nutc0=0 2 nsps=0 if(ntrperiod.eq.1) then nsps=6912 nzhsym=173 else if(ntrperiod.eq.2) then nsps=15360 nzhsym=178 else if(ntrperiod.eq.5) then nsps=40960 nzhsym=172 else if(ntrperiod.eq.10) then nsps=82944 nzhsym=171 else if(ntrperiod.eq.30) then nsps=252000 nzhsym=167 endif if(nsps.eq.0) stop 'Error: bad TRperiod' kstep=nsps/2 k=0 nhsym0=-999 npts=(60*ntrperiod-6)*12000 if(ifile.eq.ifile1) then open(12,file='timer.out',status='unknown') call timer('jt9 ',0) endif id2=0 !??? Why is this necessary ??? do iblk=1,npts/kstep k=iblk*kstep call timer('read_wav',0) read(10,end=10) id2(k-kstep+1:k) call timer('read_wav',1) nhsym=(k-2048)/kstep if(nhsym.ge.1 .and. nhsym.ne.nhsym0) then ! Emit signal readyForFFT ingain=0 call timer('symspec ',0) call symspec(k,ntrperiod,nsps,ingain,slope,pxdb,s,df3,ihsym,npts8) call timer('symspec ',1) nhsym0=nhsym if(ihsym.ge.173) go to 10 endif enddo 10 close(10) call fillcom(nutc0,ndepth,nrxfreq) call decoder(ss,id2) enddo call timer('jt9 ',1) call timer('jt9 ',101) go to 999 998 print*,'Cannot open file:' print*,infile 999 end program jt9 ./lib/noisegen.f900000664000175000017500000000031012172374464012266 0ustar jtnjtnsubroutine noisegen(d4,nmax) real*4 d4(4,nmax) do i=1,nmax d4(1,i)=gran() d4(2,i)=gran() d4(3,i)=gran() d4(4,i)=gran() enddo return end subroutine noisegen ./lib/interleave63.f900000664000175000017500000000072312172374464012776 0ustar jtnjtnsubroutine interleave63(d1,idir) ! Interleave (idir=1) or de-interleave (idir=-1) the array d1. integer d1(0:6,0:8) integer d2(0:8,0:6) if(idir.ge.0) then do i=0,6 do j=0,8 d2(j,i)=d1(i,j) enddo enddo call move(d2,d1,63) else call move(d1,d2,63) do i=0,6 do j=0,8 d1(i,j)=d2(j,i) enddo enddo endif return end subroutine interleave63 ./lib/constants.f900000664000175000017500000000042112172374464012476 0ustar jtnjtn parameter (NTMAX=120) parameter (NMAX=NTMAX*12000) !Total sample intervals per 30 minutes parameter (NDMAX=NTMAX*1500) !Sample intervals at 1500 Hz rate parameter (NSMAX=6827) !Max length of saved spectra parameter (MAXFFT3=16384) ./lib/downsam9.f900000664000175000017500000000321512172374464012227 0ustar jtnjtnsubroutine downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2) !Downsample from id2() into C2() so as to yield nspsd samples per symbol, !mixing from fpk down to zero frequency. include 'constants.f90' parameter (NMAX1=1024*1920) integer*2 id2(0:8*npts8-1) real*4 x1(0:NMAX1-1) complex c1(0:NMAX1/2) complex c2(0:4096-1) real s(5000) equivalence (c1,x1) save nfft1=1024*nsps8 !Forward FFT length df1=12000.0/nfft1 npts=8*npts8 if(newdat.eq.1) then fac=6.963e-6 !Why this weird constant? do i=0,npts-1 x1(i)=fac*id2(i) enddo x1(npts:nfft1-1)=0. !Zero the rest of x1 call timer('fft_forw',0) call four2a(c1,nfft1,1,-1,0) !Forward FFT, r2c call timer('fft_forw',1) nadd=1.0/df1 s=0. do i=1,5000 j=(i-1)/df1 do n=1,nadd j=j+1 s(i)=s(i)+real(c1(j))**2 + aimag(c1(j))**2 enddo enddo endif ndown=8*nsps8/nspsd !Downsample factor nfft2=nfft1/ndown !Backward FFT length nh2=nfft2/2 nf=nint(fpk) i0=fpk/df1 nw=100 ia=max(1,nf-nw) ib=min(5000,nf+nw) call timer('pctile_1',0) call pctile(s(ia),ib-ia+1,40,avenoise) call timer('pctile_1',1) fac=sqrt(1.0/avenoise) do i=0,nfft2-1 j=i0+i if(i.gt.nh2) j=j-nfft2 c2(i)=fac*c1(j) enddo call timer('fft_back',0) call four2a(c2,nfft2,1,1,1) !FFT back to time domain call timer('fft_back',1) nz2=8*npts8/ndown return end subroutine downsam9 ./lib/n2grid.f900000664000175000017500000000050112172374464011646 0ustar jtnjtnsubroutine n2grid(n,grid) character*4 grid if(n.gt.-31 .or. n.lt.-70) stop 'Error in n2grid' i=-(n+31) !NB: 0 <= i <= 39 i1=i/10 i2=mod(i,10) grid(1:1)=char(ichar('A')+i1) grid(2:2)='A' grid(3:3)=char(ichar('0')+i2) grid(4:4)='0' return end subroutine n2grid ./lib/tab.c0000664000175000017500000000156612172374464011067 0ustar jtnjtn/* 8-bit parity lookup table, generated by partab.c */ unsigned char Partab[] = { 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, }; ./lib/bpskmetrics.dat0000664000175000017500000002500012172374464013162 0ustar jtnjtn -12.8 1.000 -9.966 1.000000 0.000000 -12.7 1.000 -9.966 1.000000 0.000000 -12.6 1.000 -9.966 1.000000 0.000000 -12.5 1.000 -9.966 1.000000 0.000000 -12.4 1.000 -9.966 1.000000 0.000000 -12.3 1.000 -9.966 1.000000 0.000000 -12.2 1.000 -9.966 1.000000 0.000000 -12.1 1.000 -9.966 1.000000 0.000000 -12.0 1.000 -9.966 1.000000 0.000000 -11.9 1.000 -9.966 1.000000 0.000000 -11.8 1.000 -9.966 1.000000 0.000000 -11.7 1.000 -9.966 1.000000 0.000000 -11.6 1.000 -9.966 1.000000 0.000000 -11.5 1.000 -9.966 1.000000 0.000000 -11.4 1.000 -9.966 1.000000 0.000000 -11.3 1.000 -9.966 1.000000 0.000000 -11.2 1.000 -9.966 1.000000 0.000000 -11.1 1.000 -9.966 1.000000 0.000000 -11.0 1.000 -9.966 1.000000 0.000000 -10.9 1.000 -9.966 1.000000 0.000000 -10.8 1.000 -9.966 1.000000 0.000000 -10.7 1.000 -9.966 1.000000 0.000000 -10.6 1.000 -9.966 1.000000 0.000000 -10.5 1.000 -9.966 1.000000 0.000000 -10.4 1.000 -9.966 1.000000 0.000000 -10.3 1.000 -9.966 1.000000 0.000000 -10.2 1.000 -9.966 1.000000 0.000000 -10.1 1.000 -9.966 1.000000 0.000000 -10.0 1.000 -9.966 1.000000 0.000000 -9.9 1.000 -9.966 1.000000 0.000000 -9.8 1.000 -9.966 1.000000 0.000000 -9.7 1.000 -9.966 1.000000 0.000000 -9.6 1.000 -9.966 1.000000 0.000000 -9.5 1.000 -9.966 1.000000 0.000000 -9.4 1.000 -9.966 1.000000 0.000000 -9.3 1.000 -9.966 1.000000 0.000000 -9.2 1.000 -9.966 1.000000 0.000000 -9.1 1.000 -9.966 1.000000 0.000000 -9.0 1.000 -9.966 1.000000 0.000000 -8.9 1.000 -9.966 1.000000 0.000000 -8.8 1.000 -9.966 1.000000 0.000000 -8.7 1.000 -9.966 1.000000 0.000000 -8.6 1.000 -9.966 1.000000 0.000000 -8.5 1.000 -9.966 1.000000 0.000000 -8.4 1.000 -9.966 1.000000 0.000000 -8.3 1.000 -9.966 1.000000 0.000000 -8.2 1.000 -9.966 1.000000 0.000000 -8.1 1.000 -9.966 1.000000 0.000000 -8.0 1.000 -9.966 1.000000 0.000000 -7.9 1.000 -9.966 1.000000 0.000000 -7.8 1.000 -9.966 1.000000 0.000000 -7.7 1.000 -9.966 1.000000 0.000000 -7.6 1.000 -9.966 1.000000 0.000000 -7.5 1.000 -9.966 1.000000 0.000000 -7.4 1.000 -9.966 1.000000 0.000000 -7.3 1.000 -9.966 1.000000 0.000000 -7.2 1.000 -9.966 1.000000 0.000000 -7.1 1.000 -9.966 1.000000 0.000000 -7.0 1.000 -9.966 1.000000 0.000000 -6.9 1.000 -9.966 1.000000 0.000000 -6.8 1.000 -9.966 1.000000 0.000000 -6.7 1.000 -9.966 1.000000 0.000000 -6.6 1.000 -9.966 1.000000 0.000000 -6.5 1.000 -9.966 1.000000 0.000000 -6.4 1.000 -9.966 1.000000 0.000000 -6.3 1.000 -9.966 1.000000 0.000000 -6.2 1.000 -9.966 1.000000 0.000000 -6.1 1.000 -9.966 1.000000 0.000000 -6.0 1.000 -9.966 1.000000 0.000000 -5.9 1.000 -9.966 1.000000 0.000000 -5.8 1.000 -9.966 1.000000 0.000000 -5.7 1.000 -9.966 1.000000 0.000000 -5.6 1.000 -9.966 1.000000 0.000000 -5.5 1.000 -9.966 1.000000 0.000000 -5.4 1.000 -9.966 1.000000 0.000000 -5.3 1.000 -9.966 1.000000 0.000000 -5.2 1.000 -9.966 1.000000 0.000000 -5.1 1.000 -9.966 1.000000 0.000000 -5.0 1.000 -9.966 1.000000 0.000000 -4.9 1.000 -9.966 1.000000 0.000000 -4.8 1.000 -9.966 1.000000 0.000000 -4.7 1.000 -9.966 1.000000 0.000000 -4.6 1.000 -9.966 1.000000 0.000000 -4.5 1.000 -9.966 1.000000 0.000000 -4.4 1.000 -9.966 1.000000 0.000000 -4.3 1.000 -9.966 1.000000 0.000000 -4.2 1.000 -9.966 1.000000 0.000000 -4.1 1.000 -9.966 1.000000 0.000000 -4.0 1.000 -9.966 1.000000 0.000000 -3.9 1.000 -9.966 1.000000 0.000000 -3.8 1.000 -9.966 1.000000 0.000000 -3.7 1.000 -9.966 1.000000 0.000000 -3.6 1.000 -9.966 1.000000 0.000000 -3.5 1.000 -9.966 1.000000 0.000000 -3.4 1.000 -9.966 1.000000 0.000000 -3.3 1.000 -9.966 1.000000 0.000000 -3.2 1.000 -9.966 1.000000 0.000000 -3.1 1.000 -9.966 1.000000 0.000000 -3.0 1.000 -9.966 1.000000 0.000000 -2.9 1.000 -9.966 1.000000 0.000000 -2.8 1.000 -9.966 0.999955 0.000045 -2.7 1.000 -9.966 0.999968 0.000032 -2.6 1.000 -9.966 0.999909 0.000091 -2.5 1.000 -9.966 0.999983 0.000017 -2.4 1.000 -9.966 0.999937 0.000063 -2.3 1.000 -9.966 0.999914 0.000086 -2.2 1.000 -9.966 0.999813 0.000187 -2.1 1.000 -9.966 0.999775 0.000225 -2.0 1.000 -9.966 0.999671 0.000329 -1.9 0.999 -9.966 0.999531 0.000469 -1.8 0.999 -9.308 0.999211 0.000789 -1.7 0.998 -8.893 0.998948 0.001052 -1.6 0.998 -8.191 0.998290 0.001710 -1.5 0.996 -7.655 0.997519 0.002481 -1.4 0.994 -7.037 0.996192 0.003808 -1.3 0.992 -6.513 0.994525 0.005475 -1.2 0.988 -5.931 0.991804 0.008196 -1.1 0.982 -5.359 0.987816 0.012184 -1.0 0.974 -4.789 0.981916 0.018084 -0.9 0.961 -4.217 0.973110 0.026890 -0.8 0.942 -3.672 0.960785 0.039215 -0.7 0.915 -3.123 0.942613 0.057387 -0.6 0.874 -2.582 0.916477 0.083523 -0.5 0.816 -2.062 0.880296 0.119704 -0.4 0.734 -1.573 0.831905 0.168095 -0.3 0.619 -1.109 0.768168 0.231832 -0.2 0.465 -0.690 0.690103 0.309897 -0.1 0.260 -0.317 0.598759 0.401241 0.0 0.000 0.000 0.500000 0.500000 0.1 -0.317 0.260 0.401241 0.598759 0.2 -0.690 0.465 0.309897 0.690103 0.3 -1.109 0.619 0.231832 0.768168 0.4 -1.573 0.734 0.168095 0.831905 0.5 -2.062 0.816 0.119704 0.880296 0.6 -2.582 0.874 0.083523 0.916477 0.7 -3.123 0.915 0.057387 0.942613 0.8 -3.672 0.942 0.039215 0.960785 0.9 -4.217 0.961 0.026890 0.973110 1.0 -4.789 0.974 0.018084 0.981916 1.1 -5.359 0.982 0.012184 0.987816 1.2 -5.931 0.988 0.008196 0.991804 1.3 -6.513 0.992 0.005475 0.994525 1.4 -7.037 0.994 0.003808 0.996192 1.5 -7.655 0.996 0.002481 0.997519 1.6 -8.191 0.998 0.001710 0.998290 1.7 -8.893 0.998 0.001052 0.998948 1.8 -9.308 0.999 0.000789 0.999211 1.9 -9.966 0.999 0.000469 0.999531 2.0 -9.966 1.000 0.000329 0.999671 2.1 -9.966 1.000 0.000225 0.999775 2.2 -9.966 1.000 0.000187 0.999813 2.3 -9.966 1.000 0.000086 0.999914 2.4 -9.966 1.000 0.000063 0.999937 2.5 -9.966 1.000 0.000017 0.999983 2.6 -9.966 1.000 0.000091 0.999909 2.7 -9.966 1.000 0.000032 0.999968 2.8 -9.966 1.000 0.000045 0.999955 2.9 -9.966 1.000 0.000000 1.000000 3.0 -9.966 1.000 0.000000 1.000000 3.1 -9.966 1.000 0.000000 1.000000 3.2 -9.966 1.000 0.000000 1.000000 3.3 -9.966 1.000 0.000000 1.000000 3.4 -9.966 1.000 0.000000 1.000000 3.5 -9.966 1.000 0.000000 1.000000 3.6 -9.966 1.000 0.000000 1.000000 3.7 -9.966 1.000 0.000000 1.000000 3.8 -9.966 1.000 0.000000 1.000000 3.9 -9.966 1.000 0.000000 1.000000 4.0 -9.966 1.000 0.000000 1.000000 4.1 -9.966 1.000 0.000000 1.000000 4.2 -9.966 1.000 0.000000 1.000000 4.3 -9.966 1.000 0.000000 1.000000 4.4 -9.966 1.000 0.000000 1.000000 4.5 -9.966 1.000 0.000000 1.000000 4.6 -9.966 1.000 0.000000 1.000000 4.7 -9.966 1.000 0.000000 1.000000 4.8 -9.966 1.000 0.000000 1.000000 4.9 -9.966 1.000 0.000000 1.000000 5.0 -9.966 1.000 0.000000 1.000000 5.1 -9.966 1.000 0.000000 1.000000 5.2 -9.966 1.000 0.000000 1.000000 5.3 -9.966 1.000 0.000000 1.000000 5.4 -9.966 1.000 0.000000 1.000000 5.5 -9.966 1.000 0.000000 1.000000 5.6 -9.966 1.000 0.000000 1.000000 5.7 -9.966 1.000 0.000000 1.000000 5.8 -9.966 1.000 0.000000 1.000000 5.9 -9.966 1.000 0.000000 1.000000 6.0 -9.966 1.000 0.000000 1.000000 6.1 -9.966 1.000 0.000000 1.000000 6.2 -9.966 1.000 0.000000 1.000000 6.3 -9.966 1.000 0.000000 1.000000 6.4 -9.966 1.000 0.000000 1.000000 6.5 -9.966 1.000 0.000000 1.000000 6.6 -9.966 1.000 0.000000 1.000000 6.7 -9.966 1.000 0.000000 1.000000 6.8 -9.966 1.000 0.000000 1.000000 6.9 -9.966 1.000 0.000000 1.000000 7.0 -9.966 1.000 0.000000 1.000000 7.1 -9.966 1.000 0.000000 1.000000 7.2 -9.966 1.000 0.000000 1.000000 7.3 -9.966 1.000 0.000000 1.000000 7.4 -9.966 1.000 0.000000 1.000000 7.5 -9.966 1.000 0.000000 1.000000 7.6 -9.966 1.000 0.000000 1.000000 7.7 -9.966 1.000 0.000000 1.000000 7.8 -9.966 1.000 0.000000 1.000000 7.9 -9.966 1.000 0.000000 1.000000 8.0 -9.966 1.000 0.000000 1.000000 8.1 -9.966 1.000 0.000000 1.000000 8.2 -9.966 1.000 0.000000 1.000000 8.3 -9.966 1.000 0.000000 1.000000 8.4 -9.966 1.000 0.000000 1.000000 8.5 -9.966 1.000 0.000000 1.000000 8.6 -9.966 1.000 0.000000 1.000000 8.7 -9.966 1.000 0.000000 1.000000 8.8 -9.966 1.000 0.000000 1.000000 8.9 -9.966 1.000 0.000000 1.000000 9.0 -9.966 1.000 0.000000 1.000000 9.1 -9.966 1.000 0.000000 1.000000 9.2 -9.966 1.000 0.000000 1.000000 9.3 -9.966 1.000 0.000000 1.000000 9.4 -9.966 1.000 0.000000 1.000000 9.5 -9.966 1.000 0.000000 1.000000 9.6 -9.966 1.000 0.000000 1.000000 9.7 -9.966 1.000 0.000000 1.000000 9.8 -9.966 1.000 0.000000 1.000000 9.9 -9.966 1.000 0.000000 1.000000 10.0 -9.966 1.000 0.000000 1.000000 10.1 -9.966 1.000 0.000000 1.000000 10.2 -9.966 1.000 0.000000 1.000000 10.3 -9.966 1.000 0.000000 1.000000 10.4 -9.966 1.000 0.000000 1.000000 10.5 -9.966 1.000 0.000000 1.000000 10.6 -9.966 1.000 0.000000 1.000000 10.7 -9.966 1.000 0.000000 1.000000 10.8 -9.966 1.000 0.000000 1.000000 10.9 -9.966 1.000 0.000000 1.000000 11.0 -9.966 1.000 0.000000 1.000000 11.1 -9.966 1.000 0.000000 1.000000 11.2 -9.966 1.000 0.000000 1.000000 11.3 -9.966 1.000 0.000000 1.000000 11.4 -9.966 1.000 0.000000 1.000000 11.5 -9.966 1.000 0.000000 1.000000 11.6 -9.966 1.000 0.000000 1.000000 11.7 -9.966 1.000 0.000000 1.000000 11.8 -9.966 1.000 0.000000 1.000000 11.9 -9.966 1.000 0.000000 1.000000 12.0 -9.966 1.000 0.000000 1.000000 12.1 -9.966 1.000 0.000000 1.000000 12.2 -9.966 1.000 0.000000 1.000000 12.3 -9.966 1.000 0.000000 1.000000 12.4 -9.966 1.000 0.000000 1.000000 12.5 -9.966 1.000 0.000000 1.000000 12.6 -9.966 1.000 0.000000 1.000000 12.7 -9.966 1.000 0.000000 1.000000 ./lib/chkmsg.f900000664000175000017500000000120512172374464011737 0ustar jtnjtnsubroutine chkmsg(message,cok,nspecial,flip) character message*22,cok*3 nspecial=0 flip=1.0 cok=" " do i=22,1,-1 if(message(i:i).ne.' ') go to 10 enddo i=22 10 if(i.ge.11) then if((message(i-3:i).eq.' OOO') .or. (message(20:22).eq.' OO')) then cok='OOO' flip=-1.0 if(message(20:22).eq.' OO') then message=message(1:19) else message=message(1:i-4) endif endif endif if(message(1:2).eq.'RO') nspecial=2 if(message(1:3).eq.'RRR') nspecial=3 if(message(1:2).eq.'73') nspecial=4 return end subroutine chkmsg ./lib/afc65b.f900000664000175000017500000000304212172374464011532 0ustar jtnjtnsubroutine afc65b(cx,npts,fsample,nflip,a,ccfbest,dtbest) ! Find delta f, f1, f2 ==> a(1:3) complex cx(npts) real a(5),deltaa(5) a(1)=0. a(2)=0. a(3)=0. a(4)=0. deltaa(1)=2.0 deltaa(2)=2.0 deltaa(3)=2.0 deltaa(4)=0.05 nterms=3 !Maybe 2 is enough? ! Start the iteration chisqr=0. chisqr0=1.e6 do iter=1,3 !One iteration is enough? do j=1,nterms chisq1=fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax) fn=0. delta=deltaa(j) 10 a(j)=a(j)+delta chisq2=fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax) if(chisq2.eq.chisq1) go to 10 if(chisq2.gt.chisq1) then delta=-delta !Reverse direction a(j)=a(j)+delta tmp=chisq1 chisq1=chisq2 chisq2=tmp endif 20 fn=fn+1.0 a(j)=a(j)+delta chisq3=fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax) if(chisq3.lt.chisq2) then chisq1=chisq2 chisq2=chisq3 go to 20 endif ! Find minimum of parabola defined by last three points delta=delta*(1./(1.+(chisq1-chisq2)/(chisq3-chisq2))+0.5) a(j)=a(j)-delta deltaa(j)=deltaa(j)*fn/3. enddo chisqr=fchisq65(cx,npts,fsample,nflip,a,ccfmax,dtmax) if(chisqr/chisqr0.gt.0.9999) go to 30 chisqr0=chisqr enddo 30 ccfbest=ccfmax * (1378.125/fsample)**2 dtbest=dtmax return end subroutine afc65b ./lib/encode_rs.c0000664000175000017500000000230612172374464012253 0ustar jtnjtn/* Reed-Solomon encoder * Copyright 2002, Phil Karn, KA9Q * May be used under the terms of the GNU General Public License (GPL) */ #include #ifdef FIXED #include "fixed.h" #elif defined(BIGSYM) #include "int.h" #else #include "char.h" #endif void ENCODE_RS( #ifdef FIXED DTYPE *data, DTYPE *bb,int pad){ #else void *p,DTYPE *data, DTYPE *bb){ struct rs *rs = (struct rs *)p; #endif int i, j; DTYPE feedback; #ifdef FIXED /* Check pad parameter for validity */ if(pad < 0 || pad >= NN) return; #endif memset(bb,0,NROOTS*sizeof(DTYPE)); for(i=0;i' from within WSJT-X." go to 999 endif p_jt9=>address_jt9() call timer('jt9b ',0) call jt9b(p_jt9,nbytes) call timer('jt9b ',1) 100 inquire(file=trim(cwd)//'/.lock',exist=fileExists) if(fileExists) go to 10 call sleep_msec(100) go to 100 999 call timer('jt9b ',101) return end subroutine jt9a ./lib/interleave24.f900000664000175000017500000000143412172374464012773 0ustar jtnjtnsubroutine interleave24(id,ndir) integer*1 id(0:205),itmp(0:205) integer j0(0:205) logical first data first/.true./ save first,j0 if(first) then k=-1 do i=0,255 m=i n=iand(m,1) n=2*n + iand(m/2,1) n=2*n + iand(m/4,1) n=2*n + iand(m/8,1) n=2*n + iand(m/16,1) n=2*n + iand(m/32,1) n=2*n + iand(m/64,1) n=2*n + iand(m/128,1) if(n.le.205) then k=k+1 j0(k)=n endif enddo first=.false. endif if(ndir.eq.1) then do i=0,205 itmp(j0(i))=id(i) enddo else do i=0,205 itmp(i)=id(j0(i)) enddo endif do i=0,205 id(i)=itmp(i) enddo return end subroutine interleave24 ./lib/wsjt24d.f900000664000175000017500000000237012172374464011770 0ustar jtnjtnprogram wsjt24d real*4 dat(60*11025/2) character*6 cfile6 character*12 arg real ccfblue(-5:540) !X-cor function in JT65 mode (blue line) real ccfred(450) !Average spectrum of the whole file integer dftolerance nargs=iargc() if(nargs.ne.2) then print*,'Usage: wspr24d ifile1 ifile2' go to 999 endif call getarg(1,arg) read(arg,*) ifile1 call getarg(2,arg) read(arg,*) ifile2 open(23,file='CALL3.TXT',status='old') open(50,file='vk7mo.dat',form='unformatted',status='old') do ifile=1,ifile2 read(50,end=999) jz,cfile6,NClearAve,MinSigdB,DFTolerance,NFreeze, & mode,mode4,Nseg,MouseDF2,NAgain,idf,lumsg,lcum,nspecial,ndf, & NSyncOK,dat(1:jz) if(ifile.lt.ifile1) cycle ! write(*,3000) ifile,cfile6,jz,mode,mode4,idf !3000 format(i3,2x,a6,i10,3i5) dftolerance=100 nfreeze=1 neme=0 ! call wsjt24(dat(4097),jz-4096,cfile6,NClearAve,MinSigdB,DFTolerance, & call wsjt24(dat,jz,cfile6,NClearAve,MinSigdB,DFTolerance, & NFreeze,mode,mode4,Nseg,MouseDF2,NAgain,idf,lumsg,lcum,nspecial, & ndf,NSyncOK,ccfblue,ccfred,ndiag) if(ifile.ge.ifile2) exit enddo 999 end program wsjt24d ./lib/azdist.f900000664000175000017500000000527412172374464011773 0ustar jtnjtnsubroutine azdist(MyGrid,HisGrid,utch,nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter) character*6 MyGrid,HisGrid,mygrid0,hisgrid0 real*8 utch,utch0 logical HotABetter,IamEast real eltab(22),daztab(22) data eltab/18.,15.,13.,11.,9.,8.,7.,6.,5.3,4.7,4.,3.3,2.7, & 2.,1.5,1.,0.8,0.6,0.4,0.2,0.0,0.0/ data daztab/21.,18.,16.,15.,14.,13.,12.,11.,10.7,10.3,10., & 10.,10.,10.,10.,10.,10.,9.,9.,9.,8.,8./ data mygrid0/" "/,hisgrid0/" "/,utch0/-999.d0/ save if(MyGrid.eq.HisGrid) then naz=0 nel=0 ndmiles=0 ndkm=0 nhotaz=0 nhotabetter=1 go to 999 endif if(mygrid.eq.mygrid0 .and. hisgrid.eq.hisgrid0 .and. & abs(utch-utch0).lt.0.1666667d0) go to 900 utch0=utch mygrid0=mygrid hisgrid0=hisgrid utchours=utch if(MyGrid(5:5).eq.' ') MyGrid(5:5)='m' if(MyGrid(6:6).eq.' ') MyGrid(6:6)='m' if(HisGrid(5:5).eq.' ') HisGrid(5:5)='m' if(HisGrid(6:6).eq.' ') HisGrid(6:6)='m' if(MyGrid.eq.HisGrid) then Az=0. Dmiles=0. Dkm=0.0 El=0. HotA=0. HotB=0. HotABetter=.true. go to 900 endif call grid2deg(MyGrid,dlong1,dlat1) call grid2deg(HisGrid,dlong2,dlat2) call geodist(dlat1,dlong1,dlat2,dlong2,Az,Baz,Dkm) ndkm=Dkm/100 j=ndkm-4 if(j.lt.1) j=1 if(j.gt.21)j=21 if(Dkm.lt.500.0) then El=18.0 else u=(Dkm-100.0*ndkm)/100.0 El=(1.0-u)*eltab(j) + u*eltab(j+1) endif daz=daztab(j) + u * (daztab(j+1)-daztab(j)) Dmiles=Dkm/1.609344 tmid=mod(UTChours-0.5*(dlong1+dlong2)/15.0+48.0,24.0) IamEast=.false. if(dlong1.lt.dlong2) IamEast=.true. if(dlong1.eq.dlong2 .and. dlat1.gt.dlat2) IamEast=.false. azEast=baz if(IamEast) azEast=az if((azEast.ge.45.0 .and. azEast.lt.135.0) .or. & (azEast.ge.225.0 .and. azEast.lt.315.0)) then ! The path will be taken as "east-west". HotABetter=.true. if(abs(tmid-6.0).lt.6.0) HotABetter=.false. if((dlat1+dlat2)/2.0 .lt. 0.0) HotABetter=.not.HotABetter else ! The path will be taken as "north-south". HotABetter=.false. if(abs(tmid-12.0).lt.6.0) HotABetter=.true. endif if(IamEast) then HotA = Az - daz HotB = Az + daz else HotA = Az + daz HotB = Az - daz endif if(HotA.lt.0.0) HotA=HotA+360.0 if(HotA.gt.360.0) HotA=HotA-360.0 if(HotB.lt.0.0) HotB=HotB+360.0 if(HotB.gt.360.0) HotB=HotB-360.0 900 continue naz=nint(Az) nel=nint(el) nDmiles=nint(Dmiles) nDkm=nint(Dkm) nHotAz=nint(HotB) nHotABetter=0 if(HotABetter) then nHotAz=nint(HotA) nHotABetter=1 endif 999 return end subroutine azdist ./lib/packtext.f900000664000175000017500000000240312172374464012307 0ustar jtnjtnsubroutine packtext(msg,nc1,nc2,nc3) parameter (MASK28=2**28 - 1) character*13 msg character*42 c data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/ nc1=0 nc2=0 nc3=0 do i=1,5 !First 5 characters in nc1 do j=1,42 !Get character code if(msg(i:i).eq.c(j:j)) go to 10 enddo j=37 10 j=j-1 !Codes should start at zero nc1=42*nc1 + j enddo do i=6,10 !Characters 6-10 in nc2 do j=1,42 !Get character code if(msg(i:i).eq.c(j:j)) go to 20 enddo j=37 20 j=j-1 !Codes should start at zero nc2=42*nc2 + j enddo do i=11,13 !Characters 11-13 in nc3 do j=1,42 !Get character code if(msg(i:i).eq.c(j:j)) go to 30 enddo j=37 30 j=j-1 !Codes should start at zero nc3=42*nc3 + j enddo ! We now have used 17 bits in nc3. Must move one each to nc1 and nc2. nc1=nc1+nc1 if(iand(nc3,32768).ne.0) nc1=nc1+1 nc2=nc2+nc2 if(iand(nc3,65536).ne.0) nc2=nc2+1 nc3=iand(nc3,32767) return end subroutine packtext ./lib/tstrig.h0000664000175000017500000000267212172374464011641 0ustar jtnjtn/* * rigctl_parse.h - (C) Stephane Fillod 2000-2010 * * This program test/control a radio using Hamlib. * It takes commands in interactive mode as well as * from command line options. * * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License along * with this program; if not, write to the Free Software Foundation, Inc., * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. * */ #ifndef RIGCTL_PARSE_H #define RIGCTL_PARSE_H #include #include /* * external prototype */ int dumpcaps (RIG *, FILE *); int dumpconf (RIG *, FILE *); /* * Prototypes */ void usage_rig(FILE *); void version(); void list_models(); int dump_chan(FILE *, RIG*, channel_t*); int print_conf_list(const struct confparams *cfp, rig_ptr_t data); int set_conf(RIG *my_rig, char *conf_parms); int rigctl_parse(RIG *my_rig, FILE *fin, FILE *fout, char *argv[], int argc); #endif /* RIGCTL_PARSE_H */ ./lib/k2grid.f900000664000175000017500000000033412172374464011647 0ustar jtnjtnsubroutine k2grid(k,grid) character grid*6 nlong=2*mod((k-1)/5,90)-179 if(k.gt.450) nlong=nlong+180 nlat=mod(k-1,5)+ 85 dlat=nlat dlong=nlong call deg2grid(dlong,dlat,grid) return end subroutine k2grid ./lib/fil61.f900000664000175000017500000000400712172374464011407 0ustar jtnjtn12000 61 250 750 0.2 50, mix at 1500 -0.000000000000 0.001944450121 -0.000668730681 0.000668730681 -0.000974850191 -0.000000000000 -0.000581679123 -0.000581679123 0.000000000000 -0.000439648787 -0.000148911451 0.000148911451 -0.001140891736 -0.000000000000 -0.001653102965 -0.001653102965 0.000000000000 -0.003749915818 0.003740834397 -0.003740834397 0.006834087490 0.000000000000 0.005812808655 0.005812808655 -0.000000000000 0.009262713933 -0.006900370427 0.006900370427 -0.009503248519 -0.000000000000 -0.005874581677 -0.005874581677 0.000000000000 -0.006017530719 0.001785268072 -0.001785268072 -0.002214736448 -0.000000000000 -0.005777038427 -0.005777038427 0.000000000000 -0.015228682747 0.016402831440 -0.016402831440 0.031806920774 0.000000000000 0.028800401613 0.028800401613 -0.000000000000 0.049589395998 -0.041000303659 0.041000303659 -0.065514139214 -0.000000000000 -0.050781544715 -0.050781544715 0.000000000000 -0.076562341482 0.056225821996 -0.056225821996 0.080516569816 0.000000000000 0.056225821996 0.056225821996 -0.000000000000 0.076562341482 -0.050781544715 0.050781544715 -0.065514139214 -0.000000000000 -0.041000303659 -0.041000303659 0.000000000000 -0.049589395998 0.028800401613 -0.028800401613 0.031806920774 0.000000000000 0.016402831440 0.016402831440 -0.000000000000 0.015228682747 -0.005777038427 0.005777038427 -0.002214736448 -0.000000000000 0.001785268072 0.001785268072 -0.000000000000 0.006017530719 -0.005874581677 0.005874581677 -0.009503248519 -0.000000000000 -0.006900370427 -0.006900370427 0.000000000000 -0.009262713933 0.005812808655 -0.005812808655 0.006834087490 0.000000000000 0.003740834397 0.003740834397 -0.000000000000 0.003749915818 -0.001653102965 0.001653102965 -0.001140891736 -0.000000000000 -0.000148911451 -0.000148911451 -0.000000000000 0.000439648787 -0.000581679123 0.000581679123 -0.000974850191 -0.000000000000 -0.000668730681 -0.000668730681 0.000000000000 -0.001944450121 ./lib/move.f900000664000175000017500000000015612172374464011435 0ustar jtnjtnsubroutine move(x,y,n) real x(n),y(n) do i=1,n y(i)=x(i) enddo return end subroutine move ./lib/decode9.f900000664000175000017500000000713112172374464012003 0ustar jtnjtnsubroutine decode9(i1SoftSymbols,limit,nlim,msg) ! Decoder for JT9 ! Input: i1SoftSymbols(207) - Single-bit soft symbols ! Output: msg - decoded message (blank if erasure) character*22 msg integer*4 i4DecodedBytes(9) integer*4 i4Decoded6BitWords(12) integer*1 i1DecodedBytes(13) !72 bits and zero tail as 8-bit bytes integer*1 i1SoftSymbols(207) integer*1 i1DecodedBits(72) real*4 xx0(0:255) logical first integer*4 mettab(0:255,0:1) data first/.true./ data xx0/ & !Metric table 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, 1.000, & 0.988, 1.000, 0.991, 0.993, 1.000, 0.995, 1.000, 0.991, & 1.000, 0.991, 0.992, 0.991, 0.990, 0.990, 0.992, 0.996, & 0.990, 0.994, 0.993, 0.991, 0.992, 0.989, 0.991, 0.987, & 0.985, 0.989, 0.984, 0.983, 0.979, 0.977, 0.971, 0.975, & 0.974, 0.970, 0.970, 0.970, 0.967, 0.962, 0.960, 0.957, & 0.956, 0.953, 0.942, 0.946, 0.937, 0.933, 0.929, 0.920, & 0.917, 0.911, 0.903, 0.895, 0.884, 0.877, 0.869, 0.858, & 0.846, 0.834, 0.821, 0.806, 0.790, 0.775, 0.755, 0.737, & 0.713, 0.691, 0.667, 0.640, 0.612, 0.581, 0.548, 0.510, & 0.472, 0.425, 0.378, 0.328, 0.274, 0.212, 0.146, 0.075, & 0.000,-0.079,-0.163,-0.249,-0.338,-0.425,-0.514,-0.606, & -0.706,-0.796,-0.895,-0.987,-1.084,-1.181,-1.280,-1.376, & -1.473,-1.587,-1.678,-1.790,-1.882,-1.992,-2.096,-2.201, & -2.301,-2.411,-2.531,-2.608,-2.690,-2.829,-2.939,-3.058, & -3.164,-3.212,-3.377,-3.463,-3.550,-3.768,-3.677,-3.975, & -4.062,-4.098,-4.186,-4.261,-4.472,-4.621,-4.623,-4.608, & -4.822,-4.870,-4.652,-4.954,-5.108,-5.377,-5.544,-5.995, & -5.632,-5.826,-6.304,-6.002,-6.559,-6.369,-6.658,-7.016, & -6.184,-7.332,-6.534,-6.152,-6.113,-6.288,-6.426,-6.313, & -9.966,-6.371,-9.966,-7.055,-9.966,-6.629,-6.313,-9.966, & -5.858,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966, & -9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966,-9.966/ save if(first) then ! Get the metric table bias=0.5 scale=10 do i=0,255 mettab(i,0)=nint(scale*(xx0(i)-bias)) if(i.ge.1) mettab(256-i,1)=mettab(i,0) enddo first=.false. endif msg=' ' nbits=72 ndelta=17 call fano232(i1SoftSymbols,nbits+31,mettab,ndelta,limit,i1DecodedBytes, & ncycles,metric,ierr) nlim=ncycles/(nbits+31) if(ncycles.lt.(nbits*limit)) then nbytes=(nbits+7)/8 do i=1,nbytes n=i1DecodedBytes(i) i4DecodedBytes(i)=iand(n,255) enddo call unpackbits(i4DecodedBytes,nbytes,8,i1DecodedBits) call packbits(i1DecodedBits,12,6,i4Decoded6BitWords) call unpackmsg(i4Decoded6BitWords,msg) !Unpack decoded msg if(index(msg,'000AAA ').gt.0) msg=' ' endif return end subroutine decode9 ./lib/grid2deg.f900000664000175000017500000000224112172374464012153 0ustar jtnjtnsubroutine grid2deg(grid0,dlong,dlat) ! Converts Maidenhead grid locator to degrees of West longitude ! and North latitude. character*6 grid0,grid character*1 g1,g2,g3,g4,g5,g6 grid=grid0 i=ichar(grid(5:5)) if(grid(5:5).eq.' ' .or. i.le.64 .or. i.ge.128) grid(5:6)='mm' if(grid(1:1).ge.'a' .and. grid(1:1).le.'z') grid(1:1)= & char(ichar(grid(1:1))+ichar('A')-ichar('a')) if(grid(2:2).ge.'a' .and. grid(2:2).le.'z') grid(2:2)= & char(ichar(grid(2:2))+ichar('A')-ichar('a')) if(grid(5:5).ge.'A' .and. grid(5:5).le.'Z') grid(5:5)= & char(ichar(grid(5:5))-ichar('A')+ichar('a')) if(grid(6:6).ge.'A' .and. grid(6:6).le.'Z') grid(6:6)= & char(ichar(grid(6:6))-ichar('A')+ichar('a')) g1=grid(1:1) g2=grid(2:2) g3=grid(3:3) g4=grid(4:4) g5=grid(5:5) g6=grid(6:6) nlong = 180 - 20*(ichar(g1)-ichar('A')) n20d = 2*(ichar(g3)-ichar('0')) xminlong = 5*(ichar(g5)-ichar('a')+0.5) dlong = nlong - n20d - xminlong/60.0 nlat = -90+10*(ichar(g2)-ichar('A')) + ichar(g4)-ichar('0') xminlat = 2.5*(ichar(g6)-ichar('a')+0.5) dlat = nlat + xminlat/60.0 return end subroutine grid2deg ./lib/flat1.f900000664000175000017500000000074312172374464011500 0ustar jtnjtnsubroutine flat1(psavg,s2,nh,nsteps,nhmax,nsmax) real psavg(nh) real s2(nhmax,nsmax) real x(8192),tmp(33) nsmo=33 ia=nsmo/2 + 1 ib=nh - nsmo/2 - 1 do i=ia,ib call pctile(psavg(i-nsmo/2),nsmo,50,x(i)) enddo do i=1,ia-1 x(i)=x(ia) enddo do i=ib+1,nh x(i)=x(ib) enddo do i=1,nh psavg(i)=psavg(i)/x(i) do j=1,nsteps s2(i,j)=s2(i,j)/x(i) enddo enddo return end subroutine flat1 ./lib/softsym.f900000664000175000017500000000253612172374464012177 0ustar jtnjtnsubroutine softsym(id2,npts8,nsps8,newdat,fpk,syncpk,snrdb,xdt, & freq,drift,schk,i1SoftSymbols) ! Compute the soft symbols complex c2(0:4096-1) complex c3(0:4096-1) complex c5(0:4096-1) real a(3) integer*1 i1SoftSymbolsScrambled(207) integer*1 i1SoftSymbols(207) include 'jt9sync.f90' nspsd=16 ndown=nsps8/nspsd ! Mix, low-pass filter, and downsample to 16 samples per symbol call timer('downsam9',0) call downsam9(id2,npts8,nsps8,newdat,nspsd,fpk,c2,nz2) call timer('downsam9',1) call timer('peakdt9 ',0) call peakdt9(c2,nz2,nsps8,nspsd,c3,nz3,xdt) !Find DT call timer('peakdt9 ',1) fsample=1500.0/ndown a=0. call timer('afc9 ',0) call afc9(c3,nz3,fsample,a,syncpk) !Find deltaF, fDot, fDDot call timer('afc9 ',1) freq=fpk - a(1) drift=-2.0*a(2) call timer('twkfreq ',0) call twkfreq(c3,c5,nz3,fsample,a) !Correct for delta f, f1, f2 ==> a(1:3) call timer('twkfreq ',1) ! Compute soft symbols (in scrambled order) call timer('symspec2',0) call symspec2(c5,nz3,nsps8,nspsd,fsample,freq,drift,snrdb,schk, & i1SoftSymbolsScrambled) call timer('symspec2',1) ! Remove interleaving call timer('interlv9',0) call interleave9(i1SoftSymbolsScrambled,-1,i1SoftSymbols) call timer('interlv9',1) return end subroutine softsym ./lib/getlags.f900000664000175000017500000000075612172374464012123 0ustar jtnjtnsubroutine getlags(nsps8,lag0,lag1,lag2) if(nsps8.eq.864) then lag1=39 lag2=291 lag0=123 else if(nsps8.eq.1920) then lag1=70 lag2=184 lag0=108 else if(nsps8.eq.5120) then lag1=84 lag2=129 lag0=99 else if(nsps8.eq.10368) then lag1=91 lag2=112 lag0=98 else if(nsps8.eq.31500) then lag1=93 lag2=102 lag0=96 else stop 'Error in getlags' endif return end subroutine getlags ./lib/s3avg.f900000664000175000017500000000341212172374464011510 0ustar jtnjtnsubroutine s3avg(nsave,mode65,nutc,nhz,xdt,npol,ntol,s3,nsum,nkv,decoded) ! Save the current synchronized spectra, s3(64,63), for possible ! decoding of average. real s3(64,63) !Synchronized spectra for 63 symbols real s3a(64,63,64) !Saved spectra real s3b(64,63) !Average spectra integer iutc(64),ihz(64),ipol(64) real dt(64) character*22 decoded logical ltext,first data first/.true./ save if(first) then iutc=-1 ihz=0 ipol=0 first=.false. ihzdiff=min(100,ntol) dtdiff=0.2 endif do i=1,64 if(nutc.eq.iutc(i) .and. abs(nhz-ihz(i)).lt.ihzdiff) then nsave=mod(nsave-1+64,64)+1 go to 10 endif enddo iutc(nsave)=nutc !Save UTC ihz(nsave)=nhz !Save freq in Hz ipol(nsave)=npol !Save pol dt(nsave)=xdt !Save DT s3a(1:64,1:63,nsave)=s3 !Save the spectra 10 s3b=0. do i=1,64 !Accumulate avg spectra if(iutc(i).lt.0) cycle if(mod(iutc(i),2).ne.mod(nutc,2)) cycle !Use only same sequence if(abs(nhz-ihz(i)).gt.ihzdiff) cycle !Freq must match if(abs(xdt-dt(i)).gt.dtdiff) cycle !DT must match s3b=s3b + s3a(1:64,1:63,i) nsum=nsum+1 enddo decoded=' ' if(nsum.ge.2) then !Try decoding the sverage nadd=mode65*nsum call extract(s3b,nadd,ncount,nhist,decoded,ltext) !Extract the message nkv=nsum if(ncount.lt.0) then nkv=0 decoded=' ' endif endif return end subroutine s3avg ./lib/xcor24.f900000664000175000017500000000527212172374464011614 0ustar jtnjtnsubroutine xcor24(s2,ipk,nsteps,nsym,lag1,lag2,mode4,ccf,ccf0,lagpk,flip) ! Computes ccf of a row of s2 and the pseudo-random array pr2. Returns ! peak of the CCF and the lag at which peak occurs. For JT65, the ! CCF peak may be either positive or negative, with negative implying ! the "OOO" message. parameter (NHMAX=1260) !Max length of power spectra parameter (NSMAX=525) !Max number of half-symbol steps real s2(NHMAX,NSMAX) !2d spectrum, stepped by half-symbols real a(NSMAX) real ccf(-5:540) integer npr2(207) real pr2(207) logical first data lagmin/0/ !Silence g77 warning data first/.true./ data npr2/ & 0,0,0,0,1,1,0,0,0,1,1,0,1,1,0,0,1,0,1,0,0,0,0,0,0,0,1,1,0,0, & 0,0,0,0,0,0,0,0,0,0,1,0,1,1,0,1,1,0,1,0,1,1,1,1,1,0,1,0,0,0, & 1,0,0,1,0,0,1,1,1,1,1,0,0,0,1,0,1,0,0,0,1,1,1,1,0,1,1,0,0,1, & 0,0,0,1,1,0,1,0,1,0,1,0,1,0,1,1,1,1,1,0,1,0,1,0,1,1,0,1,0,1, & 0,1,1,1,0,0,1,0,1,1,0,1,1,1,1,0,0,0,0,1,1,0,1,1,0,0,0,1,1,1, & 0,1,1,1,0,1,1,1,0,0,1,0,0,0,1,1,0,1,1,0,0,1,0,0,0,1,1,1,1,1, & 1,0,0,1,1,0,0,0,0,1,1,0,0,0,1,0,1,1,0,1,1,1,1,0,1,0,1/ save if(first) then do i=1,207 pr2(i)=2*npr2(i)-1 enddo first=.false. endif do j=1,nsteps n=2*mode4 if(mode4.eq.1) then a(j)=max(s2(ipk+n,j),s2(ipk+3*n,j)) - max(s2(ipk ,j),s2(ipk+2*n,j)) else kz=mode4/2 ss0=0. ss1=0. ss2=0. ss3=0. wsum=0. do k=-kz+1,kz-1 w=float(kz-iabs(k))/mode4 wsum=wsum+w if(ipk+k.lt.1 .or. ipk+3*n+k.gt.1260) then print*,'xcor24:',ipk,n,k else ss0=ss0 + w*s2(ipk +k,j) ss1=ss1 + w*s2(ipk+ n+k,j) ss2=ss2 + w*s2(ipk+2*n+k,j) ss3=ss3 + w*s2(ipk+3*n+k,j) endif enddo a(j)=(max(ss1,ss3) - max(ss0,ss2))/sqrt(wsum) endif enddo ccfmax=0. ccfmin=0. do lag=lag1,lag2 x=0. do i=1,nsym j=2*i-1+lag if(j.ge.1 .and. j.le.nsteps) x=x+a(j)*pr2(i) enddo ccf(lag)=2*x !The 2 is for plotting scale if(ccf(lag).gt.ccfmax) then ccfmax=ccf(lag) lagpk=lag endif if(ccf(lag).lt.ccfmin) then ccfmin=ccf(lag) lagmin=lag endif enddo ccf0=ccfmax flip=1.0 if(-ccfmin.gt.ccfmax) then do lag=lag1,lag2 ccf(lag)=-ccf(lag) enddo lagpk=lagmin ccf0=-ccfmin flip=-1.0 endif return end subroutine xcor24 ./lib/symspec.f900000664000175000017500000000574012172374464012156 0ustar jtnjtnsubroutine symspec(k,ntrperiod,nsps,ingain,slope,pxdb,s,df3,ihsym,npts8) ! Input: ! k pointer to the most recent new data ! ntrperiod T/R sequence length, minutes ! nsps samples per symbol, at 12000 Hz ! ndiskdat 0/1 to indicate if data from disk ! nb 0/1 status of noise blanker (off/on) ! nbslider NB setting, 0-100 ! Output: ! pxdb power (0-60 dB) ! s() current spectrum for waterfall display ! ihsym index number of this half-symbol (1-184) ! jt9com ! ss() JT9 symbol spectra at half-symbol steps ! savg() average spectra for waterfall display include 'constants.f90' real*4 w3(MAXFFT3) real*4 s(NSMAX) real*4 scale(NSMAX) real*4 ssum(NSMAX) real*4 xc(0:MAXFFT3-1) complex cx(0:MAXFFT3/2) integer*2 id2 common/jt9com/ss(184,NSMAX),savg(NSMAX),id2(NMAX),nutc,ndiskdat, & ntr,mousefqso,newdat,nfa,nfb,ntol,kin,nzhsym,nsynced,ndecoded data rms/999.0/,k0/99999999/,nfft3z/0/,slope0/0.0/ equivalence (xc,cx) save if(ntrperiod.eq.-999) stop !Silence compiler warning nfft3=16384 !df=12000.0/16384 = 0.732422 jstep=nsps/2 !Step size = half-symbol in id2() if(k.gt.NMAX) go to 900 if(k.lt.2048) then !(2048 was nfft3) (Any need for this ???) ihsym=0 go to 900 !Wait for enough samples to start endif if(nfft3.ne.nfft3z .or. slope.ne.slope0) then !New nfft3, compute window pi=4.0*atan(1.0) do i=1,nfft3 w3(i)=2.0*(sin(i*pi/nfft3))**2 !Window for nfft3 spectrum enddo nfft3z=nfft3 nh=NSMAX/2 do i=1,NSMAX x=slope*float(i)/nh - 1.0 + 2.6 scale(i)=10.0**x enddo slope0=slope endif if(k.lt.k0) then !Start a new data block ja=0 ssum=0. ihsym=0 if(ndiskdat.eq.0) id2(k+1:)=0 !Needed to prevent "ghosts". Not sure why. endif gain=10.0**(0.05*ingain) sq=0. do i=k0+1,k x1=id2(i) sq=sq + x1*x1 enddo sq=sq * gain**2 rms=sqrt(sq/(k-k0)) pxdb=0. if(rms.gt.0.0) pxdb=20.0*log10(rms) if(pxdb.gt.60.0) pxdb=60.0 k0=k ja=ja+jstep !Index of first sample fac0=0.1 do i=0,nfft3-1 !Copy data into cx j=ja+i-(nfft3-1) xc(i)=0. if(j.ge.1) xc(i)=fac0*id2(j) enddo if(ihsym.lt.184) ihsym=ihsym+1 xc(0:nfft3-1)=w3(1:nfft3)*xc(0:nfft3-1) !Apply window w3 call four2a(xc,nfft3,1,-1,0) !Real-to-complex FFT n=min(184,ihsym) df3=12000.0/nfft3 !JT9-1: 0.732 Hz = 0.42 * tone spacing ! i0=nint(1000.0/df3) i0=0 iz=min(NSMAX,nint(5000.0/df3)) fac=(1.0/nfft3)**2 do i=1,iz j=i0+i-1 if(j.lt.0) j=j+nfft3 sx=fac*(real(cx(j))**2 + aimag(cx(j))**2) ss(n,i)=sx ssum(i)=ssum(i) + sx s(i)=gain*sx enddo ! s=0.05*s/ref s=scale*s savg=scale*ssum/ihsym 900 npts8=k/8 return end subroutine symspec ./lib/Makefile.linux0000664000175000017500000000540112172374464012743 0ustar jtnjtnCC = gcc FC = gfortran FFLAGS = -O2 -fbounds-check -Wall -Wno-conversion -fno-second-underscore CFLAGS = -I. -fbounds-check -mno-stack-arg-probe # Default rules %.o: %.c ${CC} ${CFLAGS} -c $< %.o: %.f ${FC} ${FFLAGS} -c $< %.o: %.F ${FC} ${FFLAGS} -c $< %.o: %.f90 ${FC} ${FFLAGS} -c $< %.o: %.F90 ${FC} ${FFLAGS} -c $< all: libjt9.a jt9sim jt9 jt9code OBJS1 = pctile.o graycode.o sort.o ssort.o \ unpackmsg.o igray.o unpackcall.o unpackgrid.o \ grid2k.o unpacktext.o getpfx2.o packmsg.o deg2grid.o \ packtext.o getpfx1.o packcall.o k2grid.o packgrid.o \ nchar.o four2a.o grid2deg.o pfxdump.o f77_wisdom.o \ symspec.o analytic.o db.o genjt9.o \ packbits.o unpackbits.o encode232.o interleave9.o \ entail.o fano232.o gran.o sync9.o decode9.o \ fil3.o decoder.o grid2n.o n2grid.o timer.o \ softsym.o peakdt9.o getlags.o afc9.o fchisq.o \ twkfreq.o downsam9.o symspec2.o ipcomm.o sleep_msec.o \ stdmsg.o sec_midn.o cutil.o azdist.o geodist.o morse.o \ fillcom.o chkss2.o zplot9.o flat2.o \ jt65a.o symspec65.o flat65.o ccf65.o decode65a.o \ filbig.o fil6521.o afc65b.o decode65b.o setup65.o \ extract.o fchisq65.o demod64a.o chkhist.o interleave63.o ccf2.o \ move.o indexx.o graycode65.o twkfreq65.o smo121.o \ wrapkarn.o init_rs.o encode_rs.o decode_rs.o gen65.o libjt9.a: $(OBJS1) ar cr libjt9.a $(OBJS1) ranlib libjt9.a OBJS2 = jt9.o jt9a.o jt9b.o jt9c.o jt9: $(OBJS2) libjt9.a g++ -o jt9 $(OBJS2) libjt9.a -lfftw3f -lgfortran -lQtCore cp jt9 ../../wsjtx_install OBJS3 = jt9sim.o jt9sim: $(OBJS3) libjt9.a $(FC) -o jt9sim $(OBJS3) libjt9.a OBJS4 = jt9code.o jt9code: $(OBJS4) libjt9.a $(FC) -o jt9code $(OBJS4) libjt9.a #INCPATH = -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/QtCore' \ # -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include' \ # -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/include/ActiveQt' \ # -I'release' -I'.' -I'c:/QtSDK/Desktop/Qt/4.7.4/mingw/mkspecs/win32-g++' INCPATH = -I'/usr/include/qt4' -I'/usr/include/qt4/QtCore' #jt9.o: jt9.f90 # $(FC) -O0 -c jt9.f90 sync9.o: sync9.f90 jt9sync.f90 $(FC) $(FFLAGS) -c sync9.f90 peakdf9.o: peakdf9.f90 jt9sync.f90 $(FC) $(FFLAGS) -c peakdf9.f90 peakdt9.o: peakdt9.f90 jt9sync.f90 $(FC) $(FFLAGS) -c peakdt9.f90 jt9sim.o: jt9sim.f90 jt9sync.f90 $(FC) $(FFLAGS) -c jt9sim.f90 genjt9.o: genjt9.f90 jt9sync.f90 $(FC) $(FFLAGS) -c genjt9.f90 redsync.o: redsync.f90 jt9sync.f90 $(FC) $(FFLAGS) -c redsync.f90 ipcomm.o: ipcomm.cpp g++ -c $(INCPATH) ipcomm.cpp sec_midn.o: sec_midn.f90 $(FC) -c -fno-second-underscore sec_midn.f90 init_rs.o: init_rs.c $(CC) -c -DBIGSYM=1 -o init_rs.o init_rs.c encode_rs.o: encode_rs.c $(CC) -c -DBIGSYM=1 -o encode_rs.o encode_rs.c decode_rs.o: decode_rs.c $(CC) -c -DBIGSYM=1 -o decode_rs.o decode_rs.c .PHONY : clean clean: rm -f *.o libjt9.a wsjtx jt9sim jt9 jt9code ./lib/peakdt9.f900000664000175000017500000000203612172374464012027 0ustar jtnjtnsubroutine peakdt9(c2,nz2,nsps8,nspsd,c3,nz3,xdt) complex c2(0:4096-1) complex c3(0:4096-1) complex z real p(0:3300) include 'jt9sync.f90' p=0. i0=5*nspsd do i=0,nz2-1 z=1.e-3*sum(c2(max(i-(nspsd-1),0):i)) p(i0+i)=real(z)**2 + aimag(z)**2 !Integrated symbol power at freq=0 enddo call getlags(nsps8,lag0,lag1,lag2) tsymbol=nsps8/1500.0 dtlag=tsymbol/nspsd smax=0. lagpk=0 do lag=lag1,lag2 sum0=0. sum1=0. j=-nspsd do i=1,85 j=j+nspsd if(isync(i).eq.1) then sum1=sum1+p(j+lag) else sum0=sum0+p(j+lag) endif enddo ss=(sum1/16.0)/(sum0/69.0) - 1.0 xdt=(lag-lag0)*dtlag if(ss.gt.smax) then smax=ss lagpk=lag endif enddo xdt=(lagpk-lag0)*dtlag nz3=nspsd*85 do i=0,nz3-1 j=i+lagpk-i0-nspsd+1 if(j.ge.0 .and. j.le.nz2) then c3(i)=c2(j) else c3(i)=0. endif enddo return end subroutine peakdt9 ./lib/conv232.f900000664000175000017500000000253012172374464011661 0ustar jtnjtn! Layland-Lushbaugh polynomials for a K=32, r=1/2 convolutional code, ! and 8-bit parity lookup table. data npoly1/-221228207/,npoly2/-463389625/ integer*1 partab(0:255) data partab/ & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0, & 0, 1, 1, 0, 1, 0, 0, 1, & 0, 1, 1, 0, 1, 0, 0, 1, & 1, 0, 0, 1, 0, 1, 1, 0/ ./lib/jt9code.f900000664000175000017500000000141012172374464012022 0ustar jtnjtnprogram jt9code ! Generate simulated data for testing of WSJT-X character msg*22,msg0*22,decoded*22 integer*4 i4tone(85) !Channel symbols (values 0-8) include 'jt9sync.f90' nargs=iargc() if(nargs.ne.1) then print*,'Usage: jt9code "message"' go to 999 endif call getarg(1,msg0) write(*,1000) msg0 1000 format('Message:',3x,a22) msg=msg0 ichk=0 itext=0 call genjt9(msg,ichk,decoded,i4tone,itext) !Encode message into tone #s write(*,1002) i4tone 1002 format('Channel symbols:'/(30i2)) if(itext.eq.0) write(*,1004) decoded 1004 format('Decoded message:',1x,a22) if(itext.ne.0) write(*,1005) decoded 1005 format('Decoded message:',1x,a22,3x,'(free text)') 999 end program jt9code ./lib/gen65.f900000664000175000017500000000357012172374464011416 0ustar jtnjtnsubroutine gen65(msg0,ichk,msgsent,itone,itext) ! Encodes a JT65 message to yieild itone(1:126) ! Temporarily, does not implement EME shorthands character*22 msg0 character*22 message !Message to be generated character*22 msgsent !Message as it will be received integer itone(126) ! character*3 cok !' ' or 'OOO' integer dgen(13) integer sent(63) logical text integer nprc(126) data nprc/1,0,0,1,1,0,0,0,1,1,1,1,1,1,0,1,0,1,0,0, & 0,1,0,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,1,1, & 0,1,1,0,1,1,1,1,0,0,0,1,1,0,1,0,1,0,1,1, & 0,0,1,1,0,1,0,1,0,1,0,0,1,0,0,0,0,0,0,1, & 1,0,0,0,0,0,0,0,1,1,0,1,0,0,1,0,1,1,0,1, & 0,1,0,1,0,0,1,1,0,0,1,0,0,1,0,0,0,0,1,1, & 1,1,1,1,1,1/ save message=msg0 do i=1,22 if(ichar(message(i:i)).eq.0) then message(i:)=' ' exit endif enddo do i=1,22 !Strip leading blanks if(message(1:1).ne.' ') exit message=message(i+1:) enddo nspecial=0 ! call chkmsg(message,cok,nspecial,flip) if(nspecial.eq.0) then call packmsg(message,dgen,text) !Pack message into 72 bits itext=0 if(text) itext=1 call unpackmsg(dgen,msgsent) !Unpack to get message sent if(ichk.ne.0) go to 999 !Return if checking only call rs_encode(dgen,sent) !Apply Reed-Solomon code call interleave63(sent,1) !Apply interleaving call graycode65(sent,63,1) !Apply Gray code nsym=126 !Symbols per transmission else nsym=32 endif k=0 do j=1,nsym if(nprc(j).eq.0) then k=k+1 itone(j)=sent(k)+2 else itone(j)=0 endif enddo 999 return end subroutine gen65 ./lib/slope.f900000664000175000017500000000133212172374464011606 0ustar jtnjtnsubroutine slope(y,npts,xpk) ! Remove best-fit slope from data in y(i). When fitting the straight line, ! ignore the peak around xpk +/- 2. real y(npts) real x(100) do i=1,npts x(i)=i enddo sumw=0. sumx=0. sumy=0. sumx2=0. sumxy=0. sumy2=0. do i=1,npts if(abs(i-xpk).gt.2.0) then sumw=sumw + 1.0 sumx=sumx + x(i) sumy=sumy + y(i) sumx2=sumx2 + x(i)**2 sumxy=sumxy + x(i)*y(i) sumy2=sumy2 + y(i)**2 endif enddo delta=sumw*sumx2 - sumx**2 a=(sumx2*sumy - sumx*sumxy) / delta b=(sumw*sumxy - sumx*sumy) / delta do i=1,npts y(i)=y(i)-(a + b*x(i)) enddo return end subroutine slope ./lib/init_rs.c0000664000175000017500000000634312172374464011766 0ustar jtnjtn/* Initialize a RS codec * * Copyright 2002 Phil Karn, KA9Q * May be used under the terms of the GNU General Public License (GPL) */ #include #ifdef CCSDS #include "ccsds.h" #elif defined(BIGSYM) #include "int.h" #else #include "char.h" #endif //#define NULL ((void *)0) void FREE_RS(void *p){ struct rs *rs = (struct rs *)p; free(rs->alpha_to); free(rs->index_of); free(rs->genpoly); free(rs); } /* Initialize a Reed-Solomon codec * symsize = symbol size, bits (1-8) * gfpoly = Field generator polynomial coefficients * fcr = first root of RS code generator polynomial, index form * prim = primitive element to generate polynomial roots * nroots = RS code generator polynomial degree (number of roots) * pad = padding bytes at front of shortened block */ void *INIT_RS(int symsize,int gfpoly,int fcr,int prim, int nroots,int pad){ struct rs *rs; int i, j, sr,root,iprim; /* Check parameter ranges */ if(symsize < 0 || symsize > 8*sizeof(DTYPE)) return NULL; /* Need version with ints rather than chars */ if(fcr < 0 || fcr >= (1<= (1<= (1<= ((1<mm = symsize; rs->nn = (1<pad = pad; rs->alpha_to = (DTYPE *)malloc(sizeof(DTYPE)*(rs->nn+1)); if(rs->alpha_to == NULL){ free(rs); return NULL; } rs->index_of = (DTYPE *)malloc(sizeof(DTYPE)*(rs->nn+1)); if(rs->index_of == NULL){ free(rs->alpha_to); free(rs); return NULL; } /* Generate Galois field lookup tables */ rs->index_of[0] = A0; /* log(zero) = -inf */ rs->alpha_to[A0] = 0; /* alpha**-inf = 0 */ sr = 1; for(i=0;inn;i++){ rs->index_of[sr] = i; rs->alpha_to[i] = sr; sr <<= 1; if(sr & (1<nn; } if(sr != 1){ /* field generator polynomial is not primitive! */ free(rs->alpha_to); free(rs->index_of); free(rs); return NULL; } /* Form RS code generator polynomial from its roots */ rs->genpoly = (DTYPE *)malloc(sizeof(DTYPE)*(nroots+1)); if(rs->genpoly == NULL){ free(rs->alpha_to); free(rs->index_of); free(rs); return NULL; } rs->fcr = fcr; rs->prim = prim; rs->nroots = nroots; /* Find prim-th root of 1, used in decoding */ for(iprim=1;(iprim % prim) != 0;iprim += rs->nn) ; rs->iprim = iprim / prim; rs->genpoly[0] = 1; for (i = 0,root=fcr*prim; i < nroots; i++,root += prim) { rs->genpoly[i+1] = 1; /* Multiply rs->genpoly[] by @**(root + x) */ for (j = i; j > 0; j--){ if (rs->genpoly[j] != 0) rs->genpoly[j] = rs->genpoly[j-1] ^ rs->alpha_to[modnn(rs,rs->index_of[rs->genpoly[j]] + root)]; else rs->genpoly[j] = rs->genpoly[j-1]; } /* rs->genpoly[0] can never be zero */ rs->genpoly[0] = rs->alpha_to[modnn(rs,rs->index_of[rs->genpoly[0]] + root)]; } /* convert rs->genpoly[] to index form for quicker encoding */ for (i = 0; i <= nroots; i++) rs->genpoly[i] = rs->index_of[rs->genpoly[i]]; return rs; } ./lib/symspec2.f900000664000175000017500000000451012172374464012232 0ustar jtnjtnsubroutine symspec2(c5,nz3,nsps8,nspsd,fsample,freq,drift,snrdb,schk, & i1SoftSymbolsScrambled) ! Compute soft symbols from the final downsampled data complex c5(0:4096-1) complex z integer*1 i1SoftSymbolsScrambled(207) real aa(3) real ss2(0:8,85) real ss3(0:7,69) include 'jt9sync.f90' data scale/10.0/ aa(1)=-1500.0/nsps8 aa(2)=0. aa(3)=0. do i=0,8 !Loop over the 9 tones if(i.ge.1) call twkfreq(c5,c5,nz3,fsample,aa) m=0 k=-1 do j=1,85 !Loop over all symbols z=0. do n=1,nspsd !Sum over 16 samples k=k+1 z=z+c5(k) enddo ss2(i,j)=real(z)**2 + aimag(z)**2 !Symbol speactra, data and sync if(i.ge.1 .and. isync(j).eq.0) then m=m+1 ss3(i-1,m)=ss2(i,j) !Symbol speactra, data only endif enddo enddo call chkss2(ss2,freq,drift,schk) if(schk.lt.2.0) go to 900 ss=0. sig=0. do j=1,69 smax=0. do i=0,7 smax=max(smax,ss3(i,j)) ss=ss+ss3(i,j) enddo sig=sig+smax ss=ss-smax enddo ave=ss/(69*7) !Baseline call pctile(ss2,9*85,35,xmed) ss3=ss3/ave sig=sig/69. !Signal t=max(1.0,sig - 1.0) snrdb=db(t) - 61.3 m0=3 k=0 do j=1,69 smax=0. do i=0,7 if(ss3(i,j).gt.smax) smax=ss3(i,j) enddo do m=m0-1,0,-1 !Get bit-wise soft symbols if(m.eq.2) then r1=max(ss3(4,j),ss3(5,j),ss3(6,j),ss3(7,j)) r0=max(ss3(0,j),ss3(1,j),ss3(2,j),ss3(3,j)) else if(m.eq.1) then r1=max(ss3(2,j),ss3(3,j),ss3(4,j),ss3(5,j)) r0=max(ss3(0,j),ss3(1,j),ss3(6,j),ss3(7,j)) else r1=max(ss3(1,j),ss3(2,j),ss3(4,j),ss3(7,j)) r0=max(ss3(0,j),ss3(3,j),ss3(5,j),ss3(6,j)) endif k=k+1 i4=nint(scale*(r1-r0)) if(i4.lt.-127) i4=-127 if(i4.gt.127) i4=127 i4=i4+128 if(i4.le.127) i1SoftSymbolsScrambled(k)=i4 if(i4.ge.128) i1SoftSymbolsScrambled(k)=i4-256 enddo enddo 900 return end subroutine symspec2 ./lib/deep24.f900000664000175000017500000001212412172374464011550 0ustar jtnjtnsubroutine deep24(sym,neme,flip,mycall,hiscall,hisgrid,decoded,qual) ! Have barely begun converting this from JT65 to JT4 parameter (MAXCALLS=7000,MAXRPT=63) real*4 sym(206) character callsign*12,grid*4,message*22,hisgrid*6,c*1,ceme*3 character*12 mycall,hiscall character mycall0*12,hiscall0*12,hisgrid0*6 character*22 decoded character*22 testmsg(2*MAXCALLS + 2 + MAXRPT) character*15 callgrid(MAXCALLS) character*180 line character*4 rpt(MAXRPT) integer ncode(206) real*4 code(206,2*MAXCALLS + 2 + MAXRPT) real pp(2*MAXCALLS + 2 + MAXRPT) ! common/c3com/ mcall3a data neme0/-99/ data rpt/'-01','-02','-03','-04','-05', & '-06','-07','-08','-09','-10', & '-11','-12','-13','-14','-15', & '-16','-17','-18','-19','-20', & '-21','-22','-23','-24','-25', & '-26','-27','-28','-29','-30', & 'R-01','R-02','R-03','R-04','R-05', & 'R-06','R-07','R-08','R-09','R-10', & 'R-11','R-12','R-13','R-14','R-15', & 'R-16','R-17','R-18','R-19','R-20', & 'R-21','R-22','R-23','R-24','R-25', & 'R-26','R-27','R-28','R-29','R-30', & 'RO','RRR','73'/ save if(mycall.eq.mycall0 .and. hiscall.eq.hiscall0 .and. & hisgrid.eq.hisgrid0 .and. mcall3a.eq.0 .and. neme.eq.neme0) go to 30 mcall3a=0 rewind 23 k=0 icall=0 do n=1,MAXCALLS if(n.eq.1) then callsign=hiscall do i=4,12 if(ichar(callsign(i:i)).eq.0) callsign(i:i)=' ' enddo grid=hisgrid(1:4) if(ichar(grid(3:3)).eq.0) grid(3:3)=' ' if(ichar(grid(4:4)).eq.0) grid(4:4)=' ' else read(23,1002,end=20) line 1002 format (A80) if(line(1:4).eq.'ZZZZ') go to 20 if(line(1:2).eq.'//') go to 10 i1=index(line,',') if(i1.lt.4) go to 10 i2=index(line(i1+1:),',') if(i2.lt.5) go to 10 i2=i2+i1 i3=index(line(i2+1:),',') if(i3.lt.1) i3=index(line(i2+1:),' ') i3=i2+i3 callsign=line(1:i1-1) grid=line(i1+1:i2-1) ceme=line(i2+1:i3-1) if(neme.eq.1 .and. ceme.ne.'EME') go to 10 endif icall=icall+1 j1=index(mycall,' ') - 1 if(j1.le.-1) j1=12 if(j1.lt.3) j1=6 j2=index(callsign,' ') - 1 if(j2.le.-1) j2=12 if(j2.lt.3) j2=6 j3=index(mycall,'/') ! j3>0 means compound mycall j4=index(callsign,'/') ! j4>0 means compound hiscall callgrid(icall)=callsign(1:j2) mz=1 ! Allow MyCall + HisCall + rpt (?) if(n.eq.1 .and. j3.lt.1 .and. j4.lt.1 .and. & flip.gt.0.0 .and. callsign(1:6).ne.' ') mz=MAXRPT+1 do m=1,mz if(m.gt.1) grid=rpt(m-1) if(j3.lt.1 .and.j4.lt.1) callgrid(icall)=callsign(1:j2)//' '//grid message=mycall(1:j1)//' '//callgrid(icall) k=k+1 testmsg(k)=message call encode4(message,ncode) code(1:206,k)=2*ncode(1:206)-1 if(n.ge.2) then ! Insert CQ message if(j4.lt.1) callgrid(icall)=callsign(1:j2)//' '//grid message='CQ '//callgrid(icall) k=k+1 testmsg(k)=message call encode4(message,ncode) code(1:206,k)=2*ncode(1:206)-1 endif enddo 10 continue enddo 20 continue ntot=k neme0=neme 30 mycall0=mycall hiscall0=hiscall hisgrid0=hisgrid sq=0. do j=1,206 sq=sq + sym(j)**2 enddo rms=sqrt(sq/206.0) sym=sym/rms p1=-1.e30 p2=-1.e30 do k=1,ntot pp(k)=0. ! Test all messages if flip=+1; skip the CQ messages if flip=-1. if(flip.gt.0.0 .or. testmsg(k)(1:3).ne.'CQ ') then p=0. do j=1,206 i=code(j,k)+1 p=p + code(j,k)*sym(j) enddo pp(k)=p if(p.gt.p1) then p1=p ip1=k endif endif enddo do i=1,ntot if(pp(i).gt.p2 .and. pp(i).ne.p1) p2=pp(i) enddo ! ### DO NOT REMOVE ### ! rewind 77 ! write(77,*) p1,p2 ! ### Works OK without it (in both Windows and Linux) if compiled ! ### without optimization. However, in Windows this is a colossal ! ### pain because of the way F2PY wants to run the compile step. bias=1.1*p2 ! if(mode65.eq.1) bias=max(1.12*p2,0.335) ! if(mode65.eq.2) bias=max(1.08*p2,0.405) ! if(mode65.ge.4) bias=max(1.04*p2,0.505) if(p2.eq.p1 .and. p1.ne.-1.e30) stop 'Error in deep24' qual=10.0*(p1-bias) decoded=' ' c=' ' if(qual.gt.1.0) then if(qual.lt.6.0) c='?' decoded=testmsg(ip1) else qual=0. endif decoded(22:22)=c ! Make sure everything is upper case. do i=1,22 if(decoded(i:i).ge.'a' .and. decoded(i:i).le.'z') & decoded(i:i)=char(ichar(decoded(i:i))-32) enddo ! write(*,3010) p1,p2,p1-p2,p1/p2,qual,decoded !3010 format('DS:',5f9.1,2x,a22) return end subroutine deep24 ./lib/genmet.f900000664000175000017500000000363712172374464011755 0ustar jtnjtnprogram genmet ! Generate metric table for M-FSK modulation. character*12 arg real*4 r(0:255) integer hist(2,-128:128) data hist/514*0/,idum/-1/ lim(x)=min(127,max(-128,nint(scale*x))) nargs=iargc() if(nargs.ne.5) then print*,'Usage: genmet ncoh nadd m0 snr iters' go to 999 endif call getarg(1,arg) read(arg,*) ncoh call getarg(2,arg) read(arg,*) nadd call getarg(3,arg) read(arg,*) m0 call getarg(4,arg) read(arg,*) snr call getarg(5,arg) read(arg,*) iters ntones=2**m0 xm0=m0 scale=5.0 fac=sqrt(1.0/nadd) s=sqrt(10.0**(0.1*snr)) hist=0 nerr=0 do iter=1,iters do i=0,ntones-1 r(i)=0. do n=1,nadd x1=0.707*gran() y1=0.707*gran() if(i.eq.0) x1=x1+s if(ncoh.eq.0) r(i)=r(i) + x1*x1 + y1*y1 if(ncoh.ne.0) r(i)=r(i) + x1 enddo r(i)=fac*r(i) enddo do m=0,m0-1 n=2**m r1=0. r2=0. do i=0,ntones-1 if(iand(i,n).ne.0) r1=max(r1,r(i)) if(iand(i,n).eq.0) r2=max(r2,r(i)) enddo don=r2-r1 doff=r1-r2 if(don.lt.0.0) nerr=nerr+1 j1=lim(doff) hist(1,j1)=hist(1,j1)+1 j2=lim(don) hist(2,j2)=hist(2,j2)+1 enddo enddo do i=-128,127 write(13,1010) i/scale,hist(1,i)/(xm0*iters),hist(2,i)/(xm0*iters) 1010 format(f8.3,2f12.9) enddo ber=nerr/(xm0*iters) write(*,1020) nadd,m0,snr,ber 1020 format('nadd:',i3,' m0:',i2,' snr: 'f5.1,' BER:',f8.3) xln2=log(2.0) do i=-128,127 p1=hist(2,i)/(xm0*iters) p0=hist(1,i)/(xm0*iters) if(p0+p1.eq.0.0 .and. i.lt.0) p0=1.e-6 if(p0+p1.eq.0.0 .and. i.gt.0) p1=1.e-6 xlhd0=log(max(0.001,2.0*p0/(p0+p1)))/xln2 xlhd1=log(max(0.001,2.0*p1/(p0+p1)))/xln2 write(14,1012) i/scale,xlhd0,xlhd1,p0/(p0+p1),p1/(p0+p1) 1012 format(f7.1,2f8.3,2f9.6) enddo 999 end program genmet ./lib/cutil.c0000664000175000017500000000322412172374464011432 0ustar jtnjtn#include #include #include #include #include #include // #include // #include // #include #include "sleep.h" #include "timeval.h" /* FORTRAN: fd = close(filedes) */ int close_(int *filedes) { return(close(*filedes)); } /* FORTRAN: fd = open(filnam,mode) */ int open_(char filnam[], int *mode) { return(open(filnam,*mode)); } /* FORTRAN: fd = creat(filnam,mode) */ int creat_(char filnam[],int *mode) { return(creat(filnam,*mode)); } /* FORTRAN: nread = read(fd,buf,n) */ int read_(int *fd, char buf[], int *n) { return(read(*fd,buf,*n)); } /* FORTRAN: nwrt = write(fd,buf,n) */ int write_(int *fd, char buf[], int *n) { return(write(*fd,buf,*n)); } /* FORTRAN: ns = lseek(fd,offset,origin) */ int lseek_(int *fd,int *offset, int *origin) { return(lseek(*fd,*offset,*origin)); } /* times(2) */ //int times_(struct tms *buf) //{ // return (times(buf)); //} /* ioperm(2) */ //ioperm_(from,num,turn_on) //unsigned long *from,*num,*turn_on; //{ // return (ioperm(*from,*num,*turn_on)); // return (i386_get_ioperm(*from,*num,*turn_on)); //} /* usleep(3) */ void usleep_(unsigned long *microsec) { usleep(*microsec); } /* returns random numbers between 0 and 32767 to FORTRAN program */ int iran_(int *arg) { return (rand()); } int exit_(int *n) { printf("\n\n"); exit(*n); } /* struct tm * gmtime_r_(const time_t *clock, struct tm *result) { gmtime_r(clock, result); } */ time_t time_(void) { return time(0); } /* hrtime() */ double hrtime_(void) { struct timeval tv; gettimeofday(&tv,NULL); return(tv.tv_sec+1.e-6*tv.tv_usec); } ./lib/ps24.f900000664000175000017500000000072712172374464011263 0ustar jtnjtnsubroutine ps24(dat,nfft,s) parameter (NMAX=2520+2) parameter (NHMAX=NMAX/2-1) real dat(nfft) real dat2(NMAX) real s(NHMAX) complex c(0:NMAX) equivalence(dat2,c) nh=nfft/2 do i=1,nh dat2(i)=dat(i)/128.0 !### Why 128 ?? enddo do i=nh+1,nfft dat2(i)=0. enddo call four2a(c,nfft,1,-1,0) fac=1.0/nfft do i=1,nh s(i)=fac*(real(c(i))**2 + aimag(c(i))**2) enddo return end subroutine ps24 ./lib/packdxcc.f900000664000175000017500000000665312172374464012257 0ustar jtnjtnsubroutine packdxcc(c,ng,ldxcc) character*3 c logical ldxcc parameter (NZ=303) character*5 pfx(NZ) data pfx/ & '1A ','1S ','3A ','3B6 ','3B8 ','3B9 ','3C ','3C0 ', & '3D2 ', '3DA ','3V ','3W ','3X ','3Y ', & '4J ','4L ','4S ','4U1 ', '4W ', & '4X ','5A ','5B ','5H ','5N ','5R ','5T ','5U ', & '5V ','5W ','5X ','5Z ','6W ','6Y ','7O ','7P ', & '7Q ','7X ','8P ','8Q ','8R ','9A ','9G ','9H ', & '9J ','9K ','9L ','9M2 ','9M6 ','9N ','9Q ','9U ', & '9V ','9X ','9Y ','A2 ','A3 ','A4 ','A5 ','A6 ', & 'A7 ','A9 ','AP ','BS7 ','BV ','BV9 ','BY ','C2 ', & 'C3 ','C5 ','C6 ','C9 ','CE ','CE0 ', & 'CE9 ','CM ','CN ','CP ','CT ','CT3 ','CU ','CX ', & 'CY0 ','CY9 ','D2 ','D4 ','D6 ','DL ','DU ','E3 ', & 'E4 ','EA ','EA6 ','EA8 ','EA9 ','EI ','EK ','EL ', & 'EP ','ER ','ES ','ET ','EU ','EX ','EY ','EZ ', & 'F ','FG ','FH ','FJ ','FK ', 'FM ','FO ', & 'FP ','FR ', & 'FT5 ', 'FW ','FY ','M ','MD ','MI ', & 'MJ ','MM ', 'MU ','MW ','H4 ','H40 ','HA ', & 'HB ','HB0 ','HC ','HC8 ','HH ','HI ','HK ','HK0 ', & 'HL ','HM ','HP ','HR ','HS ','HV ','HZ ', & 'I ','IG9 ','IS ','IT9 ','J2 ','J3 ','J5 ','J6 ', & 'J7 ','J8 ','JA ','JD ', 'JT ','JW ', & 'JX ','JY ','K ','KG4 ','KH0 ','KH1 ','KH2 ','KH3 ', & 'KH4 ','KH5 ', 'KH6 ','KH7 ','KH8 ','KH9 ','KL ', & 'KP1 ','KP2 ','KP4 ','KP5 ','LA ','LU ','LX ','LY ', & 'LZ ','OA ','OD ','OE ','OH ','OH0 ','OJ0 ','OK ', & 'OM ','ON ','OX ','OY ','OZ ','P2 ','P4 ','PA ', & 'PJ2 ','PJ7 ','PY ','PY0 ', 'PZ ','R1F ', & 'R1M ','S0 ','S2 ','S5 ','S7 ','S9 ','SM ','SP ', & 'ST ','SU ','SV ', 'SV5 ','SV9 ','T2 ','T30 ', & 'T31 ','T32 ','T33 ','T5 ','T7 ','T8 ','T9 ','TA ', & 'TA1 ','TF ','TG ','TI ','TI9 ','TJ ','TK ','TL ', & 'TN ','TR ','TT ','TU ','TY ','TZ ','UA ','UA2 ', & 'UA9 ','UK ','UN ','UR ','V2 ','V3 ','V4 ','V5 ', & 'V6 ','V7 ','V8 ','VE ','VK ','VK0 ', 'VK9 ', & 'VP2 ', & 'VP5 ','VP6 ', 'VP8 ', & 'VP9 ','VQ9 ','VR ','VU ','VU4 ','VU7 ','XE ','XF4 ', & 'XT ','XU ','XW ','XX9 ','XZ ','YA ','YB ','YI ', & 'YJ ','YK ','YL ','YN ','YO ','YS ','YU ','YV ', & 'YV0 ','Z2 ','Z3 ','ZA ','ZB ','ZC4 ','ZD7 ','ZD8 ', & 'ZD9 ','ZF ','ZK1 ', 'ZK2 ','ZK3 ','ZL ','ZL7 ', & 'ZL8 ','ZL9 ','ZP ','ZS ','ZS8 '/ ldxcc=.false. ng=0 do i=1,NZ if(pfx(i)(1:3).eq.c) go to 10 enddo go to 20 10 ng=180*180+61+i ldxcc=.true. 20 return end subroutine packdxcc ./lib/unpacktext.f900000664000175000017500000000114512172374464012654 0ustar jtnjtnsubroutine unpacktext(nc1,nc2,nc3,msg) character*22 msg character*44 c data c/'0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ +-./?'/ nc3=iand(nc3,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 nc2=nc2/2 do i=5,1,-1 j=mod(nc1,42)+1 msg(i:i)=c(j:j) nc1=nc1/42 enddo do i=10,6,-1 j=mod(nc2,42)+1 msg(i:i)=c(j:j) nc2=nc2/42 enddo do i=13,11,-1 j=mod(nc3,42)+1 msg(i:i)=c(j:j) nc3=nc3/42 enddo msg(14:22) = ' ' return end subroutine unpacktext ./lib/ssort.f900000664000175000017500000001224012172374464011636 0ustar jtnjtnsubroutine ssort (x,y,n,kflag) ! Sort an array and optionally make the same interchanges in ! an auxiliary array. the array may be sorted in increasing ! or decreasing order. a slightly modified quicksort ! algorithm is used. ! ssort sorts array x and optionally makes the same interchanges in ! array y. the array x may be sorted in increasing order or ! decreasing order. a slightly modified quicksort algorithm is used. ! Description of parameters ! x - array of values to be sorted ! y - array to be (optionally) carried along ! n - number of values in array x to be sorted ! kflag - control parameter ! = 2 means sort x in increasing order and carry y along. ! = 1 means sort x in increasing order (ignoring y) ! = -1 means sort x in decreasing order (ignoring y) ! = -2 means sort x in decreasing order and carry y along. integer kflag, n integer x(n), y(n) real r integer t, tt, tty, ty integer i, ij, j, k, kk, l, m, nn integer il(21), iu(21) nn = n if (nn .lt. 1) then ! print*,'ssort: The number of sort elements is not positive.' ! print*,'ssort: n = ',nn,' kflag = ',kflag return endif kk = abs(kflag) if (kk.ne.1 .and. kk.ne.2) then print *,'the sort control parameter, k, is not 2, 1, -1, or -2.' return endif ! Alter array x to get decreasing order if needed if (kflag .le. -1) then do i=1,nn x(i) = -x(i) enddo endif if (kk .eq. 2) go to 100 ! Sort x only m = 1 i = 1 j = nn r = 0.375e0 20 if (i .eq. j) go to 60 if (r .le. 0.5898437e0) then r = r+3.90625e-2 else r = r-0.21875e0 endif 30 k = i ! Select a central element of the array and save it in location t ij = i + int((j-i)*r) t = x(ij) ! If first element of array is greater than t, interchange with t if (x(i) .gt. t) then x(ij) = x(i) x(i) = t t = x(ij) endif l = j ! If last element of array is less than than t, interchange with t if (x(j) .lt. t) then x(ij) = x(j) x(j) = t t = x(ij) ! If first element of array is greater than t, interchange with t if (x(i) .gt. t) then x(ij) = x(i) x(i) = t t = x(ij) endif endif ! Find an element in the second half of the array which is smaller than t 40 l = l-1 if (x(l) .gt. t) go to 40 ! Find an element in the first half of the array which is greater than t 50 k = k+1 if (x(k) .lt. t) go to 50 ! Interchange these elements if (k .le. l) then tt = x(l) x(l) = x(k) x(k) = tt go to 40 endif ! Save upper and lower subscripts of the array yet to be sorted if (l-i .gt. j-k) then il(m) = i iu(m) = l i = k m = m+1 else il(m) = k iu(m) = j j = l m = m+1 endif go to 70 ! Begin again on another portion of the unsorted array 60 m = m-1 if (m .eq. 0) go to 190 i = il(m) j = iu(m) 70 if (j-i .ge. 1) go to 30 if (i .eq. 1) go to 20 i = i-1 80 i = i+1 if (i .eq. j) go to 60 t = x(i+1) if (x(i) .le. t) go to 80 k = i 90 x(k+1) = x(k) k = k-1 if (t .lt. x(k)) go to 90 x(k+1) = t go to 80 ! Sort x and carry y along 100 m = 1 i = 1 j = nn r = 0.375e0 110 if (i .eq. j) go to 150 if (r .le. 0.5898437e0) then r = r+3.90625e-2 else r = r-0.21875e0 endif 120 k = i ! Select a central element of the array and save it in location t ij = i + int((j-i)*r) t = x(ij) ty = y(ij) ! If first element of array is greater than t, interchange with t if (x(i) .gt. t) then x(ij) = x(i) x(i) = t t = x(ij) y(ij) = y(i) y(i) = ty ty = y(ij) endif l = j ! If last element of array is less than t, interchange with t if (x(j) .lt. t) then x(ij) = x(j) x(j) = t t = x(ij) y(ij) = y(j) y(j) = ty ty = y(ij) ! If first element of array is greater than t, interchange with t if (x(i) .gt. t) then x(ij) = x(i) x(i) = t t = x(ij) y(ij) = y(i) y(i) = ty ty = y(ij) endif endif ! Find an element in the second half of the array which is smaller than t 130 l = l-1 if (x(l) .gt. t) go to 130 ! Find an element in the first half of the array which is greater than t 140 k = k+1 if (x(k) .lt. t) go to 140 ! Interchange these elements if (k .le. l) then tt = x(l) x(l) = x(k) x(k) = tt tty = y(l) y(l) = y(k) y(k) = tty go to 130 endif ! Save upper and lower subscripts of the array yet to be sorted if (l-i .gt. j-k) then il(m) = i iu(m) = l i = k m = m+1 else il(m) = k iu(m) = j j = l m = m+1 endif go to 160 ! Begin again on another portion of the unsorted array 150 m = m-1 if (m .eq. 0) go to 190 i = il(m) j = iu(m) 160 if (j-i .ge. 1) go to 120 if (i .eq. 1) go to 110 i = i-1 170 i = i+1 if (i .eq. j) go to 150 t = x(i+1) ty = y(i+1) if (x(i) .le. t) go to 170 k = i 180 x(k+1) = x(k) y(k+1) = y(k) k = k-1 if (t .lt. x(k)) go to 180 x(k+1) = t y(k+1) = ty go to 170 ! Clean up 190 if (kflag .le. -1) then do i=1,nn x(i) = -x(i) enddo endif return end subroutine ssort ./lib/zplot9.f900000664000175000017500000000115712172374464011732 0ustar jtnjtnsubroutine zplot9(s,freq,drift) real s(0:8,85) character*1 line(85),mark(0:6) data mark/' ',' ','.','-','+','X','$'/ include 'jt9sync.f90' write(32,1000) freq,drift 1000 format('Freq:',f7.1,' Drift:',f5.1,' ',60('-')) do j=8,0,-1 do i=1,85 n=(s(j,i)) if(n.lt.0) n=0 if(n.gt.6) n=6 line(i)=mark(n) enddo write(32,1010) j,line 1010 format(i1,1x,85a1) enddo do i=1,85 line(i)=' ' if(isync(i).eq.1) line(i)='@' enddo write(32,1015) 1015 format(87('-')) write(32,1020) line 1020 format(2x,85a1) call flush(32) return end subroutine zplot9 ./lib/fillcom.f900000664000175000017500000000075112172374464012115 0ustar jtnjtnsubroutine fillcom(nutc0,ndepth0,nrxfreq) character*20 datetime common/npar/nutc,ndiskdat,ntrperiod,nfqso,newdat,npts8,nfa,nfb,ntol, & kin,nzhsym,nsave,nagain,ndepth,ntxmode,nmode,datetime save nutc=nutc0 ndiskdat=1 ntrperiod=60 nfqso=nrxfreq newdat=1 npts8=74736 nfa=2700 nfb=4007 ntol=3 kin=1024 nzhsym=173 nsave=0 ndepth=ndepth0 ntxmode=9 nmode=9+65 datetime="2013-Apr-16 15:13" return end subroutine fillcom ./lib/gen24.f900000664000175000017500000000445212172374464011411 0ustar jtnjtnsubroutine gen24(message,mode4,samfac,ntxdf,iwave,nwave,sendingsh,msgsent,nmsg) ! Encode a JT4 message into a wavefile. parameter (NMAX=60*11025) !Max length of wave file character*22 message !Message to be generated character*22 msgsent !Message as it will be received character*3 cok !' ' or 'OOO' real*8 t,dt,phi,f,f0,dfgen,dphi,pi,twopi,samfac,tsymbol integer*2 iwave(NMAX) !Generated wave file integer sendingsh integer dgen(13) integer*1 data0(13),symbol(216) logical first include 'prcom2.f' data first/.true./ save nsym=207 !Symbols per transmission if(first) then do i=1,nsym pr2(i)=2*npr2(i)-1 enddo pi=4.d0*atan(1.d0) twopi=2.d0*pi first=.false. endif call chkmsg(message,cok,nspecial,flip) call packmsg(message,dgen) !Pack 72-bit message into 12 six-bit symbols call entail(dgen,data0) call unpackmsg(dgen,msgsent) nbytes=(72+31+7)/8 call encode(data0,nbytes,symbol(2)) !Convolutional encoding symbol(1)=0 !Reference phase sendingsh=0 if(iand(dgen(10),8).ne.0) sendingsh=-1 !Plain text flag call interleave24(symbol(2),1) !Apply JT4 interleaving ! Set up necessary constants tsymbol=2520.d0/11025.d0 dt=1.d0/(samfac*11025.d0) f0=118*11025.d0/1024 + ntxdf dfgen=11025.d0/2520 !4.375 Hz t=0.d0 phi=0.d0 j0=0 ndata=(nsym*11025.d0*samfac*tsymbol)/2 ndata=2*ndata do i=1,ndata t=t+dt j=int(t/tsymbol) + 1 !Symbol number, 1-207 if(j.ne.j0) then f=f0 + (npr2(j)+2*symbol(j)-1.5) * dfgen * mode4 if(flip.lt.0.0) f=f0+((1-npr2(j))+2*symbol(j)-1.5)*dfgen*mode4 dphi=twopi*dt*f j0=j endif phi=phi+dphi iwave(i)=32767.0*sin(phi) enddo do j=1,5512 !Put another 0.5 sec of silence at end i=i+1 iwave(i)=0 enddo nwave=i if(flip.lt.0.0) then do i=22,1,-1 if(msgsent(i:i).ne.' ') goto 10 enddo 10 msgsent=msgsent(1:i)//' OOO' endif do i=22,1,-1 if(msgsent(i:i).ne.' ') goto 20 enddo 20 nmsg=i ! write(*,3002) (symbol(i),i=1,207) ! 3002 format(70i1) return end subroutine gen24 ./lib/graycode.f900000664000175000017500000000021312172374464012256 0ustar jtnjtnsubroutine graycode(ia,n,idir,ib) integer ia(n),ib(n) do i=1,n ib(i)=igray(ia(i),idir) enddo return end subroutine graycode ./lib/pctile.f900000664000175000017500000000053612172374464011751 0ustar jtnjtnsubroutine pctile(x,npts,npct,xpct) parameter (NMAX=32768) real*4 x(npts) real*4 tmp(NMAX) if(npts.le.0) then xpct=1.0 go to 900 endif if(npts.gt.NMAX) stop tmp(1:npts)=x call sort(npts,tmp) j=nint(npts*0.01*npct) if(j.lt.1) j=1 if(j.gt.npts) j=npts xpct=tmp(j) 900 continue return end subroutine pctile ./lib/interleave8.f900000664000175000017500000000140112172374464012707 0ustar jtnjtnsubroutine interleave8(idat,jdat) integer idat(66),jdat(66) integer ii(66),jj(66) data ii/ & 64,32,16,48, 8,40,24,56, 4,36,20,52,12,44,28,60, 2,66,34,18, & 50,10,42,26,58, 6,38,22,54,14,46,30,62, 1,65,33,17,49, 9,41, & 25,57, 5,37,21,53,13,45,29,61, 3,35,19,51,11,43,27,59, 7,39, & 23,55,15,47,31,63/ data jj/ & 34,17,51, 9,43,26,59, 5,39,22,55,13,47,30,63, 3,37,20,53,11, & 45,28,61, 7,41,24,57,15,49,32,65, 2,36,19,52,10,44,27,60, 6, & 40,23,56,14,48,31,64, 4,38,21,54,12,46,29,62, 8,42,25,58,16, & 50,33,66, 1,35,18/ return end subroutine interleave8 ./lib/ipcomm.cpp0000664000175000017500000000261612172374464012142 0ustar jtnjtn#include #include #include #include // Multiple instances: KK1D, 17 Jul 2013 QSharedMemory mem_jt9; // Semaphore not changed, as the acquire/release calls do not // appear to be used anywhere. QSystemSemaphore sem_jt9("sem_jt9", 1, QSystemSemaphore::Open); extern "C" { bool attach_jt9_(); bool create_jt9_(int nsize); bool detach_jt9_(); bool lock_jt9_(); bool unlock_jt9_(); char* address_jt9_(); int size_jt9_(); // Multiple instances: wrapper for QSharedMemory::setKey() bool setkey_jt9_(char* mykey, int mykey_len); bool acquire_jt9_(); bool release_jt9_(); extern struct { char c[10]; } jt9com_; } bool attach_jt9_() {return mem_jt9.attach();} bool create_jt9_(int nsize) {return mem_jt9.create(nsize);} bool detach_jt9_() {return mem_jt9.detach();} bool lock_jt9_() {return mem_jt9.lock();} bool unlock_jt9_() {return mem_jt9.unlock();} char* address_jt9_() {return (char*)mem_jt9.constData();} int size_jt9_() {return (int)mem_jt9.size();} // Multiple instances: bool setkey_jt9_(char* mykey, int mykey_len) { char *tempstr = (char *)calloc(mykey_len+1,1); memset(tempstr, 0, mykey_len+1); strncpy(tempstr, mykey, mykey_len); QString s1 = QString(QLatin1String(tempstr)); mem_jt9.setKey(s1); return true;} bool acquire_jt9_() {return sem_jt9.acquire();} bool release_jt9_() {return sem_jt9.release();} ./lib/rs.h0000664000175000017500000000253112172374464010743 0ustar jtnjtn/* User include file for the Reed-Solomon codec * Copyright 2002, Phil Karn KA9Q * May be used under the terms of the GNU General Public License (GPL) */ /* General purpose RS codec, 8-bit symbols */ void encode_rs_char(void *rs,unsigned char *data,unsigned char *parity); int decode_rs_char(void *rs,unsigned char *data,int *eras_pos, int no_eras); void *init_rs_char(int symsize,int gfpoly, int fcr,int prim,int nroots, int pad); void free_rs_char(void *rs); /* General purpose RS codec, integer symbols */ void encode_rs_int(void *rs,int *data,int *parity); int decode_rs_int(void *rs,int *data,int *eras_pos,int no_eras); void *init_rs_int(int symsize,int gfpoly,int fcr, int prim,int nroots,int pad); void free_rs_int(void *rs); /* CCSDS standard (255,223) RS codec with conventional (*not* dual-basis) * symbol representation */ void encode_rs_8(unsigned char *data,unsigned char *parity,int pad); int decode_rs_8(unsigned char *data,int *eras_pos,int no_eras,int pad); /* CCSDS standard (255,223) RS codec with dual-basis symbol representation */ void encode_rs_ccsds(unsigned char *data,unsigned char *parity,int pad); int decode_rs_ccsds(unsigned char *data,int *eras_pos,int no_eras,int pad); /* Tables to map from conventional->dual (Taltab) and * dual->conventional (Tal1tab) bases */ extern unsigned char Taltab[],Tal1tab[]; ./lib/genjt9.f900000664000175000017500000000412712172374464011671 0ustar jtnjtnsubroutine genjt9(msg0,ichk,msgsent,i4tone,itext) ! Encodes a JT9 message and returns msgsent, the message as it will ! be decoded, and an integer array i4tone(85) of 9-FSK tone values ! in the range 0-8. character*22 msg0 character*22 message !Message to be generated character*22 msgsent !Message as it will be received integer*4 i4Msg6BitWords(13) !72-bit message as 6-bit words integer*1 i1Msg8BitBytes(13) !72 bits and zero tail as 8-bit bytes integer*1 i1EncodedBits(207) !Encoded information-carrying bits integer*1 i1ScrambledBits(207) !Encoded bits after interleaving integer*4 i4DataSymbols(69) !Data symbols (values 0-7) integer*4 i4GrayCodedSymbols(69) !Gray-coded symbols (values 0-7) integer*4 i4tone(85) !Tone #s, data and sync (values 0-8) logical text include 'jt9sync.f90' save message=msg0 do i=1,22 if(ichar(message(i:i)).eq.0) then message(i:)=' ' exit endif enddo do i=1,22 !Strip leading blanks if(message(1:1).ne.' ') exit message=message(i+1:) enddo call packmsg(message,i4Msg6BitWords,text) !Pack message into 12 6-bit bytes itext=0 if(text) itext=1 call unpackmsg(i4Msg6BitWords,msgsent) !Unpack to get msgsent if(ichk.ne.0) go to 999 call entail(i4Msg6BitWords,i1Msg8BitBytes) !Add tail, convert to 8-bit bytes nsym2=206 call encode232(i1Msg8BitBytes,nsym2,i1EncodedBits) !Encode K=32, r=1/2 call interleave9(i1EncodedBits,1,i1ScrambledBits) !Interleave the bits call packbits(i1ScrambledBits,nsym2,3,i4DataSymbols) !Pack 3-bits into words call graycode(i4DataSymbols,69,1,i4GrayCodedSymbols) !Apply Gray code ! Insert sync symbols at ntone=0 and add 1 to the data-tone numbers. j=0 do i=1,85 if(isync(i).eq.1) then i4tone(i)=0 else j=j+1 i4tone(i)=i4GrayCodedSymbols(j)+1 endif enddo 999 return end subroutine genjt9 ./lib/wsjt24.f900000664000175000017500000001332612172374464011627 0ustar jtnjtnsubroutine wsjt24(dat,npts,cfile6,NClearAve,MinSigdB, & DFTolerance,NFreeze,mode,mode4,Nseg,MouseDF,NAgain, & idf,lumsg,lcum,nspecial,ndf,NSyncOK,ccfblue,ccfred,ndiag) ! Orchestrates the process of decoding JT4 messages, using data that ! have been 2x downsampled. ! No message averaging and no deep search, at present. parameter (MAXAVE=120) real dat(npts) !Raw data real*4 ccfblue(-5:540) !CCF in time real*4 ccfred(-224:224) !CCF in frequency integer DFTolerance logical first logical lcum character decoded*22,cfile6*6,special*5,cooo*3 character*22 avemsg1,avemsg2,deepmsg character*77 line,ave1,ave2 character*1 csync,c1 character*12 mycall character*12 hiscall character*6 hisgrid character submode*1 real*4 ccfbluesum(-5:540),ccfredsum(-224:224) common/ave/ppsave(207,7,MAXAVE),nflag(MAXAVE),nsave,iseg(MAXAVE) data first/.true./,ns10/0/,ns20/0/ save if(first) then nsave=0 first=.false. ave1=' ' ave2=' ' ccfblue=0. ccfred=0. if(nspecial.eq.999) go to 900 !Silence compiler warning endif ndepth=3 !### naggressive=0 if(ndepth.ge.2) naggressive=1 nq1=3 nq2=6 if(naggressive.eq.1) nq1=1 if(NClearAve.ne.0) then nsave=0 !Clear the averaging accumulators ns10=0 ns20=0 ave1=' ' ave2=' ' endif if(MinSigdB.eq.99 .or. MinSigdB.eq.-99) then ns10=0 !For Include/Exclude ? ns20=0 endif ! Attempt to synchronize: look for sync pattern, get DF and DT. call sync24(dat,npts,DFTolerance,NFreeze,MouseDF,mode, & mode4,dtx,dfx,snrx,snrsync,ccfblue,ccfred,flip,width) csync=' ' decoded=' ' deepmsg=' ' special=' ' cooo=' ' ncount=-1 !Flag for RS decode of current record ncount1=-1 !Flag for RS Decode of ave1 ncount2=-1 !Flag for RS Decode of ave2 NSyncOK=0 nqual1=0 nqual2=0 if(nsave.lt.MAXAVE .and. (NAgain.eq.0 .or. NClearAve.eq.1)) nsave=nsave+1 if(nsave.le.0) go to 900 !Prevent bounds error nflag(nsave)=0 !Clear the "good sync" flag iseg(nsave)=Nseg !Set the RX segment to 1 or 2 nsync=nint(snrsync-3.0) nsnr=nint(snrx) if(nsnr.lt.-30 .or. nsync.lt.0) nsync=0 nsnrlim=-33 if(nsync.lt.MinSigdB .or. nsnr.lt.nsnrlim) go to 200 ! If we get here, we have achieved sync! NSyncOK=1 nflag(nsave)=1 !Mark this RX file as good csync='*' if(flip.lt.0.0) then csync='#' cooo='O ?' endif call decode24(dat,npts,dtx,dfx,flip,mode,mode4,decoded, & ncount,deepmsg,qual,submode) 200 kvqual=0 if(ncount.ge.0) kvqual=1 nqual=qual if(ndiag.eq.0 .and. nqual.gt.10) nqual=10 if(nqual.ge.nq1 .and.kvqual.eq.0) decoded=deepmsg ndf=nint(dfx) if(flip.lt.0.0 .and. (kvqual.eq.1 .or. nqual.ge.nq2)) cooo='OOO' if(kvqual.eq.0.and.nqual.ge.nq1.and.nqual.lt.nq2) cooo(2:3)=' ?' if(decoded.eq.' ') cooo=' ' do i=1,22 c1=decoded(i:i) if(c1.ge.'a' .and. c1.le.'z') decoded(i:i)=char(ichar(c1)-32) enddo jdf=ndf+idf ! call cs_lock('wsjt24') write(line,1010) cfile6,nsync,nsnr,dtx-1.0,jdf,nint(width), & csync,special,decoded(1:19),cooo,kvqual,nqual,submode 1010 format(a6,i3,i5,f5.1,i5,i3,1x,a1,1x,a5,a19,1x,a3,i3,i5,1x,a1) ! Blank all end-of-line stuff if no decode if(line(31:40).eq.' ') line=line(:30) if(lcum) write(21,1011) line ! Write decoded msg unless this is an "Exclude" request: if(MinSigdB.lt.99) write(*,1011) line 1011 format(a77) if(nsave.ge.1) call avemsg4(1,mode4,ndepth, & avemsg1,nused1,nq1,nq2,neme,mycall,hiscall,hisgrid,qual1, & ns1,ncount1) if(nsave.ge.1) call avemsg4(2,mode4,ndepth, & avemsg2,nused2,nq1,nq2,neme,mycall,hiscall,hisgrid,qual2, & ns2,ncount2) nqual1=qual1 nqual2=qual2 if(ndiag.eq.0 .and. nqual1.gt.10) nqual1=10 if(ndiag.eq.0 .and. nqual2.gt.10) nqual2=10 nc1=0 nc2=0 if(ncount1.ge.0) nc1=1 if(ncount2.ge.0) nc2=1 ! Write the average line if(ns1.ge.1) then if(ns1.lt.10) write(ave1,1021) cfile6,1,nused1,ns1,avemsg1,nc1,nqual1 1021 format(a6,i3,i4,'/',i1,20x,a19,i7,i5) if(ns1.ge.10 .and. nsave.le.99) write(ave1,1022) cfile6, & 1,nused1,ns1,avemsg1,nc1,nqual1 1022 format(a6,i3,i4,'/',i2,19x,a19,i7,i5) if(ns1.ge.100) write(ave1,1023) cfile6,1,nused1,ns1, & avemsg1,nc1,nqual1 1023 format(a6,i3,i4,'/',i3,18x,a19,i7,i5) if(lcum .and. (avemsg1.ne.' ')) & write(21,1011) ave1 ns10=ns1 endif ! If Monitor segment #2 is available, write that line also if(ns2.ge.1) then if(ns2.lt.10) write(ave2,1021) cfile6,2,nused2,ns2,avemsg2,nc2,nqual2 if(ns2.ge.10 .and. nsave.le.99) write(ave2,1022) cfile6, & 2,nused2,ns2,avemsg2,nc2,nqual2 if(ns2.ge.100) write(ave2,1023) cfile6,2,nused2,ns2,avemsg2,nc2,nqual2 if(lcum .and. (avemsg2.ne.' ')) & write(21,1011) ave2 ns20=ns2 endif if(ave1(31:40).eq.' ') ave1=ave1(:30) if(ave2(31:40).eq.' ') ave2=ave2(:30) write(12,1011) ave1 write(12,1011) ave2 call flush(12) ! call cs_unlock 900 continue ccfbluesum=ccfbluesum + ccfblue ccfredsum=ccfredsum + ccfred return end subroutine wsjt24 ./lib/smo121.f900000664000175000017500000000026212172374464011507 0ustar jtnjtnsubroutine smo121(x,nz) real x(nz) x0=x(1) do i=2,nz-1 x1=x(i) x(i)=0.5*x(i) + 0.25*(x0+x(i+1)) x0=x1 enddo return end subroutine smo121 ./lib/unpackbits.f900000664000175000017500000000074112172374464012632 0ustar jtnjtnsubroutine unpackbits(sym,nsymd,m0,dbits) ! Unpack bits from sym() into dbits(), one bit per byte. ! NB: nsymd is the number of input words, and m0 their length. ! there will be m0*nsymd output bytes, each 0 or 1. integer sym(nsymd) integer*1 dbits(*) k=0 do i=1,nsymd mask=ishft(1,m0-1) do j=1,m0 k=k+1 dbits(k)=0 if(iand(mask,sym(i)).ne.0) dbits(k)=1 mask=ishft(mask,-1) enddo enddo return end subroutine unpackbits ./lib/analytic.f900000664000175000017500000000077612172374464012303 0ustar jtnjtnsubroutine analytic(d,npts,nfft,s,c) ! Convert real data to analytic signal parameter (NFFTMAX=128*1024) real d(npts) real s(npts) complex c(NFFTMAX) nh=nfft/2 fac=2.0/nfft c(1:npts)=fac*d(1:npts) c(npts+1:nfft)=0. call four2a(c,nfft,1,-1,1) !Forward c2c FFT do i=1,nh s(i)=real(c(i))**2 + aimag(c(i))**2 enddo c(1)=0.5*c(1) c(nh+2:nfft)=0. call four2a(c,nfft,1,1,1) !Inverse c2c FFT return end subroutine analytic ./lib/graycode65.f900000664000175000017500000000022312172374464012432 0ustar jtnjtnsubroutine graycode65(dat,n,idir) integer dat(n) do i=1,n dat(i)=igray(dat(i),idir) enddo return end subroutine graycode65 ./LICENSE_WHEATLEY.TXT0000664000175000017500000000311012211422610012334 0ustar jtnjtn+ + + This Software is released under the "Simplified BSD License" + + + Copyright 2010 Moe Wheatley. All rights reserved. Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met: 1. Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 2. Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution. THIS SOFTWARE IS PROVIDED BY Moe Wheatley ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL Moe Wheatley OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. The views and conclusions contained in the software and documentation are those of the authors and should not be interpreted as representing official policies, either expressed or implied, of Moe Wheatley. ./logqso.cpp0000664000175000017500000001346112172374464011414 0ustar jtnjtn#include "logqso.h" #include "ui_logqso.h" #include #include LogQSO::LogQSO(QWidget *parent) : QDialog(parent), ui(new Ui::LogQSO) { ui->setupUi(this); } LogQSO::~LogQSO() { delete ui; } void LogQSO::initLogQSO(QString hisCall, QString hisGrid, QString mode, QString rptSent, QString rptRcvd, QDateTime dateTime, double dialFreq, QString myCall, QString myGrid, bool noSuffix, bool toRTTY, bool dBtoComments) { ui->call->setText(hisCall); ui->grid->setText(hisGrid); ui->txPower->setText(""); ui->comments->setText(""); if(m_saveTxPower) ui->txPower->setText(m_txPower); if(m_saveComments) ui->comments->setText(m_comments); if(dBtoComments) { QString t=mode; if(rptSent!="") t+=" Sent: " + rptSent; if(rptRcvd!="") t+=" Rcvd: " + rptRcvd; ui->comments->setText(t); } if(noSuffix and mode.mid(0,3)=="JT9") mode="JT9"; if(toRTTY and mode.mid(0,3)=="JT9") mode="RTTY"; ui->mode->setText(mode); ui->sent->setText(rptSent); ui->rcvd->setText(rptRcvd); m_dateTime=dateTime; QString date=dateTime.toString("yyyy-MM-dd"); ui->date->setText(date); QString time=dateTime.toString("hhmm"); ui->time->setText(time); m_dialFreq=dialFreq; m_myCall=myCall; m_myGrid=myGrid; QString band=""; if(dialFreq>0.135 and dialFreq<0.139) band="2200m"; if(dialFreq>0.45 and dialFreq<0.55) band="630m"; if(dialFreq>1.8 and dialFreq<2.0) band="160m"; if(dialFreq>3.5 and dialFreq<4.0) band="80m"; if(dialFreq>5.1 and dialFreq<5.45) band="60m"; if(dialFreq>7.0 and dialFreq<7.3) band="40m"; if(dialFreq>10.0 and dialFreq<10.15) band="30m"; if(dialFreq>14.0 and dialFreq<14.35) band="20m"; if(dialFreq>18.068 and dialFreq<18.168) band="17m"; if(dialFreq>21.0 and dialFreq<21.45) band="15m"; if(dialFreq>24.890 and dialFreq<24.990) band="12m"; if(dialFreq>28.0 and dialFreq<29.7) band="10m"; if(dialFreq>50.0 and dialFreq<54.0) band="6m"; if(dialFreq>70.0 and dialFreq<71.0) band="4m"; if(dialFreq>144.0 and dialFreq<148.0) band="2m"; if(dialFreq>222.0 and dialFreq<225.0) band="1.25m"; if(dialFreq>420.0 and dialFreq<450.0) band="70cm"; if(dialFreq>902.0 and dialFreq<928.0) band="33cm"; if(dialFreq>1240.0 and dialFreq<1300.0) band="23cm"; if(dialFreq>2300.0 and dialFreq<2450.0) band="13cm"; if(dialFreq>3300.0 and dialFreq<3500.0) band="9cm"; if(dialFreq>5650.0 and dialFreq<5925.0) band="6cm"; if(dialFreq>10000.0 and dialFreq<10500.0) band="3cm"; if(dialFreq>24000.0 and dialFreq<24250.0) band="1.25cm"; if(dialFreq>47000.0 and dialFreq<47200.0) band="6mm"; if(dialFreq>75500.0 and dialFreq<81000.0) band="4mm"; ui->band->setText(band); ui->cbTxPower->setChecked(m_saveTxPower); ui->cbComments->setChecked(m_saveComments); } void LogQSO::accept() { QString hisCall,hisGrid,mode,rptSent,rptRcvd,date,time,band; QString comments,name; hisCall=ui->call->text(); hisGrid=ui->grid->text(); mode=ui->mode->text(); rptSent=ui->sent->text(); rptRcvd=ui->rcvd->text(); date=ui->date->text(); date=date.mid(0,4) + date.mid(5,2) + date.mid(8,2); time=ui->time->text(); band=ui->band->text(); name=ui->name->text(); m_txPower=ui->txPower->text(); comments=ui->comments->text(); m_comments=comments; QString strDialFreq(QString::number(m_dialFreq,'f',6)); //Log this QSO to file "wsjtx_log.adi" QFile f2("wsjtx_log.adi"); if(!f2.open(QIODevice::Text | QIODevice::Append)) { QMessageBox m; m.setText("Cannot open file \"wsjtx_log.adi\"."); m.exec(); } else { QTextStream out(&f2); if(f2.size()==0) out << "WSJT-X ADIF Export" << endl; QString t; t="" + hisCall; t+=" " + hisGrid; t+=" " + mode; t+=" " + rptSent; t+=" " + rptRcvd; t+=" " + date; t+=" " + time; t+=" " + band; t+=" " + strDialFreq; t+=" " + m_myCall; t+=" " + m_myGrid; if(m_txPower!="") t+= " " + m_txPower; if(comments!="") t+=" " + comments; if(name!="") t+=" " + name; t+=" "; out << t << endl; f2.close(); } //Log this QSO to file "wsjtx.log" QFile f("wsjtx.log"); if(!f.open(QIODevice::Text | QIODevice::Append)) { QMessageBox m; m.setText("Cannot open file \"wsjtx.log\"."); m.exec(); } else { QString logEntry=m_dateTime.date().toString("yyyy-MMM-dd,") + m_dateTime.time().toString("hh:mm,") + hisCall + "," + hisGrid + "," + strDialFreq + "," + mode + "," + rptSent + "," + rptRcvd; if(m_txPower!="") logEntry += "," + m_txPower; if(comments!="") logEntry += "," + comments; if(name!="") logEntry += "," + name; QTextStream out(&f); out << logEntry << endl; f.close(); } //Clean up and finish logging emit(acceptQSO(true)); QDialog::accept(); } void LogQSO::reject() { emit(acceptQSO(false)); QDialog::reject(); } void LogQSO::on_cbTxPower_toggled(bool checked) { m_saveTxPower=checked; } void LogQSO::on_cbComments_toggled(bool checked) { m_saveComments=checked; } ./logqso.h0000664000175000017500000000172612172374465011063 0ustar jtnjtn#ifndef LogQSO_H #define LogQSO_H #ifdef QT5 #include #else #include #endif namespace Ui { class LogQSO; } class LogQSO : public QDialog { Q_OBJECT public: explicit LogQSO(QWidget *parent = 0); ~LogQSO(); void initLogQSO(QString hisCall, QString hisGrid, QString mode, QString rptSent, QString rptRcvd, QDateTime dateTime, double dialFreq, QString myCall, QString myGrid, bool noSuffix, bool toRTTY, bool dBtoComments); double m_dialFreq; bool m_saveTxPower; bool m_saveComments; QString m_myCall; QString m_myGrid; QString m_txPower; QString m_comments; QDateTime m_dateTime; public slots: void accept(); void reject(); signals: void acceptQSO(bool accepted); private slots: void on_cbTxPower_toggled(bool checked); void on_cbComments_toggled(bool checked); private: Ui::LogQSO *ui; }; #endif // LogQSO_H ./logqso.ui0000664000175000017500000005161712172374465011255 0ustar jtnjtn LogQSO 0 0 372 305 16777215 16777215 Log QSO Qt::Vertical QSizePolicy::MinimumExpanding 20 10 10 Click OK to confirm the following QSO: Qt::Vertical QSizePolicy::MinimumExpanding 20 10 0 0 70 0 70 16777215 10 Call Qt::AlignCenter 0 0 100 0 100 16777215 10 Date Qt::AlignCenter 0 0 50 0 50 16777215 10 Time Qt::AlignCenter 0 0 50 0 50 16777215 10 Mode Qt::AlignCenter 0 0 50 0 50 16777215 10 Band Qt::AlignCenter 0 0 70 0 70 16777215 0 0 100 0 100 16777215 50 0 50 16777215 0 0 50 0 50 16777215 0 0 50 0 50 16777215 Qt::Vertical QSizePolicy::MinimumExpanding 20 10 0 0 50 0 50 16777215 10 Rpt Sent Qt::AlignCenter 0 0 50 0 50 16777215 10 Rpt Rcvd Qt::AlignCenter 0 0 50 0 50 16777215 10 Grid Qt::AlignCenter true 0 0 100 0 100 16777215 10 Name Qt::AlignCenter 0 0 50 0 50 16777215 0 0 50 0 50 16777215 0 0 50 0 50 16777215 true 0 0 100 0 100 16777215 Qt::Vertical QSizePolicy::MinimumExpanding 20 10 65 0 Tx power Retain Qt::Vertical QSizePolicy::MinimumExpanding 20 10 true 65 0 10 Comments true Retain Qt::Horizontal QDialogButtonBox::Cancel|QDialogButtonBox::Ok call date time mode band sent rcvd grid name txPower cbTxPower comments cbComments buttonBox buttonBox accepted() LogQSO accept() 248 254 157 274 buttonBox rejected() LogQSO reject() 316 260 286 274 ./main.cpp0000664000175000017500000000301312172374464011024 0ustar jtnjtn#ifdef QT5 #include #else #include #endif #include #include #include "mainwindow.h" // Multiple instances: QSharedMemory mem_jt9; QUuid my_uuid; QString my_key; int main(int argc, char *argv[]) { QApplication a(argc, argv); QFile f("fonts.txt"); if(f.open(QIODevice::ReadOnly)) { QTextStream in(&f); //Example: QString fontFamily; // helvetica qint32 fontSize,fontWeight; // 8,50 in >> fontFamily >> fontSize >> fontWeight; f.close(); QFont font; font=QFont(fontFamily,fontSize,fontWeight); a.setFont(font); } // Create and initialize shared memory segment // Multiple instances: generate shared memory keys with UUID my_uuid = QUuid::createUuid(); my_key = my_uuid.toString(); mem_jt9.setKey(my_key); if(!mem_jt9.attach()) { if (!mem_jt9.create(sizeof(jt9com_))) { QMessageBox::critical( 0, "Error", "Unable to create shared memory segment."); exit(1); } } char *to = (char*)mem_jt9.data(); int size=sizeof(jt9com_); if(jt9com_.newdat==0) { } memset(to,0,size); //Zero all decoding params in shared memory //Initialize Portaudio PaError paerr=Pa_Initialize(); if(paerr!=paNoError) { QMessageBox::critical( 0, "Error", "Unable to initialize PortAudio."); exit(1); } // Multiple instances: Call MainWindow() with the UUID key MainWindow w(&mem_jt9, &my_key); w.show(); return a.exec(); } ./mainwindow.cpp0000664000175000017500000026431012172374464012265 0ustar jtnjtn//------------------------------------------------------------- MainWindow #include "mainwindow.h" #include "ui_mainwindow.h" #include "devsetup.h" #include "plotter.h" #include "about.h" #include "widegraph.h" #include "sleep.h" #include "getfile.h" #include #include "logqso.h" #ifdef QT5 #include #include #endif int itone[126]; //Audio tones for all Tx symbols int icw[250]; //Dits for CW ID int outBufSize; int rc; qint32 g_COMportOpen; qint32 g_iptt; static int nc1=1; wchar_t buffer[256]; bool btxok; //True if OK to transmit bool btxMute; double outputLatency; //Latency in seconds double dFreq[]={0.13613,0.4742,1.838,3.576,5.357,7.076,10.138,14.076, 18.102,21.076,24.917,28.076,50.276,70.091,144.489,432.178}; WideGraph* g_pWideGraph = NULL; LogQSO* logDlg = NULL; Rig* rig = NULL; QTextEdit* pShortcuts; QTcpSocket* socket = new QTcpSocket(0); QString rev="$Rev: 3496 $"; QString Program_Title_Version=" WSJT-X v1.1, r" + rev.mid(6,4) + " by K1JT"; //-------------------------------------------------- MainWindow constructor // Multiple instances: new arg *thekey MainWindow::MainWindow(QSharedMemory *shdmem, QString *thekey, QWidget *parent) : QMainWindow(parent), ui(new Ui::MainWindow) { ui->setupUi(this); on_EraseButton_clicked(); QActionGroup* paletteGroup = new QActionGroup(this); ui->actionCuteSDR->setActionGroup(paletteGroup); ui->actionLinrad->setActionGroup(paletteGroup); ui->actionAFMHot->setActionGroup(paletteGroup); ui->actionBlue->setActionGroup(paletteGroup); QActionGroup* modeGroup = new QActionGroup(this); ui->actionJT9_1->setActionGroup(modeGroup); ui->actionJT65->setActionGroup(modeGroup); ui->actionJT9_JT65->setActionGroup(modeGroup); QActionGroup* saveGroup = new QActionGroup(this); ui->actionNone->setActionGroup(saveGroup); ui->actionSave_decoded->setActionGroup(saveGroup); ui->actionSave_all->setActionGroup(saveGroup); QActionGroup* DepthGroup = new QActionGroup(this); ui->actionQuickDecode->setActionGroup(DepthGroup); ui->actionMediumDecode->setActionGroup(DepthGroup); ui->actionDeepestDecode->setActionGroup(DepthGroup); QButtonGroup* txMsgButtonGroup = new QButtonGroup; txMsgButtonGroup->addButton(ui->txrb1,1); txMsgButtonGroup->addButton(ui->txrb2,2); txMsgButtonGroup->addButton(ui->txrb3,3); txMsgButtonGroup->addButton(ui->txrb4,4); txMsgButtonGroup->addButton(ui->txrb5,5); txMsgButtonGroup->addButton(ui->txrb6,6); connect(txMsgButtonGroup,SIGNAL(buttonClicked(int)),SLOT(set_ntx(int))); connect(ui->decodedTextBrowser2,SIGNAL(selectCallsign(bool,bool)),this, SLOT(doubleClickOnCall(bool,bool))); connect(ui->decodedTextBrowser,SIGNAL(selectCallsign(bool,bool)),this, SLOT(doubleClickOnCall2(bool,bool))); setWindowTitle(Program_Title_Version); connect(&soundInThread, SIGNAL(readyForFFT(int)), this, SLOT(dataSink(int))); connect(&soundInThread, SIGNAL(error(QString)), this, SLOT(showSoundInError(QString))); connect(&soundInThread, SIGNAL(status(QString)), this, SLOT(showStatusMessage(QString))); createStatusBar(); connect(&proc_jt9, SIGNAL(readyReadStandardOutput()), this, SLOT(readFromStdout())); connect(&proc_jt9, SIGNAL(error(QProcess::ProcessError)), this, SLOT(jt9_error())); connect(&proc_jt9, SIGNAL(readyReadStandardError()), this, SLOT(readFromStderr())); ui->bandComboBox->setEditable(true); ui->bandComboBox->lineEdit()->setReadOnly(true); ui->bandComboBox->lineEdit()->setAlignment(Qt::AlignCenter); for(int i = 0; i < ui->bandComboBox->count(); i++) ui->bandComboBox->setItemData(i, Qt::AlignCenter, Qt::TextAlignmentRole); ui->tx5->setContextMenuPolicy(Qt::CustomContextMenu); connect(ui->tx5, SIGNAL(customContextMenuRequested(const QPoint&)), this, SLOT(showMacros(const QPoint&))); ui->freeTextMsg->setContextMenuPolicy(Qt::CustomContextMenu); connect(ui->freeTextMsg, SIGNAL(customContextMenuRequested(const QPoint&)), this, SLOT(showMacros(const QPoint&))); QTimer *guiTimer = new QTimer(this); connect(guiTimer, SIGNAL(timeout()), this, SLOT(guiUpdate())); guiTimer->start(100); //Don't change the 100 ms! ptt0Timer = new QTimer(this); ptt0Timer->setSingleShot(true); connect(ptt0Timer, SIGNAL(timeout()), this, SLOT(stopTx2())); ptt1Timer = new QTimer(this); ptt1Timer->setSingleShot(true); connect(ptt1Timer, SIGNAL(timeout()), this, SLOT(startTx2())); logQSOTimer = new QTimer(this); logQSOTimer->setSingleShot(true); connect(logQSOTimer, SIGNAL(timeout()), this, SLOT(on_logQSOButton_clicked())); tuneButtonTimer= new QTimer(this); tuneButtonTimer->setSingleShot(true); connect(tuneButtonTimer, SIGNAL(timeout()), this, SLOT(on_stopTxButton_clicked())); killFileTimer = new QTimer(this); killFileTimer->setSingleShot(true); connect(killFileTimer, SIGNAL(timeout()), this, SLOT(killFile())); m_auto=false; m_waterfallAvg = 1; m_txFirst=false; btxMute=false; btxok=false; m_restart=false; m_transmitting=false; m_killAll=false; m_widebandDecode=false; m_ntx=1; m_myCall=""; m_myGrid="FN20qi"; m_appDir = QApplication::applicationDirPath(); m_saveDir="/users/joe/wsjtx/install/save"; m_rxFreq=1500; m_txFreq=1500; m_setftx=0; m_loopall=false; m_startAnother=false; m_saveDecoded=false; m_saveAll=false; m_sec0=-1; m_palette="Linrad"; m_RxLog=1; //Write Date and Time to RxLog m_nutc0=9999; m_mode="JT9"; m_rpt="-15"; m_TRperiod=60; m_inGain=0; m_dataAvailable=false; g_iptt=0; g_COMportOpen=0; m_secID=0; m_promptToLog=false; m_blankLine=false; m_insertBlank=false; m_clearCallGrid=false; m_bMiles=false; m_decodedText2=false; m_freeText=false; m_msErase=0; m_sent73=false; m_watchdogLimit=5; m_tune=false; m_repeatMsg=0; m_bRigOpen=false; m_secBandChanged=0; m_bMultipleOK=false; m_dontReadFreq=false; m_lockTxFreq=false; ui->readFreq->setEnabled(false); m_QSOmsg=""; m_CATerror=false; decodeBusy(false); signalMeter = new SignalMeter(ui->meterFrame); signalMeter->resize(50, 160); // qDebug() << signalMeter->size(); ui->labAz->setStyleSheet("border: 0px;"); ui->labDist->setStyleSheet("border: 0px;"); mem_jt9 = shdmem; // Multiple instances: mykey_jt9 = thekey; readSettings(); //Restore user's setup params if(m_dFreq.length()<=1) { //Use the startup default frequencies m_dFreq.clear(); for(int i=0; i<16; i++) { QString t; t.sprintf("%f",dFreq[i]); m_dFreq.append(t); } } #ifdef WIN32 if(!m_bMultipleOK) { while(true) { int iret=killbyname("jt9.exe"); if(iret == 603) break; if(iret != 0) msgBox("KillByName return code: " + QString::number(iret)); } } #endif QFile lockFile(m_appDir + "/.lock"); //Create .lock so jt9 will wait lockFile.open(QIODevice::ReadWrite); //QFile quitFile(m_appDir + "/.lock"); //quitFile.remove(); // Multiple instances: make the Qstring key into command line arg // Multiple instances: start "jt9 -s " QByteArray ba = mykey_jt9->toLocal8Bit(); const char *bc = ba.data(); proc_jt9.start(QDir::toNativeSeparators('"' + m_appDir + '"' + "/jt9 -s " + bc)); m_pbdecoding_style1="QPushButton{background-color: cyan; \ border-style: outset; border-width: 1px; border-radius: 5px; \ border-color: black; min-width: 5em; padding: 3px;}"; m_pbmonitor_style="QPushButton{background-color: #00ff00; \ border-style: outset; border-width: 1px; border-radius: 5px; \ border-color: black; min-width: 5em; padding: 3px;}"; m_pbAutoOn_style="QPushButton{background-color: red; \ border-style: outset; border-width: 1px; border-radius: 5px; \ border-color: black; min-width: 5em; padding: 3px;}"; m_pbTune_style="QPushButton{background-color: red; \ border-style: outset; border-width: 1px; border-radius: 5px; \ border-color: black; min-width: 5em; padding: 3px;}"; genStdMsgs(m_rpt); if(m_mode!="JT9" and m_mode!="JT65" and m_mode!="JT9+JT65") m_mode="JT9"; on_actionWide_Waterfall_triggered(); //### g_pWideGraph->setRxFreq(m_rxFreq); g_pWideGraph->setTxFreq(m_txFreq); g_pWideGraph->setLockTxFreq(m_lockTxFreq); g_pWideGraph->setFmin(m_fMin); g_pWideGraph->setModeTx(m_mode); g_pWideGraph->setModeTx(m_modeTx); dialFreqChanged2(m_dialFreq); connect(g_pWideGraph, SIGNAL(setFreq3(int,int)),this, SLOT(setFreq4(int,int))); if(m_mode=="JT9") on_actionJT9_1_triggered(); if(m_mode=="JT65") on_actionJT65_triggered(); if(m_mode=="JT9+JT65") on_actionJT9_JT65_triggered(); future1 = new QFuture; watcher1 = new QFutureWatcher; connect(watcher1, SIGNAL(finished()),this,SLOT(diskDat())); future2 = new QFuture; watcher2 = new QFutureWatcher; connect(watcher2, SIGNAL(finished()),this,SLOT(diskWriteFinished())); soundInThread.setInputDevice(m_paInDevice); soundInThread.start(QThread::HighestPriority); soundOutThread.setOutputDevice(m_paOutDevice); soundOutThread.setTxFreq(m_txFreq); soundOutThread.setTune(false); m_monitoring=!m_monitorStartOFF; // Start with Monitoring ON/OFF soundInThread.setMonitoring(m_monitoring); m_diskData=false; // Create "m_worked", a dictionary of all calls in wsjtx.log QFile f("wsjtx.log"); f.open(QIODevice::ReadOnly | QIODevice::Text); QTextStream in(&f); QString line,t,callsign; for(int i=0; i<99999; i++) { line=in.readLine(); if(line.length()<=0) break; t=line.mid(18,12); callsign=t.mid(0,t.indexOf(",")); } f.close(); if(ui->actionLinrad->isChecked()) on_actionLinrad_triggered(); if(ui->actionCuteSDR->isChecked()) on_actionCuteSDR_triggered(); if(ui->actionAFMHot->isChecked()) on_actionAFMHot_triggered(); if(ui->actionBlue->isChecked()) on_actionBlue_triggered(); ui->decodedTextLabel->setFont(ui->decodedTextBrowser2->font()); ui->decodedTextLabel2->setFont(ui->decodedTextBrowser->font()); t="UTC dB DT Freq Message"; ui->decodedTextLabel->setText(t); ui->decodedTextLabel2->setText(t); #ifdef WIN32 if(m_pskReporter) { rc=ReporterInitialize(NULL,NULL); if(rc==0) { m_pskReporterInit=true; } else { m_pskReporterInit=false; rc=ReporterGetInformation(buffer,256); msgBox(QString::fromStdWString(buffer)); } } #endif #ifdef UNIX psk_Reporter = new PSK_Reporter(this); psk_Reporter->setLocalStation(m_myCall,m_myGrid, "WSJT-X r" + rev.mid(6,4) ); #endif ui->label_9->setStyleSheet("QLabel{background-color: #aabec8}"); ui->label_10->setStyleSheet("QLabel{background-color: #aabec8}"); ui->labUTC->setStyleSheet( \ "QLabel { background-color : black; color : yellow; }"); ui->labDialFreq->setStyleSheet( \ "QLabel { background-color : black; color : yellow; }"); QFile f2("ALL.TXT"); f2.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append); QTextStream out(&f2); out << QDateTime::currentDateTimeUtc().toString("yyyy-MMM-dd hh:mm") << " " << m_dialFreq << " MHz " << m_mode << endl; f2.close(); } // End of MainWindow constructor //--------------------------------------------------- MainWindow destructor MainWindow::~MainWindow() { writeSettings(); if (soundInThread.isRunning()) { soundInThread.quit(); soundInThread.wait(3000); } if (soundOutThread.isRunning()) { soundOutThread.quitExecution=true; soundOutThread.wait(3000); } if(!m_decoderBusy) { QFile lockFile(m_appDir + "/.lock"); lockFile.remove(); } delete ui; } //-------------------------------------------------------- writeSettings() void MainWindow::writeSettings() { QString inifile = m_appDir + "/wsjtx.ini"; QSettings settings(inifile, QSettings::IniFormat); settings.beginGroup("MainWindow"); settings.setValue("geometry", saveGeometry()); settings.setValue("MRUdir", m_path); settings.setValue("TxFirst",m_txFirst); settings.setValue("DXcall",ui->dxCallEntry->text()); settings.setValue("DXgrid",ui->dxGridEntry->text()); if(g_pWideGraph->isVisible()) { m_wideGraphGeom = g_pWideGraph->geometry(); settings.setValue("WideGraphGeom",m_wideGraphGeom); m_fMin=g_pWideGraph->getFmin(); } settings.endGroup(); settings.beginGroup("Common"); settings.setValue("MyCall",m_myCall); settings.setValue("MyGrid",m_myGrid); settings.setValue("IDint",m_idInt); settings.setValue("PTTmethod",m_pttMethodIndex); settings.setValue("PTTport",m_pttPort); settings.setValue("SaveDir",m_saveDir); char soundName[128]; if (Pa_GetDeviceInfo( m_paInDevice)) { // store name, number may be different next time snprintf( soundName, sizeof( soundName), "%s:%s", Pa_GetHostApiInfo( Pa_GetDeviceInfo( m_paInDevice)->hostApi)->name, Pa_GetDeviceInfo( m_paInDevice)->name); settings.setValue("SoundInName", soundName); } if (Pa_GetDeviceInfo( m_paOutDevice)) { // store name, number may be different next time snprintf( soundName, sizeof( soundName), "%s:%s", Pa_GetHostApiInfo( Pa_GetDeviceInfo( m_paOutDevice)->hostApi)->name, Pa_GetDeviceInfo( m_paOutDevice)->name); settings.setValue("SoundOutName", soundName); } settings.setValue("PaletteCuteSDR",ui->actionCuteSDR->isChecked()); settings.setValue("PaletteLinrad",ui->actionLinrad->isChecked()); settings.setValue("PaletteAFMHot",ui->actionAFMHot->isChecked()); settings.setValue("PaletteBlue",ui->actionBlue->isChecked()); settings.setValue("Mode",m_mode); settings.setValue("ModeTx",m_modeTx); settings.setValue("SaveNone",ui->actionNone->isChecked()); settings.setValue("SaveDecoded",ui->actionSave_decoded->isChecked()); settings.setValue("SaveAll",ui->actionSave_all->isChecked()); settings.setValue("NDepth",m_ndepth); settings.setValue("MonitorOFF",m_monitorStartOFF); settings.setValue("DialFreq",m_dialFreq); settings.setValue("RxFreq",m_rxFreq); settings.setValue("TxFreq",m_txFreq); settings.setValue("InGain",m_inGain); settings.setValue("PSKReporter",m_pskReporter); settings.setValue("After73",m_After73); settings.setValue("Macros",m_macro); settings.setValue("DefaultFreqs",m_dFreq); settings.setValue("toRTTY",m_toRTTY); settings.setValue("NoSuffix",m_noSuffix); settings.setValue("dBtoComments",m_dBtoComments); settings.setValue("catEnabled",m_catEnabled); settings.setValue("Rig",m_rig); settings.setValue("RigIndex",m_rigIndex); settings.setValue("CATport",m_catPort); settings.setValue("CATportIndex",m_catPortIndex); settings.setValue("SerialRate",m_serialRate); settings.setValue("SerialRateIndex",m_serialRateIndex); settings.setValue("DataBits",m_dataBits); settings.setValue("DataBitsIndex",m_dataBitsIndex); settings.setValue("StopBits",m_stopBits); settings.setValue("StopBitsIndex",m_stopBitsIndex); settings.setValue("Handshake",m_handshake); settings.setValue("HandshakeIndex",m_handshakeIndex); settings.setValue("BandIndex",m_band); settings.setValue("PromptToLog",m_promptToLog); settings.setValue("InsertBlank",m_insertBlank); settings.setValue("ClearCallGrid",m_clearCallGrid); settings.setValue("Miles",m_bMiles); settings.setValue("GUItab",ui->tabWidget->currentIndex()); settings.setValue("QuickCall",m_quickCall); settings.setValue("73TxDisable",m_73TxDisable); settings.setValue("Runaway",m_runaway); settings.setValue("Tx2QSO",m_tx2QSO); settings.setValue("MultipleOK",m_bMultipleOK); settings.setValue("DTRoff",m_bDTRoff); settings.setValue("pttData",m_pttData); settings.setValue("LogQSOgeom",m_logQSOgeom); settings.setValue("Polling",m_poll); settings.setValue("OutBufSize",outBufSize); settings.setValue("LockTxFreq",m_lockTxFreq); settings.setValue("SaveTxPower",m_saveTxPower); settings.setValue("SaveComments",m_saveComments); settings.setValue("TxPower",m_txPower); settings.setValue("LogComments",m_logComments); settings.setValue("PSKantenna",m_pskAntenna); settings.setValue("Fmin",m_fMin); settings.setValue("TxSplit",m_bSplit); settings.setValue("UseXIT",m_bXIT); settings.setValue("Plus2kHz",m_plus2kHz); settings.endGroup(); } //---------------------------------------------------------- readSettings() void MainWindow::readSettings() { QString inifile = m_appDir + "/wsjtx.ini"; QSettings settings(inifile, QSettings::IniFormat); settings.beginGroup("MainWindow"); restoreGeometry(settings.value("geometry").toByteArray()); ui->dxCallEntry->setText(settings.value("DXcall","").toString()); ui->dxGridEntry->setText(settings.value("DXgrid","").toString()); m_wideGraphGeom = settings.value("WideGraphGeom", \ QRect(45,30,726,301)).toRect(); m_path = settings.value("MRUdir", m_appDir + "/save").toString(); m_txFirst = settings.value("TxFirst",false).toBool(); ui->txFirstCheckBox->setChecked(m_txFirst); settings.endGroup(); settings.beginGroup("Common"); m_myCall=settings.value("MyCall","").toString(); morse_(m_myCall.toLatin1().data(),icw,&m_ncw,m_myCall.length()); m_myGrid=settings.value("MyGrid","").toString(); m_idInt=settings.value("IDint",0).toInt(); m_pttMethodIndex=settings.value("PTTmethod",1).toInt(); m_pttPort=settings.value("PTTport",0).toInt(); m_saveDir=settings.value("SaveDir",m_appDir + "/save").toString(); char soundName[128]; QString savedName = settings.value( "SoundInName", "default").toString(); for (m_paInDevice = Pa_GetDeviceCount() - 1; m_paInDevice >= 0; m_paInDevice--) { snprintf( soundName, sizeof( soundName), "%s:%s", Pa_GetHostApiInfo( Pa_GetDeviceInfo( m_paInDevice)->hostApi)->name, Pa_GetDeviceInfo( m_paInDevice)->name); if ((savedName == soundName) && (Pa_GetDeviceInfo(m_paInDevice)->maxInputChannels > 0)) break; } if (m_paInDevice < 0) { // no match for device name? m_paInDevice = Pa_GetDefaultInputDevice(); if (m_paInDevice == paNoDevice) // no default input device? m_paInDevice = 0; } savedName = settings.value("SoundOutName", "default").toString(); for (m_paOutDevice = Pa_GetDeviceCount() - 1; m_paOutDevice >= 0; m_paOutDevice--) { snprintf( soundName, sizeof( soundName), "%s:%s", Pa_GetHostApiInfo( Pa_GetDeviceInfo( m_paOutDevice)->hostApi)->name, Pa_GetDeviceInfo( m_paOutDevice)->name); if ((savedName == soundName) && (Pa_GetDeviceInfo(m_paOutDevice)->maxOutputChannels > 0)) break; } if (m_paOutDevice < 0) { // no match for device name? m_paOutDevice = Pa_GetDefaultOutputDevice(); if (m_paOutDevice == paNoDevice) // no default output device? m_paOutDevice = 0; } ui->actionCuteSDR->setChecked(settings.value( "PaletteCuteSDR",false).toBool()); ui->actionLinrad->setChecked(settings.value( "PaletteLinrad",true).toBool()); ui->actionAFMHot->setChecked(settings.value( "PaletteAFMHot",false).toBool()); ui->actionBlue->setChecked(settings.value( "PaletteBlue",false).toBool()); m_mode=settings.value("Mode","JT9").toString(); m_modeTx=settings.value("ModeTx","JT9").toString(); if(m_modeTx=="JT9") ui->pbTxMode->setText("Tx JT9 @"); if(m_modeTx=="JT65") ui->pbTxMode->setText("Tx JT65 #"); ui->actionNone->setChecked(settings.value("SaveNone",true).toBool()); ui->actionSave_decoded->setChecked(settings.value( "SaveDecoded",false).toBool()); ui->actionSave_all->setChecked(settings.value("SaveAll",false).toBool()); m_dialFreq=settings.value("DialFreq",14.078).toDouble(); m_rxFreq=settings.value("RxFreq",1500).toInt(); ui->RxFreqSpinBox->setValue(m_rxFreq); m_txFreq=settings.value("TxFreq",1500).toInt(); ui->TxFreqSpinBox->setValue(m_txFreq); soundOutThread.setTxFreq(m_txFreq); m_saveDecoded=ui->actionSave_decoded->isChecked(); m_saveAll=ui->actionSave_all->isChecked(); m_ndepth=settings.value("NDepth",3).toInt(); m_inGain=settings.value("InGain",0).toInt(); ui->inGain->setValue(m_inGain); m_monitorStartOFF=settings.value("MonitorOFF",false).toBool(); ui->actionMonitor_OFF_at_startup->setChecked(m_monitorStartOFF); m_pskReporter=settings.value("PSKReporter",false).toBool(); m_After73=settings.value("After73",false).toBool(); m_macro=settings.value("Macros","TNX 73 GL").toStringList(); m_dFreq=settings.value("DefaultFreqs","").toStringList(); m_toRTTY=settings.value("toRTTY",false).toBool(); ui->actionConvert_JT9_x_to_RTTY->setChecked(m_toRTTY); m_noSuffix=settings.value("NoSuffix",false).toBool(); ui->actionLog_JT9_without_submode->setChecked(m_noSuffix); m_dBtoComments=settings.value("dBtoComments",false).toBool(); ui->actionLog_dB_reports_to_Comments->setChecked(m_dBtoComments); m_rig=settings.value("Rig",214).toInt(); m_rigIndex=settings.value("RigIndex",100).toInt(); m_catPort=settings.value("CATport","None").toString(); m_catPortIndex=settings.value("CATportIndex",0).toInt(); m_serialRate=settings.value("SerialRate",4800).toInt(); m_serialRateIndex=settings.value("SerialRateIndex",1).toInt(); m_dataBits=settings.value("DataBits",8).toInt(); m_dataBitsIndex=settings.value("DataBitsIndex",1).toInt(); m_stopBits=settings.value("StopBits",2).toInt(); m_stopBitsIndex=settings.value("StopBitsIndex",1).toInt(); m_handshake=settings.value("Handshake","None").toString(); m_handshakeIndex=settings.value("HandshakeIndex",0).toInt(); m_band=settings.value("BandIndex",7).toInt(); ui->bandComboBox->setCurrentIndex(m_band); dialFreqChanged2(m_dialFreq); m_catEnabled=settings.value("catEnabled",false).toBool(); m_promptToLog=settings.value("PromptToLog",false).toBool(); ui->actionPrompt_to_log_QSO->setChecked(m_promptToLog); m_insertBlank=settings.value("InsertBlank",false).toBool(); ui->actionBlank_line_between_decoding_periods->setChecked(m_insertBlank); m_clearCallGrid=settings.value("ClearCallGrid",false).toBool(); ui->actionClear_DX_Call_and_Grid_after_logging->setChecked(m_clearCallGrid); m_bMiles=settings.value("Miles",false).toBool(); ui->actionDisplay_distance_in_miles->setChecked(m_bMiles); int n=settings.value("GUItab",0).toInt(); ui->tabWidget->setCurrentIndex(n); m_quickCall=settings.value("QuickCall",false).toBool(); ui->actionDouble_click_on_call_sets_Tx_Enable->setChecked(m_quickCall); m_73TxDisable=settings.value("73TxDisable",false).toBool(); ui->action_73TxDisable->setChecked(m_73TxDisable); m_runaway=settings.value("Runaway",false).toBool(); ui->actionRunaway_Tx_watchdog->setChecked(m_runaway); m_tx2QSO=settings.value("Tx2QSO",false).toBool(); ui->actionTx2QSO->setChecked(m_tx2QSO); m_bMultipleOK=settings.value("MultipleOK",false).toBool(); ui->actionAllow_multiple_instances->setChecked(m_bMultipleOK); m_bDTRoff=settings.value("DTRoff",false).toBool(); m_pttData=settings.value("pttData",false).toBool(); m_poll=settings.value("Polling",0).toInt(); m_logQSOgeom=settings.value("LogQSOgeom",QRect(500,400,424,283)).toRect(); outBufSize=settings.value("OutBufSize",4096).toInt(); m_lockTxFreq=settings.value("LockTxFreq",false).toBool(); ui->cbTxLock->setChecked(m_lockTxFreq); m_saveTxPower=settings.value("SaveTxPower",false).toBool(); m_saveComments=settings.value("SaveComments",false).toBool(); m_txPower=settings.value("TxPower","").toString(); m_logComments=settings.value("LogComments","").toString(); m_pskAntenna=settings.value("PSKantenna","").toString(); m_fMin=settings.value("fMin",2500).toInt(); m_bSplit=settings.value("TxSplit",false).toBool(); m_bXIT=settings.value("UseXit",false).toBool(); m_plus2kHz=settings.value("Plus2kHz",false).toBool(); ui->cbPlus2kHz->setChecked(m_plus2kHz); settings.endGroup(); if(!ui->actionLinrad->isChecked() && !ui->actionCuteSDR->isChecked() && !ui->actionAFMHot->isChecked() && !ui->actionBlue->isChecked()) { on_actionLinrad_triggered(); ui->actionLinrad->setChecked(true); } if(m_ndepth==1) ui->actionQuickDecode->setChecked(true); if(m_ndepth==2) ui->actionMediumDecode->setChecked(true); if(m_ndepth==3) ui->actionDeepestDecode->setChecked(true); statusChanged(); } //-------------------------------------------------------------- dataSink() void MainWindow::dataSink(int k) { static float s[NSMAX]; static int ihsym=0; static int nzap=0; static int trmin; static int npts8; static float px=0.0; static float df3; static float slope; if(m_diskData) { jt9com_.ndiskdat=1; } else { jt9com_.ndiskdat=0; } // Get power, spectrum, and ihsym trmin=m_TRperiod/60; slope=0.0; if(g_pWideGraph!=NULL) slope=(float)g_pWideGraph->getSlope(); symspec_(&k,&trmin,&m_nsps,&m_inGain,&slope,&px,s,&df3,&ihsym,&npts8); if(ihsym <=0) return; QString t; m_pctZap=nzap*100.0/m_nsps; t.sprintf(" Rx noise: %5.1f ",px); signalMeter->setValue(px); // Update thermometer if(m_monitoring || m_diskData) { g_pWideGraph->dataSink2(s,df3,ihsym,m_diskData); } if(ihsym == m_hsymStop) { m_dataAvailable=true; jt9com_.npts8=(ihsym*m_nsps)/16; jt9com_.newdat=1; jt9com_.nagain=0; jt9com_.nzhsym=m_hsymStop; QDateTime t = QDateTime::currentDateTimeUtc(); m_dateTime=t.toString("yyyy-MMM-dd hh:mm"); decode(); //Start decoder if(!m_diskData) { //Always save; may delete later int ihr=t.time().toString("hh").toInt(); int imin=t.time().toString("mm").toInt(); imin=imin - (imin%(m_TRperiod/60)); QString t2; t2.sprintf("%2.2d%2.2d",ihr,imin); m_fname=m_saveDir + "/" + t.date().toString("yyMMdd") + "_" + t2 + ".wav"; *future2 = QtConcurrent::run(savewav, m_fname, m_TRperiod); watcher2->setFuture(*future2); } } soundInThread.m_dataSinkBusy=false; } void MainWindow::showSoundInError(const QString& errorMsg) {QMessageBox::critical(this, tr("Error in SoundIn"), errorMsg);} void MainWindow::showStatusMessage(const QString& statusMsg) {statusBar()->showMessage(statusMsg);} void MainWindow::on_actionDeviceSetup_triggered() //Setup Dialog { DevSetup dlg(this); dlg.m_myCall=m_myCall; dlg.m_myGrid=m_myGrid; dlg.m_pskAntenna=m_pskAntenna; dlg.m_idInt=m_idInt; dlg.m_pttMethodIndex=m_pttMethodIndex; dlg.m_pttPort=m_pttPort; dlg.m_saveDir=m_saveDir; dlg.m_paInDevice=m_paInDevice; dlg.m_paOutDevice=m_paOutDevice; dlg.m_pskReporter=m_pskReporter; dlg.m_After73=m_After73; dlg.m_macro=m_macro; dlg.m_dFreq=m_dFreq; dlg.m_catEnabled=m_catEnabled; dlg.m_rig=m_rig; dlg.m_rigIndex=m_rigIndex; dlg.m_catPort=m_catPort; dlg.m_catPortIndex=m_catPortIndex; dlg.m_serialRate=m_serialRate; dlg.m_serialRateIndex=m_serialRateIndex; dlg.m_dataBits=m_dataBits; dlg.m_dataBitsIndex=m_dataBitsIndex; dlg.m_stopBits=m_stopBits; dlg.m_stopBitsIndex=m_stopBitsIndex; dlg.m_handshake=m_handshake; dlg.m_handshakeIndex=m_handshakeIndex; dlg.m_bDTRoff=m_bDTRoff; dlg.m_pttData=m_pttData; dlg.m_poll=m_poll; dlg.m_bSplit=m_bSplit; dlg.m_bXIT=m_bXIT; if(m_bRigOpen) { rig->close(); ui->readFreq->setStyleSheet(""); ui->readFreq->setEnabled(false); if(m_rig<9900) delete rig; m_bRigOpen=false; m_catEnabled=false; m_CATerror=false; } dlg.initDlg(); if(dlg.exec() == QDialog::Accepted) { m_myCall=dlg.m_myCall; m_myGrid=dlg.m_myGrid; m_pskAntenna=dlg.m_pskAntenna; m_idInt=dlg.m_idInt; m_pttMethodIndex=dlg.m_pttMethodIndex; m_pttPort=dlg.m_pttPort; m_saveDir=dlg.m_saveDir; m_paInDevice=dlg.m_paInDevice; m_paOutDevice=dlg.m_paOutDevice; m_macro=dlg.m_macro; m_dFreq=dlg.m_dFreq; m_catEnabled=dlg.m_catEnabled; m_rig=dlg.m_rig; m_rigIndex=dlg.m_rigIndex; m_catPort=dlg.m_catPort; m_catPortIndex=dlg.m_catPortIndex; m_serialRate=dlg.m_serialRate; m_serialRateIndex=dlg.m_serialRateIndex; m_dataBits=dlg.m_dataBits; m_dataBitsIndex=dlg.m_dataBitsIndex; m_stopBits=dlg.m_stopBits; m_stopBitsIndex=dlg.m_stopBitsIndex; m_handshake=dlg.m_handshake; m_handshakeIndex=dlg.m_handshakeIndex; m_bDTRoff=dlg.m_bDTRoff; m_pttData=dlg.m_pttData; m_poll=dlg.m_poll; #ifdef WIN32 if(dlg.m_pskReporter!=m_pskReporter) { if(dlg.m_pskReporter) { int rc=ReporterInitialize(NULL,NULL); if(rc==0) { m_pskReporterInit=true; } else { m_pskReporterInit=false; rc=ReporterGetInformation(buffer,256); msgBox(QString::fromStdWString(buffer)); } } else { rc=ReporterUninitialize(); m_pskReporterInit=false; } } #endif m_pskReporter=dlg.m_pskReporter; #ifdef UNIX if(m_pskReporter) { psk_Reporter->setLocalStation(m_myCall,m_myGrid, "WSJT-X r" + rev.mid(6,4) ); } #endif m_After73=dlg.m_After73; if(dlg.m_restartSoundIn) { soundInThread.quit(); soundInThread.wait(1000); soundInThread.setInputDevice(m_paInDevice); soundInThread.start(QThread::HighestPriority); } if(dlg.m_restartSoundOut) { soundOutThread.quitExecution=true; soundOutThread.wait(1000); soundOutThread.setOutputDevice(m_paOutDevice); } } m_catEnabled=dlg.m_catEnabled; if(m_catEnabled) { rigOpen(); } else { ui->readFreq->setStyleSheet(""); } if(dlg.m_bSplit!=m_bSplit or dlg.m_bXIT!=m_bXIT) { m_bSplit=dlg.m_bSplit; m_bXIT=dlg.m_bXIT; if(m_bSplit or m_bXIT) setXIT(m_txFreq); if(m_bRigOpen and !m_bSplit) { int ret=rig->setSplitFreq(MHz(m_dialFreq),RIG_VFO_B); if(ret!=RIG_OK) { QString rt; rt.sprintf("Setting VFO_B failed: %d",ret); msgBox(rt); } } } } void MainWindow::on_monitorButton_clicked() //Monitor { m_monitoring=true; soundInThread.setMonitoring(true); m_diskData=false; } void MainWindow::on_actionLinrad_triggered() //Linrad palette { if(g_pWideGraph != NULL) g_pWideGraph->setPalette("Linrad"); } void MainWindow::on_actionCuteSDR_triggered() //CuteSDR palette { if(g_pWideGraph != NULL) g_pWideGraph->setPalette("CuteSDR"); } void MainWindow::on_actionAFMHot_triggered() { if(g_pWideGraph != NULL) g_pWideGraph->setPalette("AFMHot"); } void MainWindow::on_actionBlue_triggered() { if(g_pWideGraph != NULL) g_pWideGraph->setPalette("Blue"); } void MainWindow::on_actionAbout_triggered() //Display "About" { CAboutDlg dlg(this,Program_Title_Version); dlg.exec(); } void MainWindow::on_autoButton_clicked() //Auto { m_auto = !m_auto; if(m_auto) { ui->autoButton->setStyleSheet(m_pbAutoOn_style); } else { btxok=false; ui->autoButton->setStyleSheet(""); on_monitorButton_clicked(); m_repeatMsg=0; } } void MainWindow::keyPressEvent( QKeyEvent *e ) //keyPressEvent { int n; switch(e->key()) { case Qt::Key_1: if(e->modifiers() & Qt::AltModifier) { on_txb1_clicked(); break; } case Qt::Key_2: if(e->modifiers() & Qt::AltModifier) { on_txb2_clicked(); break; } case Qt::Key_3: if(e->modifiers() & Qt::AltModifier) { on_txb3_clicked(); break; } case Qt::Key_4: if(e->modifiers() & Qt::AltModifier) { on_txb4_clicked(); break; } case Qt::Key_5: if(e->modifiers() & Qt::AltModifier) { on_txb5_clicked(); break; } case Qt::Key_6: if(e->modifiers() & Qt::AltModifier) { on_txb6_clicked(); break; } case Qt::Key_D: if(e->modifiers() & Qt::ShiftModifier) { if(!m_decoderBusy) { jt9com_.newdat=0; jt9com_.nagain=0; decode(); break; } } break; case Qt::Key_F4: ui->dxCallEntry->setText(""); ui->dxGridEntry->setText(""); genStdMsgs(""); m_ntx=6; ui->txrb6->setChecked(true); break; case Qt::Key_F6: if(e->modifiers() & Qt::ShiftModifier) { on_actionDecode_remaining_files_in_directory_triggered(); } break; case Qt::Key_F11: n=11; if(e->modifiers() & Qt::ControlModifier) n+=100; bumpFqso(n); break; case Qt::Key_F12: n=12; if(e->modifiers() & Qt::ControlModifier) n+=100; bumpFqso(n); break; case Qt::Key_F: if(e->modifiers() & Qt::ControlModifier) { if(ui->tabWidget->currentIndex()==0) { ui->tx5->clear(); ui->tx5->setFocus(); } else { ui->freeTextMsg->clear(); ui->freeTextMsg->setFocus(); } break; } case Qt::Key_G: if(e->modifiers() & Qt::AltModifier) { genStdMsgs(m_rpt); break; } case Qt::Key_H: if(e->modifiers() & Qt::AltModifier) { on_stopTxButton_clicked(); break; } case Qt::Key_L: if(e->modifiers() & Qt::ControlModifier) { lookup(); genStdMsgs(m_rpt); break; } case Qt::Key_V: if(e->modifiers() & Qt::AltModifier) { m_fileToSave=m_fname; break; } } } void MainWindow::bumpFqso(int n) //bumpFqso() { int i; bool ctrl = (n>=100); n=n%100; i=g_pWideGraph->rxFreq(); if(n==11) i--; if(n==12) i++; g_pWideGraph->setRxFreq(i); if(ctrl) { ui->TxFreqSpinBox->setValue(i); g_pWideGraph->setTxFreq(i); } } void MainWindow::dialFreqChanged2(double f) { m_dialFreq=f; if(m_band<0 or m_band>15 or m_dFreq.length()<=1) return; QString t; t.sprintf("%.6f",m_dialFreq); int n=t.length(); t=t.mid(0,n-3) + " " + t.mid(n-3,3); double fBand=m_dFreq[m_band].toDouble(); if(qAbs(m_dialFreq-fBand)<0.01) { ui->labDialFreq->setStyleSheet( \ "QLabel { background-color : black; color : yellow; }"); } else { ui->labDialFreq->setStyleSheet( \ "QLabel { background-color : red; color : yellow; }"); ui->labDialFreq->setText(t); } ui->labDialFreq->setText(t); statusChanged(); if(g_pWideGraph!=NULL) g_pWideGraph->setDialFreq(m_dialFreq); } void MainWindow::statusChanged() { QFile f("wsjtx_status.txt"); if(f.open(QFile::WriteOnly | QIODevice::Text)) { QTextStream out(&f); out << m_dialFreq << ";" << m_mode << ";" << m_hisCall << ";" << ui->rptSpinBox->value() << ";" << m_modeTx << endl; f.close(); } else { msgBox("Cannot open file \"wsjtx_status.txt\"."); return; } } bool MainWindow::eventFilter(QObject *object, QEvent *event) //eventFilter() { if (event->type() == QEvent::KeyPress) { QKeyEvent *keyEvent = static_cast(event); MainWindow::keyPressEvent(keyEvent); return QObject::eventFilter(object, event); } return QObject::eventFilter(object, event); } void MainWindow::createStatusBar() //createStatusBar { lab1 = new QLabel("Receiving"); lab1->setAlignment(Qt::AlignHCenter); lab1->setMinimumSize(QSize(80,18)); lab1->setStyleSheet("QLabel{background-color: #00ff00}"); lab1->setFrameStyle(QFrame::Panel | QFrame::Sunken); statusBar()->addWidget(lab1); lab2 = new QLabel(""); lab2->setAlignment(Qt::AlignHCenter); lab2->setMinimumSize(QSize(150,18)); lab2->setFrameStyle(QFrame::Panel | QFrame::Sunken); statusBar()->addWidget(lab2); lab3 = new QLabel(""); lab3->setAlignment(Qt::AlignHCenter); lab3->setMinimumSize(QSize(80,18)); lab3->setFrameStyle(QFrame::Panel | QFrame::Sunken); statusBar()->addWidget(lab3); } void MainWindow::on_actionExit_triggered() //Exit() { OnExit(); } void MainWindow::closeEvent(QCloseEvent*) { OnExit(); } void MainWindow::OnExit() { g_pWideGraph->saveSettings(); if(m_fname != "") killFile(); m_killAll=true; mem_jt9->detach(); QFile quitFile(m_appDir + "/.quit"); quitFile.open(QIODevice::ReadWrite); QFile lockFile(m_appDir + "/.lock"); lockFile.remove(); // Allow jt9 to terminate bool b=proc_jt9.waitForFinished(1000); if(!b) proc_jt9.kill(); quitFile.remove(); qApp->exit(0); // Exit the event loop } void MainWindow::on_stopButton_clicked() //stopButton { m_monitoring=false; soundInThread.setMonitoring(m_monitoring); m_loopall=false; } void MainWindow::msgBox(QString t) //msgBox { msgBox0.setText(t); msgBox0.exec(); } void MainWindow::on_actionOnline_Users_Guide_triggered() //Display manual { QDesktopServices::openUrl(QUrl( "http://www.physics.princeton.edu/pulsar/K1JT/WSJT-X_Users_Guide_v1.1.pdf", QUrl::TolerantMode)); } void MainWindow::on_actionWide_Waterfall_triggered() //Display Waterfalls { if(g_pWideGraph==NULL) { g_pWideGraph = new WideGraph(0); g_pWideGraph->setWindowTitle("Wide Graph"); g_pWideGraph->setGeometry(m_wideGraphGeom); Qt::WindowFlags flags = Qt::WindowCloseButtonHint | Qt::WindowMinimizeButtonHint; g_pWideGraph->setWindowFlags(flags); connect(g_pWideGraph, SIGNAL(freezeDecode2(int)),this, SLOT(freezeDecode(int))); connect(g_pWideGraph, SIGNAL(f11f12(int)),this, SLOT(bumpFqso(int))); connect(g_pWideGraph, SIGNAL(setXIT2(int)),this, SLOT(setXIT(int))); // connect(g_pWideGraph, SIGNAL(dialFreqChanged(double)),this, // SLOT(dialFreqChanged2(double))); } g_pWideGraph->show(); } void MainWindow::on_actionOpen_triggered() //Open File { m_monitoring=false; soundInThread.setMonitoring(m_monitoring); QString fname; fname=QFileDialog::getOpenFileName(this, "Open File", m_path, "WSJT Files (*.wav)"); if(fname != "") { m_path=fname; int i; i=fname.indexOf(".wav") - 11; if(i>=0) { lab1->setStyleSheet("QLabel{background-color: #66ff66}"); lab1->setText(" " + fname.mid(i,15) + " "); } on_stopButton_clicked(); m_diskData=true; *future1 = QtConcurrent::run(getfile, fname, m_TRperiod); watcher1->setFuture(*future1); // call diskDat() when done } } void MainWindow::on_actionOpen_next_in_directory_triggered() //Open Next { int i,len; QFileInfo fi(m_path); QStringList list; list= fi.dir().entryList().filter(".wav"); for (i = 0; i < list.size()-1; ++i) { if(i==list.size()-2) m_loopall=false; len=list.at(i).length(); if(list.at(i)==m_path.right(len)) { int n=m_path.length(); QString fname=m_path.replace(n-len,len,list.at(i+1)); m_path=fname; int i; i=fname.indexOf(".wav") - 11; if(i>=0) { lab1->setStyleSheet("QLabel{background-color: #66ff66}"); lab1->setText(" " + fname.mid(i,len) + " "); } m_diskData=true; *future1 = QtConcurrent::run(getfile, fname, m_TRperiod); watcher1->setFuture(*future1); return; } } } //Open all remaining files void MainWindow::on_actionDecode_remaining_files_in_directory_triggered() { m_loopall=true; on_actionOpen_next_in_directory_triggered(); } void MainWindow::diskDat() //diskDat() { int k; int kstep=m_nsps/2; m_diskData=true; for(int n=1; n<=m_hsymStop; n++) { // Do the half-symbol FFTs k=(n+1)*kstep; jt9com_.npts8=k/8; dataSink(k); if(n%10 == 1 or n == m_hsymStop) qApp->processEvents(); //Keep GUI responsive } } void MainWindow::diskWriteFinished() //diskWriteFinished { } //Delete ../save/*.wav void MainWindow::on_actionDelete_all_wav_files_in_SaveDir_triggered() { int i; QString fname; int ret = QMessageBox::warning(this, "Confirm Delete", "Are you sure you want to delete all *.wav files in\n" + QDir::toNativeSeparators(m_saveDir) + " ?", QMessageBox::Yes | QMessageBox::No, QMessageBox::Yes); if(ret==QMessageBox::Yes) { QDir dir(m_saveDir); QStringList files=dir.entryList(QDir::Files); QList::iterator f; for(f=files.begin(); f!=files.end(); ++f) { fname=*f; i=(fname.indexOf(".wav")); if(i>10) dir.remove(fname); } } } void MainWindow::on_actionNone_triggered() //Save None { m_saveDecoded=false; m_saveAll=false; ui->actionNone->setChecked(true); } void MainWindow::on_actionSave_decoded_triggered() { m_saveDecoded=true; m_saveAll=false; ui->actionSave_decoded->setChecked(true); } void MainWindow::on_actionSave_all_triggered() //Save All { m_saveDecoded=false; m_saveAll=true; ui->actionSave_all->setChecked(true); } void MainWindow::on_actionKeyboard_shortcuts_triggered() { pShortcuts = new QTextEdit(0); pShortcuts->setReadOnly(true); pShortcuts->setFontPointSize(10); pShortcuts->setWindowTitle("Keyboard Shortcuts"); pShortcuts->setGeometry(QRect(45,50,430,460)); Qt::WindowFlags flags = Qt::WindowCloseButtonHint | Qt::WindowMinimizeButtonHint; pShortcuts->setWindowFlags(flags); QString shortcuts = m_appDir + "/shortcuts.txt"; QFile f(shortcuts); if(!f.open(QIODevice::ReadOnly | QIODevice::Text)) { msgBox("Cannot open " + shortcuts); return; } QTextStream s(&f); QString t; for(int i=0; i<100; i++) { t=s.readLine(); pShortcuts->append(t); if(s.atEnd()) break; } pShortcuts->show(); } void MainWindow::on_actionSpecial_mouse_commands_triggered() { QTextEdit* pMouseCmnds; pMouseCmnds = new QTextEdit(0); pMouseCmnds->setReadOnly(true); pMouseCmnds->setFontPointSize(10); pMouseCmnds->setWindowTitle("Special Mouse Commands"); pMouseCmnds->setGeometry(QRect(45,50,440,300)); Qt::WindowFlags flags = Qt::WindowCloseButtonHint | Qt::WindowMinimizeButtonHint; pMouseCmnds->setWindowFlags(flags); QString mouseCmnds = m_appDir + "/mouse_commands.txt"; QFile f(mouseCmnds); if(!f.open(QIODevice::ReadOnly | QIODevice::Text)) { msgBox("Cannot open " + mouseCmnds); return; } QTextStream s(&f); QString t; for(int i=0; i<100; i++) { t=s.readLine(); pMouseCmnds->append(t); if(s.atEnd()) break; } pMouseCmnds->show(); } void MainWindow::on_DecodeButton_clicked() //Decode request { if(!m_decoderBusy) { jt9com_.newdat=0; jt9com_.nagain=1; decode(); } } void MainWindow::freezeDecode(int n) //freezeDecode() { bool ctrl = (n>=100); int i=g_pWideGraph->rxFreq(); if(ctrl) { ui->TxFreqSpinBox->setValue(i); g_pWideGraph->setTxFreq(i); } if((n%100)==2) on_DecodeButton_clicked(); } void MainWindow::decode() //decode() { if(!m_dataAvailable) return; ui->DecodeButton->setStyleSheet(m_pbdecoding_style1); if(jt9com_.newdat==1 && (!m_diskData)) { qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000; int imin=ms/60000; int ihr=imin/60; imin=imin % 60; imin=imin - (imin % (m_TRperiod/60)); jt9com_.nutc=100*ihr + imin; } jt9com_.nfqso=g_pWideGraph->rxFreq(); jt9com_.ndepth=m_ndepth; jt9com_.ndiskdat=0; if(m_diskData) jt9com_.ndiskdat=1; int nfa=g_pWideGraph->getFmin(); int nfb=g_pWideGraph->getFmax(); if(m_mode=="JT9") nfa=200; //decode from 0 to fmax if(m_mode=="JT65") nfa=nfb; //decode from 0 to fmax jt9com_.nfa=nfa; jt9com_.nfb=nfb; jt9com_.ntol=20; if(jt9com_.nutc < m_nutc0) m_RxLog |= 1; //Date and Time to all.txt m_nutc0=jt9com_.nutc; jt9com_.ntxmode=9; if(m_modeTx=="JT65") jt9com_.ntxmode=65; jt9com_.nmode=9; if(m_mode=="JT65") jt9com_.nmode=65; if(m_mode=="JT9+JT65") jt9com_.nmode=9+65; jt9com_.ntrperiod=m_TRperiod; m_nsave=0; if(m_saveDecoded) m_nsave=2; jt9com_.nsave=m_nsave; strncpy(jt9com_.datetime, m_dateTime.toLatin1(), 20); //newdat=1 ==> this is new data, must do the big FFT //nagain=1 ==> decode only at fQSO +/- Tol char *to = (char*)mem_jt9->data(); char *from = (char*) jt9com_.ss; int size=sizeof(jt9com_); if(jt9com_.newdat==0) { int noffset = 4*184*NSMAX + 4*NSMAX + 2*NTMAX*12000; to += noffset; from += noffset; size -= noffset; } memcpy(to, from, qMin(mem_jt9->size(), size)); QFile lockFile(m_appDir + "/.lock"); // Allow jt9 to start lockFile.remove(); decodeBusy(true); } void MainWindow::jt9_error() //jt9_error { if(!m_killAll) { msgBox("Error starting or running\n" + m_appDir + "/jt9 -s"); exit(1); } } void MainWindow::readFromStderr() //readFromStderr { QByteArray t=proc_jt9.readAllStandardError(); msgBox(t); } void MainWindow::readFromStdout() //readFromStdout { while(proc_jt9.canReadLine()) { QByteArray t=proc_jt9.readLine(); if(t.indexOf("") >= 0) { m_bdecoded = (t.mid(23,1).toInt()==1); bool keepFile=m_saveAll or (m_saveDecoded and m_bdecoded); if(!keepFile and !m_diskData) killFileTimer->start(45*1000); //Kill in 45 s jt9com_.nagain=0; jt9com_.ndiskdat=0; QFile lockFile(m_appDir + "/.lock"); lockFile.open(QIODevice::ReadWrite); ui->DecodeButton->setStyleSheet(""); decodeBusy(false); m_RxLog=0; m_startAnother=m_loopall; m_blankLine=true; return; } else { QFile f("ALL.TXT"); f.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append); QTextStream out(&f); if(m_RxLog && 1) { out << QDateTime::currentDateTimeUtc().toString("yyyy-MMM-dd hh:mm") << " " << m_dialFreq << " MHz " << m_mode << endl; m_RxLog=0; } int n=t.length(); out << t.mid(0,n-2) << endl; f.close(); QTextCursor cursor; QTextBlockFormat bf; if(m_insertBlank and m_blankLine and jt9com_.nagain==0) { QString bg="#d3d3d3"; bf.setBackground(QBrush(QColor(bg))); QString tt="----------------------------------------"; QString s = "
" + tt + "
"; cursor = ui->decodedTextBrowser->textCursor(); cursor.movePosition(QTextCursor::End); bf = cursor.blockFormat(); bf.setBackground(QBrush(QColor(bg))); cursor.insertHtml(s); m_blankLine=false; } QString bg="white"; if(t.indexOf(" CQ ")>0) bg="#66ff66"; //green if(m_myCall!="" and t.indexOf(" "+m_myCall+" ")>0) bg="#ff6666"; //red bool bQSO=abs(t.mid(14,4).toInt() - g_pWideGraph->rxFreq()) <= 10; QString t1=t.replace("\n","").mid(0,t.length()-4); QString s = "
" + t1 + "
"; bool b65=t1.indexOf("#")==19; if(bQSO) { cursor = ui->decodedTextBrowser2->textCursor(); cursor.movePosition(QTextCursor::End); bf = cursor.blockFormat(); bf.setBackground(QBrush(QColor(bg))); cursor.insertHtml(s); ui->decodedTextBrowser2->setTextCursor(cursor); m_QSOmsg=t1; if(b65 and m_modeTx!="JT65") on_pbTxMode_clicked(); if(!b65 and m_modeTx=="JT65") on_pbTxMode_clicked(); } if(jt9com_.nagain==0) { if(t.indexOf(" CQ ")>0) bg="#66ff66"; //green if(m_myCall!="" and t.indexOf(" "+m_myCall+" ")>0) bg="#ff6666"; //red QString s = "
" + t1 + "
"; cursor = ui->decodedTextBrowser->textCursor(); cursor.movePosition(QTextCursor::End); bf = cursor.blockFormat(); bf.setBackground(QBrush(QColor(bg))); cursor.insertHtml(s); ui->decodedTextBrowser->setTextCursor(cursor); } QString msg=t.mid(21); int i1=msg.indexOf("\r"); if(i1>0) msg=msg.mid(0,i1-1) + " "; bool b=stdmsg_(msg.mid(0,22).toLatin1().constData(),22); QStringList w=msg.split(" ",QString::SkipEmptyParts); if(b and w[0]==m_myCall) { QString tt=""; if(w.length()>=3) tt=w[2]; bool ok; i1=tt.toInt(&ok); if(ok and i1>=-50 and i1<50) { m_rptRcvd=tt; } else { if(tt.mid(0,1)=="R") { i1=tt.mid(1).toInt(&ok); if(ok and i1>=-50 and i1<50) { m_rptRcvd=tt.mid(1); } } } } int nsec=QDateTime::currentMSecsSinceEpoch()/1000-m_secBandChanged; bool okToPost=(nsec>50); QString msgmode="JT9"; if(b65) msgmode="JT65"; i1=msg.indexOf(" "); QString c2=msg.mid(i1+1); int i2=c2.indexOf(" "); QString g2=c2.mid(i2+1,4); c2=c2.mid(0,i2); QString remote="call," + c2 + ","; if(gridOK(g2)) remote += "gridsquare," + g2 + ","; int nHz=t.mid(14,4).toInt(); uint nfreq=1000000.0*m_dialFreq + nHz + 0.5; remote += "freq," + QString::number(nfreq); int nsnr=t.mid(5,3).toInt(); remote += ",mode," + msgmode + ",snr," + QString::number(nsnr) + ",,"; wchar_t tremote[256]; remote.toWCharArray(tremote); #ifdef WIN32 if(m_pskReporterInit and b and !m_diskData and okToPost) { QString local="station_callsign#" + m_myCall + "#" + "my_gridsquare#" + m_myGrid + "#"; if(m_pskAntenna!="") local += "my_antenna#" + m_pskAntenna + "#"; local += "programid#WSJT-X#programversion#" + rev.mid(6,4) + "##"; wchar_t tlocal[256]; local.toWCharArray(tlocal); int flags=REPORTER_SOURCE_AUTOMATIC; rc=ReporterSeenCallsign(tremote,tlocal,flags); if(rc!=0) { ReporterGetInformation(buffer,256); } rc=ReporterTickle(); if(rc!=0) { rc=ReporterGetInformation(buffer,256); } } #else if(m_pskReporter and b and !m_diskData and okToPost) { QString freq = QString::number(nfreq); QString snr= QString::number(nsnr); if(gridOK(g2)) { psk_Reporter->addRemoteStation(c2,g2,freq,msgmode,snr, QString::number(QDateTime::currentDateTime().toTime_t())); } } #endif } } } void MainWindow::killFile() { if(m_fname==m_fileToSave) { } else { QFile savedFile(m_fname); savedFile.remove(); } } void MainWindow::on_EraseButton_clicked() //Erase { qint64 ms=QDateTime::currentMSecsSinceEpoch(); ui->decodedTextBrowser2->clear(); m_QSOmsg=""; if((ms-m_msErase)<500) { ui->decodedTextBrowser->clear(); QFile f(m_appDir + "/decoded.txt"); if(f.exists()) f.remove(); } m_msErase=ms; } void MainWindow::decodeBusy(bool b) //decodeBusy() { m_decoderBusy=b; ui->DecodeButton->setEnabled(!b); ui->actionOpen->setEnabled(!b); ui->actionOpen_next_in_directory->setEnabled(!b); ui->actionDecode_remaining_files_in_directory->setEnabled(!b); } //------------------------------------------------------------- //guiUpdate() void MainWindow::guiUpdate() { static int iptt0=0; static bool btxok0=false; static char message[29]; static char msgsent[29]; static int nsendingsh=0; static int giptt00=-1; static int gcomport00=-1; static double onAirFreq0=0.0; int ret=0; QString rt; double tx1=0.0; double tx2=1.0 + 85.0*m_nsps/12000.0 + icw[0]*2560.0/48000.0; if(m_modeTx=="JT65") tx2=1.0 + 126*4096/11025.0 + icw[0]*2560.0/48000.0; if(!m_txFirst) { tx1 += m_TRperiod; tx2 += m_TRperiod; } qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000; int nsec=ms/1000; double tsec=0.001*ms; double t2p=fmod(tsec,2*m_TRperiod); bool bTxTime = ((t2p >= tx1) and (t2p < tx2)) or m_tune; if(m_auto or m_tune) { QFile f("txboth"); if(f.exists() and fmod(tsec,m_TRperiod) < (1.0 + 85.0*m_nsps/12000.0)) { bTxTime=true; } double onAirFreq=m_dialFreq+1.e-6*m_txFreq; if(onAirFreq>10.139900 and onAirFreq<10.140320) { bTxTime=false; if(m_tune) on_tuneButton_clicked(); if(onAirFreq!=onAirFreq0) { onAirFreq0=onAirFreq; on_autoButton_clicked(); QString t="Please choose another Tx frequency.\n"; t+="WSJT-X will not knowingly transmit\n"; t+="in the WSPR sub-band on 30 m."; msgBox0.setText(t); msgBox0.show(); } } float fTR=float((nsec%m_TRperiod))/m_TRperiod; if(g_iptt==0 and ((bTxTime and !btxMute and fTR<0.4) or m_tune )) { icw[0]=m_ncw; //Raise PTT if(m_catEnabled and m_bRigOpen and m_pttMethodIndex==0) { g_iptt=1; if(m_pttData) ret=rig->setPTT(RIG_PTT_ON_DATA, RIG_VFO_CURR); if(!m_pttData) ret=rig->setPTT(RIG_PTT_ON_MIC, RIG_VFO_CURR); if(ret!=RIG_OK) { rt.sprintf("CAT control PTT failed: %d",ret); msgBox(rt); } } if(m_pttMethodIndex==1 or m_pttMethodIndex==2) { //DTR or RTS ptt(m_pttPort,1,&g_iptt,&g_COMportOpen); } if(m_pttMethodIndex==3) { //VOX g_iptt=1; } ptt1Timer->start(200); //Sequencer delay } if(!bTxTime || btxMute) { btxok=false; } } // Calculate Tx tones when needed if((g_iptt==1 && iptt0==0) || m_restart) { QByteArray ba; if(m_ntx == 1) ba=ui->tx1->text().toLocal8Bit(); if(m_ntx == 2) ba=ui->tx2->text().toLocal8Bit(); if(m_ntx == 3) ba=ui->tx3->text().toLocal8Bit(); if(m_ntx == 4) ba=ui->tx4->text().toLocal8Bit(); if(m_ntx == 5) ba=ui->tx5->text().toLocal8Bit(); if(m_ntx == 6) ba=ui->tx6->text().toLocal8Bit(); if(m_ntx == 7) ba=ui->genMsg->text().toLocal8Bit(); if(m_ntx == 8) ba=ui->freeTextMsg->text().toLocal8Bit(); ba2msg(ba,message); // ba2msg(ba,msgsent); int len1=22; int ichk=0,itext=0; if(m_modeTx=="JT9") genjt9_(message,&ichk,msgsent,itone,&itext,len1,len1); if(m_modeTx=="JT65") gen65_(message,&ichk,msgsent,itone,&itext,len1,len1); msgsent[22]=0; QString t=QString::fromLatin1(msgsent); if(m_tune) t="TUNE"; lab2->setText("Last Tx: " + t); if(m_restart) { QFile f("ALL.TXT"); f.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append); QTextStream out(&f); out << QDateTime::currentDateTimeUtc().toString("hhmm") << " Transmitting " << m_dialFreq << " MHz " << m_modeTx << ": " << t << endl; f.close(); if(m_tx2QSO) displayTxMsg(t); } QStringList w=t.split(" ",QString::SkipEmptyParts); t=""; if(w.length()==3) t=w[2]; icw[0]=0; m_sent73=(t=="73" or itext!=0); if(m_sent73) { if(m_After73) icw[0]=m_ncw; if(m_promptToLog and !m_tune) logQSOTimer->start(200); } if(m_idInt>0) { int nmin=(m_sec0-m_secID)/60; if(nmin >= m_idInt) { icw[0]=m_ncw; m_secID=m_sec0; } } QString t2=QDateTime::currentDateTimeUtc().toString("hhmm"); if(itext==0 and w.length()>=3 and w[1]==m_myCall) { int i1; bool ok; i1=t.toInt(&ok); if(ok and i1>=-50 and i1<50) { m_rptSent=t; m_qsoStart=t2; } else { if(t.mid(0,1)=="R") { i1=t.mid(1).toInt(&ok); if(ok and i1>=-50 and i1<50) { m_rptSent=t.mid(1); m_qsoStart=t2; } } } } if(itext==1 or (w.length()==3 and w[2]=="73")) m_qsoStop=t2; m_restart=false; } // If PTT was just raised, start a countdown for raising TxOK: // NB: could be better implemented with a timer if(g_iptt == 1 && iptt0 == 0) { nc1=-9; // TxDelay = 0.8 s } if(nc1 <= 0) { nc1++; } if(nc1 == 0) { QString t=QString::fromLatin1(msgsent); if(t==m_msgSent0) { m_repeatMsg++; } else { m_repeatMsg=0; m_msgSent0=t; } signalMeter->setValue(0); m_monitoring=false; soundInThread.setMonitoring(false); btxok=true; m_transmitting=true; ui->pbTxMode->setEnabled(false); if(!m_tune) { QFile f("ALL.TXT"); f.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append); QTextStream out(&f); out << QDateTime::currentDateTimeUtc().toString("hhmm") << " Transmitting " << m_dialFreq << " MHz " << m_modeTx << ": " << t << endl; f.close(); } if(m_tx2QSO and !m_tune) displayTxMsg(t); } if(!btxok && btxok0 && g_iptt==1) stopTx(); /* // If btxok was just lowered, start a countdown for lowering PTT if(!btxok && btxok0 && g_iptt==1) nc0=-11; //RxDelay = 1.0 s if(nc0 <= 0) { nc0++; } */ if(m_monitoring) { ui->monitorButton->setStyleSheet(m_pbmonitor_style); } else { ui->monitorButton->setStyleSheet(""); } if(m_startAnother) { m_startAnother=false; on_actionOpen_next_in_directory_triggered(); } if(m_catEnabled and !m_bRigOpen) { rigOpen(); } if(nsec != m_sec0) { //Once per second QDateTime t = QDateTime::currentDateTimeUtc(); if(m_transmitting) { if(nsendingsh==1) { lab1->setStyleSheet("QLabel{background-color: #66ffff}"); } else if(nsendingsh==-1) { lab1->setStyleSheet("QLabel{background-color: #ffccff}"); } else { lab1->setStyleSheet("QLabel{background-color: #ffff33}"); } if(m_tune) { lab1->setText("Tx: TUNE"); } else { char s[37]; sprintf(s,"Tx: %s",msgsent); lab1->setText(s); } } else if(m_monitoring) { lab1->setStyleSheet("QLabel{background-color: #00ff00}"); lab1->setText("Receiving "); } else if (!m_diskData) { lab1->setStyleSheet(""); lab1->setText(""); } m_setftx=0; QString utc = t.date().toString("yyyy MMM dd") + "\n " + t.time().toString() + " "; ui->labUTC->setText(utc); if(!m_monitoring and !m_diskData) { signalMeter->setValue(0); } if(m_catEnabled and m_poll>0 and (nsec%m_poll)==0 and !m_decoderBusy) { double fMHz; if(m_dontReadFreq) { m_dontReadFreq=false; } else if(!m_transmitting) { for(int iter=0; iter<3; iter++) { fMHz=rig->getFreq(RIG_VFO_CURR)/1000000.0; if(fMHz<0.0 and iter>=2) { rt.sprintf("Rig control error %d\nFailed to read frequency.", int(1000000.0*fMHz)); msgBox(rt); m_catEnabled=false; ui->readFreq->setStyleSheet("QPushButton{background-color: red; \ border-width: 0px; border-radius: 5px;}"); } } int ndiff=1000000.0*(fMHz-m_dialFreq); if(ndiff!=0) dialFreqChanged2(fMHz); } } m_sec0=nsec; } if(g_iptt!=giptt00 or g_COMportOpen!=gcomport00) { giptt00=g_iptt; gcomport00=g_COMportOpen; } iptt0=g_iptt; btxok0=btxok; } //End of GUIupdate void MainWindow::displayTxMsg(QString t) { QString bg="yellow"; QTextBlockFormat bf; QTextCursor cursor; QString t1=" @ "; if(m_modeTx=="JT65") t1=" # "; QString t2; t2.sprintf("%4d",m_txFreq); t=QDateTime::currentDateTimeUtc().toString("hhmm") + \ " Tx " + t2 + t1 + t; QString s = "
" + t + "
"; cursor = ui->decodedTextBrowser2->textCursor(); cursor.movePosition(QTextCursor::End); bf = cursor.blockFormat(); bf.setBackground(QBrush(QColor(bg))); cursor.insertHtml(s); ui->decodedTextBrowser2->setTextCursor(cursor); } void MainWindow::startTx2() { if(!soundOutThread.isRunning()) { QString t=ui->tx6->text(); double snr=t.mid(1,5).toDouble(); if(snr>0.0 or snr < -50.0) snr=99.0; soundOutThread.setTxSNR(snr); soundOutThread.m_modeTx=m_modeTx; soundOutThread.start(QThread::HighestPriority); signalMeter->setValue(0); m_monitoring=false; soundInThread.setMonitoring(false); btxok=true; m_transmitting=true; ui->pbTxMode->setEnabled(false); } } void MainWindow::stopTx() { if (soundOutThread.isRunning()) { soundOutThread.quitExecution=true; soundOutThread.wait(3000); } m_transmitting=false; ui->pbTxMode->setEnabled(true); g_iptt=0; lab1->setStyleSheet(""); lab1->setText(""); ptt0Timer->start(200); //Sequencer delay m_monitoring=true; soundInThread.setMonitoring(true); } void MainWindow::stopTx2() { int ret=0; QString rt; //Lower PTT if(m_catEnabled and m_bRigOpen and m_pttMethodIndex==0) { ret=rig->setPTT(RIG_PTT_OFF, RIG_VFO_CURR); //CAT control for PTT=0 if(ret!=RIG_OK) { rt.sprintf("CAT control PTT failed: %d",ret); msgBox(rt); } } if(m_pttMethodIndex==1 or m_pttMethodIndex==2) { ptt(m_pttPort,0,&g_iptt,&g_COMportOpen); } if(m_73TxDisable and m_sent73) on_stopTxButton_clicked(); if(m_runaway and m_repeatMsg>m_watchdogLimit) { on_stopTxButton_clicked(); msgBox0.setText("Runaway Tx watchdog"); msgBox0.show(); m_repeatMsg=0; } } void MainWindow::ba2msg(QByteArray ba, char message[]) //ba2msg() { int iz=ba.length(); for(int i=0;i<22; i++) { if(itxrb1->setChecked(true); m_restart=true; } void MainWindow::on_txb2_clicked() //txb2 { m_ntx=2; ui->txrb2->setChecked(true); m_restart=true; } void MainWindow::on_txb3_clicked() //txb3 { m_ntx=3; ui->txrb3->setChecked(true); m_restart=true; } void MainWindow::on_txb4_clicked() //txb4 { m_ntx=4; ui->txrb4->setChecked(true); m_restart=true; } void MainWindow::on_txb5_clicked() //txb5 { m_ntx=5; ui->txrb5->setChecked(true); m_restart=true; } void MainWindow::on_txb6_clicked() //txb6 { m_ntx=6; ui->txrb6->setChecked(true); m_restart=true; } void MainWindow::doubleClickOnCall2(bool shift, bool ctrl) { m_decodedText2=true; doubleClickOnCall(shift,ctrl); m_decodedText2=false; } void MainWindow::doubleClickOnCall(bool shift, bool ctrl) { QTextCursor cursor; if(!m_decodedText2) cursor=ui->decodedTextBrowser2->textCursor(); if(m_decodedText2) cursor=ui->decodedTextBrowser->textCursor(); cursor.select(QTextCursor::LineUnderCursor); int i2=cursor.position(); if(shift and i2==-9999) return; //Silence compiler warning QString t; if(!m_decodedText2) t= ui->decodedTextBrowser2->toPlainText(); //Full contents if(m_decodedText2) t= ui->decodedTextBrowser->toPlainText(); QString t1 = t.mid(0,i2); //contents up to \n on selected line int i1=t1.lastIndexOf("\n") + 1; //points to first char of line QString t2 = t1.mid(i1,i2-i1); //selected line // if(t2.indexOf("Tx")==6) return; //Ignore Tx line int i4=t.mid(i1).length(); if(i4>55) i4=55; QString t3=t.mid(i1,i4); int i5=t3.indexOf(" CQ DX "); if(i5>0) t3=t3.mid(0,i5+3) + "_" + t3.mid(i5+4); //Make it "CQ_DX" (one word) QStringList t4=t3.split(" ",QString::SkipEmptyParts); if(t4.length() <5) return; //Skip the rest if no decoded text int i9=m_QSOmsg.indexOf(t2); if(i9<0 and t2.indexOf("Tx")==-1) { QString bg="white"; if(t2.indexOf(" CQ ")>0) bg="#66ff66"; //green if(m_myCall!="" and t2.indexOf(" "+m_myCall+" ")>0) bg="#ff6666"; //red QTextBlockFormat bf; QString s = "
" + t2 + "
"; cursor = ui->decodedTextBrowser2->textCursor(); cursor.movePosition(QTextCursor::End); bf = cursor.blockFormat(); bf.setBackground(QBrush(QColor(bg))); cursor.insertHtml(s); ui->decodedTextBrowser2->setTextCursor(cursor); m_QSOmsg=t2; } int nfreq=t4.at(3).toInt(); if(t4.at(1)=="Tx") nfreq=t4.at(2).toInt(); g_pWideGraph->setRxFreq(nfreq); //Set Rx freq if(t4.at(1)=="Tx") { if(ctrl) ui->TxFreqSpinBox->setValue(nfreq); //Set Tx freq return; } if(t4.at(4)=="@") { m_modeTx="JT9"; ui->pbTxMode->setText("Tx JT9 @"); g_pWideGraph->setModeTx(m_modeTx); } if(t4.at(4)=="#") { m_modeTx="JT65"; ui->pbTxMode->setText("Tx JT65 #"); g_pWideGraph->setModeTx(m_modeTx); } QString firstcall=t4.at(5); // Don't change Tx freq if a station is calling me, unless m_lockTxFreq // is true or CTRL is held down or if((firstcall!=m_myCall) or m_lockTxFreq or ctrl) { ui->TxFreqSpinBox->setValue(nfreq); } QString hiscall=t4.at(6); QString hisgrid=""; if(t4.length()>=8) hisgrid=t4.at(7); if(hiscall!=ui->dxCallEntry->text()) ui->dxGridEntry->setText(""); ui->dxCallEntry->setText(hiscall); if(gridOK(hisgrid)) ui->dxGridEntry->setText(hisgrid); if(ui->dxGridEntry->text()=="") lookup(); m_hisGrid=ui->dxGridEntry->text(); int n = 60*t2.mid(0,2).toInt() + t2.mid(2,2).toInt(); int nmod=n%(m_TRperiod/30); m_txFirst=(nmod!=0); ui->txFirstCheckBox->setChecked(m_txFirst); QString rpt=t4.at(1); if(rpt.indexOf(" ")==0) rpt="+" + rpt.mid(2,2); if(rpt.indexOf(" -")==0) rpt=rpt.mid(1,2); if(rpt.indexOf(" ")==0) rpt="+" + rpt.mid(1,2); int nr=rpt.toInt(); if(nr<-50) rpt="-50"; if(nr>49) rpt="+49"; if(nr>=-9 and nr<=-1) rpt="-0" + rpt.mid(1); if(nr>=0 and nr<=9) rpt="+0" + rpt; if(nr>=10) rpt="+" + rpt; ui->rptSpinBox->setValue(rpt.toInt()); genStdMsgs(rpt); if(t2.indexOf(m_myCall)>=0) { if(t4.length()>=7 and !gridOK(t4.at(7))) { QString r=t4.at(7); if(r.mid(0,3)=="RRR") { m_ntx=5; ui->txrb5->setChecked(true); if(ui->tabWidget->currentIndex()==1) { ui->genMsg->setText(ui->tx5->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); } } else if(r.mid(0,1)=="R") { m_ntx=4; ui->txrb4->setChecked(true); if(ui->tabWidget->currentIndex()==1) { ui->genMsg->setText(ui->tx4->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); } } else if(r.toInt()>=-50 and r.toInt()<=49) { m_ntx=3; ui->txrb3->setChecked(true); if(ui->tabWidget->currentIndex()==1) { ui->genMsg->setText(ui->tx3->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); } } else if(r.toInt()==73) { m_ntx=5; ui->txrb5->setChecked(true); if(ui->tabWidget->currentIndex()==1) { ui->genMsg->setText(ui->tx5->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); } } } else { m_ntx=2; ui->txrb2->setChecked(true); if(ui->tabWidget->currentIndex()==1) { ui->genMsg->setText(ui->tx2->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); } } } else { m_ntx=1; ui->txrb1->setChecked(true); if(ui->tabWidget->currentIndex()==1) { ui->genMsg->setText(ui->tx1->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); } } if(m_quickCall) { m_auto=true; ui->autoButton->setStyleSheet(m_pbAutoOn_style); } } void MainWindow::genStdMsgs(QString rpt) //genStdMsgs() { QString t; QString hisCall=ui->dxCallEntry->text().toUpper().trimmed(); ui->dxCallEntry->setText(hisCall); if(hisCall=="") { ui->labAz->setText(""); ui->labDist->setText(""); ui->tx1->setText(""); ui->tx2->setText(""); ui->tx3->setText(""); ui->tx4->setText(""); ui->tx5->setText(""); ui->tx6->setText(""); if(m_myCall!="" and m_myGrid!="") { t="CQ " + m_myCall + " " + m_myGrid.mid(0,4); msgtype(t, ui->tx6); } ui->genMsg->setText(""); ui->freeTextMsg->setText(""); return; } QString hisBase=baseCall(hisCall); QString myBase=baseCall(m_myCall); QString t0=hisBase + " " + myBase + " "; t=t0 + m_myGrid.mid(0,4); if(myBase!=m_myCall) t="DE " + m_myCall + " " + m_myGrid.mid(0,4); msgtype(t, ui->tx1); if(rpt == "") { t=t+" OOO"; msgtype(t, ui->tx2); msgtype("RO", ui->tx3); msgtype("RRR", ui->tx4); msgtype("73", ui->tx5); } else { t=t0 + rpt; msgtype(t, ui->tx2); t=t0 + "R" + rpt; msgtype(t, ui->tx3); t=t0 + "RRR"; msgtype(t, ui->tx4); t=t0 + "73"; if(myBase!=m_myCall) t="DE " + m_myCall + " 73"; msgtype(t, ui->tx5); } t="CQ " + m_myCall + " " + m_myGrid.mid(0,4); msgtype(t, ui->tx6); m_ntx=1; ui->txrb1->setChecked(true); m_rpt=rpt; } QString MainWindow::baseCall(QString t) { int n1=t.indexOf("/"); if(n1<0) return t; int n2=t.length()-n1-1; if(n2>=n1) return t.mid(n1+1); return t.mid(0,n1); } void MainWindow::lookup() //lookup() { QString hisCall=ui->dxCallEntry->text().toUpper().trimmed(); ui->dxCallEntry->setText(hisCall); QString call3File = m_appDir + "/CALL3.TXT"; QFile f(call3File); if(!f.open(QIODevice::ReadOnly | QIODevice::Text)) { msgBox("Cannot open " + call3File); return; } char c[132]; qint64 n=0; for(int i=0; i<999999; i++) { n=f.readLine(c,sizeof(c)); if(n <= 0) { ui->dxGridEntry->setText(""); break; } QString t=QString(c); if(t.indexOf(hisCall)==0) { int i1=t.indexOf(","); QString hisgrid=t.mid(i1+1,6); i1=hisgrid.indexOf(","); if(i1>0) { hisgrid=hisgrid.mid(0,4); } else { hisgrid=hisgrid.mid(0,4) + hisgrid.mid(4,2).toLower(); } ui->dxGridEntry->setText(hisgrid); break; } } f.close(); } void MainWindow::on_lookupButton_clicked() //Lookup button { lookup(); } void MainWindow::on_addButton_clicked() //Add button { if(ui->dxGridEntry->text()=="") { msgBox("Please enter a valid grid locator."); return; } m_call3Modified=false; QString hisCall=ui->dxCallEntry->text().toUpper().trimmed(); QString hisgrid=ui->dxGridEntry->text().trimmed(); QString newEntry=hisCall + "," + hisgrid; // int ret = QMessageBox::warning(this, "Add", // newEntry + "\n" + "Is this station known to be active on EME?", // QMessageBox::Yes | QMessageBox::No, QMessageBox::Yes); // if(ret==QMessageBox::Yes) { // newEntry += ",EME,,"; // } else { newEntry += ",,,"; // } QString call3File = m_appDir + "/CALL3.TXT"; QFile f1(call3File); if(!f1.open(QIODevice::ReadOnly | QIODevice::Text)) { msgBox("Cannot open " + call3File); return; } if(f1.size()==0) { f1.close(); f1.open(QIODevice::WriteOnly | QIODevice::Text); QTextStream out(&f1); out << "ZZZZZZ" << endl; f1.close(); f1.open(QIODevice::ReadOnly | QIODevice::Text); } QString tmpFile = m_appDir + "/CALL3.TMP"; QFile f2(tmpFile); if(!f2.open(QIODevice::WriteOnly | QIODevice::Text)) { msgBox("Cannot open " + tmpFile); return; } QTextStream in(&f1); QTextStream out(&f2); QString hc=hisCall; QString hc1=""; QString hc2="AAAAAA"; QString s; do { s=in.readLine(); hc1=hc2; if(s.mid(0,2)=="//") { out << s + "\n"; } else { int i1=s.indexOf(","); hc2=s.mid(0,i1); if(hc>hc1 && hchc1 && !m_call3Modified) { out << newEntry + "\n"; } if(m_call3Modified) { QFile f0(m_appDir + "/CALL3.OLD"); if(f0.exists()) f0.remove(); QFile f1(m_appDir + "/CALL3.TXT"); f1.rename(m_appDir + "/CALL3.OLD"); f2.rename(m_appDir + "/CALL3.TXT"); f2.close(); } } void MainWindow::msgtype(QString t, QLineEdit* tx) //msgtype() { char message[23]; char msgsent[23]; int len1=22; t=t.toUpper(); QByteArray s=t.toUpper().toLocal8Bit(); ba2msg(s,message); int ichk=1,itext=0; genjt9_(message,&ichk,msgsent,itone,&itext,len1,len1); msgsent[22]=0; bool text=false; if(itext!=0) text=true; QString t1; t1.fromLatin1(msgsent); if(text) t1=t1.mid(0,13); QPalette p(tx->palette()); if(text) { p.setColor(QPalette::Base,"#ffccff"); } else { p.setColor(QPalette::Base,Qt::white); } tx->setPalette(p); int len=t.length(); if(text) { len=qMin(len,13); tx->setText(t.mid(0,len).toUpper()); } else { tx->setText(t); } } void MainWindow::on_tx1_editingFinished() //tx1 edited { QString t=ui->tx1->text(); msgtype(t, ui->tx1); } void MainWindow::on_tx2_editingFinished() //tx2 edited { QString t=ui->tx2->text(); msgtype(t, ui->tx2); } void MainWindow::on_tx3_editingFinished() //tx3 edited { QString t=ui->tx3->text(); msgtype(t, ui->tx3); } void MainWindow::on_tx4_editingFinished() //tx4 edited { QString t=ui->tx4->text(); msgtype(t, ui->tx4); } void MainWindow::on_tx5_editingFinished() //tx5 edited { QString t=ui->tx5->text(); msgtype(t, ui->tx5); } void MainWindow::on_tx6_editingFinished() //tx6 edited { QString t=ui->tx6->text(); msgtype(t, ui->tx6); double snr=t.mid(1,5).toDouble(); if(snr>0.0 or snr < -50.0) snr=99.0; soundOutThread.setTxSNR(snr); } void MainWindow::on_dxCallEntry_textChanged(const QString &t) //dxCall changed { m_hisCall=t.toUpper().trimmed(); ui->dxCallEntry->setText(m_hisCall); statusChanged(); } void MainWindow::on_dxGridEntry_textChanged(const QString &t) //dxGrid changed { int n=t.length(); if(n!=4 and n!=6) { ui->labAz->setText(""); ui->labDist->setText(""); return; } if(!t[0].isLetter() or !t[1].isLetter()) return; if(!t[2].isDigit() or !t[3].isDigit()) return; if(n==4) m_hisGrid=t.mid(0,2).toUpper() + t.mid(2,2); if(n==6) m_hisGrid=t.mid(0,2).toUpper() + t.mid(2,2) + t.mid(4,2).toLower(); ui->dxGridEntry->setText(m_hisGrid); if(gridOK(m_hisGrid)) { qint64 nsec = QDateTime::currentMSecsSinceEpoch() % 86400; double utch=nsec/3600.0; int nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter; azdist_(m_myGrid.toLatin1().data(),m_hisGrid.toLatin1().data(),&utch, &nAz,&nEl,&nDmiles,&nDkm,&nHotAz,&nHotABetter,6,6); QString t; t.sprintf("Az: %d",nAz); ui->labAz->setText(t); if(m_bMiles) t.sprintf("%d mi",int(0.621371*nDkm)); if(!m_bMiles) t.sprintf("%d km",nDkm); ui->labDist->setText(t); } else { ui->labAz->setText(""); ui->labDist->setText(""); } } void MainWindow::on_genStdMsgsPushButton_clicked() //genStdMsgs button { genStdMsgs(m_rpt); } void MainWindow::on_logQSOButton_clicked() //Log QSO button { if(m_hisCall=="") return; m_dateTimeQSO=QDateTime::currentDateTimeUtc(); logDlg = new LogQSO(0); logDlg->m_saveTxPower=m_saveTxPower; logDlg->m_saveComments=m_saveComments; logDlg->m_txPower=m_txPower; logDlg->m_comments=m_logComments; logDlg->initLogQSO(m_hisCall,m_hisGrid,m_modeTx,m_rptSent,m_rptRcvd, m_dateTimeQSO,m_dialFreq+m_txFreq/1.0e6, m_myCall,m_myGrid,m_noSuffix,m_toRTTY,m_dBtoComments); connect(logDlg, SIGNAL(acceptQSO(bool)),this,SLOT(acceptQSO2(bool))); if(m_logQSOgeom != QRect(500,400,424,283)) logDlg->setGeometry(m_logQSOgeom); logDlg->show(); } void MainWindow::acceptQSO2(bool accepted) { if(accepted) { m_logQSOgeom=logDlg->geometry(); m_saveTxPower=logDlg->m_saveTxPower; m_saveComments=logDlg->m_saveComments; m_txPower=logDlg->m_txPower; m_logComments=logDlg->m_comments; if(m_clearCallGrid) { m_hisCall=""; ui->dxCallEntry->setText(""); m_hisGrid=""; ui->dxGridEntry->setText(""); m_rptSent=""; m_rptRcvd=""; m_qsoStart=""; m_qsoStop=""; } } } void MainWindow::on_actionJT9_1_triggered() { m_mode="JT9"; if(m_modeTx!="JT9") on_pbTxMode_clicked(); statusChanged(); m_TRperiod=60; m_nsps=6912; m_hsymStop=173; soundInThread.setPeriod(m_TRperiod,m_nsps); soundOutThread.setPeriod(m_TRperiod,m_nsps); lab3->setStyleSheet("QLabel{background-color: #ff6ec7}"); lab3->setText(m_mode); ui->actionJT9_1->setChecked(true); g_pWideGraph->setPeriod(m_TRperiod,m_nsps); g_pWideGraph->setMode(m_mode); g_pWideGraph->setModeTx(m_modeTx); ui->pbTxMode->setEnabled(false); } void MainWindow::on_actionJT65_triggered() { m_mode="JT65"; if(m_modeTx!="JT65") on_pbTxMode_clicked(); statusChanged(); m_TRperiod=60; m_nsps=6912; //For symspec only m_hsymStop=173; soundInThread.setPeriod(m_TRperiod,m_nsps); soundOutThread.setPeriod(m_TRperiod,m_nsps); lab3->setStyleSheet("QLabel{background-color: #ffff00}"); lab3->setText(m_mode); ui->actionJT65->setChecked(true); g_pWideGraph->setPeriod(m_TRperiod,m_nsps); g_pWideGraph->setMode(m_mode); g_pWideGraph->setModeTx(m_modeTx); ui->pbTxMode->setEnabled(false); } void MainWindow::on_actionJT9_JT65_triggered() { m_mode="JT9+JT65"; // if(m_modeTx!="JT9") on_pbTxMode_clicked(); statusChanged(); m_TRperiod=60; m_nsps=6912; m_hsymStop=173; soundInThread.setPeriod(m_TRperiod,m_nsps); soundOutThread.setPeriod(m_TRperiod,m_nsps); lab3->setStyleSheet("QLabel{background-color: #ffa500}"); lab3->setText(m_mode); ui->actionJT9_JT65->setChecked(true); g_pWideGraph->setPeriod(m_TRperiod,m_nsps); g_pWideGraph->setMode(m_mode); g_pWideGraph->setModeTx(m_modeTx); ui->pbTxMode->setEnabled(true); } void MainWindow::on_TxFreqSpinBox_valueChanged(int n) { m_txFreq=n; if(g_pWideGraph!=NULL) g_pWideGraph->setTxFreq(n); if(m_lockTxFreq) ui->RxFreqSpinBox->setValue(n); soundOutThread.setTxFreq(n); } void MainWindow::on_RxFreqSpinBox_valueChanged(int n) { m_rxFreq=n; if(g_pWideGraph!=NULL) g_pWideGraph->setRxFreq(n); if(m_lockTxFreq) ui->TxFreqSpinBox->setValue(n); } void MainWindow::on_actionQuickDecode_triggered() { m_ndepth=1; ui->actionQuickDecode->setChecked(true); } void MainWindow::on_actionMediumDecode_triggered() { m_ndepth=2; ui->actionMediumDecode->setChecked(true); } void MainWindow::on_actionDeepestDecode_triggered() { m_ndepth=3; ui->actionDeepestDecode->setChecked(true); } void MainWindow::on_inGain_valueChanged(int n) { m_inGain=n; } void MainWindow::on_actionMonitor_OFF_at_startup_triggered() { m_monitorStartOFF=!m_monitorStartOFF; } void MainWindow::on_actionErase_ALL_TXT_triggered() //Erase ALL.TXT { int ret = QMessageBox::warning(this, "Confirm Erase", "Are you sure you want to erase file ALL.TXT ?", QMessageBox::Yes | QMessageBox::No, QMessageBox::Yes); if(ret==QMessageBox::Yes) { QFile f("ALL.TXT"); f.remove(); m_RxLog=1; } } void MainWindow::on_actionErase_wsjtx_log_adi_triggered() { int ret = QMessageBox::warning(this, "Confirm Erase", "Are you sure you want to erase file wsjtx_log.adi ?", QMessageBox::Yes | QMessageBox::No, QMessageBox::Yes); if(ret==QMessageBox::Yes) { QFile f("wsjtx_log.adi"); f.remove(); } } void MainWindow::showMacros(const QPoint &pos) { if(m_macro.length()<10) return; QPoint globalPos = ui->tx5->mapToGlobal(pos); QMenu popupMenu; QAction* popup1 = new QAction(m_macro[0],ui->tx5); QAction* popup2 = new QAction(m_macro[1],ui->tx5); QAction* popup3 = new QAction(m_macro[2],ui->tx5); QAction* popup4 = new QAction(m_macro[3],ui->tx5); QAction* popup5 = new QAction(m_macro[4],ui->tx5); QAction* popup6 = new QAction(m_macro[5],ui->tx5); QAction* popup7 = new QAction(m_macro[6],ui->tx5); QAction* popup8 = new QAction(m_macro[7],ui->tx5); QAction* popup9 = new QAction(m_macro[8],ui->tx5); QAction* popup10 = new QAction(m_macro[9],ui->tx5); if(m_macro[0]!="") popupMenu.addAction(popup1); if(m_macro[1]!="") popupMenu.addAction(popup2); if(m_macro[2]!="") popupMenu.addAction(popup3); if(m_macro[3]!="") popupMenu.addAction(popup4); if(m_macro[4]!="") popupMenu.addAction(popup5); if(m_macro[5]!="") popupMenu.addAction(popup6); if(m_macro[6]!="") popupMenu.addAction(popup7); if(m_macro[7]!="") popupMenu.addAction(popup8); if(m_macro[8]!="") popupMenu.addAction(popup9); if(m_macro[9]!="") popupMenu.addAction(popup10); connect(popup1,SIGNAL(triggered()), this, SLOT(onPopup1())); connect(popup2,SIGNAL(triggered()), this, SLOT(onPopup2())); connect(popup3,SIGNAL(triggered()), this, SLOT(onPopup3())); connect(popup4,SIGNAL(triggered()), this, SLOT(onPopup4())); connect(popup5,SIGNAL(triggered()), this, SLOT(onPopup5())); connect(popup6,SIGNAL(triggered()), this, SLOT(onPopup6())); connect(popup7,SIGNAL(triggered()), this, SLOT(onPopup7())); connect(popup8,SIGNAL(triggered()), this, SLOT(onPopup8())); connect(popup9,SIGNAL(triggered()), this, SLOT(onPopup9())); connect(popup10,SIGNAL(triggered()), this, SLOT(onPopup10())); popupMenu.exec(globalPos); } void MainWindow::onPopup1() { ui->tx5->setText(m_macro[0]); freeText(); } void MainWindow::onPopup2() { ui->tx5->setText(m_macro[1]); freeText(); } void MainWindow::onPopup3() { ui->tx5->setText(m_macro[2]); freeText(); } void MainWindow::onPopup4() { ui->tx5->setText(m_macro[3]); freeText(); } void MainWindow::onPopup5() { ui->tx5->setText(m_macro[4]); freeText(); } void MainWindow::onPopup6() { ui->tx5->setText(m_macro[5]); freeText(); } void MainWindow::onPopup7() { ui->tx5->setText(m_macro[6]); freeText(); } void MainWindow::onPopup8() { ui->tx5->setText(m_macro[7]); freeText(); } void MainWindow::onPopup9() { ui->tx5->setText(m_macro[8]); freeText(); } void MainWindow::onPopup10() { ui->tx5->setText(m_macro[9]); freeText(); } void MainWindow::freeText() { ui->freeTextMsg->setText(ui->tx5->text()); } bool MainWindow::gridOK(QString g) { bool b=g.mid(0,1).compare("A")>=0 and g.mid(0,1).compare("R")<=0 and g.mid(1,1).compare("A")>=0 and g.mid(1,1).compare("R")<=0 and g.mid(2,1).compare("0")>=0 and g.mid(2,1).compare("9")<=0 and g.mid(3,1).compare("0")>=0 and g.mid(3,1).compare("9")<=0; return b; } void MainWindow::on_actionConvert_JT9_x_to_RTTY_triggered(bool checked) { m_toRTTY=checked; } void MainWindow::on_actionLog_JT9_without_submode_triggered(bool checked) { m_noSuffix=checked; } void MainWindow::on_actionLog_dB_reports_to_Comments_triggered(bool checked) { m_dBtoComments=checked; } void MainWindow::on_bandComboBox_activated(int index) { int ret=0; QString rt; m_band=index; QString t=m_dFreq[index]; m_dialFreq=t.toDouble(); if(m_plus2kHz) m_dialFreq+=0.002; dialFreqChanged2(m_dialFreq); m_repeatMsg=0; m_secBandChanged=QDateTime::currentMSecsSinceEpoch()/1000; if(m_catEnabled) { if(!m_bRigOpen) { rigOpen(); } if(m_bRigOpen) { m_dontReadFreq=true; ret=rig->setFreq(MHz(m_dialFreq)); if(m_bSplit or m_bXIT) setXIT(m_txFreq); if(g_pWideGraph!=NULL) { bumpFqso(11); bumpFqso(12); } if(ret!=RIG_OK) { rt.sprintf("Set rig frequency failed: %d",ret); msgBox(rt); } } } QFile f2("ALL.TXT"); f2.open(QIODevice::WriteOnly | QIODevice::Text | QIODevice::Append); QTextStream out(&f2); out << QDateTime::currentDateTimeUtc().toString("yyyy-MMM-dd hh:mm") << " " << m_dialFreq << " MHz " << m_mode << endl; f2.close(); } void MainWindow::on_actionPrompt_to_log_QSO_triggered(bool checked) { m_promptToLog=checked; } void MainWindow::on_actionBlank_line_between_decoding_periods_triggered(bool checked) { m_insertBlank=checked; } void MainWindow::on_actionClear_DX_Call_and_Grid_after_logging_triggered(bool checked) { m_clearCallGrid=checked; } void MainWindow::on_actionDisplay_distance_in_miles_triggered(bool checked) { m_bMiles=checked; on_dxGridEntry_textChanged(m_hisGrid); } void MainWindow::on_pbCallCQ_clicked() { genStdMsgs(m_rpt); ui->genMsg->setText(ui->tx6->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); if(m_transmitting) m_restart=true; } void MainWindow::on_pbAnswerCaller_clicked() { genStdMsgs(m_rpt); ui->genMsg->setText(ui->tx2->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); if(m_transmitting) m_restart=true; } void MainWindow::on_pbSendRRR_clicked() { genStdMsgs(m_rpt); ui->genMsg->setText(ui->tx4->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); if(m_transmitting) m_restart=true; } void MainWindow::on_pbAnswerCQ_clicked() { genStdMsgs(m_rpt); ui->genMsg->setText(ui->tx1->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); if(m_transmitting) m_restart=true; } void MainWindow::on_pbSendReport_clicked() { genStdMsgs(m_rpt); ui->genMsg->setText(ui->tx3->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); if(m_transmitting) m_restart=true; } void MainWindow::on_pbSend73_clicked() { genStdMsgs(m_rpt); ui->genMsg->setText(ui->tx5->text()); m_ntx=7; ui->rbGenMsg->setChecked(true); if(m_transmitting) m_restart=true; } void MainWindow::on_rbGenMsg_toggled(bool checked) { m_freeText=!checked; if(!m_freeText) { m_ntx=7; if(m_transmitting) m_restart=true; } } void MainWindow::on_rbFreeText_toggled(bool checked) { m_freeText=checked; if(m_freeText) { m_ntx=8; if (m_transmitting) m_restart=true; } } void MainWindow::on_freeTextMsg_editingFinished() { QString t=ui->freeTextMsg->text(); msgtype(t, ui->freeTextMsg); } void MainWindow::on_actionDouble_click_on_call_sets_Tx_Enable_triggered(bool checked) { m_quickCall=checked; } void MainWindow::on_rptSpinBox_valueChanged(int n) { m_rpt=QString::number(n); int ntx0=m_ntx; QString t=ui->tx5->text(); genStdMsgs(m_rpt); ui->tx5->setText(t); m_ntx=ntx0; if(m_ntx==1) ui->txrb1->setChecked(true); if(m_ntx==2) ui->txrb2->setChecked(true); if(m_ntx==3) ui->txrb3->setChecked(true); if(m_ntx==4) ui->txrb4->setChecked(true); if(m_ntx==5) ui->txrb5->setChecked(true); if(m_ntx==6) ui->txrb6->setChecked(true); statusChanged(); } void MainWindow::on_action_73TxDisable_triggered(bool checked) { m_73TxDisable=checked; } void MainWindow::on_actionRunaway_Tx_watchdog_triggered(bool checked) { m_runaway=checked; } void MainWindow::on_tuneButton_clicked() { if(m_tune) { nc1=1; //disable the countdown timer tuneButtonTimer->start(250); } else { m_tune=true; m_sent73=false; soundOutThread.setTune(m_tune); m_repeatMsg=0; ui->tuneButton->setStyleSheet(m_pbTune_style); } } void MainWindow::on_stopTxButton_clicked() //Stop Tx { if(m_tune) { m_tune=false; soundOutThread.setTune(m_tune); } if(m_auto) on_autoButton_clicked(); btxok=false; m_repeatMsg=0; ui->tuneButton->setStyleSheet(""); } void MainWindow::rigOpen() { QString t; int ret; rig = new Rig(); if(m_rig<9900) { if (!rig->init(m_rig)) { msgBox("Rig init failure"); return; } QString sCATport=m_catPort; #ifdef WIN32 sCATport="\\\\.\\" + m_catPort; //Allow COM ports above 9 #endif rig->setConf("rig_pathname", sCATport.toLatin1().data()); char buf[80]; sprintf(buf,"%d",m_serialRate); rig->setConf("serial_speed",buf); sprintf(buf,"%d",m_dataBits); rig->setConf("data_bits",buf); sprintf(buf,"%d",m_stopBits); rig->setConf("stop_bits",buf); rig->setConf("serial_handshake",m_handshake.toLatin1().data()); if(m_bDTRoff) { rig->setConf("rts_state","OFF"); rig->setConf("dtr_state","OFF"); } } ret=rig->open(m_rig); if(ret==RIG_OK) { m_bRigOpen=true; if(m_poll==0) ui->readFreq->setEnabled(true); m_CATerror=false; } else { t="Open rig failed"; msgBox(t); m_catEnabled=false; m_bRigOpen=false; m_CATerror=true; } if(m_bRigOpen) { if(m_poll>0) { ui->readFreq->setStyleSheet("QPushButton{background-color: #00ff00; \ border-width: 0px; border-radius: 5px;}"); } else { ui->readFreq->setStyleSheet("QPushButton{background-color: orange; \ border-width: 0px; border-radius: 5px;}"); } } else { if(m_CATerror) ui->readFreq->setStyleSheet("QPushButton{background-color: red; \ border-width: 0px; border-radius: 5px;}"); if(!m_CATerror) ui->readFreq->setStyleSheet(""); } } void MainWindow::on_actionAllow_multiple_instances_triggered(bool checked) { m_bMultipleOK=checked; } void MainWindow::on_pbR2T_clicked() { int n=g_pWideGraph->rxFreq(); ui->TxFreqSpinBox->setValue(n); } void MainWindow::on_pbT2R_clicked() { g_pWideGraph->setRxFreq(m_txFreq); } void MainWindow::on_readFreq_clicked() { if(m_transmitting) return; m_dontReadFreq=false; double fMHz=rig->getFreq(RIG_VFO_CURR)/1000000.0; if(fMHz<0.0) { QString rt; rt.sprintf("Rig control error %d\nFailed to read frequency.", int(1000000.0*fMHz)); msgBox(rt); m_catEnabled=false; } if(fMHz<0.01 or fMHz>1300.0) fMHz=0; int ndiff=1000000.0*(fMHz-m_dialFreq); if(ndiff!=0) dialFreqChanged2(fMHz); } void MainWindow::on_pbTxMode_clicked() { if(m_modeTx=="JT9") { m_modeTx="JT65"; ui->pbTxMode->setText("Tx JT65 #"); } else { m_modeTx="JT9"; ui->pbTxMode->setText("Tx JT9 @"); } g_pWideGraph->setModeTx(m_modeTx); statusChanged(); } void MainWindow::setXIT(int n) { int ret; int xit=0; if(m_bRigOpen) { xit=-1000; if(n>1000) xit=0; if(n>2000) xit=1000; if(n>3000) xit=2000; if(n>4000) xit=3000; if(m_bXIT) { ret=rig->setXit((shortfreq_t)xit,RIG_VFO_TX); if(ret!=RIG_OK) { QString rt; rt.sprintf("Setting RIG_VFO_TX failed: %d",ret); msgBox(rt); } } if(m_bSplit) { ret=rig->setSplitFreq(MHz(m_dialFreq)+xit,RIG_VFO_B); } } if(m_bSplit) soundOutThread.setXIT(xit); if(!m_bSplit) soundOutThread.setXIT(0); } void MainWindow::setFreq4(int rxFreq, int txFreq) { m_rxFreq=rxFreq; m_txFreq=txFreq; ui->RxFreqSpinBox->setValue(m_rxFreq); ui->TxFreqSpinBox->setValue(m_txFreq); } void MainWindow::on_cbTxLock_clicked(bool checked) { m_lockTxFreq=checked; g_pWideGraph->setLockTxFreq(m_lockTxFreq); if(m_lockTxFreq) on_pbR2T_clicked(); } void MainWindow::on_actionTx2QSO_triggered(bool checked) { m_tx2QSO=checked; } void MainWindow::on_cbPlus2kHz_toggled(bool checked) { m_plus2kHz=checked; on_bandComboBox_activated(m_band); } ./mainwindow.h0000664000175000017500000002564112172374464011734 0ustar jtnjtn#ifndef MAINWINDOW_H #define MAINWINDOW_H #ifdef QT5 #include #else #include #endif #include #include #include "soundin.h" #include "soundout.h" #include "commons.h" #include "psk_reporter.h" #include "rigclass.h" #include "signalmeter.h" #ifdef WIN32 #include "PSKReporter.h" #endif //--------------------------------------------------------------- MainWindow namespace Ui { class MainWindow; } class MainWindow : public QMainWindow { Q_OBJECT // Multiple instances: call MainWindow() with *thekey public: explicit MainWindow(QSharedMemory *shdmem, QString *thekey, QWidget *parent = 0); ~MainWindow(); public slots: void showSoundInError(const QString& errorMsg); void showStatusMessage(const QString& statusMsg); void dataSink(int k); void diskDat(); void diskWriteFinished(); void freezeDecode(int n); void guiUpdate(); void doubleClickOnCall(bool shift, bool ctrl); void doubleClickOnCall2(bool shift, bool ctrl); void readFromStdout(); void readFromStderr(); void jt9_error(); void setXIT(int n); void setFreq4(int rxFreq, int txFreq); protected: virtual void keyPressEvent( QKeyEvent *e ); void closeEvent(QCloseEvent*); virtual bool eventFilter(QObject *object, QEvent *event); private slots: void on_tx1_editingFinished(); void on_tx2_editingFinished(); void on_tx3_editingFinished(); void on_tx4_editingFinished(); void on_tx5_editingFinished(); void on_tx6_editingFinished(); void on_actionDeviceSetup_triggered(); void on_monitorButton_clicked(); void on_actionExit_triggered(); void on_actionAbout_triggered(); void OnExit(); void on_actionLinrad_triggered(); void on_actionCuteSDR_triggered(); void on_autoButton_clicked(); void on_stopTxButton_clicked(); void on_stopButton_clicked(); void on_actionOnline_Users_Guide_triggered(); void on_actionWide_Waterfall_triggered(); void on_actionOpen_triggered(); void on_actionOpen_next_in_directory_triggered(); void on_actionDecode_remaining_files_in_directory_triggered(); void on_actionDelete_all_wav_files_in_SaveDir_triggered(); void on_actionNone_triggered(); void on_actionSave_all_triggered(); void on_actionKeyboard_shortcuts_triggered(); void on_actionSpecial_mouse_commands_triggered(); void on_DecodeButton_clicked(); void decode(); void decodeBusy(bool b); void on_EraseButton_clicked(); void on_txb1_clicked(); void on_txFirstCheckBox_stateChanged(int arg1); void set_ntx(int n); void on_txb2_clicked(); void on_txb3_clicked(); void on_txb4_clicked(); void on_txb5_clicked(); void on_txb6_clicked(); void on_lookupButton_clicked(); void on_addButton_clicked(); void on_dxCallEntry_textChanged(const QString &arg1); void on_dxGridEntry_textChanged(const QString &arg1); void on_genStdMsgsPushButton_clicked(); void on_logQSOButton_clicked(); void on_actionAFMHot_triggered(); void on_actionBlue_triggered(); void on_actionJT9_1_triggered(); void on_actionJT65_triggered(); void on_actionJT9_JT65_triggered(); void on_TxFreqSpinBox_valueChanged(int arg1); void on_actionSave_decoded_triggered(); void on_actionQuickDecode_triggered(); void on_actionMediumDecode_triggered(); void on_actionDeepestDecode_triggered(); void on_inGain_valueChanged(int n); void bumpFqso(int n); void on_actionMonitor_OFF_at_startup_triggered(); void on_actionErase_ALL_TXT_triggered(); void on_actionErase_wsjtx_log_adi_triggered(); void showMacros(const QPoint& pos); void onPopup1(); void onPopup2(); void onPopup3(); void onPopup4(); void onPopup5(); void onPopup6(); void onPopup7(); void onPopup8(); void onPopup9(); void onPopup10(); void on_actionConvert_JT9_x_to_RTTY_triggered(bool checked); void on_actionLog_JT9_without_submode_triggered(bool checked); void on_actionLog_dB_reports_to_Comments_triggered(bool checked); void startTx2(); void stopTx(); void stopTx2(); void on_actionPrompt_to_log_QSO_triggered(bool checked); void on_actionBlank_line_between_decoding_periods_triggered(bool checked); void on_actionClear_DX_Call_and_Grid_after_logging_triggered(bool checked); void on_actionDisplay_distance_in_miles_triggered(bool checked); void on_pbCallCQ_clicked(); void on_pbAnswerCaller_clicked(); void on_pbSendRRR_clicked(); void on_pbAnswerCQ_clicked(); void on_pbSendReport_clicked(); void on_pbSend73_clicked(); void on_rbGenMsg_toggled(bool checked); void on_rbFreeText_toggled(bool checked); void on_freeTextMsg_editingFinished(); void on_actionDouble_click_on_call_sets_Tx_Enable_triggered(bool checked); void on_rptSpinBox_valueChanged(int n); void on_action_73TxDisable_triggered(bool checked); void on_actionRunaway_Tx_watchdog_triggered(bool checked); void killFile(); void on_tuneButton_clicked(); void on_actionAllow_multiple_instances_triggered(bool checked); void on_pbR2T_clicked(); void on_pbT2R_clicked(); void acceptQSO2(bool accepted); void on_bandComboBox_activated(int index); void on_readFreq_clicked(); void on_pbTxMode_clicked(); void on_RxFreqSpinBox_valueChanged(int n); void on_cbTxLock_clicked(bool checked); void on_actionTx2QSO_triggered(bool checked); void on_cbPlus2kHz_toggled(bool checked); private: Ui::MainWindow *ui; double m_dialFreq; qint64 m_msErase; qint64 m_secBandChanged; qint32 m_idInt; qint32 m_waterfallAvg; qint32 m_pttMethodIndex; qint32 m_ntx; qint32 m_pttPort; qint32 m_timeout; qint32 m_rxFreq; qint32 m_txFreq; qint32 m_setftx; qint32 m_ndepth; qint32 m_sec0; qint32 m_RxLog; qint32 m_nutc0; qint32 m_nrx; qint32 m_hsym; qint32 m_paInDevice; qint32 m_paOutDevice; qint32 m_TRperiod; qint32 m_nsps; qint32 m_hsymStop; qint32 m_len1; qint32 m_inGain; qint32 m_nsave; qint32 m_catPortIndex; qint32 m_rig; qint32 m_rigIndex; qint32 m_serialRate; qint32 m_serialRateIndex; qint32 m_dataBits; qint32 m_dataBitsIndex; qint32 m_stopBits; qint32 m_stopBitsIndex; qint32 m_handshakeIndex; qint32 m_ncw; qint32 m_secID; qint32 m_band; qint32 m_repeatMsg; qint32 m_watchdogLimit; qint32 m_poll; qint32 m_fMin; qint32 m_fMax; bool m_monitoring; bool m_transmitting; bool m_diskData; bool m_loopall; bool m_decoderBusy; bool m_txFirst; bool m_auto; bool m_restart; bool m_startAnother; bool m_saveDecoded; bool m_saveAll; bool m_widebandDecode; bool m_call3Modified; bool m_dataAvailable; bool m_killAll; bool m_bdecoded; bool m_monitorStartOFF; bool m_pskReporter; bool m_pskReporterInit; bool m_noSuffix; bool m_toRTTY; bool m_dBtoComments; bool m_catEnabled; bool m_After73; bool m_promptToLog; bool m_blankLine; bool m_insertBlank; bool m_clearCallGrid; bool m_bMiles; bool m_decodedText2; bool m_freeText; bool m_quickCall; bool m_73TxDisable; bool m_sent73; bool m_runaway; bool m_tune; bool m_bRigOpen; bool m_bMultipleOK; bool m_bDTRoff; bool m_pttData; bool m_dontReadFreq; bool m_lockTxFreq; bool m_saveTxPower; bool m_saveComments; bool m_tx2QSO; bool m_CATerror; bool m_bSplit; bool m_bXIT; bool m_plus2kHz; char m_decoded[80]; float m_pctZap; QRect m_wideGraphGeom; QRect m_logQSOgeom; QLabel* lab1; // labels in status bar QLabel* lab2; QLabel* lab3; QLabel* lab4; QLabel* lab5; QLabel* lab6; QMessageBox msgBox0; QFuture* future1; QFuture* future2; QFuture* future3; QFutureWatcher* watcher1; QFutureWatcher* watcher2; QFutureWatcher* watcher3; QProcess proc_jt9; QTimer* ptt1Timer; //StartTx delay QTimer* ptt0Timer; //StopTx delay QTimer* logQSOTimer; QTimer* killFileTimer; QTimer* tuneButtonTimer; QString m_path; QString m_pbdecoding_style1; QString m_pbmonitor_style; QString m_pbAutoOn_style; QString m_pbTune_style; QString m_myCall; QString m_myGrid; QString m_baseCall; QString m_hisCall; QString m_hisGrid; QString m_appDir; QString m_saveDir; QString m_dxccPfx; QString m_palette; QString m_dateTime; QString m_mode; QString m_modeTx; QString m_fname; QString m_rpt; QString m_rptSent; QString m_rptRcvd; QString m_qsoStart; QString m_qsoStop; QString m_catPort; QString m_handshake; QString m_cmnd; QString m_msgSent0; QString m_fileToSave; QString m_QSOmsg; QString m_txPower; QString m_logComments; QString m_pskAntenna; QStringList m_macro; QStringList m_dFreq; QDateTime m_dateTimeQSO; SoundInThread soundInThread; //Instantiate the audio threads SoundOutThread soundOutThread; QSharedMemory *mem_jt9; // Multiple instances: QString *mykey_jt9; PSK_Reporter *psk_Reporter; SignalMeter *signalMeter; //---------------------------------------------------- private functions void readSettings(); void writeSettings(); void createStatusBar(); void updateStatusBar(); void msgBox(QString t); void genStdMsgs(QString rpt); void lookup(); void ba2msg(QByteArray ba, char* message); void msgtype(QString t, QLineEdit* tx); void stub(); void statusChanged(); void dialFreqChanged2(double f); void freeText(); void displayTxMsg(QString t); void rigOpen(); bool gridOK(QString g); QString baseCall(QString t); }; extern void getfile(QString fname, int ntrperiod); extern void savewav(QString fname, int ntrperiod); extern int killbyname(const char* progName); extern void getDev(int* numDevices,char hostAPI_DeviceName[][50], int minChan[], int maxChan[], int minSpeed[], int maxSpeed[]); extern int ptt(int nport, int ntx, int* iptt, int* nopen); extern "C" { //----------------------------------------------------- C and Fortran routines void symspec_(int* k, int* ntrperiod, int* nsps, int* ingain, float* slope, float* px, float s[], float* df3, int* nhsym, int* npts8); void genjt9_(char* msg, int* ichk, char* msgsent, int itone[], int* itext, int len1, int len2); void gen65_(char* msg, int* ichk, char* msgsent, int itone[], int* itext, int len1, int len2); bool stdmsg_(const char* msg, int len); void azdist_(char* MyGrid, char* HisGrid, double* utch, int* nAz, int* nEl, int* nDmiles, int* nDkm, int* nHotAz, int* nHotABetter, int len1, int len2); void morse_(char* msg, int* icw, int* ncw, int len); int ptt_(int nport, int ntx, int* iptt, int* nopen); } #endif // MAINWINDOW_H ./mainwindow.ui0000664000175000017500000026550512172374464012127 0ustar jtnjtn MainWindow 0 0 760 552 0 0 760 475 936 1028 SpecJT by K1JT 3 1 0 0 200 100 500 1000 Courier New 10 QFrame::Panel Qt::ScrollBarAlwaysOn Qt::ScrollBarAlwaysOff <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN" "http://www.w3.org/TR/REC-html40/strict.dtd"> <html><head><meta name="qrichtext" content="1" /><style type="text/css"> p, li { white-space: pre-wrap; } </style></head><body style=" font-family:'Courier New'; font-size:10pt; font-weight:400; font-style:normal;"> <p style=" margin-top:0px; margin-bottom:0px; margin-left:0px; margin-right:0px; -qt-block-indent:0; text-indent:0px;"><br /></p></body></html> false false 300 20 500 20 252 252 252 170 170 170 252 252 252 170 170 170 170 170 170 170 170 170 true UTC dB DT Freq Dr 5 300 20 500 20 252 252 252 170 170 170 252 252 252 170 170 170 170 170 170 170 170 170 true UTC dB DT Freq Dr 5 0 0 200 100 500 1000 Courier New 10 Qt::ScrollBarAlwaysOn Qt::ScrollBarAlwaysOff 500 16777215 10 50 false Rx Frequency Qt::AlignCenter 500 16777215 10 50 false Band Activity Qt::AlignCenter QFrame::Plain Qt::Horizontal QFrame::Plain Qt::Horizontal 50 0 Enter this QSO in ADIF log Log &QSO 50 0 Stop monitoring &Stop 0 0 50 0 16777215 16777215 Start monitoring &Monitor 50 0 Erase QSO Frequency window. Double-click for both windows &Erase 50 0 Decode most recent Rx period at QSO Frequency (use shift for all freqs) &Decode 0 0 50 0 Toggle Tx Enable On/Off E&nable Tx 0 0 50 0 Set Tx Enable OFF &Halt Tx Assert PTT and emit a pure tone &Tune 50 0 QFrame::StyledPanel QFrame::Raised 0 0 0 23 16777215 23 true Qt::AlignCenter 4 Select operating band 7 2200 m 630 m 160 m 80 m 60 m 40 m 30 m 20 m 17 m 15 m 12 m 10 m 6 m 4 m 2 m Other 15 15 If orange, click to read dial frequency once 0 0 140 30 158 16777215 16 50 false USB dial frequency 14.078 Qt::AlignCenter 105 23 105 16777215 Check to Tx in even minutes, uncheck for odd minutes Tx even 0 0 283 222 QFrame::NoFrame QFrame::Plain 0 0 0 0 0 0 200 QTabWidget::West QTabWidget::Triangular 0 1 6 4 1 0 0 6 5 40 16777215 Switch to this Tx message NOW Qt::LeftToRight Tx 1 16 0 0 20 20 16777215 Send this message in next Tx interval buttonGroup 16 0 0 20 20 16777215 Send this message in next Tx interval true buttonGroup 16 0 0 20 20 16777215 Send this message in next Tx interval buttonGroup 200 0 150 24 150 16777215 Droid Sans 50 false 40 16777215 Switch to this Tx message NOW Tx 3 40 16777215 Switch to this Tx message NOW Tx 4 Queue up the next Tx message Next 200 0 150 24 150 16777215 200 0 150 24 150 16777215 Right-click to select a macro message 40 16777215 Switch to this Tx message NOW Tx 5 16 0 0 20 20 16777215 Send this message in next Tx interval buttonGroup Switch to this Tx message NOW Now Qt::AlignCenter 200 0 150 0 150 16777215 Generate standard messages for minimal QSO Generate Std Msgs 200 0 150 24 150 16777215 200 0 150 24 150 16777215 40 16777215 Switch to this Tx message NOW Tx 6 40 16777215 Switch to this Tx message NOW Tx 2 16 0 0 20 20 16777215 Send this message in next Tx interval buttonGroup 16 0 0 20 20 16777215 Send this message in next Tx interval buttonGroup 200 0 150 24 150 16777215 2 0 0 6 2 2 2 0 30 16777215 30 Calling CQ Qt::AlignCenter Generate a CQ message CQ Generate message with RRR RRR Generate message with report dB 0 30 16777215 30 Answering CQ Qt::AlignCenter Generate message for replying to a CQ Grid Generate message with R+report R+dB Generate message with 73 73 0 0 150 0 true 0 0 0 26 Send this standard (generated) message Gen msg true 0 0 150 0 0 0 0 26 Send this free-text message (max 13 characters) Free msg +2 kHz 0 0 0 23 252 252 252 159 175 213 252 252 252 159 175 213 159 175 213 159 175 213 true DX Call Qt::AlignCenter 2 0 0 0 23 16777215 16777215 252 252 252 159 175 213 252 252 252 159 175 213 159 175 213 159 175 213 true DX Grid Qt::AlignCenter 2 false Tx JT9 0 0 0 160 20 160 Digital gain for audio input -50 50 Qt::Vertical 0 0 70 27 74 16777215 Callsign of station to be worked Qt::AlignCenter 0 0 70 27 74 16777215 Locator of station to be worked Qt::AlignCenter 0 0 113 0 105 16777215 Audio Tx frequency Hz Tx 200 5000 1500 0 0 0 23 16777215 23 Qt::AlignCenter Qt::Horizontal QSizePolicy::Expanding 33 20 0 0 113 20 Hz Rx 200 5000 1500 Qt::Horizontal QSizePolicy::Expanding 13 20 0 0 74 16777215 Search for callsign in database &Lookup 0 0 74 16777215 Add callsign and locator to database Add 5 QLayout::SetFixedSize 0 0 48 16777215 Set Tx frequency to Rx Frequency Tx=Rx 0 0 48 16777215 Set Rx frequency to Tx Frequency Rx=Tx 0 0 130 60 158 60 16 QFrame::StyledPanel QFrame::Sunken 2 0 01:23:45 Qt::AlignCenter Lock Tx=Rx 5 0 0 Report 0 0 55 0 55 16777215 Signal report (dB0 -50 49 -15 0 0 760 21 File Setup true Advanced View Waterfall palette Decode Save Help Mode Exit false Configuration F2 About WSJT-X Ctrl+F1 Astro Data Shift+F10 Band Map Messages Waterfall Open Open next in directory F6 Decode remaining files in directory Shift+F6 Delete all *.wav files in SaveDir Erase Band Map and Messages true true Linrad true false CuteSDR Find Delta Phi true F4 sets Tx6 true No shorthand decodes if Tx1 true false Fast true true None true Save all true 50 true true 144 true 222 true 432 true 1296 true 2304 Online User's Guide F1 Keyboard shortcuts F3 Special mouse commands F5 Available suffixes and add-on-prefixes true JT65A true true JT65B true JT65C I/Q Calibration F7 Adjust I/Q Calibration true Apply I/Q Calibration true AFMHot true Blue FUNcube Dongle Settings true true JT9 true JT9-2 true false JT9-5 true false JT9-10 true false JT9-30 true false Save synced true true Save decoded true false Normal true true Deepest true Monitor OFF at startup Erase ALL.TXT Erase wsjtx_log.adi true Log JT9 without submode true Convert mode to RTTY for logging true Log dB reports to Comments true Prompt me to log QSO true Blank line between decoding periods true Clear DX Call and Grid after logging Distance in miles true Display distance in miles true Double-click on call sets Tx Enable true Tx disabled after sending 73 true Runaway Tx watchdog true Allow multiple instances true Tx freq locked to Rx freq true JT65 true JT9+JT65 true Tx messages to Rx Frequency window DisplayText QTextBrowser
displaytext.h
 logQSOButton stopButton monitorButton EraseButton DecodeButton autoButton stopTxButton tuneButton bandComboBox readFreq inGain dxCallEntry dxGridEntry txFirstCheckBox TxFreqSpinBox pbR2T pbT2R rptSpinBox tabWidget genStdMsgsPushButton tx1 tx2 tx3 tx4 tx5 tx6 txrb1 txrb2 txrb3 txrb4 txrb5 txrb6 txb1 txb2 txb3 txb4 txb5 txb6 decodedTextBrowser decodedTextBrowser2 genMsg pbAnswerCaller rbFreeText pbSendRRR freeTextMsg pbAnswerCQ pbSendReport pbSend73 rbGenMsg pbCallCQ monitorButton toggled(bool) MainWindow update() 264 275 126 515 true ./meterwidget.cpp0000664000175000017500000000202212172374464012417 0ustar jtnjtn// Simple bargraph meter // Implemented by Edson Pereira PY2SDR #include "meterwidget.h" MeterWidget::MeterWidget(QWidget *parent) : QWidget(parent), m_signal(0) { for ( int i = 0; i < 10; i++ ) { signalQueue.enqueue(0); } } void MeterWidget::setValue(int value) { m_signal = value; signalQueue.enqueue(value); signalQueue.dequeue(); // Get signal peak int tmp = 0; for (int i = 0; i < signalQueue.size(); ++i) { if (signalQueue.at(i) > tmp) tmp = signalQueue.at(i); } m_sigPeak = tmp; update(); } void MeterWidget::paintEvent( QPaintEvent * ) { int pos; QPainter p; p.begin(this); // Sanitize m_signal = m_signal < 0 ? 0 : m_signal; m_signal = m_signal > 60 ? 60 : m_signal; pos = m_signal * 2; QRect r(0, height() - pos, width(), pos ); p.fillRect(r, QColor( 255, 150, 0 )); // Draw peak hold indicator p.setPen(Qt::black); pos = m_sigPeak * 2; p.drawLine(0, height() - pos, 10, height() - pos); } ./meterwidget.h0000664000175000017500000000065412172374464012075 0ustar jtnjtn#ifndef METERWIDGET_H #define METERWIDGET_H #include #include #include class MeterWidget : public QWidget { Q_OBJECT public: explicit MeterWidget(QWidget *parent = 0); signals: public slots: void setValue(int value); private: QQueue signalQueue; int m_signal; int m_sigPeak; protected: void paintEvent( QPaintEvent * ); }; #endif // METERWIDGET_H ./mouse_commands.txt0000664000175000017500000000124012172374465013147 0ustar jtnjtnClick on Action __________________________________________________________ Waterfall: Set Rx frequency Double-click to set Rx frequency and decode there Ctrl-click to set Rx and Tx frequencies and decode Decoded text: Double-click to copy second callsign to Dx Call, locator to Dx Grid; change Rx and Tx frequencies to decoded signal's frequency; generate standard messages. If first callsign is your own, Tx frequency is not changed unless Ctrl is held down when double-clicking. Erase button: Click to erase QSO window Double-click to erase QSO and Band Activity windows Tx5 Entry: Right-click to select a macro message ./pa_get_device_info.c0000664000175000017500000001245112172374464013337 0ustar jtnjtn#include #include #define MAX_LATENCY 20 PaStream *in_stream; //------------------------------------------------------- pa_get_device_info int pa_get_device_info (int n, void *pa_device_name, void *pa_device_hostapi, double *pa_device_max_speed, double *pa_device_min_speed, int *pa_device_max_bytes, int *pa_device_min_bytes, int *pa_device_max_channels, int *pa_device_min_channels ) { (void) n ; (void) pa_device_name; (void) pa_device_hostapi; (void) pa_device_max_speed; (void) pa_device_min_speed; (void) pa_device_max_bytes; (void) pa_device_min_bytes; (void) pa_device_max_channels; (void) pa_device_min_channels; const PaDeviceInfo *deviceInfo; PaError pa_err; PaStreamParameters inputParameters; int i,j, speed_warning; int minBytes, maxBytes; double maxStandardSampleRate; double minStandardSampleRate; int minInputChannels; int maxInputChannels; // negative terminated list static double standardSampleRates[] = {8000.0, 9600.0, 11025.0, 12000.0, 16000.0, 22050.0, 24000.0, 32000.0, 44100.0, 48000.0, 88200.0, 96000.0, 192000.0, -1}; // ******************************************************* *pa_device_max_speed=0; *pa_device_min_speed=0; *pa_device_max_bytes=0; *pa_device_min_bytes=0; *pa_device_max_channels=0; *pa_device_min_channels=0; minInputChannels=0; if(n >= Pa_GetDeviceCount() ) return -1; deviceInfo = Pa_GetDeviceInfo(n); if (deviceInfo->maxInputChannels==0) return -1; sprintf((char*)(pa_device_name),"%s",deviceInfo->name); sprintf((char*)(pa_device_hostapi),"%s", Pa_GetHostApiInfo( deviceInfo->hostApi )->name); speed_warning=0; // bypass bug in Juli@ ASIO driver: // this driver hangs after a Pa_IsFormatSupported call i = strncmp(deviceInfo->name, "ASIO 2.0 - ESI Juli@", 19); if (i == 0) { minStandardSampleRate=44100; maxStandardSampleRate=192000; minBytes=1; maxBytes=4; maxInputChannels= deviceInfo->maxInputChannels; minInputChannels= 1; goto end_pa_get_device_info; } // Investigate device capabilities. // Check min and max samplerates with 16 bit data. maxStandardSampleRate=0; minStandardSampleRate=0; inputParameters.device = n; inputParameters.channelCount = deviceInfo->maxInputChannels; inputParameters.sampleFormat = paInt16; inputParameters.suggestedLatency = 0; inputParameters.hostApiSpecificStreamInfo = NULL; // ************************************************************************ //filter for portaudio Windows hostapi's with non experts. //only allow ASIO or WASAPI or WDM-KS i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name, "ASIO", 4); if (i==0 ) goto end_filter_hostapi; i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name, "Windows WASAPI", 14); if (i==0 ) goto end_filter_hostapi; i = strncmp(Pa_GetHostApiInfo(deviceInfo->hostApi)->name, "Windows WDM-KS", 14); if (i==0 ) goto end_filter_hostapi; speed_warning=1; end_filter_hostapi:; // ************************************************************************ i=0; while(standardSampleRates[i] > 0 && minStandardSampleRate==0) { pa_err=Pa_IsFormatSupported(&inputParameters, NULL, standardSampleRates[i] ); if(pa_err == paDeviceUnavailable) return -1; if(pa_err == paInvalidDevice) return -1; if(pa_err == paFormatIsSupported ) { minStandardSampleRate=standardSampleRates[i]; } i++; } if(minStandardSampleRate == 0) return -1; j=i; while(standardSampleRates[i] > 0 ) i++; i--; while(i >= j && maxStandardSampleRate==0) { pa_err=Pa_IsFormatSupported(&inputParameters, NULL, standardSampleRates[i] ); if(pa_err == paDeviceUnavailable) return -1; if(pa_err == paInvalidDevice) return -1; if( pa_err == paFormatIsSupported ) { maxStandardSampleRate=standardSampleRates[i]; } i--; } // check if min SampleRate = max SampleRate if(maxStandardSampleRate==0 && (minStandardSampleRate != 0)) { maxStandardSampleRate= minStandardSampleRate; } // check min and max bytes minBytes=2; maxBytes=2; inputParameters.sampleFormat = paUInt8; pa_err=Pa_IsFormatSupported(&inputParameters, NULL, maxStandardSampleRate ); if( pa_err == paFormatIsSupported ) { minBytes=1; } inputParameters.sampleFormat = paInt32; pa_err=Pa_IsFormatSupported(&inputParameters, NULL, maxStandardSampleRate ); if( pa_err == paFormatIsSupported ) { maxBytes=4; } // check min channel count maxInputChannels= deviceInfo->maxInputChannels; inputParameters.channelCount = 1; inputParameters.sampleFormat = paInt16; pa_err=paFormatIsSupported+32000; while(pa_err != paFormatIsSupported && ( inputParameters.channelCount < (maxInputChannels+1)) ) { pa_err=Pa_IsFormatSupported(&inputParameters, NULL, maxStandardSampleRate ); inputParameters.channelCount++; } if( pa_err == paFormatIsSupported ) { minInputChannels=inputParameters.channelCount-1; } else { return -1; } end_pa_get_device_info:; *pa_device_max_speed=maxStandardSampleRate; *pa_device_min_speed=minStandardSampleRate; *pa_device_max_bytes=maxBytes; *pa_device_min_bytes=minBytes; *pa_device_max_channels= maxInputChannels; *pa_device_min_channels= minInputChannels; return speed_warning; } ./paInputDevice.c0000664000175000017500000000273512172374465012313 0ustar jtnjtn#include #include #include void paInputDevice(int id, char* hostAPI_DeviceName, int* minChan, int* maxChan, int* minSpeed, int* maxSpeed) { int i, j, k; char pa_device_name[128]; char pa_device_hostapi[128]; double pa_device_max_speed; double pa_device_min_speed; int pa_device_max_bytes; int pa_device_min_bytes; int pa_device_max_channels; int pa_device_min_channels; char p2[50]; char *p,*p1; static int iret, numDevices, valid_dev_cnt; iret=pa_get_device_info (id, &pa_device_name, &pa_device_hostapi, &pa_device_max_speed, &pa_device_min_speed, &pa_device_max_bytes, &pa_device_min_bytes, &pa_device_max_channels, &pa_device_min_channels); if (iret >= 0 ) { valid_dev_cnt++; p1=""; p=strstr(pa_device_hostapi,"MME"); if(p!=NULL) p1="MME"; p=strstr(pa_device_hostapi,"Direct"); if(p!=NULL) p1="DirectX"; p=strstr(pa_device_hostapi,"WASAPI"); if(p!=NULL) p1="WASAPI"; p=strstr(pa_device_hostapi,"ASIO"); if(p!=NULL) p1="ASIO"; p=strstr(pa_device_hostapi,"WDM-KS"); if(p!=NULL) p1="WDM-KS"; sprintf(p2,"%-8s %-39s",p1,pa_device_name); for(i=0; i<50; i++) { hostAPI_DeviceName[i]=p2[i]; if(p2[i]==0) break; } *minChan=pa_device_min_channels; *maxChan=pa_device_max_channels; *minSpeed=(int)pa_device_min_speed; *maxSpeed=(int)pa_device_max_speed; } } ./plotter.cpp0000664000175000017500000003476312172374464011611 0ustar jtnjtn#include "plotter.h" #include #include #define MAX_SCREENSIZE 2048 CPlotter::CPlotter(QWidget *parent) : //CPlotter Constructor QFrame(parent) { setSizePolicy(QSizePolicy::Expanding, QSizePolicy::Expanding); setFocusPolicy(Qt::StrongFocus); setAttribute(Qt::WA_PaintOnScreen,false); setAutoFillBackground(false); setAttribute(Qt::WA_OpaquePaintEvent, false); setAttribute(Qt::WA_NoSystemBackground, true); m_StartFreq = 0; m_nSpan=2; //used for FFT bins/pixel m_fSpan=(float)m_nSpan; m_hdivs = HORZ_DIVS; m_FreqUnits = 1; m_Running = false; m_paintEventBusy=false; m_WaterfallPixmap = QPixmap(0,0); m_2DPixmap = QPixmap(0,0); m_ScalePixmap = QPixmap(0,0); m_OverlayPixmap = QPixmap(0,0); m_Size = QSize(0,0); m_rxFreq = 1020; m_line = 0; m_fSample = 12000; m_nsps=6912; m_dBStepSize=10; m_Percent2DScreen = 30; //percent of screen used for 2D display m_txFreq=0; } CPlotter::~CPlotter() { } // Destructor QSize CPlotter::minimumSizeHint() const { return QSize(50, 50); } QSize CPlotter::sizeHint() const { return QSize(180, 180); } void CPlotter::resizeEvent(QResizeEvent* ) //resizeEvent() { if(!size().isValid()) return; if( m_Size != size() ) { //if changed, resize pixmaps to new screensize m_Size = size(); m_w = m_Size.width(); m_h = m_Size.height(); m_h1 = (100-m_Percent2DScreen)*(m_Size.height())/100; m_h2 = (m_Percent2DScreen)*(m_Size.height())/100; m_2DPixmap = QPixmap(m_Size.width(), m_h2); m_2DPixmap.fill(Qt::black); m_WaterfallPixmap = QPixmap(m_Size.width(), m_h1); m_OverlayPixmap = QPixmap(m_Size.width(), m_h2); m_OverlayPixmap.fill(Qt::black); m_WaterfallPixmap.fill(Qt::black); m_2DPixmap.fill(Qt::black); m_ScalePixmap = QPixmap(m_w,30); m_ScalePixmap.fill(Qt::white); } DrawOverlay(); } void CPlotter::paintEvent(QPaintEvent *) // paintEvent() { if(m_paintEventBusy) return; m_paintEventBusy=true; QPainter painter(this); painter.drawPixmap(0,0,m_ScalePixmap); painter.drawPixmap(0,30,m_WaterfallPixmap); painter.drawPixmap(0,m_h1,m_2DPixmap); m_paintEventBusy=false; } void CPlotter::draw(float swide[], int i0) //draw() { int j,y2; float y; m_i0=i0; double gain = pow(10.0,0.05*(m_plotGain+7)); //move current data down one line (must do this before attaching a QPainter object) m_WaterfallPixmap.scroll(0,1,0,0,m_w,m_h1); QPainter painter1(&m_WaterfallPixmap); m_2DPixmap = m_OverlayPixmap.copy(0,0,m_w,m_h2); QPainter painter2D(&m_2DPixmap); painter2D.setPen(Qt::green); QPoint LineBuf[MAX_SCREENSIZE]; j=0; // int iz=XfromFreq(2000.0); int iz=XfromFreq(5000.0); m_fMax=FreqfromX(iz); for(int i=0; iiz) swide[i]=0; y=0.0; if(swide[i]>0.0) y = 10.0*log10(swide[i]); int y1 = 5.0*gain*y + 10*(m_plotZero-4); if (y1<0) y1=0; if (y1>254) y1=254; if (swide[i]>1.e29) y1=255; painter1.setPen(m_ColorTbl[y1]); painter1.drawPoint(i,0); y2=0; if(m_bCurrent) y2 = 0.4*gain*y - 15; if(m_bCumulative) { float sum=0.0; int j=m_binsPerPixel*i; for(int k=0; k1.0e29) m_line=0; m_line++; if(m_line == 13) { UTCstr(); painter1.setPen(Qt::white); painter1.drawText(5,10,m_sutc); } update(); //trigger a new paintEvent } void CPlotter::UTCstr() { int ihr,imin; if(jt9com_.ndiskdat != 0) { ihr=jt9com_.nutc/100; imin=jt9com_.nutc % 100; } else { qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000; imin=ms/60000; ihr=imin/60; imin=imin % 60; imin=imin - (imin % (m_TRperiod/60)); } sprintf(m_sutc,"%2.2d:%2.2d",ihr,imin); } void CPlotter::DrawOverlay() //DrawOverlay() { if(m_OverlayPixmap.isNull()) return; if(m_WaterfallPixmap.isNull()) return; int w = m_WaterfallPixmap.width(); int x,y,x1,x2; // int nHzDiv[11]={0,50,100,200,200,200,500,500,500,500,500}; float pixperdiv; QRect rect; QPainter painter(&m_OverlayPixmap); painter.initFrom(this); QLinearGradient gradient(0, 0, 0 ,m_h2); //fill background with gradient gradient.setColorAt(1, Qt::black); gradient.setColorAt(0, Qt::darkBlue); painter.setBrush(gradient); painter.drawRect(0, 0, m_w, m_h2); painter.setBrush(Qt::SolidPattern); double df = m_binsPerPixel*m_fftBinWidth; pixperdiv = m_freqPerDiv/df; y = m_h2 - m_h2/VERT_DIVS; m_hdivs = w*df/m_freqPerDiv + 0.9999; for( int i=1; i= 0 and x<=m_w) { painter.setPen(QPen(Qt::white, 1,Qt::DotLine)); painter.drawLine(x, 0, x , y); painter.drawLine(x, m_h2-5, x , m_h2); } } pixperdiv = (float)m_h2 / (float)VERT_DIVS; painter.setPen(QPen(Qt::white, 1,Qt::DotLine)); for( int i=1; i25) m_freqPerDiv=50; if(n>70) m_freqPerDiv=100; if(n>140) m_freqPerDiv=200; if(n>310) m_freqPerDiv=500; m_hdivs = w*df/m_freqPerDiv + 0.9999; m_ScalePixmap.fill(Qt::white); painter0.drawRect(0, 0, w, 30); //draw tick marks on upper scale pixperdiv = m_freqPerDiv/df; for( int i=1; i10.13 and m_dialFreq< 10.15) { float f1=1.0e6*(10.1401 - m_dialFreq); float f2=f1+200.0; x1=XfromFreq(f1); x2=XfromFreq(f2); if(x1<=m_w and x2>=0) { QPen pen1(QColor(255,165,0),3); //Mark WSPR sub-band orange painter0.setPen(pen1); painter0.drawLine(x1,9,x2,9); } } } void CPlotter::MakeFrequencyStrs() //MakeFrequencyStrs { float freq; for(int i=0; i<=m_hdivs; i++) { freq = m_StartFreq + i*m_freqPerDiv; m_HDivText[i].setNum((int)freq); // StartFreq += m_freqPerDiv; } } int CPlotter::XfromFreq(float f) //XfromFreq() { // float w = m_WaterfallPixmap.width(); int x = int(m_w * (f - m_StartFreq)/m_fSpan + 0.5); if(x<0 ) return 0; if(x>m_w) return m_w; return x; } float CPlotter::FreqfromX(int x) //FreqfromX() { // return float(1000.0 + x*m_binsPerPixel*m_fftBinWidth); return float(x*m_binsPerPixel*m_fftBinWidth); } void CPlotter::SetRunningState(bool running) //SetRunningState() { m_Running = running; } void CPlotter::setPlotZero(int plotZero) //setPlotZero() { m_plotZero=plotZero; } int CPlotter::getPlotZero() //getPlotZero() { return m_plotZero; } void CPlotter::setPlotGain(int plotGain) //setPlotGain() { m_plotGain=plotGain; } int CPlotter::getPlotGain() //getPlotGain() { return m_plotGain; } void CPlotter::SetStartFreq(quint64 f) //SetStartFreq() { m_StartFreq=f; // resizeEvent(NULL); DrawOverlay(); } qint64 CPlotter::startFreq() //startFreq() { return m_StartFreq; } int CPlotter::plotWidth(){return m_WaterfallPixmap.width();} void CPlotter::UpdateOverlay() {DrawOverlay();} void CPlotter::setDataFromDisk(bool b) {m_dataFromDisk=b;} void CPlotter::setRxRange(int fMin) { m_fMin=fMin; } void CPlotter::setBinsPerPixel(int n) // set nbpp { m_binsPerPixel = n; DrawOverlay(); //Redraw scales and ticks update(); //trigger a new paintEvent} } int CPlotter::binsPerPixel() // get nbpp { return m_binsPerPixel; } void CPlotter::setRxFreq(int x, bool bf) //setRxFreq() { if(bf) { m_rxFreq=x; // x is freq in Hz m_xClick=XfromFreq(m_rxFreq); } else { if(x<0) x=0; // x is pixel number if(x>m_Size.width()) x=m_Size.width(); m_rxFreq=int(FreqfromX(x)+0.5); m_xClick=x; } emit setFreq1(m_rxFreq,m_txFreq); DrawOverlay(); update(); } int CPlotter::rxFreq() {return m_rxFreq;} //get rxFreq void CPlotter::mousePressEvent(QMouseEvent *event) //mousePressEvent { int x=event->x(); setRxFreq(x,false); // Wideband waterfall bool ctrl = (event->modifiers() & Qt::ControlModifier); int n=1; if(ctrl) n+=100; emit freezeDecode1(n); if(ctrl or m_lockTxFreq) setTxFreq(m_rxFreq); } void CPlotter::mouseDoubleClickEvent(QMouseEvent *event) //mouse2click { // int x=event->x(); // setRxFreq(x,false); bool ctrl = (event->modifiers() & Qt::ControlModifier); int n=2; if(ctrl) n+=100; emit freezeDecode1(n); } void CPlotter::setNSpan(int n) //setNSpan() { m_nSpan=n; } void CPlotter::setPalette(QString palette) //setPalette() { if(palette=="Linrad") { float twopi=6.2831853; float r,g,b,phi,x; for(int i=0; i<256; i++) { r=0.0; if(i>105 and i<=198) { phi=(twopi/4.0) * (i-105.0)/(198.0-105.0); r=sin(phi); } else if(i>=198) { r=1.0; } g=0.0; if(i>35 and i<198) { phi=(twopi/4.0) * (i-35.0)/(122.5-35.0); g=0.625*sin(phi); } else if(i>=198) { x=(i-186.0); g=-0.014 + 0.0144*x -0.00007*x*x +0.000002*x*x*x; if(g>1.0) g=1.0; } b=0.0; if(i<=117) { phi=(twopi/2.0) * i/117.0; b=0.4531*sin(phi); } else if(i>186) { x=(i-186.0); b=-0.014 + 0.0144*x -0.00007*x*x +0.000002*x*x*x; if(b>1.0) b=1.0; } m_ColorTbl[i].setRgb(int(255.0*r),int(255.0*g),int(255.0*b)); } m_ColorTbl[255].setRgb(255,255,100); } if(palette=="CuteSDR") { for( int i=0; i<256; i++) { if( (i<43) ) m_ColorTbl[i].setRgb( 0,0, 255*(i)/43); if( (i>=43) && (i<87) ) m_ColorTbl[i].setRgb( 0, 255*(i-43)/43, 255 ); if( (i>=87) && (i<120) ) m_ColorTbl[i].setRgb( 0,255, 255-(255*(i-87)/32)); if( (i>=120) && (i<154) ) m_ColorTbl[i].setRgb( (255*(i-120)/33), 255, 0); if( (i>=154) && (i<217) ) m_ColorTbl[i].setRgb( 255, 255 - (255*(i-154)/62), 0); if( (i>=217) ) m_ColorTbl[i].setRgb( 255, 0, 128*(i-217)/38); } m_ColorTbl[255].setRgb(255,255,100); } if(palette=="Blue") { FILE* fp=fopen("blue.dat","r"); int n,r,g,b; float xr,xg,xb; for(int i=0; i<256; i++) { int nn=fscanf(fp,"%d%f%f%f",&n,&xr,&xg,&xb); r=255.0*xr + 0.5; g=255.0*xg + 0.5; b=255.0*xb + 0.5; m_ColorTbl[i].setRgb(r,g,b); if(nn==-999999) i++; //Silence compiler warning } } if(palette=="AFMHot") { FILE* fp=fopen("afmhot.dat","r"); int n,r,g,b; float xr,xg,xb; for(int i=0; i<256; i++) { int nn=fscanf(fp,"%d%f%f%f",&n,&xr,&xg,&xb); r=255.0*xr + 0.5; g=255.0*xg + 0.5; b=255.0*xb + 0.5; m_ColorTbl[i].setRgb(r,g,b); if(nn==-999999) i++; //Silence compiler warning } } } double CPlotter::fGreen() { return m_fGreen; } void CPlotter::setNsps(int ntrperiod, int nsps) //setNSpan() { m_TRperiod=ntrperiod; m_nsps=nsps; m_fftBinWidth=1500.0/2048.0; if(m_nsps==15360) m_fftBinWidth=1500.0/2048.0; if(m_nsps==40960) m_fftBinWidth=1500.0/6144.0; if(m_nsps==82944) m_fftBinWidth=1500.0/12288.0; if(m_nsps==252000) m_fftBinWidth=1500.0/32768.0; DrawOverlay(); //Redraw scales and ticks update(); //trigger a new paintEvent} } void CPlotter::setTxFreq(int n) //setTol() { m_txFreq=n; emit setFreq1(m_rxFreq,m_txFreq); DrawOverlay(); update(); } void CPlotter::setMode(QString mode) { m_mode=mode; } void CPlotter::setModeTx(QString modeTx) { m_modeTx=modeTx; } int CPlotter::getFmax() { return m_fMax; } void CPlotter::setDialFreq(double d) { m_dialFreq=d; DrawOverlay(); update(); } ./plotter.h0000664000175000017500000000607312172374464011247 0ustar jtnjtn/////////////////////////////////////////////////////////////////////////// // Some code in this file and accompanying files is based on work by // Moe Wheatley, AE4Y, released under the "Simplified BSD License". // For more details see the accompanying file LICENSE_WHEATLEY.TXT /////////////////////////////////////////////////////////////////////////// #ifndef PLOTTER_H #define PLOTTER_H #ifdef QT5 #include #else #include #endif #include #include #include #include "commons.h" #define VERT_DIVS 7 //specify grid screen divisions #define HORZ_DIVS 20 class CPlotter : public QFrame { Q_OBJECT public: explicit CPlotter(QWidget *parent = 0); ~CPlotter(); QSize minimumSizeHint() const; QSize sizeHint() const; QColor m_ColorTbl[256]; bool m_bCurrent; bool m_bCumulative; bool m_lockTxFreq; float m_fSpan; qint32 m_plotZero; qint32 m_plotGain; qint32 m_nSpan; qint32 m_binsPerPixel; qint32 m_w; void draw(float sw[], int i0); //Update the waterfall void SetRunningState(bool running); void setPlotZero(int plotZero); int getPlotZero(); void setPlotGain(int plotGain); int getPlotGain(); void SetStartFreq(quint64 f); qint64 startFreq(); int plotWidth(); void setNSpan(int n); void UpdateOverlay(); void setDataFromDisk(bool b); void setRxRange(int fMin); void setBinsPerPixel(int n); int binsPerPixel(); void setRxFreq(int n, bool bf); void DrawOverlay(); int rxFreq(); void setPalette(QString palette); void setFsample(int n); void setNsps(int ntrperiod, int nsps); void setTxFreq(int n); void setMode(QString mode); void setModeTx(QString modeTx); double fGreen(); void SetPercent2DScreen(int percent){m_Percent2DScreen=percent;} int getFmax(); void setDialFreq(double d); signals: void freezeDecode1(int n); void setFreq1(int rxFreq, int txFreq); protected: //re-implemented widget event handlers void paintEvent(QPaintEvent *event); void resizeEvent(QResizeEvent* event); private: void MakeFrequencyStrs(); void UTCstr(); int XfromFreq(float f); float FreqfromX(int x); qint64 RoundFreq(qint64 freq, int resolution); QPixmap m_WaterfallPixmap; QPixmap m_2DPixmap; QPixmap m_ScalePixmap; QPixmap m_OverlayPixmap; // QPixmap m_LowerScalePixmap; QSize m_Size; QString m_Str; QString m_HDivText[483]; QString m_mode; QString m_modeTx; bool m_Running; bool m_paintEventBusy; bool m_dataFromDisk; double m_fGreen; double m_fftBinWidth; double m_dialFreq; qint64 m_StartFreq; qint32 m_dBStepSize; qint32 m_FreqUnits; qint32 m_hdivs; qint32 m_line; qint32 m_fSample; qint32 m_i0; qint32 m_xClick; qint32 m_freqPerDiv; qint32 m_nsps; qint32 m_Percent2DScreen; qint32 m_h; qint32 m_h1; qint32 m_h2; qint32 m_TRperiod; qint32 m_rxFreq; qint32 m_txFreq; qint32 m_fMin; qint32 m_fMax; char m_sutc[6]; private slots: void mousePressEvent(QMouseEvent *event); void mouseDoubleClickEvent(QMouseEvent *event); }; #endif // PLOTTER_H ./psk_reporter.cpp0000664000175000017500000001034112172374464012621 0ustar jtnjtn// KISS Interface for posting spots to PSK Reporter web site // Implemented by Edson Pereira PY2SDR // // Reports will be sent in batch mode every 5 minutes. #include "psk_reporter.h" PSK_Reporter::PSK_Reporter(QObject *parent) : QObject(parent), m_sequenceNumber(0) { m_header_h = "000Allllttttttttssssssssiiiiiiii"; // We use 50E2 and 50E3 for link Id m_rxInfoDescriptor_h = "0003002450E200030000" "8002FFFF0000768F" // 2. Rx Call "8004FFFF0000768F" // 4. Rx Grid "8008FFFF0000768F" // 8. Rx Soft "0000"; m_txInfoDescriptor_h = "0002003C50E30007" "8001FFFF0000768F" // 1. Tx Call "800500040000768F" // 5. Tx Freq "800600010000768F" // 6. Tx snr "800AFFFF0000768F" // 10. Tx Mode "8003FFFF0000768F" // 3. Tx Grid "800B00010000768F" // 11. Tx info src "00960004"; // Report time qsrand(QDateTime::currentDateTime().toTime_t()); m_randomId_h = QString("%1").arg(qrand(),8,16,QChar('0')); m_udpSocket = new QUdpSocket(this); reportTimer = new QTimer(this); connect(reportTimer, SIGNAL(timeout()), this, SLOT(sendReport())); } void PSK_Reporter::setLocalStation(QString call, QString gridSquare, QString programInfo) { m_rxCall = call; m_rxGrid = gridSquare; m_progId = programInfo; reportTimer->start(5*60*1000); // 5 minutes; } void PSK_Reporter::addRemoteStation(QString call, QString grid, QString freq, QString mode, QString snr, QString time ) { QHash spot; spot["call"] = call; spot["grid"] = grid; spot["snr"] = snr; spot["freq"] = freq; spot["mode"] = mode; spot["time"] = time; m_spotQueue.enqueue(spot); } void PSK_Reporter::sendReport() { if (m_spotQueue.isEmpty()) return; // Header QString header_h = m_header_h; header_h.replace("tttttttt", QString("%1").arg(QDateTime::currentDateTime().toTime_t(),8,16,QChar('0'))); header_h.replace("ssssssss", QString("%1").arg(++m_sequenceNumber,8,16,QChar('0'))); header_h.replace("iiiiiiii", m_randomId_h); // Receiver information QString rxInfoData_h = "50E2llll"; rxInfoData_h += QString("%1").arg(m_rxCall.length(),2,16,QChar('0')) + m_rxCall.toUtf8().toHex(); rxInfoData_h += QString("%1").arg(m_rxGrid.length(),2,16,QChar('0')) + m_rxGrid.toUtf8().toHex(); rxInfoData_h += QString("%1").arg(m_progId.length(),2,16,QChar('0')) + m_progId.toUtf8().toHex(); rxInfoData_h += "0000"; rxInfoData_h.replace("50E2llll", "50E2" + QString("%1").arg(rxInfoData_h.length()/2,4,16,QChar('0'))); // Sender information QString txInfoData_h = "50E3llll"; while (!m_spotQueue.isEmpty()) { QHash spot = m_spotQueue.dequeue(); txInfoData_h += QString("%1").arg(spot["call"].length(),2,16,QChar('0')) + spot["call"].toUtf8().toHex(); txInfoData_h += QString("%1").arg(spot["freq"].toLongLong(),8,16,QChar('0')); txInfoData_h += QString("%1").arg(spot["snr"].toInt(),8,16,QChar('0')).right(2); txInfoData_h += QString("%1").arg(spot["mode"].length(),2,16,QChar('0')) + spot["mode"].toUtf8().toHex(); txInfoData_h += QString("%1").arg(spot["grid"].length(),2,16,QChar('0')) + spot["grid"].toUtf8().toHex(); txInfoData_h += QString("%1").arg(1,2,16,QChar('0')); // REPORTER_SOURCE_AUTOMATIC txInfoData_h += QString("%1").arg(spot["time"].toInt(),8,16,QChar('0')); } txInfoData_h += "0000"; txInfoData_h.replace("50E3llll", "50E3" + QString("%1").arg(txInfoData_h.length()/2,4,16,QChar('0'))); // Build report QString report_h = header_h + m_rxInfoDescriptor_h + m_txInfoDescriptor_h + rxInfoData_h + txInfoData_h; report_h.replace("000Allll", "000A" + QString("%1").arg(report_h.length()/2,4,16,QChar('0'))); QByteArray report = QByteArray::fromHex(report_h.toUtf8()); // Get IP address for pskreporter.info and send report via UDP QHostInfo info = QHostInfo::fromName("report.pskreporter.info"); m_udpSocket->writeDatagram(report,info.addresses().at(0),4739); } ./psk_reporter.h0000664000175000017500000000150712172374465012273 0ustar jtnjtn#ifndef PSK_REPORTER_H #define PSK_REPORTER_H #include #include #include class PSK_Reporter : public QObject { Q_OBJECT public: explicit PSK_Reporter(QObject *parent = 0); void setLocalStation(QString call, QString grid, QString programInfo); void addRemoteStation(QString call, QString grid, QString freq, QString mode, QString snr, QString time); signals: public slots: void sendReport(); private: QString m_header_h; QString m_rxInfoDescriptor_h; QString m_txInfoDescriptor_h; QString m_randomId_h; QString m_linkId_h; QString m_rxCall; QString m_rxGrid; QString m_progId; QQueue< QHash > m_spotQueue; QUdpSocket *m_udpSocket; QTimer *reportTimer; int m_sequenceNumber; }; #endif // PSK_REPORTER_H ./PSKReporter.h0000664000175000017500000000663112172374464011736 0ustar jtnjtn#pragma once // Main header file for the external interface to the PSK Reporter API // For documentation see http://psk.gladstonefamily.net/PSKReporterAPI.pdf /* Copyright (c) 2008 Philip Gladstone Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. */ #ifdef _DLL_OPTION_PSKREPORTER_EXPORT #define DllImportExport __declspec ( dllexport ) #else #define DllImportExport __declspec ( dllimport ) #endif #ifdef __cplusplus extern "C" { #endif #define REPORTER_SOURCE_MASK 0x07 #define REPORTER_SOURCE_AUTOMATIC 0x01 #define REPORTER_SOURCE_LOG 0x02 #define REPORTER_SOURCE_MANUAL 0x03 #define REPORTER_SOURCE_TENTATIVE 0x40 #define REPORTER_SOURCE_TEST 0x80 typedef struct { wchar_t hostname[256]; wchar_t port[32]; bool connected; unsigned int callsigns_sent; unsigned int callsigns_buffered; unsigned int callsigns_discarded; unsigned int last_send_time; unsigned int next_send_time; wchar_t last_callsign_queued[24]; unsigned int bytes_sent; unsigned int bytes_sent_total; unsigned int packets_sent; unsigned int packets_sent_total; } REPORTER_STATISTICS; unsigned long DllImportExport __cdecl ReporterInitialize( const wchar_t *hostname, const wchar_t *port ); unsigned long DllImportExport __cdecl ReporterSeenCallsign( const wchar_t *remoteInformation, const wchar_t *localInformation, unsigned long flags ); unsigned long DllImportExport __cdecl ReporterTickle( ); unsigned long DllImportExport __cdecl ReporterGetInformation( wchar_t *buffer, unsigned long maxlen ); unsigned long DllImportExport __cdecl ReporterGetStatistics( REPORTER_STATISTICS *buffer, unsigned long maxlen ); unsigned long DllImportExport __cdecl ReporterUninitialize( ); unsigned long DllImportExport __stdcall ReporterInitializeSTD( const char *hostname, const char *port ); unsigned long DllImportExport __stdcall ReporterSeenCallsignSTD( const char *remoteInformation, const char *localInformation, unsigned long flags ); unsigned long DllImportExport __stdcall ReporterTickleSTD( ); unsigned long DllImportExport __stdcall ReporterGetInformationSTD( char *buffer, unsigned long maxlen ); unsigned long DllImportExport __stdcall ReporterGetStatisticsSTD( REPORTER_STATISTICS *buffer, unsigned long maxlen ); unsigned long DllImportExport __stdcall ReporterUninitializeSTD( ); #ifdef __cplusplus } #endif ./QtSupport.iss0000664000175000017500000000031512172374465012100 0ustar jtnjtn[Setup] AppName="QtSupport for MAP65" AppVerName=QtSupport DefaultDirName=C:\MAP65 [Files] Source: "c:\Users\joe\map65\QtSupport\*.dll"; DestDir: "{app}"; Flags: onlyifdoesntexist ./rigclass.cpp0000664000175000017500000001743212172374464011721 0ustar jtnjtn/** * \file src/rigclass.cc * \brief Ham Radio Control Libraries C++ interface * \author Stephane Fillod * \date 2001-2003 * * Hamlib C++ interface is a frontend implementing wrapper functions. */ /** * * Hamlib C++ bindings - main file * Copyright (c) 2001-2003 by Stephane Fillod * * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA * */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #include #include "rigclass.h" #include #include static int hamlibpp_freq_event(RIG *rig, vfo_t vfo, freq_t freq, rig_ptr_t arg); static int hamlibpp_freq_event(RIG *rig, vfo_t vfo, freq_t freq, rig_ptr_t arg) { if (!rig || !rig->state.obj) return -RIG_EINVAL; /* assert rig == ((Rig*)rig->state.obj).theRig */ return ((Rig*)rig->state.obj)->FreqEvent(vfo, freq, arg); } Rig::Rig() { rig_set_debug_level( RIG_DEBUG_WARN); } Rig::~Rig() { theRig->state.obj = NULL; rig_cleanup(theRig); caps = NULL; } int Rig::init(rig_model_t rig_model) { int initOk; theRig = rig_init(rig_model); if (!theRig) initOk = false; else initOk = true; caps = theRig->caps; theRig->callbacks.freq_event = &hamlibpp_freq_event; theRig->state.obj = (rig_ptr_t)this; return initOk; } int Rig::open(int n) { m_hrd=false; m_cmndr=false; if(n<9900) { if(n==-99999) return -1; //Silence compiler warning return rig_open(theRig); } #ifdef WIN32 // Ham radio Deluxe or Commander (Windows only) if(n==9999) { m_hrd=true; bool bConnect=false; bConnect = HRDInterfaceConnect(L"localhost",7809); if(bConnect) { const wchar_t* context=HRDInterfaceSendMessage(L"Get Context"); m_context="[" + QString::fromWCharArray (context,-1) + "] "; HRDInterfaceFreeString(context); return 0; } else { m_hrd=false; return -1; } } if(n==9998) { if(socket->state()==QAbstractSocket::ConnectedState) { socket->abort(); } if(socket->state()==QAbstractSocket::UnconnectedState) { socket->connectToHost(QHostAddress::LocalHost, 52002); if(!socket->waitForConnected(1000)) { return -1; } } QString t; t="CmdGetFreq"; QByteArray ba = t.toLocal8Bit(); const char* buf=ba.data(); socket->write(buf); socket->waitForReadyRead(1000); QByteArray reply=socket->read(128); if(reply.indexOf("close(); return 0; } else #endif { return rig_close(theRig); } } int Rig::setConf(const char *name, const char *val) { return rig_set_conf(theRig, tokenLookup(name), val); } int Rig::setFreq(freq_t freq, vfo_t vfo) { #ifdef WIN32 // Ham Radio Deluxe (only on Windows) if(m_hrd) { QString t; int nhz=(int)freq; t=m_context + "Set Frequency-Hz " + QString::number(nhz); const wchar_t* cmnd = (const wchar_t*) t.utf16(); const wchar_t* result=HRDInterfaceSendMessage(cmnd); QString t2=QString::fromWCharArray (result,-1); HRDInterfaceFreeString(result); if(t2=="OK") { return 0; } else { return -1; } } else if(m_cmndr) { QString t; double f=0.001*freq; t.sprintf("CmdSetFreq%10.3f",f); QByteArray ba = t.toLocal8Bit(); const char* buf=ba.data(); socket->write(buf); socket->waitForBytesWritten(1000); return 0; } else #endif { return rig_set_freq(theRig, vfo, freq); } } int Rig::setXit(shortfreq_t xit, vfo_t vfo) { return rig_set_xit(theRig, vfo, xit); } int Rig::setVFO(vfo_t vfo) { return rig_set_vfo(theRig, vfo); } vfo_t Rig::getVFO() { vfo_t vfo; rig_get_vfo(theRig, &vfo); return vfo; } int Rig::setSplitFreq(freq_t tx_freq, vfo_t vfo) { #ifdef WIN32 // Ham Radio Deluxe only on Windows if(m_hrd) { QString t; int nhz=(int)tx_freq; t=m_context + "Set Frequency-Hz " + QString::number(nhz); const wchar_t* cmnd = (const wchar_t*) t.utf16(); const wchar_t* result=HRDInterfaceSendMessage(cmnd); QString t2=QString::fromWCharArray (result,-1); HRDInterfaceFreeString(result); if(t2=="OK") { return 0; } else { return -1; } } else if(m_cmndr) { QString t; double f=0.001*tx_freq; t.sprintf("CmdSetTxFreq%10.3f",f); QByteArray ba = t.toLocal8Bit(); const char* buf=ba.data(); socket->write(buf); socket->waitForBytesWritten(1000); return 0; } else #endif { return rig_set_split_freq(theRig, vfo, tx_freq); } } freq_t Rig::getFreq(vfo_t vfo) { freq_t freq; #ifdef WIN32 // Ham Radio Deluxe (only on Windows) if(m_hrd) { const wchar_t* cmnd = (const wchar_t*) (m_context+"Get Frequency").utf16(); const wchar_t* freqString=HRDInterfaceSendMessage(cmnd); QString t2=QString::fromWCharArray (freqString,-1); HRDInterfaceFreeString(freqString); freq=t2.toDouble(); return freq; } else if(m_cmndr) { QString t; t="CmdGetFreq"; QByteArray ba = t.toLocal8Bit(); const char* buf=ba.data(); socket->write(buf); socket->waitForReadyRead(1000); QByteArray reply=socket->read(128); QString t2(reply); if(t2.indexOf(""); t2=t2.mid(i1+1).replace(",",""); freq=1000.0*t2.toDouble(); return freq; } else { return -1.0; } } else #endif { int iret=rig_get_freq(theRig, vfo, &freq); // iret should be 0. Negative values mean rig_get_freq() failed. if(iret<0) freq=-1.0; return freq; } } int Rig::setMode(rmode_t mode, pbwidth_t width, vfo_t vfo) { return rig_set_mode(theRig, vfo, mode, width); } rmode_t Rig::getMode(pbwidth_t& width, vfo_t vfo) { rmode_t mode; rig_get_mode(theRig, vfo, &mode, &width); return mode; } int Rig::setPTT(ptt_t ptt, vfo_t vfo) { #ifdef WIN32 // Ham Radio Deluxe only on Windows if(m_hrd) { wchar_t* cmnd; if(ptt==0) { cmnd = (wchar_t*) (m_context + "Set Button-Select TX 0").utf16(); } else { cmnd = (wchar_t*) (m_context + "Set Button-Select TX 1").utf16(); } const wchar_t* result=HRDInterfaceSendMessage(cmnd); QString t2=QString::fromWCharArray (result,-1); HRDInterfaceFreeString(result); if(t2=="OK") { return 0; } else { return -1; } } else if(m_cmndr) { QString t; if(ptt==0) t="CmdRX"; if(ptt>0) t="CmdTX"; QByteArray ba = t.toLocal8Bit(); const char* buf=ba.data(); socket->write(buf); socket->waitForBytesWritten(1000); return 0; } else #endif { return rig_set_ptt(theRig, vfo, ptt); } } ptt_t Rig::getPTT(vfo_t vfo) { ptt_t ptt; rig_get_ptt(theRig, vfo, &ptt); return ptt; } token_t Rig::tokenLookup(const char *name) { return rig_token_lookup(theRig, name); } ./rigclass.h0000664000175000017500000000532212172374464011361 0ustar jtnjtn/* * Hamlib C++ bindings - API header * Copyright (c) 2001-2002 by Stephane Fillod * * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA * */ #ifndef _RIGCLASS_H #define _RIGCLASS_H 1 #include #include #include #include extern QTcpSocket* socket; class BACKEND_IMPEXP Rig { private: RIG* theRig; // Global ref. to the rig bool m_hrd; bool m_cmndr; QString m_context; protected: public: Rig(); virtual ~Rig(); const struct rig_caps *caps; // Initialize rig int init(rig_model_t rig_model); // This method open the communication port to the rig int open(int n); // This method close the communication port to the rig int close(void); int setConf(const char *name, const char *val); token_t tokenLookup(const char *name); int setFreq(freq_t freq, vfo_t vfo = RIG_VFO_CURR); freq_t getFreq(vfo_t vfo = RIG_VFO_CURR); int setMode(rmode_t, pbwidth_t width = RIG_PASSBAND_NORMAL, vfo_t vfo = RIG_VFO_CURR); rmode_t getMode(pbwidth_t&, vfo_t vfo = RIG_VFO_CURR); int setVFO(vfo_t); vfo_t getVFO(); int setXit(shortfreq_t xit, vfo_t vfo); int setSplitFreq(freq_t tx_freq, vfo_t vfo = RIG_VFO_CURR); int setPTT (ptt_t ptt, vfo_t vfo = RIG_VFO_CURR); ptt_t getPTT (vfo_t vfo = RIG_VFO_CURR); // callbacks available in your derived object virtual int FreqEvent(vfo_t, freq_t, rig_ptr_t) const { return RIG_OK; } virtual int ModeEvent(vfo_t, rmode_t, pbwidth_t, rig_ptr_t) const { return RIG_OK; } virtual int VFOEvent(vfo_t, rig_ptr_t) const { return RIG_OK; } virtual int PTTEvent(vfo_t, ptt_t, rig_ptr_t) const { return RIG_OK; } virtual int DCDEvent(vfo_t, dcd_t, rig_ptr_t) const { return RIG_OK; } }; #ifdef WIN32 extern "C" { bool HRDInterfaceConnect(const wchar_t *host, const ushort); void HRDInterfaceDisconnect(); bool HRDInterfaceIsConnected(); wchar_t* HRDInterfaceSendMessage(const wchar_t *msg); void HRDInterfaceFreeString(const wchar_t *lstring); } #endif #endif // _RIGCLASS_H ./shortcuts.txt0000664000175000017500000000147312172374464012203 0ustar jtnjtnF1 Online User's Guide Ctrl+F1 About WSJT-X F2 Open configuration window F3 Display keyboard shortcuts F4 Clear Dx Call and Dx Grid entries Alt+F4 Exit program F5 Display special mouse commands F6 Open next in directory F11 Move Rx frequency down 1 Hz Ctrl+F11 Move Rx and Tx frequencies down 1 Hz F12 Move Rx frequency up 1 Hz Ctrl+F12 Move Rx and Tx frequencies up 1 Hz Shift+F6 Decode remaining files in directory Alt+D Decode again at QSO frequency Shift+D Full-bandwidth decode (both windows) Alt+E Erase() Ctrl+F Edit the free text message box Alt+G Generate standard messages Alt+H Halt Tx() Ctrl+L Lookup callsign in database, generate standard messages Alt M Monitor() Alt+N Enable Tx() Alt+Q Log QSO() Alt+S Stop() Alt+T Tune Alt+V Save the most recently completed *.wav file ./signalmeter.cpp0000664000175000017500000000204312172374465012415 0ustar jtnjtn// Simple bargraph dB meter // Implemented by Edson Pereira PY2SDR // // Limits and geometry are hardcded for now. #include "signalmeter.h" SignalMeter::SignalMeter(QWidget *parent) : QWidget(parent) { resize(parent->size()); m_meter = new MeterWidget(this); m_meter->setGeometry(10, 10, 10, 120); m_label = new QLabel(this); m_label->setGeometry(10, 135, 20, 20); QLabel *dbLabel = new QLabel(this); dbLabel->setText("dB"); dbLabel->setGeometry(30, 135, 20, 20); } SignalMeter::~SignalMeter() { } void SignalMeter::paintEvent( QPaintEvent * ) { QPainter p; p.begin(this); p.drawLine(22, 10, 22, 130); for ( int i = 0; i <= 60; i += 10 ) { p.drawLine(22, i*2 + 10, 25, i*2 + 10); } for ( int i = 10; i < 60; i += 10 ) { p.drawText(30, i*2 + 15, QString::number(60 - i)); } } void SignalMeter::setValue(int value) { m_meter->setValue(value); m_label->setText(QString::number(value)); } void SignalMeter::resizeEvent(QResizeEvent *s) { resize(s->size()); } ./signalmeter.h0000664000175000017500000000075612172374464012072 0ustar jtnjtn#ifndef SIGNALMETER_H #define SIGNALMETER_H #include #include #include class SignalMeter : public QWidget { Q_OBJECT public: explicit SignalMeter(QWidget *parent = 0); ~SignalMeter(); public slots: void setValue(int value); private: MeterWidget *m_meter; QLabel *m_label; int m_signal; int m_sigPeak; protected: void paintEvent( QPaintEvent * ); void resizeEvent(QResizeEvent *s); }; #endif // SIGNALMETER_H ./sleep.h0000664000175000017500000000037512172374464010665 0ustar jtnjtn#ifndef SLEEP_H #define SLEEP_H #include class Sleep : public QThread { public: static void msleep(int ms) { QThread::msleep(ms); } static int idealThreadCount() { return QThread::idealThreadCount(); } }; #endif // SLEEP_H ./soundin.cpp0000664000175000017500000001360612172374465011571 0ustar jtnjtn#include "soundin.h" #include #define FRAMES_PER_BUFFER 1024 //#define NSMAX 1365 #define NSMAX 6827 #define NTMAX 120 extern "C" { #include extern struct { float ss[184*NSMAX]; //This is "common/jt9com/..." in fortran float savg[NSMAX]; // float c0[2*NTMAX*1500]; short int d2[NTMAX*12000]; int nutc; //UTC as integer, HHMM int ndiskdat; //1 ==> data read from *.wav file int ntrperiod; //TR period (seconds) int mousefqso; //User-selected QSO freq (kHz) int newdat; //1 ==> new data, must do long FFT int npts8; //npts in c0() array int nfa; //Low decode limit (Hz) int nfb; //High decode limit (Hz) int ntol; //+/- decoding range around fQSO (Hz) int kin; int nzhsym; int nsave; int nagain; int ndepth; int ntxmode; int nmode; char datetime[20]; } jt9com_; } typedef struct { int kin; //Parameters sent to/from the portaudio callback function int ncall; bool bzero; bool monitoring; } paUserData; //--------------------------------------------------------------- a2dCallback extern "C" int a2dCallback( const void *inputBuffer, void *outputBuffer, unsigned long framesToProcess, const PaStreamCallbackTimeInfo* timeInfo, PaStreamCallbackFlags statusFlags, void *userData ) // This routine called by the PortAudio engine when samples are available. // It may be called at interrupt level, so don't do anything // that could mess up the system like calling malloc() or free(). { paUserData *udata=(paUserData*)userData; (void) outputBuffer; //Prevent unused variable warnings. (void) timeInfo; (void) userData; int nbytes,k; udata->ncall++; if( (statusFlags&paInputOverflow) != 0) { qDebug() << "Input Overflow in a2dCallback"; } if(udata->bzero) { //Start of a new Rx sequence udata->kin=0; //Reset buffer pointer udata->bzero=false; } nbytes=2*framesToProcess; //Bytes per frame k=udata->kin; if(udata->monitoring) { memcpy(&jt9com_.d2[k],inputBuffer,nbytes); //Copy all samples to d2 } udata->kin += framesToProcess; jt9com_.kin=udata->kin; return paContinue; } void SoundInThread::run() //SoundInThread::run() { quitExecution = false; //---------------------------------------------------- Soundcard Setup PaError paerr; PaStreamParameters inParam; PaStream *inStream; paUserData udata; udata.kin=0; //Buffer pointer udata.ncall=0; //Number of callbacks udata.bzero=false; //Flag to request reset of kin udata.monitoring=m_monitoring; inParam.device=m_nDevIn; //### Input Device Number ### inParam.channelCount=1; //Number of analog channels inParam.sampleFormat=paInt16; //Get i*2 from Portaudio inParam.suggestedLatency=0.05; inParam.hostApiSpecificStreamInfo=NULL; paerr=Pa_IsFormatSupported(&inParam,NULL,12000.0); if(paerr<0) { emit error("PortAudio says requested soundcard format not supported."); // return; } qDebug() << ""; paerr=Pa_OpenStream(&inStream, //Input stream &inParam, //Input parameters NULL, //No output parameters 12000.0, //Sample rate FRAMES_PER_BUFFER, //Frames per buffer // paClipOff+paDitherOff, //No clipping or dithering paClipOff, //No clipping a2dCallback, //Input callback routine &udata); //userdata paerr=Pa_StartStream(inStream); if(paerr<0) { emit error("Failed to start audio input stream."); return; } bool qe = quitExecution; static int ntr0=99; int k=0; int nsec; int ntr; int nBusy=0; int nstep0=0; int nsps0=0; qint64 ms0 = QDateTime::currentMSecsSinceEpoch(); //---------------------------------------------- Soundcard input loop while (!qe) { qe = quitExecution; if (qe) break; udata.monitoring=m_monitoring; qint64 ms = QDateTime::currentMSecsSinceEpoch(); m_SamFacIn=1.0; if(udata.ncall>100) { m_SamFacIn=udata.ncall*FRAMES_PER_BUFFER*1000.0/(12000.0*(ms-ms0-50)); } ms=ms % 86400000; nsec = ms/1000; // Time according to this computer ntr = nsec % m_TRperiod; // Reset buffer pointer and symbol number at start of minute if(ntr < ntr0 or !m_monitoring or m_nsps!=nsps0) { nstep0=0; nsps0=m_nsps; udata.bzero=true; } k=udata.kin; if(m_monitoring) { int kstep=m_nsps/2; // m_step=k/kstep; m_step=(k-1)/kstep; if(m_step != nstep0) { if(m_dataSinkBusy) { nBusy++; } else { // m_dataSinkBusy=true; // emit readyForFFT(k); //Signal to compute new FFTs emit readyForFFT(k-1); //Signal to compute new FFTs } nstep0=m_step; } } msleep(100); ntr0=ntr; } Pa_StopStream(inStream); Pa_CloseStream(inStream); } void SoundInThread::setInputDevice(int n) //setInputDevice() { if (isRunning()) return; this->m_nDevIn=n; } void SoundInThread::quit() //quit() { quitExecution = true; } void SoundInThread::setMonitoring(bool b) //setMonitoring() { m_monitoring = b; } void SoundInThread::setPeriod(int ntrperiod, int nsps) { m_TRperiod=ntrperiod; m_nsps=nsps; } int SoundInThread::mstep() { return m_step; } double SoundInThread::samFacIn() { return m_SamFacIn; } ./soundin.h0000664000175000017500000000166712172374464011241 0ustar jtnjtn#ifndef SOUNDIN_H #define SOUNDIN_H #include #include // Thread gets audio data from soundcard and signals when a buffer of // specified size is available. class SoundInThread : public QThread { Q_OBJECT bool quitExecution; // if true, thread exits gracefully protected: virtual void run(); public: bool m_dataSinkBusy; SoundInThread(): quitExecution(false), m_dataSinkBusy(false) { } void setInputDevice(qint32 n); void setMonitoring(bool b); void setPeriod(int ntrperiod, int nsps); int mstep(); double samFacIn(); signals: void readyForFFT(int k); void error(const QString& message); void status(const QString& message); public slots: void quit(); private: double m_SamFacIn; //(Input sample rate)/12000.0 qint32 m_step; qint32 m_nDevIn; qint32 m_TRperiod; qint32 m_TRperiod0; qint32 m_nsps; bool m_monitoring; }; #endif // SOUNDIN_H ./soundout.cpp0000664000175000017500000001604512172374464011771 0ustar jtnjtn#include "soundout.h" //#define FRAMES_PER_BUFFER 1024 extern "C" { #include } extern float gran(); //Noise generator (for tests only) extern int itone[126]; //Audio tones for all Tx symbols extern int icw[250]; //Dits for CW ID extern int outBufSize; extern bool btxok; extern bool btxMute; extern double outputLatency; typedef struct //Parameters sent to or received from callback function { double txsnrdb; double dnsps; int ntrperiod; int ntxfreq; int xit; int ncall; int nsym; bool txMute; bool bRestart; bool btune; } paUserData; //--------------------------------------------------------------- d2aCallback extern "C" int d2aCallback(const void *inputBuffer, void *outputBuffer, unsigned long framesToProcess, const PaStreamCallbackTimeInfo* timeInfo, PaStreamCallbackFlags statusFlags, void *userData ) { paUserData *udata=(paUserData*)userData; short *wptr = (short*)outputBuffer; static double twopi=2.0*3.141592653589793238462; static double baud; static double phi=0.0; static double dphi; static double freq; static double snr; static double fac; static double amp; static int ic=0,j=0; static int isym0=-999; static short int i2; int isym,nspd; udata->ncall++; if(udata->bRestart) { // Time according to this computer qint64 ms = QDateTime::currentMSecsSinceEpoch() % 86400000; int mstr = ms % (1000*udata->ntrperiod ); if(mstr<1000) return paContinue; ic=(mstr-1000)*48; udata->bRestart=false; srand(mstr); //Initialize random seed } isym=ic/(4.0*udata->dnsps); //Actual fsample=48000 if(udata->btune) isym=0; //If tuning, send pure tone if(udata->txsnrdb < 0.0) { snr=pow(10.0,0.05*(udata->txsnrdb-6.0)); fac=3000.0; if(snr>1.0) fac=3000.0/snr; } if(isym>=udata->nsym and icw[0]>0) { //Output the CW ID freq=udata->ntxfreq - udata->xit; dphi=twopi*freq/48000.0; // float wpm=20.0; // int nspd=1.2*48000.0/wpm; // nspd=3072; //18.75 WPM nspd=2048 + 512; //22.5 WPM int ic0=udata->nsym*4*udata->dnsps; for(uint i=0 ; itwopi) phi -= twopi; i2=32767.0*sin(phi); j=(ic-ic0)/nspd + 1; if(icw[j]==0) i2=0; if(udata->txsnrdb < 0.0) { int i4=fac*(gran() + i2*snr/32768.0); if(i4>32767) i4=32767; if(i4<-32767) i4=-32767; i2=i4; } if(!btxok or btxMute) i2=0; *wptr++ = i2; //left #ifdef UNIX *wptr++ = i2; //right #endif ic++; } if(j>icw[0]) return paComplete; if(statusFlags==999999 and timeInfo==NULL and inputBuffer==NULL) return paContinue; //Silence compiler warning: return paContinue; } baud=12000.0/udata->dnsps; amp=32767.0; int i0=(udata->nsym-0.017)*4.0*udata->dnsps; int i1=udata->nsym*4.0*udata->dnsps; if(udata->btune) { //If tuning, no ramp down i0=999*udata->dnsps; i1=i0; } for(uint i=0 ; idnsps); //Actual fsample=48000 if(udata->btune) isym=0; //If tuning, send pure tone if(isym!=isym0) { freq=udata->ntxfreq + itone[isym]*baud - udata->xit; dphi=twopi*freq/48000.0; isym0=isym; } phi += dphi; if(phi>twopi) phi -= twopi; if(ic>i0) amp=0.98*amp; if(ic>i1) amp=0.0; i2=amp*sin(phi); if(udata->txsnrdb < 0.0) { int i4=fac*(gran() + i2*snr/32768.0); if(i4>32767) i4=32767; if(i4<-32767) i4=-32767; i2=i4; } if(!btxok or btxMute) i2=0; *wptr++ = i2; //left #ifdef UNIX *wptr++ = i2; //right #endif ic++; } if(amp==0.0) { if(icw[0]==0) return paComplete; phi=0.0; } return paContinue; } void SoundOutThread::run() { PaError paerr; PaStreamParameters outParam; PaStream *outStream; paUserData udata; quitExecution = false; outParam.device=m_nDevOut; //Output device number outParam.channelCount=1; //Number of analog channels #ifdef UNIX outParam.channelCount=2; //Number of analog channels #endif outParam.sampleFormat=paInt16; //Send short ints to PortAudio outParam.suggestedLatency=0.05; outParam.hostApiSpecificStreamInfo=NULL; paerr=Pa_IsFormatSupported(NULL,&outParam,48000.0); if(paerr<0) { qDebug() << "PortAudio says requested output format not supported."; qDebug() << paerr << m_nDevOut; return; } udata.txsnrdb=99.0; udata.dnsps=m_nsps; udata.nsym=85; if(m_modeTx=="JT65") { udata.dnsps=4096.0*12000.0/11025.0; udata.nsym=126; } udata.ntrperiod=m_TRperiod; udata.ntxfreq=m_txFreq; udata.xit=m_xit; udata.ncall=0; udata.txMute=m_txMute; udata.bRestart=true; udata.btune=m_tune; paerr=Pa_OpenStream(&outStream, //Output stream NULL, //No input parameters &outParam, //Output parameters 48000.0, //Sample rate outBufSize, //Frames per buffer paClipOff, //No clipping d2aCallback, //output callbeck routine &udata); //userdata paerr=Pa_StartStream(outStream); if(paerr<0) { qDebug() << "Failed to start audio output stream."; return; } const PaStreamInfo* p=Pa_GetStreamInfo(outStream); outputLatency = p->outputLatency; bool qe = quitExecution; qint64 ms0 = QDateTime::currentMSecsSinceEpoch(); //---------------------------------------------- Soundcard output loop while (!qe) { qe = quitExecution; if (qe) break; udata.txsnrdb=m_txsnrdb; udata.dnsps=m_nsps; udata.nsym=85; if(m_modeTx=="JT65") { udata.dnsps=4096.0*12000.0/11025.0; udata.nsym=126; } udata.ntrperiod=m_TRperiod; udata.ntxfreq=m_txFreq; udata.xit=m_xit; udata.txMute=m_txMute; udata.btune=m_tune; m_SamFacOut=1.0; if(udata.ncall>400) { qint64 ms = QDateTime::currentMSecsSinceEpoch(); m_SamFacOut=udata.ncall*outBufSize*1000.0/(48000.0*(ms-ms0-50)); } msleep(100); } Pa_StopStream(outStream); Pa_CloseStream(outStream); } void SoundOutThread::setOutputDevice(int n) //setOutputDevice() { if (isRunning()) return; this->m_nDevOut=n; } void SoundOutThread::setPeriod(int ntrperiod, int nsps) { m_TRperiod=ntrperiod; m_nsps=nsps; } void SoundOutThread::setTxFreq(int n) { m_txFreq=n; } void SoundOutThread::setXIT(int n) { m_xit=n; } void SoundOutThread::setTxSNR(double snr) { m_txsnrdb=snr; } void SoundOutThread::setTune(bool b) { m_tune=b; } double SoundOutThread::samFacOut() { return m_SamFacOut; } ./soundout.h0000664000175000017500000000246412172374465011437 0ustar jtnjtn#ifndef SOUNDOUT_H #define SOUNDOUT_H #include #include // An instance of this thread sends audio data to a specified soundcard. // Output can be muted while underway, preserving waveform timing when // transmission is resumed. class SoundOutThread : public QThread { Q_OBJECT protected: virtual void run(); public: // Constructs (but does not start) a SoundOutThread SoundOutThread() : quitExecution(false) // Initialize some private members , m_txOK(false) , m_txMute(false) { } public: void setOutputDevice(qint32 n); void setPeriod(int ntrperiod, int nsps); void setTxFreq(int n); void setXIT(int n); void setTxSNR(double snr); void setTune(bool b); double samFacOut(); bool quitExecution; //If true, thread exits gracefully QString m_modeTx; // Private members private: double m_txsnrdb; //if < 0, add noise to Tx audio double m_SamFacOut; //(Output sample rate)/48000.0 qint32 m_nDevOut; //Output device number qint32 m_TRperiod; //T/R period (s) qint32 m_nsps; //Samples per symbol (at 12000 Hz) qint32 m_txFreq; qint32 m_xit; bool m_txOK; //Enable Tx audio bool m_txMute; //Mute temporarily bool m_tune; }; #endif ./ss.bat0000664000175000017500000000003212172374464010507 0ustar jtnjtnsvn status | grep -v '?' ./sss.bat0000664000175000017500000000001412172374464010672 0ustar jtnjtnsvn status ./widegraph.cpp0000664000175000017500000001575412172374464012071 0ustar jtnjtn#include "widegraph.h" #include "ui_widegraph.h" #include "commons.h" WideGraph::WideGraph(QWidget *parent) : QDialog(parent), ui(new Ui::WideGraph) { ui->setupUi(this); this->setWindowFlags(Qt::Dialog); this->installEventFilter(parent); //Installing the filter ui->widePlot->setCursor(Qt::CrossCursor); this->setMaximumWidth(2048); this->setMaximumHeight(880); ui->widePlot->setMaximumHeight(800); ui->widePlot->m_bCurrent=false; connect(ui->widePlot, SIGNAL(freezeDecode1(int)),this, SLOT(wideFreezeDecode(int))); connect(ui->widePlot, SIGNAL(setFreq1(int,int)),this, SLOT(setFreq2(int,int))); m_fMin=3000; ui->fMinSpinBox->setValue(m_fMin); //Restore user's settings QString inifile(QApplication::applicationDirPath()); inifile += "/wsjtx.ini"; QSettings settings(inifile, QSettings::IniFormat); settings.beginGroup("WideGraph"); ui->widePlot->setPlotZero(settings.value("PlotZero", 0).toInt()); ui->widePlot->setPlotGain(settings.value("PlotGain", 0).toInt()); ui->zeroSpinBox->setValue(ui->widePlot->getPlotZero()); ui->gainSpinBox->setValue(ui->widePlot->getPlotGain()); int n = settings.value("FreqSpan",2).toInt(); int w = settings.value("PlotWidth",1000).toInt(); ui->widePlot->m_w=w; ui->freqSpanSpinBox->setValue(n); ui->widePlot->setNSpan(n); m_waterfallAvg = settings.value("WaterfallAvg",5).toInt(); ui->waterfallAvgSpinBox->setValue(m_waterfallAvg); ui->widePlot->m_bCurrent=settings.value("Current",false).toBool(); ui->widePlot->m_bCumulative=settings.value("Cumulative",true).toBool(); if(ui->widePlot->m_bCurrent) ui->spec2dComboBox->setCurrentIndex(0); if(ui->widePlot->m_bCumulative) ui->spec2dComboBox->setCurrentIndex(1); int nbpp=settings.value("BinsPerPixel",2).toInt(); ui->widePlot->setBinsPerPixel(nbpp); m_slope=settings.value("Slope",0.0).toDouble(); ui->slopeSpinBox->setValue(m_slope); settings.endGroup(); } WideGraph::~WideGraph() { saveSettings(); delete ui; } void WideGraph::saveSettings() { //Save user's settings QString inifile(QApplication::applicationDirPath()); inifile += "/wsjtx.ini"; QSettings settings(inifile, QSettings::IniFormat); settings.beginGroup("WideGraph"); settings.setValue("PlotZero",ui->widePlot->m_plotZero); settings.setValue("PlotGain",ui->widePlot->m_plotGain); settings.setValue("PlotWidth",ui->widePlot->plotWidth()); settings.setValue("FreqSpan",ui->freqSpanSpinBox->value()); settings.setValue("WaterfallAvg",ui->waterfallAvgSpinBox->value()); settings.setValue("Current",ui->widePlot->m_bCurrent); settings.setValue("Cumulative",ui->widePlot->m_bCumulative); settings.setValue("BinsPerPixel",ui->widePlot->binsPerPixel()); settings.setValue("Slope",m_slope); settings.endGroup(); } void WideGraph::dataSink2(float s[], float df3, int ihsym, int ndiskdata) { static float splot[NSMAX]; static float swide[2048]; int nbpp = ui->widePlot->binsPerPixel(); static int n=0; //Average spectra over specified number, m_waterfallAvg if (n==0) { for (int i=0; i=m_waterfallAvg) { for (int i=0; iwidePlot->plotWidth(); int i0=-1; //### int i=i0; int jz=5000.0/(nbpp*df3); for (int j=0; jwidePlot->draw(swide,i0); } } void WideGraph::on_freqSpanSpinBox_valueChanged(int n) { ui->widePlot->setBinsPerPixel(n); } void WideGraph::on_waterfallAvgSpinBox_valueChanged(int n) { m_waterfallAvg = n; } void WideGraph::on_zeroSpinBox_valueChanged(int value) { ui->widePlot->setPlotZero(value); } void WideGraph::on_gainSpinBox_valueChanged(int value) { ui->widePlot->setPlotGain(value); } void WideGraph::keyPressEvent(QKeyEvent *e) { switch(e->key()) { int n; case Qt::Key_F11: n=11; if(e->modifiers() & Qt::ControlModifier) n+=100; emit f11f12(n); break; case Qt::Key_F12: n=12; if(e->modifiers() & Qt::ControlModifier) n+=100; emit f11f12(n); break; default: e->ignore(); } } void WideGraph::setRxFreq(int n) { m_rxFreq=n; ui->widePlot->setRxFreq(m_rxFreq,true); if(m_lockTxFreq) setTxFreq(m_rxFreq); } int WideGraph::rxFreq() { return ui->widePlot->rxFreq(); } int WideGraph::nSpan() { return ui->widePlot->m_nSpan; } float WideGraph::fSpan() { return ui->widePlot->m_fSpan; } int WideGraph::nStartFreq() { return ui->widePlot->startFreq(); } void WideGraph::wideFreezeDecode(int n) { emit freezeDecode2(n); } void WideGraph::setRxRange(int fMin) { ui->widePlot->setRxRange(fMin); ui->widePlot->DrawOverlay(); ui->widePlot->update(); } int WideGraph::getFmin() { return m_fMin; } int WideGraph::getFmax() { int n=ui->widePlot->getFmax(); if(n>5000) n=5000; return n; } void WideGraph::setFmin(int n) { m_fMin = n; ui->fMinSpinBox->setValue(n); setRxRange(m_fMin); } void WideGraph::setPalette(QString palette) { ui->widePlot->setPalette(palette); } double WideGraph::fGreen() { return ui->widePlot->fGreen(); } void WideGraph::setPeriod(int ntrperiod, int nsps) { m_TRperiod=ntrperiod; m_nsps=nsps; ui->widePlot->setNsps(ntrperiod, nsps); } void WideGraph::setTxFreq(int n) { emit setXIT2(n); ui->widePlot->setTxFreq(n); } void WideGraph::setMode(QString mode) { m_mode=mode; ui->fMinSpinBox->setEnabled(m_mode=="JT9+JT65"); ui->widePlot->setMode(mode); ui->widePlot->DrawOverlay(); ui->widePlot->update(); } void WideGraph::setModeTx(QString modeTx) { m_modeTx=modeTx; ui->widePlot->setModeTx(modeTx); ui->widePlot->DrawOverlay(); ui->widePlot->update(); } void WideGraph::on_spec2dComboBox_currentIndexChanged(const QString &arg1) { ui->widePlot->m_bCurrent=false; ui->widePlot->m_bCumulative=false; if(arg1=="Current") ui->widePlot->m_bCurrent=true; if(arg1=="Cumulative") ui->widePlot->m_bCumulative=true; } void WideGraph::on_fMinSpinBox_valueChanged(int n) { m_fMin=n; setRxRange(m_fMin); } void WideGraph::on_slopeSpinBox_valueChanged(double d) { m_slope=d; } void WideGraph::setSlope(double d) { m_slope=d; ui->slopeSpinBox->setValue(d); } void WideGraph::setLockTxFreq(bool b) { m_lockTxFreq=b; ui->widePlot->m_lockTxFreq=b; } double WideGraph::getSlope() { return m_slope; } void WideGraph::setFreq2(int rxFreq, int txFreq) { m_rxFreq=rxFreq; m_txFreq=txFreq; emit setFreq3(rxFreq,txFreq); } void WideGraph::setDialFreq(double d) { m_dialFreq=d; ui->widePlot->setDialFreq(d); } ./widegraph.h0000664000175000017500000000365312172374464011531 0ustar jtnjtn#ifndef WIDEGRAPH_H #define WIDEGRAPH_H #include namespace Ui { class WideGraph; } class WideGraph : public QDialog { Q_OBJECT public: explicit WideGraph(QWidget *parent = 0); ~WideGraph(); void dataSink2(float s[], float df3, int ihsym, int ndiskdata); void setRxFreq(int n); int rxFreq(); int nSpan(); int nStartFreq(); int getFmin(); int getFmax(); float fSpan(); void saveSettings(); void setRxRange(int fMin); void setFmin(int n); void setPalette(QString palette); void setFsample(int n); void setPeriod(int ntrperiod, int nsps); void setTxFreq(int n); void setMode(QString mode); void setModeTx(QString modeTx); void setSlope(double d); void setLockTxFreq(bool b); double getSlope(); double fGreen(); qint32 m_rxFreq; qint32 m_txFreq; signals: void freezeDecode2(int n); void f11f12(int n); void setXIT2(int n); void setFreq3(int rxFreq, int txFreq); public slots: void wideFreezeDecode(int n); void setFreq2(int rxFreq, int txFreq); void setDialFreq(double d); protected: virtual void keyPressEvent( QKeyEvent *e ); private slots: void on_waterfallAvgSpinBox_valueChanged(int arg1); void on_freqSpanSpinBox_valueChanged(int arg1); void on_zeroSpinBox_valueChanged(int arg1); void on_gainSpinBox_valueChanged(int arg1); void on_spec2dComboBox_currentIndexChanged(const QString &arg1); void on_fMinSpinBox_valueChanged(int n); void on_slopeSpinBox_valueChanged(double d); private: double m_slope; double m_dialFreq; qint32 m_waterfallAvg; qint32 m_fSample; qint32 m_TRperiod; qint32 m_nsps; qint32 m_ntr0; qint32 m_fMin; qint32 m_fMax; bool m_lockTxFreq; QString m_mode; QString m_modeTx; Ui::WideGraph *ui; }; #ifdef WIN32 extern int set570(double freq_MHz); #endif #endif // WIDEGRAPH_H ./widegraph.ui0000664000175000017500000002662412172374464011722 0ustar jtnjtn WideGraph 0 0 799 326 0 0 Dialog true 0 0 400 100 QFrame::StyledPanel QFrame::Sunken 1 0 Qt::Horizontal 20 20 0 0 110 0 38 16777215 Compression factor for frequency scale Bins/Pixel 1 1000 1 2 Qt::Horizontal QSizePolicy::Minimum 8 20 0 0 80 0 38 16777215 Number of FFTs averaged (controls waterfall scrolling rate) N Avg 1 20 Qt::Horizontal QSizePolicy::Minimum 8 20 80 0 38 16777215 Scaling (dB) applied to spectra before plotting Gain -20 20 Qt::Horizontal QSizePolicy::Minimum 8 20 80 0 38 16777215 Constant offset applied to waterfall data Zero -100 100 60 0 Slope 1 -2.000000000000000 2.000000000000000 0.100000000000000 Qt::Horizontal QSizePolicy::Minimum 8 20 0 0 110 0 Decode JT65 below this frequency, JT9 above JT9 JT65 0 5000 100 3000 Qt::Horizontal QSizePolicy::Minimum 8 20 Select data for display curve 1 Current Cumulative Qt::Horizontal 20 20 CPlotter QFrame
plotter.h
1 ./wsjt.ico0000664000175000017500000000206612172374464011066 0ustar jtnjtn è&(( @€€€€€€€€€€ÀÀÀ€€€ÿÿÿÿÿÿÿÿÿÿÿÿÌÌÌÌ ÌÌÌÌʬÀ ÌÌÌÌ̪¬ÌÀÌÌÌÌÌ̪¬ÌÌ ÌÌÌÌÌ̪ªÌÌÀÌÌÌÌÌ̪ªª¬ÌÌ ÌÌÌÌÌ̪ªª¬ÌÌÀ ÌÌÌÌ̪ªªªª¬ÌÀÌÌÌÌÌ̪ªªªª¬ÌÌÌÌÌÌÌ̪ªªªª¬ÌÌÌÌÌÌÌ̪ªªªªÌÌÌ ÌÌÌÌÌ̪ʪÌÌÌÌÌÀ ÌÌÌÌ̪¬ÌÌÌÌÌÌÌÀ ÌÌÌÌ̪¬ÌÌÌÌÌÌÌ  ÌÌÌ̪ÌÌÌÌÌÌÌÌÌ  ÌÌ̪¬ÌÌÌÌÌÌÌÌÊ  ÌÌʪ¬ÌÌ̬ÌÌÌ̪  ÌÌʪÌÌÌʬÌÌÌʪ  Ì̪ªªÊ¬ªÌÌÌÌʪ ÌʪªªÊªªÌÌÌÌʪÌʪªªªªªÌÌÌÌ̪ÌʪªªªªªÌÌÌÌÌÊ Êªªªªªª¬ÌÌ̬À ʪªªªªª¬ÌÌʪ ªªªªªªª¬ÌÌʪ ªªª¬¬ªªÌ̪ ªªªÌ̪ÊÌ̪ ªªÌ̪ÊÌÌ  ª¬Ì̪ÌÀ̬ÌÌ( À€€€€€€€€€€€€ÀÀÀÿÿÿÿÿÿÿÿÿÿÿÿ ÌÊÀ ÌÌʬÀÌÌ̪¬ÌÌÌʪªÌ ÌÌʪªÌÀ Ì̪¬ÌÌÀ ÌʬÌÌÌÀ ̪ÌÊÌÌ  ʪªªÌÊ  ʪª¬ÌʠʪªªÌʪªªªÌª ª¬¬Ì  ¬ÊÀøàÀ€€€€Ààø./wsjtx_changelog.txt0000664000175000017500000007604612172374464013343 0ustar jtnjtn WSJT-X ChangeLog ------------------------------------------------------------------ May 30, 2013: Version 1.0, r3323 -------------------------------- With this release of WSJT-X Version 1.0 we include a few (relatively minor) enhancements in response to user requests, as well as some program polishing and cleanup. Active program development will continue, but new releases will become less frequent. 1. New option on the Setup menu: "Tx freq locked to Rx freq". 2. Double-click on a decoded "73" message now sets Tx5, rather than Tx6. 3. New keyboard shortcuts: Alt+1 through Alt+6 set the next Tx message at the corresponding number. 4. PTT control via Ham Radio Deluxe has been imnplemented and tested. 5. "Tool Tips" are now provided for most on-screen controls. 6. Under Linux and OS X, listings of available audio devices and APIs have been corrected. 7. Tab order among GUI controls has been cleaned up. 8. Updates to the WSJT-X User's Guide. May 22, 2013: v0.99, r3297 -------------------------- 1. CAT control via Ham Radio Deluxe is now available. For setup details see item #5 at the top of page 6 of the updated WSJT-X User's Guide. 2. Submodes JT9-5, JT8-10, JT9-30 have been de-activated. (As far as I know, nobody was using them.) This action makes the program smaller by some 150 MB and able to run effectively on some older computers. 3. Bizarre ordering of COM port numbers on the drop-down list has been corrected, and suitable serial ports added to the list displayed in Linux. 4. Gray bar between decoding periods now contains a dashed line. 5. Corrected a bug that prevented use of Setup | Configuration with no existing wsjtx.ini file. May 17, 2013: v0.95, r3278 -------------------------- 1. Double-clicking on a decoded text line in "Band Activity" window now copies the line into the "QSO Frequency" window if it was not already there. 2. Option "Color highlighting in left window" removed from Setup menu. Highlighting is now always done. 3. Positions of "QSO Frequency" and "Band Activity" windows have been swapped. 4. F4 was restored to its previous use; F5 is now used to display Special Mouse Commands 5. Small square between Band selector and Frequency readout was made a control button. Orange indicates one-way CAT control from program to radio, red indicates bi-directional control. Clicking the orange button causes a one-time readout of dial frequency. 6. If Save=None, the last recorded file is deleted on program exit. This prevents unwanted accumulation of files in the Save directory. 7. Status-bar messages were re-arranged in a more logical order. 8. Tx signal report was added to wsjtx_status.txt (for JT-Alert) 9. More informative labels were placed on the "Tab 2" GUI controls. 10. Better default scaling for the "Cumulative" spectrum. 11. New algorithm for identifying JT9 signals to send to decoder, resulting major improvements in decoder speed. 12. Bug fixes: - Incorrect displayed frequencies for JT9-2 signals - Infinitely repeated "Error rigOpen -1" messages - User tries to open CAT control using busy or nonexistent serial port 13. Many updates to the User's Guide May 2, 2013: v0.95, r3251 ------------------------- 1. The "band change" function is executed whenever the Band combobox is activated, even if the selected band has not changed. 2. The program does not set rig mode. That task is left to the user. 3. Time interval for polling rig frequency is now a user parameter on the setup screen. I set mine to 1 second, which works fine with the Kenwood TS-2000. Set it to 0 if you want no polling for frequency (which means unidirectional CAT control from program to radio). Choose something like 10 s for the K3. 4. Much new work on the WSJT-X User's Guide, which is approaching its final form for Version 1.0. Please read it and tell us about anything you find unclear or missing! These changes address nearly all of the CAT issues found by a few users -- those with K3, IC-746, IC-706, in particular. One additional piece of advice when running WSJT-X in Windows: connect and turn on the radio and any interface equipment before starting WSJT-X, and exit the program before turning such equipment off. April 29, 2013: v0.95, r3243 ---------------------------- 1. Now has bi-directionsl CAT control using direct calls to hamlib functions. Highlights displayed dial frequency with red background if frequency differs from nominal for the selected band by more than 100 kHz. (Is there a more useful or logical condition to flag?) Small red square between Band selector and Dial Frequency display to indicate that CAT control is active. Mode is set to USB on startup. (Note: CAT control diagnostics are presently rather rudimentary, we're still working on this. Feedback is welcome!) 2. New controls on Setup | Configuration screen: - RTS/DTR OFF -- needed by K2 and maybe other radios - Data / Mic -- select CAT-control PTT type - Test CAT Control -- try settings before returning to main screen - Test PTT -- try settings for toggling PTT On/Off 3. Help menu now provides displays of Keyboard Shortcuts (quick access via F3) and Special Mouse Commands (F4). 4. Option "Setup | Advanced | Allow multiple instances" enables the use of more than one instance of WSJT-X for special applications. (The program must be copied into and run from different directories.) 5. No posts to PSK Reporter if band was changed during the reception period. 6. Improved behavior of Tune button. 7. Improved inter-process communication between WSJT-X and JT-Alert-X. 8. Better interaction between "Report" spinner control and Tx messages. 9. Removed the NB checkbox and slider. (Has anyone found these useful?) 10. New buttons on main window: "Tx=Rx" sets Tx frequency to current Rx frequency; "Rx=Tx" does the opposite. 11. Log QSO confirmation window is now "non-modal": you can keep it open and still access controls on the main window. 12. Tab-order has been rationalized on most screens. 13. Dial frequency and mode written to file ALL.TXT. 14. Double-click on decoded line sets Tx message #3 if message has the form "MyCall Call2 rpt". 15. Bug causing occasional, seemingly unpredictable program crashes has been fixed. 16. The WSJT-X User's Guide is somewhat closer to being complete. User feedback on the Guide will be most welcome. What is unclear? What is missing? April 17, 2013: v0.9, r3195 --------------------------- 1. Sorry, the CAT control changes in r3187/3188 were a dismal failure in many stations, and they introduced other bugs as well. This revision goes back to uni-directional CAT control: the program can set the radio's dial frequency and do T/R switching, but that's all. The band setting is not reset on program startup. 2. Logic for the Tune button has been corrected. 3. For Linux compile-it-yourself enthusiasts: the interface to PSK Reporter is now working undel Linux. April 16, 2013: v0.9, r3188 --------------------------- 1. CAT control now reads and follows changes in radio's dial frequency. Readout gets red highlighting if radio is on wrong band. On program restart, band is reset to the last selected band. 2. New "Tune" button generates an unmodulated carrier. Toggle button a second time to turn Tx off. 3. Added labels at top of "Tab 2" and enlarged the text entry fields. 4. Fixed the broken logic for "Runaway Tx watchdog". 5. Fixed "Prompt me to log QSO" so that it no longer requires also setting "ID after 73". 6. Additional changes of (eventual) interest to Linux users. Code for sending spots to PSK Reporter now in place. April 13, 2013: v0.9, r3166 --------------------------- 1. Option to send Tx messages (highlighted in yellow) to the QSO window. 2. Prevent starting a transmission more than 24 sec into a Tx period. 3. "Setup | Options" changed to "Setup | Configuration". 4. Type Alt-V to save the most recently completed Rx file. 5. Fixed bug that truncated Rx messages to 16 characters. 6. Internal program changes that should provide better user diagnostics when necessary at program startup. April 11, 2013: v0.9, r3157 --------------------------- 1. Maximum size of several window areas increased to accommodate system fonts set larger than default. 2. New behavior of Erase button: click once to erase the left (QSO) window, twice to erase both decoded text windows. 3. Keyboard shortcuts: Alt-D: decode again at QSO frequency (same as clicking the Decode() button) Shift-D: do another full decode in both windows Alt-E: Erase() Ctrl-F: Edit the free text message box Alt-H: Halt Tx() Alt M: Monitor() Alt-N: Enable Tx() Alt-Q: Log QSO() Alt-S: Stop() 4. New Setup options: "Tx disabled after sending 73" and "Runaway Tx watchdog". 5. Fixed bug in saving the "report received" for logging purposes. 6. Corrected the logic for "Runaway Tx watchdog". 7. Fixed bug that truncated characters 17 and 18 of decoded messages. April 10, 2013: v0.9, r3151 --------------------------- 1. Blank line between decoding periods is now in the right-hand text window, where it should be. 2. Decoding range defined by fMin and fMax is now enforced. April 9, 2013: v0.9, r3143 -------------------------- This minor release restores the decoding speed of earlier revisions and corrects a bug that prevented sending CW ID. April 9, 2013: v0.9, r3142 -------------------------- This version of WSJT-X has a number of significant changes. Please read the following notes carefully. Also -- even if you are already familiar with WSJT-X -- be sure to read the updated WSJT-X User's Guide at http://www.physics.princeton.edu/pulsar/K1JT/WSJT-X_Users_Guide.pdf , especially pages 3 and 4. Changes since v0.8 r3118 include the following: 1. There are now two scrolling windows for decoded text. The left window contains decodes only from close to the designated QSO frequency. The right window includes signals over the full decoding range. 2. An alternative set of controls is now available for generating and selecting Tx messages. Some may find these more convenient to use than the Tx1 through Tx6 message boxes. 3. A number of new user options are available on the Setup menu: - Blank line between decoding periods (right window only) - Clear DX Call and DX Grid after logging QSO - Display distances in miles - Runaway Tx watchdog - Background colors for left window - Double-click on decoded message sets Tx Enable 4. New or changed on-screen features - "Tol" replaced by fMin and fMax on waterfall screen (see User's Guide) - Spinner control for signal report - On waterfall scale: green marker for Rx freq, red for Tx. blue for decoding range 5. New behavior - "CQ DX" is now treated properly when decoded line is double-clicked - Message formate for compound callsigns (e.g., PJ4/K1ABC, G4XYZ/P) are now handled correctly. (Some restrictions apply, and will be spelled out in the completed User's Guide.) - Decode button now causes a decode only at the specified Rx frequency. - Click on waterfall spectrum sets Rx freq; double-click also invokes decoder (as though Decode button had been clicked). CTRL-click moves both Rx and Tx freqs. - Amplitude at end of transmission is ramped down to prevent a final key click. 6. The following bugs have been fixed: - Logic error in decoder - Certain non-standard Tx messages could cause a program crash. - Certain (rarely used) messages did not pack/unpack correctly April 2, 2013: v0.8, r3118 -------------------------- 1. Improved interface to program JT-Alert, by VK3AMA. 2. The LogQSO confirmation dialog no longer blocks the GUI updating process. 3. A blank line with gray background separates the decoded text lines for each new invocation of the decoder. 4. New suggested default frequencies: 5.357, 18.104, and 24.918 MHz. Be sure to edit these entries on the 'Default Frequencies' tab of the Setup screen. (When you have done this once, the new values will be remembered.) 5. The LogQSO button now does nothing is the 'DX call' entry field is blank. 6. Several minor bugs were fixed. March 27, 2013: v0.8, r3113 --------------------------- 1. Bug fix: VOX control of T/R switching now works. 2. Potentially useful error messages now appear when CAT control has failed. 3. Added an instruction on the Log QSO confirmation screen. 4. Clear the DXcall and DXgrid entries after logging a QSO. March 26, 2013: v0.8, r3112 --------------------------- Edson Pereira, PY2SDR, recently became an active contributor to this open-source project. Edson and I have been very busy over the past few days! WSJT-X revision 3112 has many changes and new features. 1. The GUI layout has been adjusted and optimized. 2. CAT control is now operational, offering optional control of your radio's dial frequency and T/R status. Go to the Setup | Options window to select the necessary parameters. 3. CW ID has been implemented. You can have your ID sent after a fixed time interval, or automatically when you transmit a "73" or free text message. 4. Default dial frequencies are available for each band on a new tab on the Setup | Options window. Please note: some of these frequencies are probably wrong! You can edit them as needed. (Please let us know if the original values are inconsistent with actual practice on any band.) 5. Several new options appear on the Setup menu. Try them! 6. Azimuth and Distance information is displayed whenever a valid grid locator appears in the "Dx Grid" box. 7. The decoder has again been adjusted for better compromise between sensitivity and decoding time. 8. The User's Guide is out of date, and needs work. We hope to get to that task soon. 9. Very important for some would-be users: WSJT-X now runs properly under Linux. We haven't made a package yet, so for now you must compile your own. If you don't know how, we hope to be set up to make packages before too long. 10. If you know someone who might be interested in contributing to the development of WSJT-X and related projects, please send him/her our way! We're especially looking for someone interested in producing packaged Linux distributions -- for example, *.deb or *.rpm packages, but other programming help is also wanted. As always: please report bugs, and don't be bashful about sending us your feature requests! March 22, 2013: v0.7, r3071 --------------------------- 1. Correct a bug that (still) allowed display of previous decodes when nothing new was decoded. 2. Add a user confirmation screen activated when you click Log QSO. This lets you edit or add information before it is written to the ADIF file. 3. Tx message macros and now available. Configure them on the Setup window. They are invoked as a pop-up menu by right-clicking on the Tx5 message window; then select the desired message by left-clicking on the desired message. March 20, 2013: v0.7, r3063 --------------------------- 1. Add Frequency to the generated ADIF records. 2. Correct a decoder bug that led to duplication of previous output when nothing new was decoded. March 19, 2013: v0.7, r3061 --------------------------- 1. Allow Windows COM port numbers up to 99. 2. Replace status files wsjtx_qrg.txt and wsjtx_txcall.txt with a single file, wsjtx_status.txt. 3. Combine wsjtx_rx.log and wsjtx_tx.log into a single file ALL.TXT. 4. "Log QSO" now writes a file in ADIF format. 5. Starting to implement popup macros for Tx message #5. 6. Big improvement in decoding speed. *** More changes to come! Please report any problems, especially *** with the ADIF-format log. March 12, 2013: v0.6, r3046 --------------------------- 1. Decoded calls can now be uploaded to the PSK Reporter web site. Check the box "Enable PSK Reporter" on the Setup screen, and go to http://pskreporter.info/pskmap.html to see the spots. Be sure to enter your "Dial Frequency (MHz)" at lower right of the Wide Graph window. (Rig control features are yet to come...) 2. Added some interfaces to permit use with the program JT-Alert, by VK3AMA. Look for this capability in the near future. March 6, 2013: v0.5, r3038 -------------------------- 1. Selection of Current/Cumulative/JT9Sync for the 2d spectral display changed to a combobox. 2. Double-click on decoded text does not change frequency settings if first decoded call is MyCall. March 1, 2013: v0.5, r3026 -------------------------- 1. The horizontal scale of 2d spectra (e.g., the "red curve") is now correct when the user has selected FFT Bins/Pixel > 1. 2. Double-clicking on a decoded text line now selects the second callsign independent of exactly where one has clicked on the line. In addition, it sets the selected frequencies (both Tx and Rx) to the frequency of the decoded transmission. December 11, 2012: v0.5, r2791 ------------------------------ 1. Messages of the form "CQ DX K1ABC" are now supported. November 30, 2012: v0.5, r2788 ------------------------------ 1. A bug was introduced when support for positive signal reports was added. It could cause a program crash when certain free-text messages were composed for transmission. The bug has been fixed. 2. In the slower JT9 sub-modes, the UTC listed on decoded text lines has been changed to the start time of the Rx sequence, rather than the time of the final minute. 3. The waterfall's "Auto Zero" button had no function, and has been removed. 4. In previous revisions the installer put a number of DLLs into the Windows system directory, normally C:\Windows\System32. This revision installs the DLLs to the WSJT-X installation directory. November 29, 2012: v0.5, r2786 ------------------------------ 1. In r2783, the companion program jt9.exe (started automatically when you start WSJT-X) was a CPU hog for no good reason. This was an oversight on my part, and the bug has been corrected. 2. The program should now run correctly if installed in a directory whose name contains embedded spaces. (Under Vista and Win7, however, it's still not a good idea to install WSJT-X into C:\Program Files, because of restricted write permissions there.) 3. In r2783 and earlier, stopping a transmission by toggling to "Auto OFF" would terminate Tx audio and release PTT almost simultaneously, possibly hot-switching your T/R relay(s). This has been corrected so that proper sequencing takes place. November 28, 2012: v0.5, r2783 ------------------------------ This revision has an unusually large number of changes relative to the previous release, v0.4 r2746. These changes include: 1. PTT control via COM ports COM10 and higher is enabled. 2. Improved decoder performance: higher speed as well as better chances of success. Moderate amounts of frequency drift are detected and compensated. Computed S/N values are more reliable. Time offsets from -2.5 to +5 s are now supported, which makes JT9 usable for EME. (EME tests on 144 MHz have been successful, and performance on that propagation mode appears to be good.) 3. Tx Frequency now tracks the selected QSO Frequency (unless you hold down the CTRL key when setting QSO Frequency via mouse-clicks or the F11/F12 keys). 4. Decoded text containing "CQ " is highlighted with green background; text including "MyCall" is highlighted in red. 5. In previous versions, signal reports were required to be in the range -30 to -01 dB. In v0.5 r2782 the range has been extended to -50 to +49 dB. There is backward compatibility for the range -30 to -01, but reports in the range -50 to -31 and 0 to +49 will NOT be decoded correctly by previous program versions. It is important to upgrade! 6. Items "Save Synced" and "Save Decoded" are now implemented. 7. UTC Date, JT9 submode, and a parameter related to the decoding procedure are now included in file wsjtx_rx.log. 8. Editing of Tx messages (in any of the six Tx message boxes) is complete when you hit "Tab" or "Return". The message is then parsed and converted to the form in which it will be displayed if decoding is successful. Free-text messages are trimmed to 13 characters and highlighted with a pink background. 9. The most recent transmitted message is displayed in the right-most label on the status bar. This can be useful if you have lost track of where you were in a QSO. 10. By default, the program now starts with Monitor ON. An option on the Setup menu allows you to select "Monitor OFF at startup". 11. Better scaling is provided for the red "JT9 Sync" curve. Note that JT9 signals in the active sub-mode should appear in this plot as a bump of width equal to the total signal bandwidth, with a narrow and slightly higher bump at the left edge. The narrow bump is the frequency of the Sync tone, which is defined as the nominal frequency of the JT9 signal. 12. Basic QSO information is now written to file wsjt.log when you click the "Log QSO" button. 13. The WSJT-X User's Guide has been updated. 14. Other known bugs have been fixed. There will probably be new ones! When you find one, or if you know of any old ones that have NOT been fixed, please send me email. Summary of Present Status ---------------------------------------------------------------------- I believe that WSJT-X is now a stable and very usable program. Many thousands of QSOs have been made with JT9-1, mostly at HF -- I have made nearly 100, myself. Also a number of QSOs have also been completed at MF, and successful tests have been made on 2m EME, etc. A number of QSOs have also been made with JT9-2. As far as I know the slower modes (JT9-5, JT9-10, and JT9-30) also work correctly. (Certainly they do in my laboratory test setup.) Most people will find these modes too slow for "everyday" use, and they require high frequency stability. It remains to be seen whether they will be widely used. An alternative approach to obtaining improved sensitivity would be to give the decoder an ability to average over several successive transmissions. For example, the average of five JT9-1 transmissions could reach a decoding threshold around -32 dB, only 2 dB worse than a single JT9-5 transmission. Because of QSB, the shorter transmissions may actually succeed in less total time. Stability requirements would be those of JT9-1, much less stringent than those of JT9-5. Program development is not finished, by any means. I will be grateful for your feedback on performance issues, as well as your "wish-list" of features to be added. As always, example recordings of files that you think should have decoded, but did not, will be much appreciated. November 16, 2012: v0.4, r2746 ------------------------------ Changes from v0.4 r2731 include the following: 1. Valid signal reports are now generated by double-clicking on a callsign in the decoded text window. 2. Consecutive spaces in a Tx message are now collapsed into a single space. 3. Decoding speed is much improved, especially when strong (possibly non-JT9) signals are present and "Tol" is set to a relatively large value. 4. Scaling of the "JT9 Sync" plot (red curve) is more reasonable. 5. Layout of widgets on the main window has been improved. 6. Several minor bug fixes. November 14, 2012: v0.4, r2731 ------------------------------ A number of known bugs have been fixed, and the JT9 decoder is significantly improved. Among other improvements, the program is now much less fussy about timing issues. November 6, 2012: v0.3, r2717 ------------------------------ Changes from r2713 include the following: 1. A bug in the decoder that led to erratic behavior (failed decodes) under certain conditions has been corrected. Decoding is now much more reliable. 2. A valid algorithm is now used to calculate S/N values for received JT9 signals. 3. The header format of recorded *.wav files has been corrected. These files will now play correctly in Windows programs that expect the standard header. November 6, 2012: v0.2, r2713 ------------------------------ Changes from r2711 include the following: 1. Updates to the Quick-Start User's Guide, http://www.physics.princeton.edu/pulsar/K1JT/WSJT-X_Users_Guide.pdf 2. Double-click on waterfall now sets Tol to a reduced (mode-dependent) value. 3. Tol is saved and restored on program restart. 4. A "digital gain" slider was added next to the green-bar audio level indicator. With the slider at mid-range, the scale reads correctly in dB above the least significant bit of 16-bit audio data. 5. There is now a test that rejects at least one type of data that is sufficiently corrupt to cause Eddie's best friend, the message "15P6715P67WCV". 6. Several minor tweaks to improve decoder performance. 7. The program now starts with Monitor OFF. You must click Monitor to start accepting audio. For some types of testing, this may be an advantage. This startup condition may be changed again, in the future. October 31, 2012: v0.2, r2711 ----------------------------- Three significant changes since r2706: 1. Three options are now provided on the "Decode" menu, controlling the "depth" of the decoding process. For most purposes I suggest you should use "Normal", but feel free to experiment with the others. 2. Decoding of multiple signals in one Rx interval has been improved. 3. Handling of strong signals has been improved. October 309, 2012: v0.2, r2706 ------------------------------ Changes since r2702 include the following: 1. The problem with "ghost" signals is fixed. 2. A problem causing very long decode times under certain circumstances has been fixed. Please note: decode times on any recent PC should no more than a few seconds! 3. I have re-directed the program's fatal error messages so they will be sent to the command-prompt window from which you started the program. Please send me full reports on any such messages you observe, preferably with details on how to reproduce the problem. ######################################################################### Some additional information ... 1. Yes, the JT9 modes require good stability in all system oscillators. The present JT9 bdecoder does not attempt to track frequency drifts. Such capability will be added, however. We have been using digital modes for EME for nearly ten years now, at 144 MHz and higher. There are more than 1000 WSJT users on EME, using all kinds of rige. We have learned how to deal with reasonable rates of drift. Surely if we can do these things at VHF, we can do them much more easily at MF and LF. 2. If you're sure that you have seen degraded JT9 performance because of frequency stability issues, don't just complain on the LF reflector. Document your case and send me an example file with a drifting JT9 signal. Making WSJT-X and JT9 better is partly YOUR responsibility! 3. In other ways as well, test files are needed. I can make many tests myself, but I can't foresee all the problems others will have. That's what the "Save All" function is for! In these early tests, always run with "Save All" checked, just in case you will want to refer back to something that happened. You may want to send me the file in question. You can always clean out your "Save" directory by using "File | Delete all *.wav files in SaveDir". I need good examples of signals that fail to decode for any unknown reason. Also some good examples of atmospheric or other impulsive noise, for testing the noise blanker. 4. I have added a page of "Hints for New Users" to the online WSJT-X User's Guide, http://www.physics.princeton.edu/pulsar/K1JT/WSJT-X_Users_Guide.pdf . Please read it! ... and let me know if you find other operational details of WSJT-X that need explanation. This will likely be especially true for those not already familiar with older versions of WSJT. 5. An operational suggestion: In many ways the different JT9 submodes are treated as distinct modes. If you receive a JT9-x signal in a different submode than the one you have selected, you won't decode it. For this reason, if JT9 is to become popular we'll probably need to choose one or two of the submodes for general use, and perhaps assign a narrow slice of the band to each one. Note that "message averaging" in the Rx software can make two or three JT9-2 transmissions as good as one JT9-5 transmission, with the advantage that you will copy sooner if signals are better than required for JT9-5. Message averaging is not yet present in the JT9 decoder... but in future it can be. Again, we have dealt with such issues very effectively on EME -- and can do so at MF/LF, for sure. 6. On the topic of CW, Beacons, WSPR, JT9, etc. I really don't understand what all the fuss is about. Surely there is room for everybody? Maybe I'm just too new here to understand? (Mal, is this mostly just a matter of "Mal being Mal"???) On the HF bands, the WSPR sub-band is just 200 Hz wide. If we did the same on 630 m, the WSPR sub-band would take up less than 3% of the 7 kHz band. If that's too much, we could cut it in half, or even less, and still have enough WSPR space. Moreover, a "slow WSPR", if warranted, would require even less bandwidth. Similar comments apply to JT9. The bandwidth of JT9 signals is significantly less than that of CW, for comparable information rates. There should be enough spectrum for both, even in our narrow MF and LF bands. 7. As for performance comparisons between JT9 and WSPR: WSPR is a mature program, and its decoder has been optimized and tweaked over a period approaching five years. You are playing with JT9 in infancy. With help (as opposed to simple complaints) from users, it will improve rapidly. October 29, 2012: v0.2, r2702 ----------------------------- Changes since version 0.1, r2696 include the following: 1. Sample rate for audio output has been changed from 12000 to 48000 Hz. Tx audio may now be generated at any frequency from 500 to 20000 Hz. 2. The Decoder now tries to decode all synchronizable signals in the "green zone", that is, within "Tol" Hz of the selected QSO frequency. (Before, by default it decoded only the signal producing the highest "sync" value. Other signals could be decoded by manually setting the QSO frequency and reducing Tol as needed.) 3. The user's selected QSO Frequency is now saved and restored on program restart. 4. The problem with re-initialization after changing sub-modes has been fixed. 5. The problem (for some users) of not releasing PTT after end of a transmission has been fixed. 6. The program now writes a log of all decodes to a file wsjtx_rx.log in the wsjtx directory. October 25, 2012: v0.1, r2695 ----------------------------- Initial version of WSJT-X (experimental WSJT) released for testing. ./wsjtx.iss0000664000175000017500000000255112172374464011301 0ustar jtnjtn[Setup] AppName=wsjtx AppVerName=wsjtx Version 1.1.0 r3488 AppCopyright=Copyright (C) 2001-2013 by Joe Taylor, K1JT DefaultDirName=c:\wsjtx2 DefaultGroupName=wsjtx2 [Files] Source: "c:\Users\joe\wsjt\wsjtx_install\*.exe"; DestDir: "{app}" Source: "c:\Users\joe\wsjt\wsjtx_install\*.dll"; DestDir: "{app}"; Source: "c:\Users\joe\wsjt\wsjtx_install\*.dat"; DestDir: "{app}"; Source: "c:\Users\joe\wsjt\wsjtx_install\wsjt.ico"; DestDir: "{app}"; Source: "c:\Users\joe\wsjt\wsjtx_install\CALL3.TXT"; DestDir: "{app}"; Flags: onlyifdoesntexist Source: "c:\Users\joe\wsjt\wsjtx\shortcuts.txt"; DestDir: "{app}" Source: "c:\Users\joe\wsjt\wsjtx\mouse_commands.txt"; DestDir: "{app}" Source: "c:\Users\joe\wsjt\wsjtx\WSJT-X_Users_Guide_v1.1.pdf"; DestDir: "{app}" Source: "c:\Users\joe\wsjt\wsjtx_install\save\Samples\130418_1742.wav"; DestDir: "{app}\save\Samples"; Source: "c:\Users\joe\wsjt\wsjtx_install\save\Samples\130610_2343.wav"; DestDir: "{app}\save\Samples"; [Icons] Name: "{group}\wsjtx2"; Filename: "{app}\wsjtx.exe"; WorkingDir: {app}; IconFilename: {app}\wsjt.ico Name: "{userdesktop}\wsjtx2"; Filename: "{app}\wsjtx.exe"; WorkingDir: {app}; IconFilename: {app}\wsjt.ico ./wsjtx_opti.iss0000664000175000017500000000255112172374465012335 0ustar jtnjtn[Setup] AppName=wsjtx AppVerName=wsjtx Version 1.1.0 r3478 AppCopyright=Copyright (C) 2001-2013 by Joe Taylor, K1JT DefaultDirName=c:\wsjtx2 DefaultGroupName=wsjtx2 [Files] Source: "c:\Users\joe\wsjt\wsjtx_install\*.exe"; DestDir: "{app}" Source: "c:\Users\joe\wsjt\wsjtx_install\*.dll"; DestDir: "{app}"; Source: "c:\Users\joe\wsjt\wsjtx_install\*.dat"; DestDir: "{app}"; Source: "c:\Users\joe\wsjt\wsjtx_install\wsjt.ico"; DestDir: "{app}"; Source: "c:\Users\joe\wsjt\wsjtx_install\CALL3.TXT"; DestDir: "{app}"; Flags: onlyifdoesntexist Source: "c:\Users\joe\wsjt\wsjtx\shortcuts.txt"; DestDir: "{app}" Source: "c:\Users\joe\wsjt\wsjtx\mouse_commands.txt"; DestDir: "{app}" Source: "c:\Users\joe\wsjt\wsjtx\WSJT-X_Users_Guide_v1.1.pdf"; DestDir: "{app}" Source: "c:\Users\joe\wsjt\wsjtx_install\save\Samples\130418_1742.wav"; DestDir: "{app}\save\Samples"; Source: "c:\Users\joe\wsjt\wsjtx_install\save\Samples\130610_2343.wav"; DestDir: "{app}\save\Samples"; [Icons] Name: "{group}\wsjtx2"; Filename: "{app}\wsjtx.exe"; WorkingDir: {app}; IconFilename: {app}\wsjt.ico Name: "{userdesktop}\wsjtx2"; Filename: "{app}\wsjtx.exe"; WorkingDir: {app}; IconFilename: {app}\wsjt.ico ./wsjtx.pro0000664000175000017500000000371512172374465011307 0ustar jtnjtn#------------------------------------------------- # # Project created by QtCreator 2011-07-07T08:39:24 # #------------------------------------------------- QT += core gui network greaterThan(QT_MAJOR_VERSION, 4): QT += widgets CONFIG += thread #CONFIG += console TARGET = wsjtx DESTDIR = ../wsjtx_install VERSION = 1.1 TEMPLATE = app DEFINES = QT4 win32 { DEFINES += WIN32 F90 = g95 g95.output = ${QMAKE_FILE_BASE}.o g95.commands = $$F90 -c -O2 -o ${QMAKE_FILE_OUT} ${QMAKE_FILE_NAME} g95.input = F90_SOURCES QMAKE_EXTRA_COMPILERS += g95 } unix { DEFINES += UNIX F90 = gfortran gfortran.output = ${QMAKE_FILE_BASE}.o gfortran.commands = $$F90 -c -O2 -o ${QMAKE_FILE_OUT} ${QMAKE_FILE_NAME} gfortran.input = F90_SOURCES QMAKE_EXTRA_COMPILERS += gfortran } SOURCES += main.cpp mainwindow.cpp plotter.cpp about.cpp \ soundin.cpp soundout.cpp devsetup.cpp widegraph.cpp \ getfile.cpp displaytext.cpp getdev.cpp logqso.cpp \ psk_reporter.cpp rigclass.cpp \ signalmeter.cpp \ meterwidget.cpp win32 { SOURCES += killbyname.cpp } HEADERS += mainwindow.h plotter.h soundin.h soundout.h \ about.h devsetup.h widegraph.h getfile.h \ commons.h sleep.h displaytext.h logqso.h \ psk_reporter.h rigclass.h \ signalmeter.h \ meterwidget.h # (Is the following really needed???) #DEFINES += __cplusplus FORMS += mainwindow.ui about.ui devsetup.ui widegraph.ui \ logqso.ui RC_FILE = wsjtx.rc unix { LIBS += ../wsjtx/lib/libjt9.a LIBS += -lhamlib LIBS += -lportaudio -lgfortran -lfftw3f } win32 { INCLUDEPATH += ../../hamlib-1.2.15.3/include LIBS += ../../hamlib-1.2.15.3/src/.libs/libhamlib.dll.a #LIBS += ../../hamlib-1.2.15.3/lib/gcc/libhamlib.dll.a LIBS += ../wsjtx/lib/libjt9.a LIBS += ../wsjtx/libfftw3f_win.a LIBS += ../wsjtx/libpskreporter.a LIBS += ../wsjtx/libHRDInterface001.a #LIBS += ../QtSupport/palir-02.dll LIBS += /users/joe/wsjt/QtSupport/palir-02.dll LIBS += libwsock32 LIBS += C:/MinGW/lib/libf95.a } ./wsjtx.rc0000664000175000017500000000006412172374464011104 0ustar jtnjtnIDI_ICON1 ICON DISCARDABLE "wsjt.ico"