BATC Forum

Posted: **Thu Feb 13, 2014 2:32 am**

Hi Everyone,

This post is not quite the same topic as the previous one...

I have found plenty of information here about building an LCD Display controller for Comtech Modules, what I am looking for is the SOURCE CODE for PIC Chips that are driven from the 8 POS dip switch. I am attempting to put Comtechs operational up at 3.4 Ghz vi tripler. It seems to work on the other bands, just need to modify the Comtech to produce 1103-1165 Mhz to get where I want to operate. I wish to just use the dip switch. I don't really want to have to "roll my own" I figure someone has probably already done this...

Thanks,

Ron
Long live DATV Express!!

Posted: **Thu Feb 13, 2014 4:57 pm**

this is a source that can help:

Code: Select all

'TX-RX I2C
'platine à base de 16F84 pour générer l'I2C qui détermone la fréquence des modules Comtech
' ou autres...
'permet 256 fréquences au pas de 1MHz, à partir de la fréquence de démarrage
'décocher toutes les cases fuse à la programmation et choisir oscillateur RC

'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

ADDR1=$C2   'pour le PLL TSA-5055
'ADDR1=$C0   'pour le PLL TSA-5511

'Valeur à donner à PLLBASE pour la bande 2G3
'Fvco=125 * N : pour un pas de 125KHz
'pour un émetteur:
'pour démarrer à 2300MHz : 18400 
'pour démarrer à 2500MHz : 20000
'pour un récepteur, tenir compte de la FI infradyne de 479,5 MHz (soustraire 3836) 
'pour démarrer à 2300MHz : 14564 
'pour démarrer à 2500MHz : 16164

'Valeur à donner à PLLBASE pour la bande 1G2
'Fvco=100 * N : pour un pas de 100KHz
'pour un émetteur:
'pour démarrer à 1255MHz : 12550
'pour démarrer à 1200MHz : 12000
'pour un récepteur, tenir compte de la FI supradyne de 479,5 MHz (ajouter 4795)
'pour démarrer à 1255MHz : 17345
'pour démarrer à 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   'pas de 125KHz*8 soit 1MHz de résolution
'PLL=PLLBASE+TMP*10  'pas de 100KHz
I2CWRITE DT,CK,ADDR1,[HI,LO,$8E]
PAUSE 500
GOTO main

END

keep it a while in my PC, I remember nothing about the author, but note that it is French

Josue

BATC Forum

Comtech Programming

Comtech Programming

Re: Comtech Programming