Ребята кто в ассемблере разбирается? Откликнитесь
Нужно малость код подрихтовать. Асм под AVR 89C1051, во общем это маяк идентификатор репитера
Оригинал статьи http://www.cqham.ru/beacon21.htm
▼ Код
Код:
Org 0000h
Ljmp Start
cw Bit p3.5;
ptt Bit p3.7;
;----------------------------------------
Start:
Setb ptt
Clr cw
Nop
Nop
Call dath; D
Call dit
Call dit
Call Del_125
Call Del_125
Call dit ; E
Call Del_1
Call dit; R
Call dath
Call dit
Call Del_125
Call Del_125
Call dit; R
Call dath
Call dit
Call Del_125
Call Del_125
Call dit; 3
Call dit
Call dit
Call dath
Call dath
Call Del_125
Call Del_125
Call dit; W
Call dath
Call dath
Call Del_125
Call Del_125
Call dit; A
Call dath
Call Del_1s
Call dath; B
Call dit
Call dit
Call dit
Call Del_125
Call Del_125
Call dit; E
Call Del_125
Call Del_125
Call dit; A
Call dath
Call Del_125
Call Del_125
Call dath; C
Call dit
Call dath
Call dit
Call Del_125
Call Del_125
Call dath; O
Call dath
Call dath
Call Del_125
Call Del_125
Call dath; N
Call dit
Call Del_1s
Call dit; L
Call dath
Call dit
Call dit
Call Del_125
Call Del_125
Call dath; O
Call dath
Call dath
Call Del_125
Call Del_125
Call dath; C
Call dit
Call dath
Call dit
Call Del_1
Call dath; K
Call dit
Call dath
Call Del_125
Call Del_125
Call dath; O
Call dath
Call dath
Call Del_125
Call Del_125
Call dath; 8
Call dath
Call dath
Call dit
Call dit
Call Del_125
Call Del_125
Call dit; 1
Call dath
Call dath
Call dath
Call dath
Call Del_125
Call Del_125
Call dath; C
Call dit
Call dath
Call dit
Call Del_125
Call Del_125
Call dit; R
Call dath
Call dit
Nop
Clr ptt
Mov R1,#60
Loop:
Call Del_1S
Call Del_1S
Call Del_1S
Call Del_1S
Call Del_1S
Call Del_1S
Call Del_1S
Call Del_1S
Call Del_1S
Call Del_1S;10 секунд
Djnz R1,Loop
Jmp Start
;-------------------------
;Подпрограммы
;-------------------------
Del_1S:
;Задержка 1 секунда при частоте 12MHz
Call Del_1
Call Del_1
Ret
;-------------------------
Del_1:
;Задержка 0.5 секунды при частоте 12MHz
Mov Dptr,#0
del2: Inc Dptr
Nop
Nop
Nop
Mov A,Dpl
Cjne A,#0c7h,del2
Mov A,Dph
Cjne A,#0f3h,del2
Nop
Nop
Nop
Nop
Ret
;-------------------------
Del_125:
;Задержка 0.125 секунды при частоте 12MHz
Mov Dptr,#0
del125: Inc Dptr
Mov A,Dpl
Cjne A,#80h,del125
Mov A,Dph
Cjne A,#020h,del125
Nop
Nop
Nop
Nop
Ret
;-------------------------
dath: ; Тире с паузой в начале
Call Del_125
Setb cw
Call Del_125
Call Del_125
Call Del_125
Clr cw
ret
;-------------------------
dit: ; Точка с паузой в начале
Call Del_125
Setb cw
Call Del_125
Clr cw
ret
;-------------------------
End
в оригинале 10мин