' --- TX-RX I2C
' --- Questo firmware è utilizzabile, variando i parametri secondo le indicazioni,
' --- per controllare i moduli COMTECH sia RX che TX su 1G2 e 2G3-2G4
'
'programma basato su PIC 16F84 per generare l'I2C che determina la frequenza 
'da utilizzare per i moduli Comtech o altri che utilizzano PLL TSA5015 o TSA5511
'Permette di avere 256 frequenze con passo di 100kHz o 125 kHZ
'selezionabili con dip-switch
' 

'DEFINE OSC 4
DEFINE I2C_SCLOUT 1

@ DEVICE RC_OSC

SYMBOL DT=PORTA.1
SYMBOL CK=PORTA.0
SYMBOL DIP1=PORTB.0
SYMBOL DIP2=PORTB.3
SYMBOL DIP3=PORTB.2
SYMBOL DIP4=PORTB.1
SYMBOL DIP5=PORTB.4
SYMBOL DIP6=PORTB.5
SYMBOL DIP7=PORTB.6
SYMBOL DIP8=PORTB.7

ADDR1 VAR BYTE
TMP   VAR BYTE
PLLBASE VAR WORD
PLL   VAR WORD
LO    VAR PLL.LOWBYTE
HI    VAR PLL.HIGHBYTE

INPUT DIP1
INPUT DIP2
INPUT DIP3
INPUT DIP4
INPUT DIP5
INPUT DIP6
INPUT DIP7
INPUT DIP8

OUTPUT CK
OUTPUT DT

'SCEGLIERE IL TIPO DI PLL UTILIZZATO

ADDR1=$C2   'per PLL TSA-5055
'ADDR1=$C0   'per PLL TSA-5511


'VALORE DA DARE ALLA VARIABILE PLLBASE per la banda 2G3

'per il TX:
'per iniziare a 2300MHz : 18400 
'per iniziare a 2500MHz : 20000

'per il RX :  tenere conto della FI a -479,5 MHz (sotrarre 3836) 
'per iniziare a 2300MHz : 14564 
'per iniziare a 2500MHz : 16164

'VALORE DA DARE ALLA VARIABILE PLLBASE per la banda 1G2

'per il TX:
'per iniziare a 1255MHz : 12550
'per iniziare a 1200MHz : 12000

'per il RX :  tenere conto della FI a +479,5 MHz (aggiungere 4795)
'per iniziare a 1255MHz : 17345
'per iniziare a 1200MHz : 16795

PLLBASE=18400

main:

TMP=255-(DIP8*128)-(DIP7*64)-(DIP6*32)-(DIP5*16)-(DIP4*8)-(DIP3*4)-(DIP2*2)-(DIP1)
PLL=PLLBASE+TMP*8    'passo di 125KHz
'PLL=PLLBASE+TMP*10  'passo di 100KHz 
I2CWRITE DT,CK,ADDR1,[HI,LO,$8E]
PAUSE 500
GOTO main

END