Телеграфный автомат для репитора
 
Главная... → Телеграфный автомат для репитора
Телеграфный автомат для репитора

Телеграфный автомат для репитора



Олег, RV6LRC, E-mail: oleg@appleclub.donpac.ru

Согласно новым правилам каждый репитор должен иметь свой позывной и не реже чем один раз в пятнадцать минут телеграфом сообщать его в эфир. Как то мне довелось сделать подобный автомат на основе PIC процессора. Буду рад, если кому нибудь пригодится эта конструкция.



Программа очень проста и в ней содержатся два телеграфных слова. Это позывной и дополнительная информация, например фамилия. Позывной телеграфируется сразу после подачи напряжения на схему, а второе слово передаётся после позывного, только если тумблер S1 включен. Через десять минут автомат снова включает передачу и телеграфирует. Но только если на входе "шумоподавитель " отсутствует напряжение т.е. транзистор закрыт. Это сделано, что бы не перебивать телеграфом редких DX. Но можно этот вход не подключать вовсе, тогда разговор будет прерываться телеграфной посылкой, так сделано в большинстве случаев, для этого предусмотрен тумблер S3. Реле Р1 включает передачу и коммутирует НЧ микрофонную цепь. Можно принудительно запускать автомат, кратковременно нажав на тумблер S2. Пока он замыкает сигнал сброса на землю автомат не включается. Это позволяет использовать данную конструкцию как бипер для оператора индивидуальной радиостанции.

Запрограмировать позывной тоже просто. Для примера зашит позывной RR6LB и фамилия оператора МАШИН. Для того,что бы запрограмировать свой позывной достаточно знать телеграфную азбуку и немного разбираться в ассемблере. Подскажу, что основные команды для этого автомата: CALL TIRE, CALL TCHK и CALL PAUZ. Длительность паузы равна длительности тире, а тире это собственно три точки. И дальше по правилам между буквами дожно быть 3 паузы и т.п. Интервал в десять минут между включениями автомата задается коэффициентом пересчёта из трёх констант TAMH-старший байт,TAMM-средний байт, TAML-младший байт. При изменении кода позывного и фамилии время срабатывания будет несколько отлично от 10 минут. Можно принудительно запускать автомат от внешнего таймера, подавая на вход RESET (тумблер S2) процессора сигнал высокого уровня на 1,5 - 9 минут, а в течение остального времени удерживать на этой ноге низкий уровень. Частота кварца 4мГц влияет на интервал между включением, частоту и длительность посылок. Можно менять эти параметры меняя константы в программе. Я привожу два варианта ассемблерного кода для PIC16с54 и PIC16f84. Можно подобрать коэффициенты и отладить схему на PIC16f84, а потом перейти на более дешёвый PIC16с54. Желаю удачи. Вскоре я собираюсь сделать себе сайт и разместить на нём ещё несколько устройств на PIC процессорах. В том числе ревербератор, эхо репитор, персональный вызов и синтезатор для УКВ трансивера. Приглашаю к сотрудничеству для разработок на основе PIC.

Вариант ассемблерного кода для PIC16с54 (DOS-кодировка)


;
;
LIST P=16C54, E=2
;
; ‘ҐЄжЁп § Ј®«®ўЄ
;
; ®ЇЁб ®ЇҐp жЁ® pҐЈЁбвp®ў
TMR0 EQU 01h
PC EQU 02h
STATUS EQU 03h
FSR EQU 04h
EEDATA EQU 08h
EECON1 EQU 08h
EECON2 EQU 09h
EEADR EQU 09h
PCLATH EQU 0Ah
INTCON EQU 0Bh
; pҐЈЁбвpл ўў®¤ /ўлў®¤
PORTA EQU 05h
PORTB EQU 06h
; п祩ЄЁ Ћ‡“
REGIL EQU 0Ch
REGIH EQU 0Dh
TAMIL EQU 0Eh
TAMIM EQU 0Fh
TAMIH EQU 10h
MEM36 EQU 2Fh
; ЎЁвл pҐЈЁбвp STATUS
C EQU 0h
DC EQU 1h
Z EQU 2h
PD EQU 3h
TO EQU 4h
RP1 EQU 5h
RP2 EQU 6h
IRP EQU 7h
; Ѓ?’› ЏЋђ’Ђ Ђ
SQWEL EQU .0
TX EQU .1
ZVON EQU .2
FAMI EQU .3

; б«®ў Ё «Ё§ жЁЁ ¤«п Ї®pв®ў ўў®¤ /ўлў®¤
INITA EQU B'11001'
INITB EQU B'11111111'
CHI EQU B'00000001'
CLOW EQU B'00111000'
TAMH EQU B'00001000'
TAMM EQU B'11110010'
TAML EQU B'11111010'
;
; ђ Ў®з п ᥪжЁп
;
; з «® ЁбЇ®«¬®Ј® Є®¤
ORG 1FFh
GOTO BEGIN
;
ORG 0h
BEGIN
MOVLW INITA
TRIS 5
MOVLW INITB
TRIS 6

MOVLW B'00000001'
OPTION

MOVLW TAMH
MOVWF TAMIH
MOVLW TAMM
MOVWF TAMIM
MOVLW TAML
MOVWF TAMIL

SQWELCH
CALL UMI
BTFSS PORTA,SQWEL
GOTO SQWELCH

BSF PORTA,TX

CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
;
RR6LB
; R
CALL TCHK
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TCHK

CALL PAUZ
CALL PAUZ
CALL PAUZ
; R
CALL TCHK
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TCHK

CALL PAUZ
CALL PAUZ
CALL PAUZ
; 6
CALL TIRE
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ
; L
CALL TCHK
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ
; B
CALL TIRE
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ
;
BTFSS PORTA,FAMI
GOTO ZACIKL

CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
FAMILI
; Њ
CALL TIRE
CALL PAUZ
CALL TIRE
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ

; Ђ
CALL TCHK
CALL PAUZ
CALL TIRE
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ

; ?
CALL TIRE
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TIRE
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ

; ?
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ
; Ќ
CALL TIRE
CALL PAUZ
CALL TCHK
CALL PAUZ
;
ZACIKL
BCF PORTA,TX
CALL UMI
GOTO ZACIKL
;
;
TIRE

CALL TCHK
CALL TCHK
CALL TCHK

RETLW .0
PAUZ

MOVLW CLOW
MOVWF REGIL
MOVLW CHI
MOVWF REGIH
MOVLW .1

OVAP
BTFSS TMR0,7
GOTO OVAP
;
SUBWF TAMIL,1
BTFSC STATUS,C
GOTO VOZVP
SUBWF TAMIM,1
BTFSC STATUS,C
GOTO VOZVP
SUBWF TAMIH,1
BTFSC STATUS,C
GOTO VOZVP
GOTO OBP
VOZVP


OVIP
BTFSC TMR0,7
GOTO OVIP
;

DECFSZ REGIL,1
GOTO OVAP
RETLW .0

TCHK

MOVLW CLOW
MOVWF REGIL
MOVLW CHI
MOVWF REGIH
MOVLW .1
OVA
BTFSS TMR0,7
GOTO OVA
BSF PORTA,ZVON
OVI
BTFSC TMR0,7
GOTO OVI
BCF PORTA,ZVON

SUBWF TAMIL,1
BTFSC STATUS,C
GOTO VOZVT
SUBWF TAMIM,1
BTFSC STATUS,C
GOTO VOZVT
SUBWF TAMIH,1
BTFSC STATUS,C
GOTO VOZVT
GOTO OBT
VOZVT

DECFSZ REGIL,1
GOTO OVA
RETLW .0


DECI
SUBWF TAMIL,1
BTFSC STATUS,C
GOTO VOZV
SUBWF TAMIM,1
BTFSC STATUS,C
GOTO VOZV
SUBWF TAMIH,1
BTFSC STATUS,C
GOTO VOZV
GOTO BEGIN
VOZV

RETLW .0

UMI

OVAT
BTFSS TMR0,7
GOTO OVAT
MOVLW .1
CALL DECI
OVIT
BTFSC TMR0,7
GOTO OVIT

RETLW .0

OBP
MOVLW TAMH
MOVWF TAMIH
MOVLW TAMM
MOVWF TAMIM
MOVLW TAML
MOVWF TAMIL
GOTO VOZVP
OBT
MOVLW TAMH
MOVWF TAMIH
MOVLW TAMM
MOVWF TAMIM
MOVLW TAML
MOVWF TAMIL
GOTO VOZVT
END
;

Вариант ассемблерного кода для PIC16f84 (DOS-кодировка)

;
;
LIST P=16C84, E=2
;
; ‘ҐЄжЁп § Ј®«®ўЄ
;
; ®ЇЁб ®ЇҐp жЁ® pҐЈЁбвp®ў
TMR0 EQU 01h
PC EQU 02h
STATUS EQU 03h
FSR EQU 04h
EEDATA EQU 08h
EECON1 EQU 08h
EECON2 EQU 09h
EEADR EQU 09h
PCLATH EQU 0Ah
INTCON EQU 0Bh
; pҐЈЁбвpл ўў®¤ /ўлў®¤
PORTA EQU 05h
PORTB EQU 06h
; п祩ЄЁ Ћ‡“
REGIL EQU 0Ch
REGIH EQU 0Dh
TAMIL EQU 0Eh
TAMIM EQU 0Fh
TAMIH EQU 10h
MEM36 EQU 2Fh
; ЎЁвл pҐЈЁбвp STATUS
C EQU 0h
DC EQU 1h
Z EQU 2h
PD EQU 3h
TO EQU 4h
RP1 EQU 5h
RP2 EQU 6h
IRP EQU 7h
; Ѓ?’› ЏЋђ’Ђ Ђ
SQWEL EQU .0
TX EQU .1
ZVON EQU .2
FAMI EQU .3

; б«®ў Ё «Ё§ жЁЁ ¤«п Ї®pв®ў ўў®¤ /ўлў®¤
INITA EQU B'11001'
INITB EQU B'11111111'
CHI EQU B'00000001'
CLOW EQU B'00111000'
TAMH EQU B'00001000'
TAMM EQU B'11110011'
TAML EQU B'00011111'
;
; ђ Ў®з п ᥪжЁп
;
; з «® ЁбЇ®«¬®Ј® Є®¤
ORG 0
GOTO BEGIN
;
ORG 100h
BEGIN
MOVLW INITA
TRIS 5
MOVLW INITB
TRIS 6

MOVLW B'00000001'
OPTION

MOVLW TAMH
MOVWF TAMIH
MOVLW TAMM
MOVWF TAMIM
MOVLW TAML
MOVWF TAMIL

SQWELCH
CALL UMI
BTFSS PORTA,SQWEL
GOTO SQWELCH

BSF PORTA,TX

CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
;
RR6LB
; R
CALL TCHK
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TCHK

CALL PAUZ
CALL PAUZ
CALL PAUZ
; R
CALL TCHK
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TCHK

CALL PAUZ
CALL PAUZ
CALL PAUZ
; 6
CALL TIRE
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ
; L
CALL TCHK
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ
; B
CALL TIRE
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ
;
BTFSS PORTA,FAMI
GOTO ZACIKL

CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
CALL PAUZ
FAMILI
; Њ
CALL TIRE
CALL PAUZ
CALL TIRE
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ

; Ђ
CALL TCHK
CALL PAUZ
CALL TIRE
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ

; ?
CALL TIRE
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TIRE
CALL PAUZ
CALL TIRE
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ

; ?
CALL TCHK
CALL PAUZ
CALL TCHK
CALL PAUZ

CALL PAUZ
CALL PAUZ
CALL PAUZ
; Ќ
CALL TIRE
CALL PAUZ
CALL TCHK
CALL PAUZ
;
ZACIKL
BCF PORTA,TX
CALL UMI
GOTO ZACIKL
;
;
TIRE

CALL TCHK
CALL TCHK
CALL TCHK

RETLW .0
PAUZ

MOVLW CLOW
MOVWF REGIL
MOVLW .1

OVAP
BTFSS TMR0,7
GOTO OVAP
;
SUBWF TAMIL,1
BTFSC STATUS,C
GOTO VOZVP
SUBWF TAMIM,1
BTFSC STATUS,C
GOTO VOZVP
SUBWF TAMIH,1
BTFSC STATUS,C
GOTO VOZVP
GOTO OBP
VOZVP


OVIP
BTFSC TMR0,7
GOTO OVIP
;

DECFSZ REGIL,1
GOTO OVAP
RETLW .0

TCHK

MOVLW CLOW
MOVWF REGIL
MOVLW .1
OVA
BTFSS TMR0,7
GOTO OVA
BSF PORTA,ZVON
OVI
BTFSC TMR0,7
GOTO OVI
BCF PORTA,ZVON

SUBWF TAMIL,1
BTFSC STATUS,C
GOTO VOZVT
SUBWF TAMIM,1
BTFSC STATUS,C
GOTO VOZVT
SUBWF TAMIH,1
BTFSC STATUS,C
GOTO VOZVT
GOTO OBT
VOZVT

DECFSZ REGIL,1
GOTO OVA
RETLW .0


DECI
SUBWF TAMIL,1
BTFSC STATUS,C
GOTO VOZV
SUBWF TAMIM,1
BTFSC STATUS,C
GOTO VOZV
SUBWF TAMIH,1
BTFSC STATUS,C
GOTO VOZV
GOTO BEGIN
VOZV

RETLW .0

UMI

OVAT
BTFSS TMR0,7
GOTO OVAT
MOVLW .1
CALL DECI
OVIT
BTFSC TMR0,7
GOTO OVIT

RETLW .0

OBP
MOVLW TAMH
MOVWF TAMIH
MOVLW TAMM
MOVWF TAMIM
MOVLW TAML
MOVWF TAMIL
GOTO VOZVP
OBT
MOVLW TAMH
MOVWF TAMIH
MOVLW TAMM
MOVWF TAMIM
MOVLW TAML
MOVWF TAMIL
GOTO VOZVT
END
;
Мой адрес в интернете: oleg@appleclub.donpac.ru



Комментарии..

    Комментариев нет..
Тип комментария
Имя *
Email

Введите проверочный код *