- Labornetzteil AliExpress         
Ergebnis 1 bis 5 von 5

Thema: XMega Clock,PLL, Prescaler einstellen in Bascom Demo

Hybrid-Darstellung

Vorheriger Beitrag Vorheriger Beitrag   Nächster Beitrag Nächster Beitrag
  1. #1
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    11.04.2005
    Beiträge
    1.469

    XMega Clock,PLL, Prescaler einstellen in Bascom Demo

    Hi,
    vielleicht hilft es dem einen oder anderen beim Start.
    Getestet auf XPlain Board.
    Ist nicht viel Code, aber viel Registerbeschreibung
    Ich habe die Register direkt gesetzt, man braucht also keine xmega.lib!

    Zum testen habe ich den internen 2 MHz Oszillator auf die PLL gegeben und mit 16 multipliziert.
    Das heißt: 2 MHz rein, 32 MHz raus.

    (der Code ist nach einer Frage im MCS-Forum entstanden, deshalb sind die Kommentare auf englisch)


    Code:
    $regfile = "xm128a1def.dat"
    
    $crystal = 32000000                                         '
    Ddre = &B11111111                                           'All Pins on PortE as Output
    
    Dim A As Byte                                               '
    
    'If we use a Crystal we have to set up Frequency Range and Startup Time first
    'If we use a external Clock we have to write the XOSCSEL Bit
    '***************  XOSCCTRL  = XOSC Register (Adress &H52) **********************
    '*                                                                             *
    '*            7 6    Bits 7-6 FRQRANGE Crystal Frequency Range                 *
    '*            0 0    04TO2      0.4 MHz to 2 MHz                               *
    '*            0 1     2TO9      2 MHz to 9 MHz                                 *
    '*            1 0     9TO12     9 MHz to 12 MHz                                *
    '*            1 1     XOSC      External Oszillator                            *
    '*-----------------------------------------------------------------------------*
    '*            BIT 5  32.768 Crystal Oscillator Low Power Mode                  *
    '*                         0 = OFF  1 = Low Power                              *
    '*-----------------------------------------------------------------------------*
    '*-----------------------------------------------------------------------------*
    '*             BIT 4 Reserved, always write to zero                            *
    '*-----------------------------------------------------------------------------*
    '*                  3 2 1 0 XOSCSEL External Oscillator Select                 *
    '*                  0 0 0 1 EXTCLK  External Clock                             *
    '*                  0 0 1 0 32KHZ   32.768 TOSC  Startup Time 16K CLK          *
    '*                  0 0 1 1 XTAL_256CLK  0-16 MHz Crystal Startup Time 256K CLK*
    '*                  0 1 1 1 XTAL_1KCLK   0-16 MHz Crystal Startup Time 1K   CLK*
    '*                  1 0 1 1 XTAL_16KCLK  0-16 MHz Crystal Startup Time 16K  CLK*
    '*******************************************************************************
    
    'For Example, if we use 4MHz Crystal:
    'Out &H52 , &B01101011                                       ' Freq 2 to 9 MHz, Startup Time 16K Clocks, 32KHz Osc in low power Mode
    
    'In this Example we use the internal 2MHz Oscillator
    
    '**** CTRL = Oscillator Control Register (Adress &H50) bits 7-3 Reserved *******
    '*                    Enables or disables Oscillators or PLL                   *
    '*                                                                             *
    '*                    Bit 0 = RC2MEN     2MHz internal                         *
    '*                    Bit 1 = RC32MEN   32MHz internal                         *
    '*                    Bit 2 = RC32KEN   32KHz internal                         *
    '*                    Bit 3 = XOSCEN  external Oscillator                      *
    '*                    Bit 4 = PLLEN          PLL                               *
    '*******************************************************************************
    'Out &H50 , &B00000010                                       ' enable 32MHz Oscillator
    'Out &H50 , &B00000001                                       ' enable  2MHz Oscillator
    'Out &H50 , &B00000011                                       ' enable 32MHz AND 2MHz Oscillators
    'Out &H50 , &B00001000                                       ' enable  external Oscillator
    
    Out &H50 , &B00000001                                       ' enable  2MHz Oscillator
    
    '***************  PLLCTRL = PLL Control Register (Adress &H55) *****************
    '*                                                                             *
    '*                   7 6    Bits 7-6 PLLSCR  PLL Clocksource                   *
    '*                   0 0    RC2MHz    2MHz  internal                           *
    '*                   0 1    Reserved                                           *
    '*                   1 0    RC32MHz   32MHz internal                           *
    '*                   1 1    XOSC     External Oszillator                       *
    '*-----------------------------------------------------------------------------*
    '*                   BIT 5 Reserved, always write to zero                      *
    '*-----------------------------------------------------------------------------*
    '*                         4 3 2 1 0 PLLFAC Pll Multiplication Factor          *
    '*                         0 0 0 0 1 Multiplication x 1                        *
    '*                         0 0 0 1 0 Multiplication x 2                        *
    '*                         0 0 0 1 1 Multiplication x 3                        *
    '*                         0 0 1 0 0 Multiplication x 4                        *
    '*                         0 0 1 0 1 Multiplication x 5                        *
    '*                         0 0 1 1 0 Multiplication x 6                        *
    '*                         0 0 1 1 1 Multiplication x 7                        *
    '*                         0 1 0 0 0 Multiplication x 8                        *
    '*                         0 1 0 0 1 Multiplication x 9                        *
    '*                         0 1 0 1 0 Multiplication x 10                       *
    '*                         0 1 0 1 1 Multiplication x 11                       *
    '*                         0 1 1 0 0 Multiplication x 12                       *
    '*                         0 1 1 0 1 Multiplication x 13                       *
    '*                         0 1 1 1 0 Multiplication x 14                       *
    '*                         0 1 1 1 1 Multiplication x 15                       *
    '*                         1 0 0 0 0 Multiplication x 16                       *
    '*                         1 0 0 0 1 Multiplication x 17                       *
    '*                         1 0 0 1 0 Multiplication x 18                       *
    '*                         1 0 0 1 1 Multiplication x 19                       *
    '*                         1 0 1 0 0 Multiplication x 20                       *
    '*                         1 0 1 0 1 Multiplication x 21                       *
    '*                         1 0 1 1 0 Multiplication x 22                       *
    '*                         1 0 1 1 1 Multiplication x 23                       *
    '*                         1 1 0 0 0 Multiplication x 24                       *
    '*                         1 1 0 0 1 Multiplication x 25                       *
    '*                         1 1 0 1 0 Multiplication x 26                       *
    '*                         1 1 0 1 1 Multiplication x 27                       *
    '*                         1 1 1 0 0 Multiplication x 28                       *
    '*                         1 1 1 0 1 Multiplication x 29                       *
    '*                         1 1 1 1 0 Multiplication x 30                       *
    '*                         1 1 1 1 1 Multiplication x 31                       *
    '*******************************************************************************
    
    Out &H55 , &B00010000                                       'PLL Clocksource = 2MHz internal Osc.
    '                                                           ,Multiplicator = 16 to get 32 MHz Out
    
    
    ' Some Registers are protected by the "Configuration Change Protect Mechanism" (CCP Register)
    ' We have to disable that Protection, then write to the Register within 4 clockcycles
    
    '*********** Configuration Change Protection Register (Adress &H34) ************
    '*                      &H9D SMP   Protected SPM/LPM                           *
    '*                      &HD8 IOREG Protected IO Register                       *
    '*******************************************************************************
    
    
    Out &H34 , &HD8                                             'No write protection for 4 cycles                                         '
    
    'We can use 3 different Prescalers
    '************* PSCTRLSystem Clock Prescaler Register  (Adress &H34) ************
    '*          7 6 5 4 3 2 1 0 (Bit7 Reserved, write to zero)                     *
    '*          R 0 0 0 0 0     PSADIV Prescaler A Div     Div by 1 (NoDiv)        *
    '*          R 0 0 0 0 1     PSADIV Prescaler A Div     Div by 2                *
    '*          R 0 0 0 1 1     PSADIV Prescaler A Div     Div by 4                *
    '*          R 0 0 1 0 1     PSADIV Prescaler A Div     Div by 8                *
    '*          R 0 0 1 1 1     PSADIV Prescaler A Div     Div by 16               *
    '*          R 0 1 0 0 1     PSADIV Prescaler A Div     Div by 32               *
    '*          R 0 1 0 1 1     PSADIV Prescaler A Div     Div by 64               *
    '*          R 0 1 1 0 1     PSADIV Prescaler A Div     Div by 128              *
    '*          R 0 1 1 1 1     PSADIV Prescaler A Div     Div by 256              *
    '*          R 1 0 0 0 1     PSADIV Prescaler A Div     Div by 512              *
    '*                 Bits 1 0 PSBCDIV Prescaler B and C                          *
    '*                      0 0 B=1 (no division) C =1 (no division)               *
    '*                      0 1 B=1 (no division) C Div by =2                      *
    '*                      1 0 B=4 Div by 4      C =1 (no division)               *
    '*                      1 1 B=2 Div by 2      C = 2 Div by =2                  *
    '*******************************************************************************
    
    'Out &H41 , &B00001100                                       'Prescaler= Prescaler A=4, B =0,  C =0
    Out &H41 , &B00000000                                       'Prescaler= No division Prescaler A, B and C
    
    '**** STATUS Oscillator Status Register (Adress &H51) bits 7-5 Reserved ********
    '*               Indicates Ready Flags when Oscillator is stable               *
    '*-----------------------------------------------------------------------------*
    '*                   4 3 2 1 0 Bits 4-0                                        *
    '*                   1 0 0 0 0 PLLRDY, PLL has locked to PLL Clocksource       *
    '*                   0 1 0 0 0 XOSCRDY. External Clock Source ready            *
    '*                   0 0 1 0 0 RC32KRDY internal 32KHz Oscillator ready        *
    '*                   0 0 0 1 0 RC32MRDY internal 32MHz Oscillator ready        *
    '*                   0 0 0 0 1 RC2MRDY  internal  2MHz Oscillator ready        *
    '*******************************************************************************
    
    While A.0 = 0                                               'Wait for 2MHz Osc. to be ready
       A = Inp(&H51)
    Wend
    
    'Again, we use the CTRL = Oscillator Control Register like at the beginning,
    'to additional enable the PLL, (2MHz Oscillator, Bit 0 is still enabled),
    
    Out &H50 , &B00010001                                       ' enable  PLL
    
    'Now we wait until the PLL is locked
    
    While A.4 = 0                                               'Wait for PLL to be ready
       A = Inp(&H51)
    Wend
    
    'Multiplication Factor = 16, so we should get 32MHz Clock
    '**************** OSCCTRL = System Clock selection (Adress &H40) ***************
    '*                   2 1 0   Bits 2-0                                          *
    '*                                                                             *
    '*                   0 0 0   RC2MHz    2MHz  internal                          *
    '*                   0 0 1   RC32MHz   32MHz internal                          *
    '*                   0 1 0   RC32KHz   32KHz internal                          *
    '*                   0 1 1    XOSC     External Oszillator                     *
    '*                   1 0 0    PLL           PLL                                *
    '*******************************************************************************
    Out &H34 , &HD8                                             'No write protection for 4 cycles                                         '
    Out &H40 , &B00000100                                       'Select PLL as system Clock
    
    '***************** LOCK Clock System Lock Register (Adress &H42) ***************
    '*                       7 6 5 4 3 2 1 0  (R= Reseved, write to zero)          *
    '*                       R R R R R R R 0 = No Lock                             *
    '*                       R R R R R R R 1 = Locked                              *
    '*******************************************************************************
    Out &H34 , &HD8                                             'No write protection for 4 cycles                                         '
    Out &H42 , &B00000001                                       'Lock System Clock Settings
    
                                                               '
    Porte = &B00001111                                          'indicate init done
    Wait 1
    
    Do
      Toggle Porte
      Waitms 1000
    Loop
    End
    Macht richtig Spaß mit den Prescalern und der PLL zu spielen

    Gruß
    Christopher

  2. #2
    Moderator Robotik Einstein Avatar von Kampi
    Registriert seit
    21.11.2009
    Ort
    Monheim, Nordrhein-Westfalen, Germany
    Alter
    34
    Beiträge
    3.501
    Blog-Einträge
    9
    Aber das kannst du doch nur mit einer Vollversion benutzen und nicht in der Demo oder?

  3. #3
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    11.04.2005
    Beiträge
    1.469
    Hi Kampi,
    Aber das kannst du doch nur mit einer Vollversion benutzen und nicht in der Demo oder?
    Doch, das geht. Wie schon geschrieben, ist dazu die xmega.lib nicht notwendig, da die Register "zu Fuß" gesetzt werden !

    hier nochmal das Ganze ohne die zusätzlichen Kommentare, ist vielleicht etwas übersichtlicher.
    Code:
    $regfile = "xm128a1def.dat"
    
    $crystal = 32000000                                         '
    Ddre = &B11111111                                           'All Output
    
    '************** config Clock 2MHz internal, PLL x16 ****************************
    Dim A As Byte                                               '
    Out &H50 , &B00000001                                       ' enable  2MHz Oscillator
    Out &H55 , &B00010000                                       'PLL Clocksource = 2MHz internal Osc.
    Out &H34 , &HD8                                             'No write protection for 4 cycles                                         '
    Out &H41 , &B00000000                                       'Prescaler= No division Prescaler A, B and C
    While A.0 = 0                                               'Wait for 2MHz Osc. to be ready
       A = Inp(&H51)
    Wend
    Out &H50 , &B00010001                                       ' enable  PLL
    While A.4 = 0                                               'Wait for PLL to be ready
       A = Inp(&H51)
    Wend
    Out &H34 , &HD8                                             'No write protection for 4 cycles                                         '
    Out &H40 , &B00000100                                       'Select PLL as system Clock
    Out &H34 , &HD8                                             'No write protection for 4 cycles                                         '
    Out &H42 , &B00000001                                       'Lock System Clock Settings
    
                                                               '
    Porte = &B00001111                                          'indicate init done
    Wait 1
    
    Do                                                          'Blink
      Toggle Porte
      Waitms 1000
    Loop
    End

    Gruß
    Christopher

  4. #4
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    11.04.2005
    Beiträge
    1.469
    Hi,
    habe mal etwas Overclocking versucht.
    Die CPU läuft bei mir bis 50MHz, darüber ist Schluss.
    Was die interne Peripherie dazu sagt, oder wie lange der Chip das aushält , ist eine andere Frage.
    Ausprobieren auf eigene Gefahr!

    Es wird mit einem 4MHz Quarz ein 100MHz Takt über die PLL erzeugt und dann über den Prescaler C auf 50MHz CPU Takt geteilt.

    Code:
    $regfile = "xm128a1def.dat"
    $crystal = 50000000                                         'Für Bascoms interne Berechnung der Wartezeiten, etc.
    
    Ddre = &B11111111                                           'PortE alles auf Output konfigurieren
    
    Dim A As Byte                                               '
    
    ' 4MHz Quarz an PortR0 und R1, PLL mit Multiplikationsfaktor 25
    ' ergibt 100MHz Takt für 2 x Speed tolerante Peripherie (clk2per)
    ' der CPU Takt wird mit Prescaler C DIV 2 auf 50MHz gebracht.
    
    Out &H52 , &B01101011                                       ' Freq 2 bis 9 MHz, Startup Time 16K Takte, 32KHz Osc in low power Mode
    Out &H50 , &B00001000                                       ' Externen Oszillator einschalten
    Out &H55 , &B11011001                                       ' Takt für die Pll = externer Oszillator (die 4MHz) Multiplikator = 25
    Out &H34 , &HD8                                             ' Register Schreibschutz für 4 Zyklen aufheben                                        '
    Out &H41 , &B00000001                                       ' Prescaler A und B werden nicht verwendet (:1),  Prescaler C teilt durch 2
                                                                ' Vor dem Prescaler C 100 MHz Peripherietakt, dahinter 50 MHz CPU Takt
    While A.3 = 0                                               ' Warte bis Ext Oszillator stabil
       A = Inp(&H51)
    Wend
    Out &H50 , &B00011000                                       ' jetzt die PLL dazuschalten
    
    While A.4 = 0                                               ' und warten, bis sie stabil ist
       A = Inp(&H51)
    Wend
    
    Out &H34 , &HD8                                             ' Register Schreibschutz für 4 Zyklen aufheben        '
    Out &H40 , &B00000100                                       ' PLL als Systemtakt auswählen
    Out &H34 , &HD8                                             ' Register Schreibschutz für 4 Zyklen aufheben                                         '
    Out &H42 , &B00000001                                       ' weitere Einstellungen sperren
    
    Do                                                          ' Port toggeln,
                                                                ' (nur damit ich auf dem Frequenzzähler kontrollieren konnte, was sich verändert)
     Porte = 0                                                  ' 32 MHz CPU = ca. 3.5 MHz auf PortE
     Porte = 255                                                ' 50 MHz CPU = ca. 5.5 MHz auf PortE , scheint also zu funktionieren :)
    Loop
    End
    Gruß
    Christopher

  5. #5
    Erfahrener Benutzer Roboter Genie Avatar von Willa
    Registriert seit
    26.10.2006
    Ort
    Bremen
    Alter
    44
    Beiträge
    1.273
    Hallo 2010, danke für diese Erklärung, sie wird sicherlich noch einigen Leuten helfen die per Google suchen. Sie hat mir eben auch wieder sehr geholfen! Bei mir laufen mehrere xmega16A4 seit langer Zeit problemlos auf 64 MHz mit 16 Mhz Quarz.

    Code:
    $regfile = "xm16A4def.dat"
    $crystal = 64000000                                 
    $hwstack = 256
    $swstack = 256
    $framesize = 256
    $lib "xmega.lib"
    Dim A As Byte
    Out &H52 , &B10101011                                      
    Out &H50 , &B00001000                                     
    Out &H55 , &B11000100                                      
    Out &H34 , &HD8                                           
                              
    Out &H41 , &B00000000                                    
                                                              
    While A.3 = 0                                            
       A = Inp(&H51)
    Wend
    Out &H50 , &B00011000                                      
    While A.4 = 0                                              
       A = Inp(&H51)
    Wend
    Out &H34 , &HD8                                           
    Out &H40 , &B00000100                                      
    Out &H34 , &HD8                                       
    Out &H42 , &B00000001
    Auch der 128A1 läuft gut auf 64 Mhz (da habe ich aber keine Langzeiterfahrung).
    Viele Grüße, William
    -> http://william.thielicke.org/

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  

Solar Speicher und Akkus Tests