DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTD
DEFINE LCD_RSBIT 1
DEFINE LCD_EREG PORTD
DEFINE LCD_EBIT 0
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50

DEFINE I2C_SCLOUT 1    'Set serial clock to bipolar instead of open-collector

' definition I2C communication
        SCL     var             PORTB.1          ' SCL on RB1  
        SDA         var         PORTB.0          ' SDA on RB0

'press:
        MEMO    var     PORTB.3         '
        UP      var     PORTB.4         ' press for FREQ UP RB.4
        DOWN    var     PORTB.5         ' press for FREQ DOWN RB.5

        INPUT   UP                      'Up et Down sont des entrées
        INPUT   DOWN
        INPUT   MEMO

    'Fmin =88 MHz, F max= 108 MHz
' ** DECLARATION OF THE VARIABLES

b1 var BYTE
b2 var BYTE
b3 var BYTE
b5 var BYTE

F1 var WORD
F2 var WORD
F3 var WORD

ADDR1        VAR BYTE
TMP          VAR WORD
TMP_LO       VAR TMP.LOWBYTE
TMP_HI       VAR TMP.HIGHBYTE
PLLBASE      VAR WORD
PLL          VAR WORD
LO           VAR PLL.LOWBYTE
HI           VAR PLL.HIGHBYTE
PAS          VAR BYTE '1=125kHz, 2=250kHz, 4=500kHz, 8=1MHz

'*** INITIAL DATA ***

ADDR1=$C2 'adress I2C of SDA5055 (ADDR1=$C0 , adress I2C of TSA5511)
PLLBASE=696  'beginning with 87 MHz : 87 / 0,125 = 696
PAS = 1 'step of 0.125 MHZ by default    ?????
PAUSE 100
LCDOUT $FE, 1 ' Clear LCD screen
LCDOUT " PLL FM 88-108" ' post text during 1 second
LCDOUT $FE,$C0
LCDOUT " BT-20"
PAUSE 1000

EEPROM 0,[$90,$01] 'initial data TMP = PLLBASE  corresponds to F = 88 MHz


'The starting point is 88 MHz given by PLLBASE. One adds a shift of 125kHz * TMP
'TMP is on 16 bits, therefore 65535 possible frequencies.
'
'*** READING OF THE DECALAGE TMP ***

READ 0,TMP_LO 'reads the 8 bits of weak weight
READ 1,TMP_HI 'reads the 8 bits of strong weight

' *** BEGINNING OF THE PROGRAM***

MAIN:
PLL = PLLBASE + TMP

I2CWRITE SDA,SCL,ADDR1,[HI,LO,$8E] 'Sending of the data to the module

GOSUB CALCUL 'calculate the frequency for posting
GOSUB AFFICHAGE 'post the frequency
PAUSE 500


'*** press routine ***

BOUCLE:
BUTTON UP,0,10,2,b1,1,MONTE 'supervise the button UP
BUTTON DOWN,0,10,2,b2,1,DESCEND 'supervise the button DOWN
BUTTON MEMO,0,255,0,b5,1,STORE 'supervise the button MEMO
' only step size of 125KHz is handled
' BUTTON CH_PAS,1,255,0,b3,1, CHOIX 'supervise the button PAS
PAUSE 100 'pauses of 0.1s
GOTO BOUCLE


MONTE: '** INCREASE THE FREQUENCY OF 1 PAS (STEP)

TMP = TMP + PAS
IF TMP > 168 THEN TMP = 0 'Fmax = 108 MHz  ---> (Fmax - Fmin) / 0,125   -> (108-87)/0,125  = 168
GOTO MAIN

DESCEND: '** DECREASE THE FREQUENCY OF 1 PAS (STEP)

IF TMP = 0 THEN TOP
TMP = TMP - PAS
GOTO MAIN

TOP: TMP=168   ' max reading in Tmp
GOTO MAIN


GOSUB AFFICHAGE 'post the frequency
GOTO BOUCLE


GOTO BOUCLE

CALCUL: ' ** CALCULATION OF THE FREQUENCY

F1 = PLL 'cut off 1GHz
F2 = F1/8 'give them MHz
F3 = 125*(F1//8)


RETURN

AFFICHAGE:
LCDOUT $FE, 1 'Clear LCD screen
LCDOUT #F2 'post the other digits
LCDOUT "." 'post the comma
LCDOUT #F3 'post the Khz
LCDOUT " MHz "

STORE:                         
                WRITE 0, TMP_LO        
                WRITE 1, TMP_H

'TSA5511 Test code     NOTE !!!!   pll xtal 6.4 MHz      give 100 Khz steps
' http://www.mcselec.com/index2.php?option=com_forum&Itemid=59&page=viewtopic&t=12237&sid=3d032597060ec1e872c3a17eb0287041
'$sim
$regfile = "m8def.DAT"
$crystal = 8000000
$hwstack = 32
$swstack = 24
$framesize = 32

Config Portb.4 = Input                                                                              'KEY UP 100 kHz
Config Portb.5 = Input                                                                              'KEY DOWN 100 kHz                                     '

Portb.4 = 1                                                                                         'UP  set high on keypress we go low
Portb.5 = 1                                                                                         'DOWN set high on keypress we go low

'LCD setup
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Cursor Off

Config Scl = Portb.1                                                                                'serial clock SCL pin 1
Config Sda = Portb.0                                                                                'serial data SDA pin 0

Declare Sub Update

Dim Snd_bytes As Byte
Dim Ax(4)as Byte
Dim Pll As Word
Dim Pll_lsb As Byte
Dim Pll_msb As Byte
Dim Lcd_frq As Single
Dim Pll_lock As Byte

Const Address_write = 194                                                                           'address
Const Charge_pump = 142                                                                             ' 0.100 pr step   6.4 MHz
Const Control_bit = 10                                                                              'port


 Pll = 870                                                                                          '87/0.100

Cls
Locate 1 , 1
Lcd "PLL FM 87-108"
Locate 2 , 5
Lcd "BT-20"
Wait 2

Call Update

Do

   'step 100 Khz  UP
   If Pinb.4 = 0 Then
      Do
        Pll = Pll + 1
        Call Update
     Loop Until Pinb.4 = 1
     Bitwait Pinb.4 , Set                                                                           'wait until key relase
   End If

   'step 100 Khz DOWN
   If Pinb.5 = 0 Then
      Do
        Pll = Pll - 1
        Call Update
      Loop Until Pinb.5 = 1
      Bitwait Pinb.5 , Set                                                                          'wait until key relase
   End If

Loop

Sub Update()
      If Pll > 1080 Then Pll = 870                                                                  ' 108 Mhz
      If Pll < 870 Then Pll = 1080                                                                  '   87 MHz

      Pll_msb = High(pll)
      Pll_lsb = Low(pll)

      Ax(1) = Pll_msb
      Ax(2) = Pll_lsb
      Ax(3) = Charge_pump
      Ax(4) = Control_bit
      Snd_bytes = 4

      I2csend Address_write , Ax(1) , Snd_bytes

      Cls
      Locate 1 , 1
      Lcd_frq = Pll * 0.100
      Lcd Fusing(lcd_frq , "000.000") ; " Mhz"
      Waitms 180
End Sub
End

Const Address_write = 194                                                                           'address
 

'TSA5511 Test code     NOTE !!!!   pll xtal 6.4 MHz   100 Khz steps       4Mhz 125 Khz    steps
' http://www.mcselec.com/index2.php?option=com_forum&Itemid=59&page=viewtopic&t=12237&sid=3d032597060ec1e872c3a17eb0287041
'$sim
$regfile = "m8def.DAT"
$crystal = 8000000
$hwstack = 32
$swstack = 24
$framesize = 32

Config Portb.4 = Input                                                                              'KEY UP  kHz
Config Portb.5 = Input                                                                              'KEY DOWN  kHz                                     '

Portb.4 = 1                                                                                         'UP  set high on keypress we go low
Portb.5 = 1                                                                                         'DOWN set high on keypress we go low

'LCD setup
Config Lcdpin = Pin , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 , E = Portd.4 , Rs = Portd.5
Config Lcd = 16 * 2
Cursor Off

Config Scl = Portb.1                                                                                'serial clock SCL pin 1
Config Sda = Portb.0                                                                                'serial data SDA pin 0

Declare Sub Update

Dim Snd_bytes As Byte
Dim Ax(4)as Byte
Dim Pll As Word
Dim Pll_lsb As Byte
Dim Pll_msb As Byte
Dim Lcd_frq As Single
Dim Pll_lock As Byte
Dim Pll_xtal As Byte
Const Address_write = 194                                                                           'address
Const Charge_pump = 142                                                                             ' 0.100 pr step   6.4 MHz
Const Control_bit = 10                                                                              'port
'********************************************************************************************************************
'SELECT THE PLL XTAL FREQ   0 = 6.4Mhz    /    1 = 4Mhz
Pll_xtal = 1                                                                                        '6.4Mhz
'*********************************************************************************************************************

If Pll_xtal = 0 Then
   Pll = 870                                                                                        '87/0.1        6.4 MHZ
Else
   Pll = 696                                                                                        '87 / 1.25    4 mHZ
End If


Cls
Locate 1 , 1
Lcd "PLL FM 87-108"
Locate 2 , 5
Lcd "BT-20"
Wait 2

Call Update

Do

   'step 1 Khz  UP
   If Pinb.4 = 0 Then
      Do
         Pll = Pll + 1
         Call Update
      Loop Until Pinb.4 = 1
      Bitwait Pinb.4 , Set                                                                           'wait until key relase
   End If

   'step 1 Khz DOWN
   If Pinb.5 = 0 Then
      Do
         Pll = Pll - 1
         Call Update
      Loop Until Pinb.5 = 1
      Bitwait Pinb.5 , Set                                                                          'wait until key relase
   End If

Loop

Sub Update()
   If Pll_xtal = 0 Then
      ''6.4 Mhz
      If Pll > 1080 Then Pll = 870                                                                  ' 108 Mhz
      If Pll < 870 Then Pll = 1080                                                                  '   87 MHz
      Else
      '4 Mhz
      If Pll > 864 Then Pll = 696                                                                   ' >108 Mhz  set 87Mhz
      If Pll < 696 Then Pll = 864                                                                   '   < 87 MHz  set 108 Mhz
   End If
   Pll_msb = High(pll)
   Pll_lsb = Low(pll)

   Ax(1) = Pll_msb
   Ax(2) = Pll_lsb
   Ax(3) = Charge_pump
   Ax(4) = Control_bit
   Snd_bytes = 4

   I2csend Address_write , Ax(1) , Snd_bytes

   Cls
   Locate 1 , 1
   If Pll_xtal = 0 Then
      Lcd_frq = Pll * 0.100                                                                         '6.4 Mhz
   Else
      Lcd_frq = Pll * 0.125                                                                         ' 4 Mhz
   End If
   Lcd Fusing(lcd_frq , "000.000") ; " Mhz"
   Waitms 180
End Sub
End