因為要製作界面使用的關係,以及在一些舊機種沒支援快鍵的發報方式,所以就利用ATtiny13來寫一個界面來使用,原本是使用DL4YHF的電路來使用,但零件接腳太多,週邊的零件也多,較不實用.
電路圖如下:
DOT , DASH 接到快鍵,RV1調整拍碼速度,輸出可接晶體或光藕合,夠簡單吧!!
程式動作:
開始 => 快鍵是否有動作 =否> 回開始
=是> 判斷按DOT =是> 輸出,並呼叫延時一週期 =
=否> 輸出,並呼叫延時三週期 =
延時 讀AD值,決定延時長度.
程式碼如下:
; TINY13
;PIN Pinout Project
; 1 PB5(PCINT5/ADC0/dW/RESET)
; 2 PB3(PCINT3/ADC3/CLKI)
; 3 PB4(PCINT4/ADC2) OUT
; 4 GND ====================
; 5 PB0(PCINT0/AIN0/MOSI/OC0A) DOT
; 6 PB1(PCINT1/AIN1/MISO/OC0B/INT0) DASH
; 7 PB2(PCINC2/ADC1/SCK/T0) VR-SPEED
; 8 VCC ====================
.include "tn13def.inc"
;I/O
.def temp =r16
.equ key2 = 0 ;PB
.equ key3 = 1 ;PB
.equ led = 4 ;PB
;------------------------------------------------------------
;DELAY
delay_10ms:
cpi temp,$10
brsh d0
ldi temp,$10
mov r20,temp
d0:
ldi r21,$4
d2: ldi r22,0
d1:
dec r22 ;1 * 0.1356
brne d1 ;0.5 * 0.1356
dec r21
brne d2
dec r20
brne d0
ret
delay2:
ldi r21,$02
d4: ldi r22,0
d3: dec r22
brne d3
dec r21
brne d4
ret
;-------------------------------------------------------------------------------------
;AD READ ;temp
;ADMUX: - REFS0 ADLAR - - - MUX1 MUX0
ad: ; 0 0 1 0 0 0 0 1
ldi temp,$61 ;Avcc,,ADC1
out ADMUX,temp
ldi temp,$c6 ;ADCSRA: ADEN ADSC ADATE ADIF ADIE ADPS2 ADPS1 ADPS0
out ADCSRA,temp ; 1 1 0 0 0 1 1 0
nop
nop
nop
in temp,adch
ret
;----------------------------------------------------------------------------
;keyin INPUT C=1
;R20 ,R21 ,R22
;DATA = R22
;CHANGE C=1
;R20 key_buff,temp
keyin:
clc
in temp,pinb
ori temp,0b11111100
cpi temp,$ff ;
brne ke1 ;CHANGE to ke1
ret
ke1:
sec
ret
;-----------------------------------------------------------------------
;**************************************************
main: ;************* Program start ********************
;DOT = PB0(key2) DASH = PB1(key3) OUT = PB4(led)
ldi temp,low(ramend)
out spl,temp
ldi temp,0b11111100
out ddrb,temp ;set portB 765432 output
ldi temp,0b00000011 ;set portB 01 PULL
out portb,temp
sbi portb,led
start:
rcall keyin
brcs kin
nop
nop
rjmp start
kin:
sbic pinb,key2 ;DOT(key2)
rjmp dash ;DASH(key3)
clc
dot: cbi portb,led ;OUT
rcall delay1
sbi portb,led ;OFF
rcall delay1
sbic pinb,key3 ;DASH
rjmp start
dash:
clc
cbi portb,led
rcall delay3
sbi portb,led
rcall delay1
sbic pinb,key2
rjmp start
rjmp dot
delay1:
rcall ad
mov r20,temp
rcall delay_10ms
ret
delay3:
rcall ad
mov r20,temp
rcall delay_10ms
mov r20,temp
rcall delay_10ms
mov r20,temp
rcall delay_10ms
ret
