mirror of
https://git.vladimir.cc/vladimir/ewsdr.git
synced 2026-08-25 17:27:32 +00:00
feat(cat): TX-тракт и телеграф; ревизия алиасов, подписей и валидации
Со времён прошлой правки CAT в EWSDR появились TX-профили со всей «звуковой» цепью и телеграф — команды, которые doc/CAT_STATUS.md объявлял незакрываемыми, стали рабочими. TX-тракт: MG/ZZMG (усиление микрофона), MO/ZZMO + ZZTM (монитор передачи и его уровень), ZZTL/ZZTH (кромки TX-фильтра), PR/ZZPK + ZZPL (речевой компрессор), ZZET + ZZEB (эквалайзер), ZZTO + ZZTU (мощность и кнопка настройки), ZZUT (2TON), ZZLI + ZZUS (PureSignal), ZZTP (выбор профиля), ZZFD (девиация). Телеграф (были проброшены только KS/KY/ZZKS/ZZKY): ZZCS скорость, ZZCL тон, ZZCI иамбик, ZZCB/ZZCD break-in и hang-time, ZZCM сайдтон. Ревизия подписей. Комментарии у заглушек писались по буквам кода, а не по Thetis, и врали примерно в 150 местах. Хуже: часть РАБОТАЮЩИХ команд была привязана не к своей функции — внешний софт получал осмысленный, но неверный ответ, что хуже честной заглушки. Всё сверено с CATCommands.cs: ZZMA режим -> кнопка MUT ZZNN заглушка -> SNB ZZRX переход в RX -> аттенюатор RX1 ZZNS SNB -> кнопка NR2 ZZRV версия ПО -> напряжение питания ZZVS алиас ZZSP -> операции с VFO ZZMV индекс режима-> счётчик памяти ZZBM режим -> VFO B вниз на nn ZZKM режим кейера -> запуск CW-макроса ZZFT всегда A -> TX-частота (split) ZZFI/ZZBS были алиасами -> сами держат фильтр и диапазон Ошибочные алиасы на громкость/мощность сняты (ZZAA ZZVG ZZOA ZZAP ZZDN ZZAC ZZBI ZZMB ZZVA ZZPD ZZPO ZZQM ZZSR ZZRD ZZRU) — теперь честные заглушки с указанием, где функция живёт на самом деле. Кенвудовские команды сверены отдельно, покрытие полное (все 40 из Thetis), ширины полей совпадают с CATStructs.xml. Исправлено: SM отдавал 4 цифры вместо 5; RD/RU перестраивали VFO, хотя это RIT; KY не срезал набивку поля пробелами и гнал её в эфир паузами; CT принимала любой символ и «CT9;» молча гасил тон; OF/OS несли реализацию сами, а ZZOT/ZZOS были заглушками — клиент Thetis обращается как раз к ZZ* и не получал ничего. Валидация. Команды без параметров не проверяли суффикс: «TXanything;» доходил до CmdTX и ПОДНИМАЛ ПЕРЕДАЧУ (так же RX UP DN BD BU QI RC ID IF) — эталон отбраковывает лишний суффикс в парсере, у нас теперь список в IsParamless. ZZTX поднимал передачу на любом значении кроме нуля («2=TUNE» — выдумка). ZZFL/ZZFH принимали поле любой длины от 4 символов и через StrToIntDef молча схлопывали кромку в ноль. ZZMG принимал 1-2 символа. KY/ZZKY не ограничивали текст 25 символами, и очередь передачи могла расти произвольно. Осознанные отклонения от эталона сведены в отдельную таблицу документа: ZZBS (индекс диапазона вместо кода), ZZMN (имя режима вместо пресетов фильтров), ZZST (шаг FM вместо размера шага настройки), ZZCD (потолок 2000 мс — наш предел, он же в поле HangDelay пакета DUC Specific). Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
This commit is contained in:
Claude Opus 5
+400
@@ -39,6 +39,10 @@ type
|
||||
FSyncInt: Integer;
|
||||
FSyncBool: Boolean;
|
||||
FSyncStr: string;
|
||||
// Какое поле TX-настроек правит SyncTXField (значение — в FSyncInt/FSyncBool).
|
||||
FSyncTXFld: (txfMicGain, txfFiltLow, txfFiltHigh, txfCompOn, txfCompGain,
|
||||
txfEQOn, txfTUNLevel, txfFMDev);
|
||||
FSyncEQ: TCATEQGains;
|
||||
|
||||
// ── Геттеры (CAT-поток, read-only) ──
|
||||
function GetVfoA: Double;
|
||||
@@ -96,6 +100,76 @@ type
|
||||
procedure SyncCWSpeed;
|
||||
procedure SyncCWKeyerMode;
|
||||
procedure SyncCWText;
|
||||
// ── Телеграф: тон, break-in, сайдтон ──
|
||||
function GetCWPitch: Integer;
|
||||
procedure SetCWPitch(V: Integer);
|
||||
function GetCWBreakIn: Boolean;
|
||||
procedure SetCWBreakIn(V: Boolean);
|
||||
function GetCWHangTime: Integer;
|
||||
procedure SetCWHangTime(V: Integer);
|
||||
function GetCWMonitor: Boolean;
|
||||
procedure SetCWMonitor(V: Boolean);
|
||||
procedure SyncCWPitch;
|
||||
procedure SyncCWBreakIn;
|
||||
procedure SyncCWHangTime;
|
||||
procedure SyncCWMonitor;
|
||||
// ── TX-тракт (активный TX-профиль + вкладка Transmit) ──
|
||||
function GetMicGain: Integer;
|
||||
procedure SetMicGain(V: Integer);
|
||||
function GetTXFilterLow: Integer;
|
||||
procedure SetTXFilterLow(V: Integer);
|
||||
function GetTXFilterHigh: Integer;
|
||||
procedure SetTXFilterHigh(V: Integer);
|
||||
function GetCompOn: Boolean;
|
||||
procedure SetCompOn(V: Boolean);
|
||||
function GetCompGain: Integer;
|
||||
procedure SetCompGain(V: Integer);
|
||||
function GetTXEQOn: Boolean;
|
||||
procedure SetTXEQOn(V: Boolean);
|
||||
function GetTXEQ(out Gains: TCATEQGains): Integer;
|
||||
procedure SetTXEQ(NumBands: Integer; const Gains: TCATEQGains);
|
||||
function GetTUNLevel: Integer;
|
||||
procedure SetTUNLevel(V: Integer);
|
||||
function GetFMDeviation: Integer;
|
||||
procedure SetFMDeviation(V: Integer);
|
||||
function GetTXProfile: Integer;
|
||||
procedure SetTXProfile(V: Integer);
|
||||
function GetTXProfileCount: Integer;
|
||||
function GetMonitorOn: Boolean;
|
||||
procedure SetMonitorOn(V: Boolean);
|
||||
function GetMonitorLevel: Integer;
|
||||
procedure SetMonitorLevel(V: Integer);
|
||||
function GetTuning: Boolean;
|
||||
procedure SetTuning(V: Boolean);
|
||||
function GetTwoTone: Boolean;
|
||||
procedure SetTwoTone(V: Boolean);
|
||||
function GetPureSignal: Boolean;
|
||||
procedure SetPureSignal(V: Boolean);
|
||||
procedure DoPSSingleCal;
|
||||
// ── Приёмник и сервис ──
|
||||
function GetMuted: Boolean;
|
||||
procedure SetMuted(V: Boolean);
|
||||
function GetAtten: Integer;
|
||||
procedure SetAtten(V: Integer);
|
||||
function GetSupplyVolts: Double;
|
||||
procedure DoVfoSwap;
|
||||
function GetMemoryCount: Integer;
|
||||
procedure SendCWMacro(V: Integer);
|
||||
procedure SyncMuted;
|
||||
procedure SyncAtten;
|
||||
procedure SyncVfoSwap;
|
||||
procedure SyncCWMacro;
|
||||
// Правка одного поля TX-настроек: копия записи, поле, SetTXSettings. Так же
|
||||
// это делает вкладка Transmit — она тоже отдаёт запись целиком.
|
||||
procedure SyncTXField;
|
||||
procedure SyncTXEQ;
|
||||
procedure SyncTXProfile;
|
||||
procedure SyncMonitorOn;
|
||||
procedure SyncMonitorLevel;
|
||||
procedure SyncTuning;
|
||||
procedure SyncTwoTone;
|
||||
procedure SyncPureSignal;
|
||||
procedure SyncPSSingleCal;
|
||||
procedure DoBandUp;
|
||||
procedure DoBandDown;
|
||||
procedure DoTuneUp;
|
||||
@@ -234,6 +308,59 @@ begin
|
||||
Ctx.SetCWKeyerMode := @SetCWKeyerMode;
|
||||
Ctx.SendCWText := @SendCWText;
|
||||
Ctx.CWTextBusy := @GetCWTextBusy;
|
||||
// Телеграф: тон (ZZCL), break-in и его hang-time (ZZCB/ZZCD), сайдтон (ZZCM).
|
||||
Ctx.GetCWPitch := @GetCWPitch;
|
||||
Ctx.SetCWPitch := @SetCWPitch;
|
||||
Ctx.GetCWBreakIn := @GetCWBreakIn;
|
||||
Ctx.SetCWBreakIn := @SetCWBreakIn;
|
||||
Ctx.GetCWHangTime := @GetCWHangTime;
|
||||
Ctx.SetCWHangTime := @SetCWHangTime;
|
||||
Ctx.GetCWMonitor := @GetCWMonitor;
|
||||
Ctx.SetCWMonitor := @SetCWMonitor;
|
||||
// TX-тракт: усиление микрофона, кромки TX-фильтра, компрессор, эквалайзер,
|
||||
// TUN/2TON/PS и выбор TX-профиля.
|
||||
Ctx.GetMicGain := @GetMicGain;
|
||||
Ctx.SetMicGain := @SetMicGain;
|
||||
Ctx.GetTXFilterLow := @GetTXFilterLow;
|
||||
Ctx.SetTXFilterLow := @SetTXFilterLow;
|
||||
Ctx.GetTXFilterHigh := @GetTXFilterHigh;
|
||||
Ctx.SetTXFilterHigh := @SetTXFilterHigh;
|
||||
Ctx.GetCompOn := @GetCompOn;
|
||||
Ctx.SetCompOn := @SetCompOn;
|
||||
Ctx.GetCompGain := @GetCompGain;
|
||||
Ctx.SetCompGain := @SetCompGain;
|
||||
Ctx.GetTXEQOn := @GetTXEQOn;
|
||||
Ctx.SetTXEQOn := @SetTXEQOn;
|
||||
Ctx.GetTXEQ := @GetTXEQ;
|
||||
Ctx.SetTXEQ := @SetTXEQ;
|
||||
Ctx.GetTUNLevel := @GetTUNLevel;
|
||||
Ctx.SetTUNLevel := @SetTUNLevel;
|
||||
Ctx.GetFMDeviation := @GetFMDeviation;
|
||||
Ctx.SetFMDeviation := @SetFMDeviation;
|
||||
Ctx.GetTXProfile := @GetTXProfile;
|
||||
Ctx.SetTXProfile := @SetTXProfile;
|
||||
Ctx.GetTXProfileCount := @GetTXProfileCount;
|
||||
Ctx.GetMonitorOn := @GetMonitorOn;
|
||||
Ctx.SetMonitorOn := @SetMonitorOn;
|
||||
Ctx.GetMonitorLevel := @GetMonitorLevel;
|
||||
Ctx.SetMonitorLevel := @SetMonitorLevel;
|
||||
Ctx.GetTuning := @GetTuning;
|
||||
Ctx.SetTuning := @SetTuning;
|
||||
Ctx.GetTwoTone := @GetTwoTone;
|
||||
Ctx.SetTwoTone := @SetTwoTone;
|
||||
Ctx.GetPureSignal := @GetPureSignal;
|
||||
Ctx.SetPureSignal := @SetPureSignal;
|
||||
Ctx.DoPSSingleCal := @DoPSSingleCal;
|
||||
// Приёмник и сервис: MUT (ZZMA), шаговый аттенюатор (ZZRX), напряжение
|
||||
// питания (ZZRV), обмен VFO (ZZVS), счётчик памяти (ZZMV), CW-макрос (ZZKM).
|
||||
Ctx.GetMuted := @GetMuted;
|
||||
Ctx.SetMuted := @SetMuted;
|
||||
Ctx.GetAtten := @GetAtten;
|
||||
Ctx.SetAtten := @SetAtten;
|
||||
Ctx.GetSupplyVolts := @GetSupplyVolts;
|
||||
Ctx.DoVfoSwap := @DoVfoSwap;
|
||||
Ctx.GetMemoryCount := @GetMemoryCount;
|
||||
Ctx.SendCWMacro := @SendCWMacro;
|
||||
Ctx.OnPanelVfoStep := @PanelVfoStep;
|
||||
Ctx.OnPanelEncoder := @PanelEncoder;
|
||||
Ctx.OnPanelButton := @PanelButton;
|
||||
@@ -476,6 +603,279 @@ begin FController.CWXSend(FSyncStr); end;
|
||||
function TCATAdapter.GetCWTextBusy: Boolean;
|
||||
begin Result := FController.CWXBusy; end;
|
||||
|
||||
function TCATAdapter.GetCWPitch: Integer;
|
||||
begin Result := FController.CWSettings.Pitch; end;
|
||||
|
||||
procedure TCATAdapter.SetCWPitch(V: Integer);
|
||||
begin FSyncInt := V; FController.Invoke(@SyncCWPitch); end;
|
||||
|
||||
procedure TCATAdapter.SyncCWPitch;
|
||||
var C: TCWSettings;
|
||||
begin
|
||||
C := FController.CWSettings;
|
||||
C.Pitch := FSyncInt;
|
||||
FController.SetCWSettings(C);
|
||||
end;
|
||||
|
||||
function TCATAdapter.GetCWBreakIn: Boolean;
|
||||
begin Result := FController.CWSettings.BreakIn; end;
|
||||
|
||||
procedure TCATAdapter.SetCWBreakIn(V: Boolean);
|
||||
begin FSyncBool := V; FController.Invoke(@SyncCWBreakIn); end;
|
||||
|
||||
procedure TCATAdapter.SyncCWBreakIn;
|
||||
var C: TCWSettings;
|
||||
begin
|
||||
C := FController.CWSettings;
|
||||
C.BreakIn := FSyncBool;
|
||||
FController.SetCWSettings(C);
|
||||
end;
|
||||
|
||||
function TCATAdapter.GetCWHangTime: Integer;
|
||||
begin Result := FController.CWSettings.HangTimeMS; end;
|
||||
|
||||
procedure TCATAdapter.SetCWHangTime(V: Integer);
|
||||
begin FSyncInt := V; FController.Invoke(@SyncCWHangTime); end;
|
||||
|
||||
procedure TCATAdapter.SyncCWHangTime;
|
||||
var C: TCWSettings;
|
||||
begin
|
||||
C := FController.CWSettings;
|
||||
C.HangTimeMS := FSyncInt;
|
||||
FController.SetCWSettings(C);
|
||||
end;
|
||||
|
||||
function TCATAdapter.GetCWMonitor: Boolean;
|
||||
// Сайдтонов два, и они не взаимозаменяемы: аппаратный звучит в наушниках
|
||||
// трансивера, программный — в звуковой карте PC. ZZCM правит тот, что отвечает
|
||||
// за текущий источник манипуляции, иначе команда молча промахивалась бы мимо.
|
||||
begin
|
||||
if FController.CWLocalSource then Result := FController.CWSettings.SidetoneSW
|
||||
else Result := FController.CWSettings.SidetoneHW;
|
||||
end;
|
||||
|
||||
procedure TCATAdapter.SetCWMonitor(V: Boolean);
|
||||
begin FSyncBool := V; FController.Invoke(@SyncCWMonitor); end;
|
||||
|
||||
procedure TCATAdapter.SyncCWMonitor;
|
||||
var C: TCWSettings;
|
||||
begin
|
||||
C := FController.CWSettings;
|
||||
if FController.CWLocalSource then C.SidetoneSW := FSyncBool
|
||||
else C.SidetoneHW := FSyncBool;
|
||||
FController.SetCWSettings(C);
|
||||
end;
|
||||
|
||||
// ── TX-тракт ─────────────────────────────────────────────────────────────────
|
||||
// Геттеры читают живые TX-настройки контроллера (они же — активный профиль),
|
||||
// сеттеры кладут значение в scratch и правят одно поле в потоке контроллера.
|
||||
|
||||
function TCATAdapter.GetMicGain: Integer;
|
||||
begin Result := Round(FController.FTXSettings.MicGainDB); end;
|
||||
|
||||
procedure TCATAdapter.SetMicGain(V: Integer);
|
||||
begin FSyncTXFld := txfMicGain; FSyncInt := V; FController.Invoke(@SyncTXField); end;
|
||||
|
||||
function TCATAdapter.GetTXFilterLow: Integer;
|
||||
begin Result := FController.FTXSettings.FilterLow; end;
|
||||
|
||||
procedure TCATAdapter.SetTXFilterLow(V: Integer);
|
||||
begin FSyncTXFld := txfFiltLow; FSyncInt := V; FController.Invoke(@SyncTXField); end;
|
||||
|
||||
function TCATAdapter.GetTXFilterHigh: Integer;
|
||||
begin Result := FController.FTXSettings.FilterHigh; end;
|
||||
|
||||
procedure TCATAdapter.SetTXFilterHigh(V: Integer);
|
||||
begin FSyncTXFld := txfFiltHigh; FSyncInt := V; FController.Invoke(@SyncTXField); end;
|
||||
|
||||
function TCATAdapter.GetCompOn: Boolean;
|
||||
begin Result := FController.FTXSettings.CompressorOn; end;
|
||||
|
||||
procedure TCATAdapter.SetCompOn(V: Boolean);
|
||||
begin FSyncTXFld := txfCompOn; FSyncBool := V; FController.Invoke(@SyncTXField); end;
|
||||
|
||||
function TCATAdapter.GetCompGain: Integer;
|
||||
begin Result := Round(FController.FTXSettings.CompressorGain); end;
|
||||
|
||||
procedure TCATAdapter.SetCompGain(V: Integer);
|
||||
begin FSyncTXFld := txfCompGain; FSyncInt := V; FController.Invoke(@SyncTXField); end;
|
||||
|
||||
function TCATAdapter.GetTXEQOn: Boolean;
|
||||
begin Result := FController.FTXSettings.EQOn; end;
|
||||
|
||||
procedure TCATAdapter.SetTXEQOn(V: Boolean);
|
||||
begin FSyncTXFld := txfEQOn; FSyncBool := V; FController.Invoke(@SyncTXField); end;
|
||||
|
||||
function TCATAdapter.GetTXEQ(out Gains: TCATEQGains): Integer;
|
||||
var i: Integer;
|
||||
begin
|
||||
for i := 0 to High(Gains) do Gains[i] := Round(FController.FTXSettings.EQGains[i]);
|
||||
Result := FController.FTXSettings.EQNumBands;
|
||||
end;
|
||||
|
||||
procedure TCATAdapter.SetTXEQ(NumBands: Integer; const Gains: TCATEQGains);
|
||||
begin
|
||||
FSyncInt := NumBands;
|
||||
FSyncEQ := Gains;
|
||||
FController.Invoke(@SyncTXEQ);
|
||||
end;
|
||||
|
||||
procedure TCATAdapter.SyncTXEQ;
|
||||
// Частоты полос команда не несёт (их в формате Thetis попросту нет) — трогаем
|
||||
// только усиления и число полос, сетка остаётся той, что настроена в UI.
|
||||
var
|
||||
T: TTXSettings;
|
||||
i: Integer;
|
||||
begin
|
||||
T := FController.FTXSettings;
|
||||
T.EQNumBands := FSyncInt;
|
||||
for i := 0 to High(FSyncEQ) do
|
||||
if i <= FSyncInt then T.EQGains[i] := FSyncEQ[i];
|
||||
FController.SetTXSettings(T);
|
||||
end;
|
||||
|
||||
function TCATAdapter.GetTUNLevel: Integer;
|
||||
begin Result := FController.FTXSettings.TUNLevel; end;
|
||||
|
||||
procedure TCATAdapter.SetTUNLevel(V: Integer);
|
||||
begin FSyncTXFld := txfTUNLevel; FSyncInt := V; FController.Invoke(@SyncTXField); end;
|
||||
|
||||
function TCATAdapter.GetFMDeviation: Integer;
|
||||
begin Result := Round(FController.FTXSettings.FMDeviation); end;
|
||||
|
||||
procedure TCATAdapter.SetFMDeviation(V: Integer);
|
||||
begin FSyncTXFld := txfFMDev; FSyncInt := V; FController.Invoke(@SyncTXField); end;
|
||||
|
||||
procedure TCATAdapter.SyncTXField;
|
||||
var T: TTXSettings;
|
||||
begin
|
||||
T := FController.FTXSettings;
|
||||
case FSyncTXFld of
|
||||
txfMicGain: T.MicGainDB := FSyncInt;
|
||||
txfFiltLow: T.FilterLow := FSyncInt;
|
||||
txfFiltHigh: T.FilterHigh := FSyncInt;
|
||||
txfCompOn: T.CompressorOn := FSyncBool;
|
||||
txfCompGain: T.CompressorGain := FSyncInt;
|
||||
txfEQOn: T.EQOn := FSyncBool;
|
||||
txfTUNLevel: T.TUNLevel := FSyncInt;
|
||||
txfFMDev: T.FMDeviation := FSyncInt;
|
||||
end;
|
||||
FController.SetTXSettings(T);
|
||||
end;
|
||||
|
||||
function TCATAdapter.GetTXProfile: Integer;
|
||||
begin Result := FController.ActiveTXProfile; end;
|
||||
|
||||
procedure TCATAdapter.SetTXProfile(V: Integer);
|
||||
begin FSyncInt := V; FController.Invoke(@SyncTXProfile); end;
|
||||
|
||||
procedure TCATAdapter.SyncTXProfile;
|
||||
begin FController.SelectTXProfile(FSyncInt); end;
|
||||
|
||||
function TCATAdapter.GetTXProfileCount: Integer;
|
||||
begin Result := FController.TXProfileCount; end;
|
||||
|
||||
function TCATAdapter.GetMonitorOn: Boolean;
|
||||
begin Result := not FController.FRxMuteOnTx; end;
|
||||
|
||||
procedure TCATAdapter.SetMonitorOn(V: Boolean);
|
||||
begin FSyncBool := V; FController.Invoke(@SyncMonitorOn); end;
|
||||
|
||||
procedure TCATAdapter.SyncMonitorOn;
|
||||
begin FController.SetRxMuteOnTx(not FSyncBool); end;
|
||||
|
||||
function TCATAdapter.GetMonitorLevel: Integer;
|
||||
begin Result := FController.FTxMonVolume; end;
|
||||
|
||||
procedure TCATAdapter.SetMonitorLevel(V: Integer);
|
||||
begin FSyncInt := V; FController.Invoke(@SyncMonitorLevel); end;
|
||||
|
||||
procedure TCATAdapter.SyncMonitorLevel;
|
||||
begin FController.SetTXMonVolume(FSyncInt); end;
|
||||
|
||||
function TCATAdapter.GetTuning: Boolean;
|
||||
begin Result := FController.FTuning; end;
|
||||
|
||||
procedure TCATAdapter.SetTuning(V: Boolean);
|
||||
begin FSyncBool := V; FController.Invoke(@SyncTuning); end;
|
||||
|
||||
procedure TCATAdapter.SyncTuning;
|
||||
begin FController.SetTune(FSyncBool); end;
|
||||
|
||||
function TCATAdapter.GetTwoTone: Boolean;
|
||||
begin Result := FController.FTwoTone; end;
|
||||
|
||||
procedure TCATAdapter.SetTwoTone(V: Boolean);
|
||||
begin FSyncBool := V; FController.Invoke(@SyncTwoTone); end;
|
||||
|
||||
procedure TCATAdapter.SyncTwoTone;
|
||||
begin FController.SetTwoTone(FSyncBool); end;
|
||||
|
||||
function TCATAdapter.GetPureSignal: Boolean;
|
||||
begin Result := FController.FPSEnabled; end;
|
||||
|
||||
procedure TCATAdapter.SetPureSignal(V: Boolean);
|
||||
begin FSyncBool := V; FController.Invoke(@SyncPureSignal); end;
|
||||
|
||||
procedure TCATAdapter.SyncPureSignal;
|
||||
begin FController.SetPureSignal(FSyncBool); end;
|
||||
|
||||
procedure TCATAdapter.DoPSSingleCal;
|
||||
begin FController.Invoke(@SyncPSSingleCal); end;
|
||||
|
||||
procedure TCATAdapter.SyncPSSingleCal;
|
||||
begin FController.PSSingleCal; end;
|
||||
|
||||
// ── Приёмник и сервис ────────────────────────────────────────────────────────
|
||||
|
||||
function TCATAdapter.GetMuted: Boolean;
|
||||
begin Result := FController.FMuted; end;
|
||||
|
||||
procedure TCATAdapter.SetMuted(V: Boolean);
|
||||
begin FSyncBool := V; FController.Invoke(@SyncMuted); end;
|
||||
|
||||
procedure TCATAdapter.SyncMuted;
|
||||
begin FController.SetMute(FSyncBool); end;
|
||||
|
||||
function TCATAdapter.GetAtten: Integer;
|
||||
begin Result := FController.FAtten; end;
|
||||
|
||||
procedure TCATAdapter.SetAtten(V: Integer);
|
||||
begin FSyncInt := V; FController.Invoke(@SyncAtten); end;
|
||||
|
||||
procedure TCATAdapter.SyncAtten;
|
||||
begin FController.SetAtten(FSyncInt); end;
|
||||
|
||||
function TCATAdapter.GetSupplyVolts: Double;
|
||||
// Телеметрия платы; -1 = данных ещё нет (движок отдаст ноль, как Thetis).
|
||||
begin Result := FController.FLastSupplyV; end;
|
||||
|
||||
procedure TCATAdapter.DoVfoSwap;
|
||||
begin FController.Invoke(@SyncVfoSwap); end;
|
||||
|
||||
procedure TCATAdapter.SyncVfoSwap;
|
||||
begin FController.VfoSwap; end;
|
||||
|
||||
function TCATAdapter.GetMemoryCount: Integer;
|
||||
begin
|
||||
if Assigned(FController.FChannelStore) then Result := FController.FChannelStore.Count
|
||||
else Result := 0;
|
||||
end;
|
||||
|
||||
procedure TCATAdapter.SendCWMacro(V: Integer);
|
||||
begin FSyncInt := V; FController.Invoke(@SyncCWMacro); end;
|
||||
|
||||
procedure TCATAdapter.SyncCWMacro;
|
||||
// Макрос n (1..9) = ячейка памяти сообщений n. Ячеек восемь (F1..F8): девятая
|
||||
// и пустые просто ничего не передают — очередь дёргать незачем.
|
||||
var Idx: Integer;
|
||||
begin
|
||||
Idx := FSyncInt - 1;
|
||||
if (Idx < 0) or (Idx >= CW_MSG_COUNT) then Exit;
|
||||
if FController.CWSettings.Messages[Idx] = '' then Exit;
|
||||
FController.CWXSend(FController.CWSettings.Messages[Idx]);
|
||||
end;
|
||||
|
||||
procedure TCATAdapter.SyncMOX;
|
||||
begin FController.SetMOX(FSyncBool); end;
|
||||
|
||||
|
||||
+873
-401
File diff suppressed because it is too large
Load Diff
+185
-30
@@ -1,7 +1,7 @@
|
||||
# CAT-система EWSDR — статус реализации
|
||||
|
||||
Ветка разработки: `feature/cat-commands-expansion`.
|
||||
Дата последнего обновления: 2026-06-26.
|
||||
Ветка разработки: `feature/cat-tx-cw`.
|
||||
Дата последнего обновления: 2026-08-17.
|
||||
|
||||
Документ описывает текущее состояние CAT-подсистемы EWSDR: архитектуру,
|
||||
полный перечень реализованных команд, осознанные заглушки и план дальнейших
|
||||
@@ -20,9 +20,9 @@ CAT-транспорты ──► TCATEngine (парсер протокола)
|
||||
|
||||
| Файл | Назначение |
|
||||
|---|---|
|
||||
| `CATEngine.pas` (~2270 строк) | Движок протокола: разбор `<PREFIX><SUFFIX>;`, формирование ответов, реализации всех команд Kenwood + `ZZ*`. Зависит только от RTL. |
|
||||
| `CATAdapter.pas` (~445 строк) | Мост к `TRadioController`. Строит `TCATContext`: геттеры читают поля контроллера напрямую (CAT-поток, read-only), сеттеры/команды маршалятся в поток контроллера через `FController.Invoke`. Владеет движком + транспортами. |
|
||||
| `CATSerial.pas` (~313 строк) | Менеджер до 4 последовательных портов (виртуальные COM-пары для rigctld/N1MM/WSJT-X). |
|
||||
| `CATEngine.pas` (~2740 строк) | Движок протокола: разбор `<PREFIX><SUFFIX>;`, формирование ответов, реализации всех команд Kenwood + `ZZ*`. Зависит только от RTL. |
|
||||
| `CATAdapter.pas` (~910 строк) | Мост к `TRadioController`. Строит `TCATContext`: геттеры читают поля контроллера напрямую (CAT-поток, read-only), сеттеры/команды маршалятся в поток контроллера через `FController.Invoke`. Владеет движком + транспортами. |
|
||||
| `CATSerial.pas` (~330 строк) | Менеджер до 4 последовательных портов (виртуальные COM-пары для rigctld/N1MM/WSJT-X). |
|
||||
| `CATTcp.pas` (~507 строк) | TCP-сервер (Thetis-совместимый), управление клиентами по GUID (`ZZGA`/`ZZGR`). |
|
||||
|
||||
### 1.1 Принципы
|
||||
@@ -51,12 +51,28 @@ CAT-транспорты ──► TCATEngine (парсер протокола)
|
||||
| | Кол-во |
|
||||
|---|---|
|
||||
| Всего `ZZ*` в Thetis | 315 |
|
||||
| Реально реализовано в EWSDR | **98** |
|
||||
| Заглушки (отвечают валидным dummy, функции нет) | ~211 |
|
||||
| Совсем не обрабатываются (вернут `?;`) | 7 |
|
||||
| Реально реализовано в EWSDR | **~120** |
|
||||
| Заглушки (отвечают валидным dummy, функции нет) | ~190 |
|
||||
| Совсем не обрабатываются (вернут `?;`) | 5 |
|
||||
|
||||
Большинство заглушек закрыть **нечем** — в EWSDR физически отсутствует
|
||||
соответствующий тракт (см. §4).
|
||||
Подписи всех 315 команд сверены с `CATCommands.cs` (см. §2.5) — комментарию у
|
||||
заглушки теперь можно верить. Оставшиеся заглушки в большинстве закрыть
|
||||
**нечем**: в EWSDR физически отсутствует соответствующий тракт (см. §4).
|
||||
|
||||
### 1.3 Осознанные отклонения от Thetis
|
||||
|
||||
Три места, где EWSDR намеренно расходится с эталоном. Больше таких нет.
|
||||
|
||||
| Команда | У Thetis | У нас | Почему |
|
||||
|---|---|---|---|
|
||||
| `ZZBS` | код диапазона, 3 символа (`160`/`040`/`WWV`) | индекс диапазона, 2 цифры | формат заложен давно, на нём уже сидят клиенты |
|
||||
| `ZZMN` | пресеты DSP-фильтров, 180 символов | имя режима по номеру | имён режимов в протоколе нет вовсе, а `ZZML` опирается на эту команду |
|
||||
| `ZZST` | размер шага настройки (read-only) | индекс шага FM (00..03) | глобального шага у EWSDR нет, слот иначе мёртв; у шага FM своей команды в протоколе нет |
|
||||
|
||||
Плюс одно ограничение диапазона, не формата: **`ZZCD`** (hang-time break-in)
|
||||
эталон принимает в 150..5000 мс, у нас потолок 2000 — столько же стоит в
|
||||
настройках телеграфа и уходит в поле `HangDelay` пакета DUC Specific. Значения
|
||||
выше подрезаются, как и всё прочее у Thetis.
|
||||
|
||||
---
|
||||
|
||||
@@ -89,13 +105,14 @@ CAT-транспорты ──► TCATEngine (парсер протокола)
|
||||
|
||||
### 2.2 Реализованные расширенные `ZZ*` (выборочно, наиболее значимые)
|
||||
|
||||
VFO/режим/фильтр: `ZZFA ZZFB ZZFI ZZFL ZZFH ZZFM ZZMD ZZFT ZZSP`,
|
||||
диапазоны: `ZZBS ZZBU ZZBD ZZBA ZZBI ZZBM`,
|
||||
AGC/громкость/мощность: `ZZGT ZZAG ZZPC ZZPD ZZAR`,
|
||||
шумодав/нотч: `ZZNA ZZNB ZZNR ZZNS ZZNT ZZNL ZZNN`,
|
||||
VFO/режим/фильтр: `ZZFA ZZFB ZZFI ZZFL ZZFH ZZFM ZZMD ZZFT ZZSP ZZVS`,
|
||||
диапазоны: `ZZBS ZZBU ZZBD`,
|
||||
AGC/громкость/мощность/аттенюатор: `ZZGT ZZAG ZZMA ZZPC ZZAR ZZRX`,
|
||||
шумодав/нотч: `ZZNA ZZNB ZZNR ZZNS ZZNT ZZNN`,
|
||||
FM: `ZZSQ ZZSO ZZTA ZZTB ZZST`, CTUN: `ZZCN`,
|
||||
S-метр/телеметрия: `ZZSM`, шаги VFO: `ZZAU ZZBP ZZSU ZZSA ZZSB`,
|
||||
передача: `ZZTX ZZRX`, сервис: `ZZID ZZRV ZZGA ZZGR`.
|
||||
S-метр/телеметрия: `ZZSM ZZRV`, память: `ZZMV`,
|
||||
шаги VFO: `ZZAU ZZBP ZZBM ZZSU ZZSA ZZSB`,
|
||||
передача: `ZZTX`, сервис: `ZZID ZZGA ZZGR`.
|
||||
|
||||
### 2.3 Сделано в ветке `feature/cat-commands-expansion`
|
||||
|
||||
@@ -142,6 +159,133 @@ S-метр/телеметрия: `ZZSM`, шаги VFO: `ZZAU ZZBP ZZSU ZZSA ZZSB
|
||||
**Новые callback'и в `TCATContext`** (этой ветки): split, squelch on/level,
|
||||
CTCSS on/tone, FM repeater dir/offset, FM step, AGC-T, CTUN.
|
||||
|
||||
### 2.4 Сделано в ветке `feature/cat-tx-cw`
|
||||
|
||||
К этому моменту в EWSDR появились TX-профили со всей «звуковой» цепью и
|
||||
телеграф (кейер, сайдтон, break-in) — команды, которые §4 когда-то объявил
|
||||
незакрываемыми, стали рабочими.
|
||||
|
||||
**TX-тракт** (правки уезжают в активный TX-профиль):
|
||||
|
||||
| Команда | Что | Маппинг |
|
||||
|---|---|---|
|
||||
| `MG` / `ZZMG` | усиление микрофона | `MicGainDB`; `MG` — шкала Kenwood 100:70, `ZZMG` — дБ со знаком |
|
||||
| `MO` / `ZZMO` | кнопка MON | self-monitor даунлинка: `SetRxMuteOnTx` (инверсия) |
|
||||
| `ZZTM` | громкость монитора | `SetTXMonVolume` (новый метод контроллера) |
|
||||
| `ZZTL` / `ZZTH` | кромки TX-фильтра, Гц | `FilterLow` / `FilterHigh` |
|
||||
| `PR` / `ZZPK` | речевой компрессор вкл/выкл | `CompressorOn` |
|
||||
| `ZZPL` | усиление компрессора, дБ | `CompressorGain` (0..20) |
|
||||
| `ZZET` | кнопка TXEQ | `EQOn` |
|
||||
| `ZZEB` | значения TX-эквалайзера | `EQNumBands` + `EQGains` (формат Thetis, 36 символов) |
|
||||
| `ZZTO` | мощность настройки | `TUNLevel` |
|
||||
| `ZZTU` | кнопка TUN | `SetTune` |
|
||||
| `ZZUT` | двухтональник 2TON | `SetTwoTone` |
|
||||
| `ZZLI` | кнопка PS-A | `SetPureSignal` |
|
||||
| `ZZUS` | одиночная калибровка PS | `PSSingleCal` (write-only) |
|
||||
| `ZZTP` | активный TX-профиль | `SelectTXProfile` / `TXProfileCount` |
|
||||
| `ZZFD` | девиация передачи (2.5/5 кГц) | `TTXSettings.FMDeviation` |
|
||||
|
||||
**Телеграф** (раньше были проброшены только `KS`/`KY`/`ZZKM`/`ZZKS`/`ZZKY`):
|
||||
|
||||
| Команда | Что | Маппинг (`TCWSettings`) |
|
||||
|---|---|---|
|
||||
| `ZZCS` | скорость кейера, WPM (2 разряда) | `.Speed` — та же величина, что у `KS` |
|
||||
| `ZZCL` | тон приёма/сайдтона, Гц | `.Pitch` |
|
||||
| `ZZCI` | иамбик вкл/выкл | `.KeyerMode` (вкл выбирает iambic B, если стоял прямой ключ) |
|
||||
| `ZZCB` | break-in прошивки | `.BreakIn` |
|
||||
| `ZZCD` | hang-time break-in, мс | `.HangTimeMS` |
|
||||
| `ZZCM` | сайдтон (у Thetis — «monitor **disable**», значение инвертировано) | `.SidetoneSW` или `.SidetoneHW` — тот, что отвечает за текущий источник манипуляции |
|
||||
|
||||
**Новое в контроллере.** Правка TX-настроек получила одну публичную дверь —
|
||||
`SetTXSettings(const T; Notify)`, по образцу `SetCWSettings`: применение к WDSP,
|
||||
перепосыл DUC Specific, живой TUN, запись в активный профиль и персист теперь
|
||||
там, а не в обработчике MainForm (тот делегирует с `Notify=False`, иначе
|
||||
`rfTXProfile` перезагрузил бы вкладку Transmit под руками у правящего).
|
||||
Добавлен `SetTXMonVolume` — громкость self-monitor'а адресно, вне TX-контекста.
|
||||
|
||||
**Новое в движке.** Хелперы `OnOff` и `NumField` — разбор двухпозиционных и
|
||||
числовых полей в одном месте, чтобы тела команд остались про смысл. Границы
|
||||
значений (`MIC_GAIN_MIN`… в шапке юнита) повторяют контролы вкладок Transmit и
|
||||
CW: по CAT прилетает что угодно, а контроллер принимает запись целиком и уже не
|
||||
знает, кто её правил.
|
||||
|
||||
> Команды слайсов (`CATSliceEndpoint`) этих callback'ов не получают: TX-тракт
|
||||
> один на радио, а профиль слайса переключается своим путём
|
||||
> (`SetSliceTXProfile`). Все новые команды nil-безопасны и на слайс-порту
|
||||
> отвечают дефолтом.
|
||||
|
||||
### 2.5 Ревизия алиасов и подписей
|
||||
|
||||
Подписи писались по буквам кода, а не по Thetis, и врали примерно в 150
|
||||
местах. Хуже: часть **работающих** команд была привязана не к своей функции —
|
||||
внешний софт получал осмысленный, но неверный ответ, что хуже честной
|
||||
заглушки. Всё сверено с `CATCommands.cs` и исправлено.
|
||||
|
||||
**Команда делала не своё дело — теперь делает своё:**
|
||||
|
||||
| Команда | Было | Стало |
|
||||
|---|---|---|
|
||||
| `ZZMA` | режим (алиас `ZZMD`) | кнопка **MUT** → `SetMute` |
|
||||
| `ZZRX` | переход на приём | **шаговый аттенюатор RX1** 0..31 дБ → `SetAtten` |
|
||||
| `ZZRV` | версия ПО | **напряжение питания** PA (телеметрия) |
|
||||
| `ZZMV` | индекс текущего режима | **число записей** памяти каналов |
|
||||
| `ZZNN` | заглушка «ручной нотч» | **SNB** (спектральный бланкер) |
|
||||
| `ZZNS` | SNB | кнопка **NR2** (режим NR 2) |
|
||||
| `ZZVS` | алиас `ZZSP` (split) | **операции с парой VFO**: `0`=A→B, `1`=B→A, `2`=обмен, `3`=IF→VFO |
|
||||
| `ZZBM` | режим (алиас `ZZMD`) | **VFO B вниз** на nn шагов (пара к `ZZBP`) |
|
||||
| `ZZFI` | алиас `ZZBI` | сам **индекс фильтра** |
|
||||
| `ZZBS` | алиас `ZZAC` | сам **выбор диапазона** |
|
||||
| `ZZKM` | режим кейера | запуск **CW-макроса** (ячейка памяти сообщений) |
|
||||
| `ZZFT` | всегда VFO A | **TX-частота** с учётом split |
|
||||
| `ZZTX` | любое значение ≠ `0` поднимало передачу («2=TUNE» — выдумка) | строго `0`/`1`, иначе `?;` и передача НЕ включается (настройка — `ZZTU`) |
|
||||
|
||||
**Ошибочные алиасы сняты — теперь честные заглушки** (в скобках — где эта
|
||||
функция живёт на самом деле): `ZZAA`, `ZZVG` (громкость — `ZZAG`) · `ZZOA`
|
||||
(антенна RX1) · `ZZAP` (мощность — `ZZPC`) · `ZZDN` (мощность — `ZZPC`; сам
|
||||
`ZZDN` = низ водопада) · `ZZAC` (диапазон — `ZZBS`) · `ZZBI` (фильтр — `ZZFI`)
|
||||
· `ZZMB` (режим — `ZZMD`) · `ZZVA` (обмен VFO — `ZZVS`) · `ZZPD`, `ZZPO`
|
||||
(мощность и питание — `ZZPC`/`ZZPS`) · `ZZQM` (режим — `ZZMD`) · `ZZSR`
|
||||
(опорный уровень спектра) · `ZZRD`/`ZZRU` (RIT; шаг настройки — `ZZSA`/`ZZSB`).
|
||||
|
||||
> Что заметят внешние клиенты: `ZZRX;` больше не уводит в приём (для этого есть
|
||||
> `ZZTX0;` и кенвудовская `RX;`), `ZZVA;` больше не меняет VFO местами (теперь
|
||||
> `ZZVS0;`), `ZZKM` не выставляет режим кейера (иамбик вкл/выкл — `ZZCI`),
|
||||
> `RD`/`RU` больше не перестраивают VFO (шаг — `UP`/`DN`).
|
||||
> Во всех случаях старое поведение было отсебятиной.
|
||||
|
||||
**Кенвудовские команды.** Сверены отдельно: все 40 команд, реализованных в
|
||||
Thetis, у нас есть, ширины полей совпадают с `CATStructs.xml`. Исправлено:
|
||||
|
||||
| Команда | Что было не так |
|
||||
|---|---|
|
||||
| `SM` | ответ был 4 цифры вместо **5** (`SM0015;` → `SM00019;`) — парсеры логгеров ждут пять; заодно принимаем селектор `2`, как шлёт Thetis |
|
||||
| `RD` / `RU` | перестраивали VFO, хотя это **RIT** (его у нас нет) — стали заглушками, принимающими 5-значный аргумент |
|
||||
| `KY` | поле текста у Kenwood фиксированной ширины и добито пробелами — хвост уходил в эфир словесными паузами, теперь срезается |
|
||||
| `IF` | в комментарии значилось «37 байт», реальная и правильная длина ответа — **35** |
|
||||
| `SH` / `SL` | обе крутят один и тот же индекс пресета; раздельных «сторон» у главного приёмника нет — оговорка добавлена в код |
|
||||
| `CT` | принимала любой символ: `CT9;` молча ГАСИЛ тон вместо ответа `?;`. Теперь обёртка над `ZZTA`, как в эталоне, и сама `ZZTA` проверяет значение строго |
|
||||
| `OF` / `OS` | несли реализацию сами, а `ZZOT`/`ZZOS` были заглушками — клиент Thetis обращается как раз к `ZZ*` и не получал ничего. Реализация переехала в `ZZOT`/`ZZOS`, кенвудовские стали обёртками. Заодно `OF` с нечисловым полем больше не обнуляет сдвиг молча |
|
||||
|
||||
**Разбор и транспорты.** Отдельный проход по валидации и вводу-выводу:
|
||||
|
||||
| Где | Что было не так |
|
||||
|---|---|
|
||||
| `TCATEngine.Parse` | команды без параметров не проверяли суффикс: `TXanything;` доходил до `CmdTX` и **поднимал передачу**; так же вели себя `RX UP DN BD BU QI RC ID IF`. Эталон отбраковывает лишний суффикс в парсере, по таблице ширин; у нас таблицы нет — список безаргументных команд теперь в `IsParamless` |
|
||||
| `ZZFL` / `ZZFH` | принимали поле любой длины от 4 символов и гнали его через `StrToIntDef`: `ZZFLabcd;` молча схлопывал кромку в ноль. Поле фиксированное — ровно 5 символов со знаком, разбор строгий |
|
||||
| `KY` / `ZZKY` | текст не ограничивался; поле у Kenwood фиксированное, 25 символов. Длиннее — `?;`: очередь передачи не должна расти произвольно, иначе один пакет уводит станцию в эфир на неопределённое время |
|
||||
| `CATTcp.SendStr` | один `send` на ответ. TCP не обязан отдать весь буфер за раз — длинный ответ (`IF`, `ZZEB`, список режимов) мог уехать обрезанным, и молча: усечение здесь не ошибка. Теперь дописываем остаток в цикле |
|
||||
| `CATSerial` | порт помечался активным ДО `SerOpen`; при отказе он навсегда оставался «работающим» в `ActiveCount` и UI, а причина нигде не оседала. Открытие переехало из потока в `TCATSerialPort.Start` (синхронно), появилось свойство `LastError`, поток теперь только читает, а закрывает владелец в `Stop`. Заодно Andromeda-порт назначается только на реально поднявшийся порт |
|
||||
|
||||
Формат `ZZOT` сверен отдельно: эталон читает 9 цифр как МГц с шестью знаками
|
||||
после запятой (вставляет точку после третьего разряда) — численно это ровно те
|
||||
же герцы, что пишем мы, поле совместимо. Мусор в `ZZOS` эталон трактует как
|
||||
симплекс (`default` в `String2OffsetDirection`), и мы намеренно повторяем это,
|
||||
а не отвечаем ошибкой.
|
||||
|
||||
Формат ответа на `ZZ*` (`ZZ` + код + **эхо суффикса запроса** + значение) сверен
|
||||
с `CATParser.ParseExtended` — совпадает; это важно для `ZZSM0;`, где запрос
|
||||
несёт селектор приёмника.
|
||||
|
||||
---
|
||||
|
||||
## 3. Что нужно сделать (актуально / есть чем закрыть)
|
||||
@@ -151,21 +295,30 @@ CTCSS on/tone, FM repeater dir/offset, FM step, AGC-T, CTUN.
|
||||
|
||||
| Команда(ы) | Что | Чем закрыть | Сложность |
|
||||
|---|---|---|---|
|
||||
| `ZZVL`, `ZZUX`/`ZZUY` | блокировка VFO (общая и раздельная) | `SetVfoLock` | низкая |
|
||||
| `ZZSW`, `ZZZW` | обмен VFO A/B | `VfoSwap` | низкая |
|
||||
| `ZZAD ZZAE ZZAF ZZBE ZZBF`, `ZZSG`/`ZZSH` | сдвиг VFO на nn шагов | `StepIdxToHz` + `DoTuneUp/Down`, как у `ZZAU`/`ZZBP` | низкая |
|
||||
| `ZZCU` | загрузка CPU (read) | телеметрия процесса | низкая |
|
||||
| `ZZMY` / `ZZQR` / `ZZQS` / `ZZQM` | память каналов (запись/чтение/quick) | `ChannelStore` уже есть | средняя |
|
||||
| `ZZFD` | FM-девиация (radio button) | нужен публичный `SetFMDeviation` (сейчас только поле `FFMDeviation`) | низкая |
|
||||
| `ZZDM` / `ZZDA` / `ZZPO` / `ZZDY` | режим/усреднение/пик/порог спектра | UI-параметры спектра | средняя |
|
||||
| `ZZSF` | фильтр «центр + ширина» одной командой | `SetFilterEdges` | низкая |
|
||||
| `ZZSG`/`ZZSH`, `ZZSD` | шаг VFO B и колеса — по одному шагу | те же `SetVfoB`/`DoTune*` | низкая |
|
||||
| `ZZMY ZZMZ ZZMW ZZMX ZZQR ZZQS ZZQM` | запись/чтение памяти каналов (счётчик `ZZMV` уже есть) | `ChannelStore` / `ChannelController` | средняя |
|
||||
| `ZZDN`/`ZZDO`, `ZZDP`/`ZZDQ`/`ZZDR` | низ/верх водопада, сетка спектра | `FSpecRefLevel`/`FSpecRange`, per-pan дисплей | средняя |
|
||||
| `ZZPD`/`ZZPE`, `ZZPY`/`ZZPZ` | пан и зум дисплея | `SetPanZoomPan` | средняя |
|
||||
| `ZZSN`, `ZZZM`, `ZZZV` | серийник, модель, версия железа | `BoardUtils` | низкая |
|
||||
| `ZZXN` / `ZZXV` | составные статусы RX1/VFO | сборка из готовых геттеров | средняя |
|
||||
| `ZZOC`/`ZZOD`/`ZZOE` | антенны | `SetAnt936x` (порты AD936x) | средняя |
|
||||
| `ZZDX` / `ZZDY` | кнопка DX и порог спотов | флаг `ShowSpots` живёт в `MainForm` — сперва поднять в контроллер | средняя |
|
||||
| `ZZAS` | RX2 AGC-T | — только при появлении RX2 | — |
|
||||
|
||||
> Прежде чем реализовывать новую команду, сверяйся с форматом поля в
|
||||
> `Thetis/.../CAT/CATStructs.xml` (`<nsetparms>` / `<ngetparms>`) и телом
|
||||
> метода в `CATCommands.cs`, чтобы ширина/знак значения совпадали.
|
||||
> метода в `CATCommands.cs`, чтобы ширина/знак значения совпадали. И проверяй
|
||||
> **смысл**: подпись у заглушки в диспетчере может врать (см. §1.2).
|
||||
|
||||
### 3.1 Совсем не обрабатываются (вернут `?;`)
|
||||
|
||||
`ZZCU` (CPU), `ZZDY` (DX threshold), `ZZPK`/`ZZPL` (речевой компрессор),
|
||||
`ZZQA`/`ZZQB` (Quick Play/Rec), `ZZVF` (VAC stereo).
|
||||
Из них реалистично добавить только `ZZCU` и (частично) `ZZDY`.
|
||||
`ZZCU` (CPU), `ZZDY` (DX threshold), `ZZQA`/`ZZQB` (Quick Play/Rec),
|
||||
`ZZVF` (VAC stereo). Из них реалистично добавить только `ZZCU` и `ZZDY`.
|
||||
|
||||
---
|
||||
|
||||
@@ -176,13 +329,15 @@ CTCSS on/tone, FM repeater dir/offset, FM step, AGC-T, CTUN.
|
||||
|
||||
| Область | Команды (примеры) | Причина |
|
||||
|---|---|---|
|
||||
| **Второй приёмник RX2 / sub-RX** | `ZZAB ZZAS ZZBA ZZMB ZZOB`, ext `BF BG BR DO DQ DR OF OG OH OL SG SH SS` | один приёмник |
|
||||
| **TX-DSP тракт** | mic gain `ZZMG`/`MG`, монитор `ZZMO`/`MO`, TX-EQ `ZZEB/ER/ET`, компрессор `ZZPK/ZZPL/CF CI CL CM`, two-tone `ZZUS`, VAC `ZZVB/ZZVF` | нет обработки передачи |
|
||||
| **CW-кейер / CWX** | `ZZKM ZZKS ZZKY ZZCB ZZCD ZZCS`, `KY KS` | нет кейера |
|
||||
| **RTTY / DIGI** | `ZZRA ZZRL`, ext `RF RH RM RS RY` | нет RTTY-движка |
|
||||
| **RIT / XIT** | `RT XT RC RU RD` (как RIT), ext `RB RF RH` | нет смещения приёма |
|
||||
| **Diversity** | `ZZDA(div) ZZDB`, ext `DA` | нет диверсити-приёма |
|
||||
| **Спектр/водопад (внутр.)** | ext `SV SW SX SY SZ WT WU WV WW` | не управляется по CAT |
|
||||
| **Второй приёмник RX2 / sub-RX** | `ZZAB ZZAS ZZBA ZZBB ZZBT ZZMB ZZOB ZZRS ZZSV ZZSX ZZNC ZZND ZZNF ZZNO ZZNU ZZNW ZZFJ ZZFR ZZFS ZZGU ZZLE ZZLF ZZPB ZZRY ZZXO` | один приёмник |
|
||||
| **VAC / VAC2** | `ZZVC ZZVD ZZVF ZZVI ZZVK ZZVM ZZVO ZZVQ ZZVR ZZVT ZZVU ZZVV ZZVX ZZVY ZZVZ ZZYA ZZYB` | нет виртуального аудиокабеля |
|
||||
| **RTTY / DIGI-офсеты** | `ZZRA ZZRB ZZRH ZZRL` | нет RTTY-движка |
|
||||
| **RIT / XIT** | `RT XT RC`, `ZZRF ZZRT ZZXC ZZXD ZZXF ZZXS ZZXU` | нет тракта смещения приёма (CTUN — не замена) |
|
||||
| **Diversity** | `ZZDB ZZDC ZZDD ZZDE ZZDF ZZDG ZZDH` (но не `ZZDA` — это усреднение спектра) | нет диверсити-приёма |
|
||||
| **Компандер, noise gate, APF, VOX** | `ZZCP ZZCT`, `ZZGE ZZGL`, `ZZAA ZZAB ZZAT ZZAY`, `ZZVE ZZXH` | таких блоков в тракте нет (речевой компрессор — есть, это `ZZPK`/`ZZPL`) |
|
||||
| **Микшер Flex 5000 / F1500, FlexWire** | `ZZWA…ZZWS`, `ZZWT…ZZWW`, `ZZFV ZZFW ZZFX ZZFY` | железо другого вендора |
|
||||
| **ATU (Aries/Ganymede)** | `ZZOV ZZOW ZZOX ZZOZ ZZZA` | нет тюнера |
|
||||
| **DSP-буферы, JSON-команды** | `ZZHA ZZHR ZZHT ZZHU ZZHV ZZHW ZZHX`, `ZZJP ZZJQ ZZJR ZZJS` | внутренние крутилки Thetis |
|
||||
|
||||
---
|
||||
|
||||
|
||||
Reference in New Issue
Block a user