Технический форум по робототехнике.
$regfile = "xm128a1def.dat"
$crystal = 2000000
Config Porta.5 = Output
Config Porta.4 = Input
Do
If Pina.4 = 1 Then
Porta.5 = 1 : Waitms 900
Porta.5 = 0 : Waitms 100
Else
Porta.5 = 0
End If
Loop
$regfile = "xm128a1def.dat"
$crystal = 2000000
$hwstack = 40 ' default use 32 for the hardware stack
$swstack = 40 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
$LIB "XMega.LIB", "mcsbyte.lbx "' , "MCS.lib"
CONFIG COM5 = 2400 , Mode=0 , Parity=None, Stopbits=1, Databits=8
Open "Com5:" For Binary As #1
Config Porta.5 = Output
Config Porta.4 = Input
Dim A as Byte
Print #1, "Start"
Do
Print #1 , A
Incr A
wait 1
If Pina.4 = 1 Then
Porta.5 = 1 : Waitms 900
Porta.5 = 0 : Waitms 100
Else
Porta.5 = 0
End If
Loop
Как в AVR Studio с помощью AVR ISP mkII переключить ХМегу на внешний кварец?
void system_clocks_init(void){ // настройка тактовой частоты МК 32МГц
unsigned char n,s;
#pragma optsize-
s=SREG;
#asm("cli")
OSC.CTRL|=2;
DFLLRC32M.CTRL&= ~DFLL_ENABLE_bm;
n=(CLK.CTRL & (~CLK_SCLKSEL_gm)) | CLK_SCLKSEL_RC32M_gc;
CCP=CCP_IOREG_gc;
CLK.CTRL=n;
OSC.CTRL&= ~(OSC_RC2MEN_bm | OSC_RC32KEN_bm | OSC_XOSCEN_bm | OSC_PLLEN_bm);
PORTCFG.CLKEVOUT=(PORTCFG.CLKEVOUT & (~PORTCFG_CLKOUT_gm)) | PORTCFG_CLKOUT_OFF_gc;
SREG=s;
#pragma optsize+
}EdGull писал(а):это для какого программатора в CVAVR?
CLOCK_init:
ldi tmp1, 0b11000011
sts OSC_XOSCCTRL, tmp1
ldi tmp1, 1<<OSC_XOSCEN_bp
sts OSC_CTRL, tmp1
wait_for_cystal_stable:
lds tmp1, OSC_STATUS
sbrs tmp1, OSC_XOSCRDY_bp
rjmp wait_for_cystal_stable
ldi tmp1, 0b11001000
sts OSC_PLLCTRL, tmp1
lds tmp1, OSC_CTRL
ori tmp1, 1<<OSC_PLLEN_bp
sts OSC_CTRL, tmp1
wait_for_PLL_stable:
lds tmp1, OSC_STATUS
sbrs tmp1, OSC_PLLRDY_bp
rjmp wait_for_PLL_stable
ldi tmp1, CCP_IOREG_gc
out CPU_CCP, tmp1
ldi tmp1, 0b00000011
sts CLK_PSCTRL, tmp1
ldi tmp1, CCP_IOREG_gc
out CPU_CCP, tmp1
ldi tmp1, 0b00000100
sts CLK_CTRL, tmp1
ret