Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 TIMER-Takt auf der Open-Maxi erhöhen Kategorie: Open-Micro/Open-Mini/Open-Midi/Open-Macro/Open-Maxi (von Dietmar, Homepage - 18.04.2018 2:05)
Dietmar nutzt:  Open-Micro, Open-Mini, Open-Midi, Open-Macro, Open-Maxi, Open-Mini M-Unit, Open-Mini Station
' ----------------------------------------------------------------------------
' TIMER-Takt auf der Open-Maxi erhöhen
' In OCBASIC 1.11a für Open-Maxi von Dietmar Harlos am 18. April 2018.
' ----------------------------------------------------------------------------

' Im Kapitel 10 ("Timer/PWM (S08TPMV2)") im Data Sheet zum MC9S08AW60-Mikro-
' controller ist das Timer-Modul beschrieben:

' https://www.nxp.com/docs/en/data-sheet/MC9S08AW60.pdf

' ----------------------------------------------------------------------------

INCLUDE "omax.def"         'Definitionen für die Open-Maxi

' --- Das Hauptprogramm ------------------------------------------------------

' "Timer x Status and Control Register (TPMxSC)":

' Es enthält die "Prescale Divisor Selection". Sie gibt vor, welcher Divisor
' für die "TPM clock" gewählt wird. Auf der Original-C-Control (CC1 V1.1)
' beträgt dieser Takt 500 kHz.

TPM1SC=&b00001101          'BUSCLK/32 =   625 kHz, TIMER-Takt 50 Hz (Standard)
'TPM1SC=&b00001100          'BUSCLK/16 = 1.250 MHz, TIMER-Takt 100 Hz
'TPM1SC=&b00001011          'BUSCLK/8  = 2.500 MHz, TIMER-Takt 200 Hz
'TPM1SC=&b00001010          'BUSCLK/4  = 5.000 MHz, TIMER-Takt 400 Hz

' Die folgenden Features bremsen das System. Deshalb bei Bedarf deaktivieren.

'Dcf77Dis=ON                'DCF77-Auswertung an FREQ1 deaktivieren
'ClockDis=ON                'Weiterzählen der Uhr deaktivieren

PrintSpc=ON                'SPACE vor einem dezimalen PRINT ausgeben

WHILE TRUE
  PAUSE 1
  PRINT TIMER;SECOND       'TIMER und Sekunde auf Serieller Schnittstelle ausgeben
WEND

End2Host=ON                'Nach Programmende in den Host-Modus
END                        'Programmend


Meine Homepage: http://ccintern.dharlos.de

 Antwort schreiben

Bisherige Antworten:

Mit Korrektur der Systemfunktionen (von Dietmar - 19.04.2018 21:47)