і
АВТОМАТИКА
І
і nef
FSR, F
movlw
0x08
deefsz Countl, F
call
RaadWString
goto
ClrLoop
return
call
Measure
; Подготовка предделителя
; к работе
;
Вход в режим двойной калибровки (для больших
clrf
Temp
индуктивностей)
DoubleCheck
btfsc
Flags, 5
; Выход, если индуктивность
movlw
0x09
goto
Meter
; отсоединили от клемм
call
DelayXsec
call
ClrRegs
bsf
Flags, 6
; Установка флага двойной
; калибровки
call
Measure
call
Measure
movlw
FDX
goto
Double
call
Copy_From_A
;
Г ~ П А2
DoubleLX
movlw
CSX
; Сохраниение в Св
Double
movlw
FX
, суммарной ёмкости
call
Copy__From_A
;
Г«*Р1А2
call
Copy_From_A
; катушки, С1 и монтажа
bsf
_CAL
; Подключение С2 к контуру
call
AEQUF
call
Delay05sec
CalcDouble
movlw
CSX
call
TestBat
call
Copy_To_B
;
В==Св
movlw
0x09
call
LCalc
; Расчёт индуктивности
call
DelayXsec
; Установление стабильной
;
[Е1+Ьх]
; генерации
movlw
LX
call
Measure
call
Copy_To__B
call
Sub
; Ьх=* ^1+Ьх] -Х1
movlw
CSX
call
DispLX
; Вывод на дисплей
call
Copy_From A
; СБ*Г2Л2 временно
movlw
CX
;
Извлечение ёмкости С1 и
call
BEQUA
;
В-Г2А2
;
монтажа
call
Copy_To_B
;
в блок В,
bef
_CAL
;
Отключение С2
movlw
CSX
;
а суммарной
;
СІ+катушки+монтаж
call
AEQUF
;
А « П Л2
call
Copy_To_A
;
в блок А.
call
Sub
;
А " П А2 -
Г2*2
call
Sub
;
мкоскь катушки
*
А-В
call
BEQUA
;
В = П Л2 -
Г2*2
movlw
0x82
;
Курсор на 3-є знакоместо
movlw
CSX
;
А-Г2А2
call
CMDLCD
call
Copy_To_A
bsf
LX
;
Включить индикацию
;
ёмкости
call
Div
;
А«Г2Л2/ ( П л2
-
Е2Л2)
goto
DispVal+1
;
и вывести её
clrw
Адрес в ЕЕРЙ0М 0x2100
goto
Meter
call
X_T°_B
;
Загрузка коэффициента
;
XI <С2)
;
Просто расчет по формуле FA2~l/4*Pi*L*C
;
А"4*2л2*Ю00рГ/ (Г1Л2-Г2Л2)»С
LCalc
call
MPY
; A»FA2*C
call
BEQUA
;
b=fa2*C
btfsc
Flags, 6
;
Переход при двойной
;
калибровке
movlw
0xB2
;
А-1013211836423377,7
goto
DoubleLX
movwf
AX
, (Н'В2.66 60 В1)
movlw
0x66
call
CEQUA
;
С-А
movwf
A0
call
BEQUA
; В=С
movlw
0x60
call
AEQUF
;
А « П А2
movwf
A1
movlw
OxBl
call
LCalc
movwf
A2
movlw
LX
; Ь-А
call
Dxv
; А=1.013212Е15/(FlA2*Cs)»L
call
C °py_Fr °m_A
movlw
0x02
call
ClrDSP
call
X_To_B
movlw
0x20
;
'ОК*
call
Cl rB
;
B-lOOOpf (H
*
0А.7А 00 00)
call
ReadWString
;
Калибровка вавершена
movlw
0x8 A
movwf
BX
call
TestBat
movlw
0x7A
bsf
Fl ags, 7
;
Флаг прохождения
movwf
BO
;
калибровки
call
Div
return
;
Главный цикл намерения
Meter
call
GetSwitch
X To_B
cal 1
EEPR0M_To_B
; Sarpy ка коэффициента X
btfss
_FX
call
ASwapB
goto
FCounter
;
Режим частотометра
call
Float
btfsc
LX
call
Mpy
btfss
_CX
return
goto
Label_2
;
Режим Ю-метра
btfsc
Temp, 07
;
Задержка между режимами
ASwapB
moylw
T2
goto
Calibration
call
C opy_From_A
incf
Temp, F
movlw
BX
call
Copy_To_A
movlw
OxFF
movlw
T2
call
Delay
call
Copy_To_B
return
goto
Meter
; Само калибровка - определение Cl и LI и сохраниение их Значений
Label_2
call
CursorHome
; C1«F2A2 * C2/(F1A2-F2A2)
; Ll~l/(4*piA2*[Fl/5]A
2*C1) - 1.013212E15/F1*2/C1
movlw
0x77
а
Calibration
call
ClrDSP
movwf
Temp
Радиолюбитель - 03/2005 |
предыдущая страница 20 Радиолюбитель 2005-03 читать онлайн следующая страница 22 Радиолюбитель 2005-03 читать онлайн Домой Выключить/включить текст