out_lmx:

mov r29, r19
rcall out_byte
mov r29, r20
rcall out_byte
mov r29, r21
rcall out_byte
nop
nop
nop
sbi PORTB,CE
sbi PORTB,CE
nop
nop
cbi PORTB,CE
cbi PORTB,CE
nop
nop
ret




out_byte:
ldi r28, 8
otb:
clc
rol r29
brcc dat_0
sbi PORTB,DAT
rjmp pulse

dat_0:
cbi PORTB,DAT
pulse:
nop
nop
sbi PORTB,CLOCK
nop
nop
cbi PORTB,CLOCK
nop
nop
dec r28
brne otb
ret

LoadSynth:
LDI R20,19
LoadCycle:
off(SYNTH_CLK)

SBRC R18,3 ; if(Value & (1L << 18)
on(SYNTH_DATA)
SBRS R18,3 ; else
off(SYNTH_DATA)

on(SYNTH_CLK)
LSL R16
ROL R17 ; Value <<= 1;
ROL R18
DEC R20
BRNE LoadCycle

on(SYNTH_LOAD)
off(SYNTH_LOAD)
RET

syntez:
ldi tx_h,0x00 // 10240
ldi tx_m,0x40 // (control bits = 00)
ldi tx_l,0x00 // 10240 / 2.5 = 4096 = 1000H <<2 = 4000
rcall outwrd //


lds tx_h,t_h // h byteload frequency Частота ГУНа / частоту сетки = 3 байта слова
lds tx_m,t_m // m byte // 100 000 / 2,5 = 40 000 = 0х00 9С 40
lds tx_l,t_l // l byte


tx_tx: //
clc //
rol tx_l //
rol tx_m //
rol tx_h //
sec //
rol tx_l //
rol tx_m //
rol tx_h // (control bits = 01)
rcall outwrd


outwrd1:
ldi tx_h,0
ldi tx_m,0
ldi tx_l,0x82


outwrd: // Вывод в 2316 управляющего слова
mov tmp,tx_h
rcall out_lmx
mov tmp,tx_m
rcall out_lmx
mov tmp,tx_l
rcall out_lmx
nop
nop
nop
sbi portd,syn_stb // STROB -> 1
nop
nop
nop
cbi portd,syn_stb // STROB -> 0
nop
nop
nop
ret



out_lmx: // Выдать байт в 2316 Байт в acc
ldi loop,8 // загрузить 8 в счетчик бит.
lmx_cycle: //
clc // сброс cary
rol tmp // сдвиг acc влево через C
brcc lmx_l //
sbi portd,syn_dat // установить DATA=1
rjmp lmx_h //
lmx_l: //
cbi portd,syn_dat // установить DATA=0
lmx_h: //
nop //
sbi portd,syn_clk // CLK -> 1
nop //
nop //
cbi portd,syn_clk // CLK -> 0
dec loop //
brne lmx_cycle // проверить счетчик бит.
ret // выход

/*настройка микросхемы lmx_2347
Порядок настройки:
1. Запись в регистр "N". NB_CNTR [9:0]=0000000011, NA_CNTR[4:0]=00011, PD[1:0]=00, ADDR=0.
Коэфф. деления N=32*B+A, B>=A. В=3,A=3 --> N=99
2. Запись в регистр "R". R_OPT[2:0]=000, LD_OUT[1:0]=11, PD_POL=1, CP_TRI=1,
R_CNTR[9:0]=0000000000, ADDR=1*/
void lmx_2322_tune(void)
{
/*1. Запись в регистр "N"*/
char i;
lmx_cfgL=0b00000000;//последние 2 бита
lmx_cfgM=0b11000110;//следующие 8 бит
lmx_cfgH=0b00000000;//первые 8 бит, начиная с MSB
//LMX_LE=1;
Delay10TCYx(1);//задержка 240нс
LMX_LE=0;
LMX_CLK=0;
Delay10TCYx(1);
Delay1TCY();

for(i=7;i>=0;i--)
{
LMX_DATA=(lmx_cfgH>>i)&0b00000001;
//Delay1TCY();
LMX_CLK=1;
Delay10TCYx(1);//задержка 240нс
LMX_CLK=0;
Delay10TCYx(1);//задержка 240нс
}

for(i=7;i>=0;i--)
{
LMX_DATA=(lmx_cfgM>>i)&0b00000001;
//Delay1TCY();
LMX_CLK=1;
Delay10TCYx(1);//задержка 240нс
LMX_CLK=0;
Delay10TCYx(1);//задержка 240нс
}

for(i=7;i!=5;i--)
{
LMX_DATA=(lmx_cfgL>>i)&0b00000001;
//Delay1TCY();
LMX_CLK=1;
Delay10TCYx(1);//задержка 240нс
LMX_CLK=0;
Delay10TCYx(1);//задержка 240нс
}

Delay10TCYx(1);//задержка 240нс
Delay10TCYx(1);//задержка 240нс
LMX_LE=1;
Delay10TCYx(1);//задержка 240нс
LMX_LE=0;

/* 2. Запись в регистр "R"*/

lmx_cfgL=0b01000000;
lmx_cfgM=0b00000000;
lmx_cfgH=0b00011110;
Delay10TCYx(1);//задержка 240нс
LMX_LE=0;
LMX_CLK=0;
Delay1TCY();

for(i=7;i>=0;i--)
{
LMX_DATA=(lmx_cfgH>>i)&0b00000001;
LMX_CLK=1;
Delay10TCYx(1);//задержка 240нс
LMX_CLK=0;
Delay10TCYx(1);//задержка 240нс
}

for(i=7;i>=0;i--)
{
LMX_DATA=(lmx_cfgM>>i)&0b00000001;
LMX_CLK=1;
Delay10TCYx(1);//задержка 240нс
LMX_CLK=0;
Delay10TCYx(1);//задержка 240нс
}

for(i=7;i!=5;i--)
{
LMX_DATA=(lmx_cfgL>>i)&0b00000001;
LMX_CLK=1;
Delay10TCYx(1);//задержка 240нс
LMX_CLK=0;
Delay10TCYx(1);//задержка 240нс
}

Delay10TCYx(1);//задержка 240нс
LMX_LE=1;

}