\
ТЕЛЕФОНИЯ
I
START
BSF
STATUS,RPO
RLF
OZY2,1
MDVLW
B '10000’
RLF
OZY1,1
MDVWF
PORTA
CALL
VETV
MDVLW
B '00000000’
CALL
ZAD0
MDVWF
PORTB
BSF
PORTB,1
MDVLW
B '11011111’
CALL
ZAD0
MDVWF
TMR0
BCF
PORTB,1
BCF
STATUS, RPO
CALL
ZADO
CALL
ZADERZKA
DECFSZ OZY4,1
CALL
ZADERZKA
CALL
ZADO
-
CLRF
PORTA
BSF
PORTB,0
CLRF
PORTB
CALL
ZADO
MDVLW
B '10000010’ /старший разряд
BCF
PORTB,0
/определяет коэффициент
RETURN
MDVWF
OZY1
/деления прескаллвра
/Эта подпрограмма вставляется при необходимости
/1 - А=64, 0 - А=12в
; (см. примечание) .
MDVLW
B '00000001’
загружаем в опорный
CONTR
CLKWDT
/делитель 256
BTFSS
PORTA, 4
MDVWF
OZY2
г
GOTO
PRM
MDVLW
D'16’
MDVLW
B' F-PRD'
MDVWF
OZY4
MDVWF
OZY2
CALL
poop
MDVLW
B' F-PRD'
CALL
PROG
MDVWF
OZY3
OPROS
CLKWDT
MDVLW
D' 24 ’
CALL
CONTR
/смотрите примечание.
MDVWF
OZY4
CALL
ZADERZKA
CLRF
OZY1
GOTO
OPROS
CALL
LOOP
VETV
CLKWDT
GOTO
ALF1
BTFSS
STATUS,C
PRM
CLKWDT
GOTO
L
MDVLW
B' F-PRM'
CLKWDT
MDVWF
OZY2
BSF
PORTA, 2
MDVLW
B' F-PRM'
RETURN
MDVWF
OZY3
L
BCF
PORTA,2
MDVLW
D' 24 ’
RETURN
MDVWF
OZY4
ZADERZKA MDVLW
D' 20’
CLRF
OZY1
MDVWF
OZY5
CALL
LOOP
ZAD
CLKWDT
GOTO
ALFO
DECFSZ OZY5,1
ALF0
CLKWDT
GOTO
ZAD
CALL
ZADERZKA
RETURN
BTFSS
PORTA, 4
ZADO
CLKWDT
GOTO
ALFO
CLKWDT
RETURN
CLKWDT
ALF1
CLKWDT
CLKWDT
CALL
ZADERZKA
CLKWDT
BTFSC
PORTA, 4
RETURN
GOTO
ALF1
PROG
MDVLW
B' 00000000
RETURN
MDVWF
OZY1
;Конец подпрограммы.
MDVLW
B' 10000010’ /Загружаем в ДПКД 130
END
MDVWF
OZY2
MDVLW
B’ 01010000’ /загружаем в пресхаллер 30.
Примечание.
MDVWF
OZY3
/Имейте ввиду, что
Эти строчки программы вставляются три необхо-
/младший разряд равен
0
,
димости сделать синтезатор переключаемым на две
/а отсчет ведется со
частоты
(например,
для радиостанции).
Р-РИ) -
/следующего разряда.
коэффициент, соответствующий частоте передатчи-
MDVLW
D'24’
ка. F-РРМ - соответственно, приемника. Вычисля-
MDVWF
OZY4
ются ло методике,
приведенной в начале статьи.
LOOP
CLKWDT
Если
необходимости в переключении нет,
то эти
RLF
OZY3,1
строки надо просто удалить из программы.
Радиолюбитель - 01/2006 |
предыдущая страница 56 Радиолюбитель 2006-01 читать онлайн следующая страница 58 Радиолюбитель 2006-01 читать онлайн Домой Выключить/включить текст