使用MEGA8异步晶振做定时器例程 - 圣龙扬特-AVR电子

'-------------------------------------------------------------------------------
'Name                   : Timer2.bas
'Copyright             : http://www.avrbase.com
'Micro                   : AtMega8
'Author                : slyt/箫天
'-------------------------------------------------------------------------------
$regfile = "m8def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 40
$framesize = 64

'*******************************************************************************
Config Timer0 = Timer , Prescale = 64
On Timer0 Tim0_isr

Config Timer2 = Timer , Async = On , Prescale = 64
On Timer2 One_second

Config Clock = User

Config Int1 = Falling
On Int1 Button_down

'*******************************************************************************
Declare Sub Set_digital(byval Dat As Byte)
Declare Sub Play_music()
Declare Sub Power_off()

'*******************************************************************************
Dim Seconds As Long
Dim Set_seconds As Eram Long At 21
Dim Secd As Byte , Minutes As Byte , Hours As Byte
Dim Set_hours As Eram Byte At 11 , Set_minutes As Eram Byte At 12
Dim Segment As Word
Dim Seg_v As Byte
Dim Seg_index As Byte
Dim Seg_digital(4) As Byte
Dim Decrtime As Bit
Dim Key_down As Bit
Dim Key As Byte
Dim Key_time As Byte

'*******************************************************************************
'A-F
Ddrc = &HFF
'G
Ddrd.0 = 1

Key1 Alias Pind.1 : Ddrd.1 = 0 : Portd.1 = 1
Key2 Alias Pind.2 : Ddrd.2 = 0 : Portd.2 = 1
Key3 Alias Pind.4 : Ddrd.4 = 0 : Portd.4 = 1
Intk Alias Pind.3 : Ddrd.3 = 0 : Portd.3 = 1

V4 Alias Portd.6 : Ddrd.6 = 1
V3 Alias Portd.7 : Ddrd.7 = 1
V2 Alias Portb.0 : Ddrb.0 = 1
V1 Alias Portb.1 : Ddrb.1 = 1
Pp Alias Portb.2 : Ddrb.2 = 1

Spk Alias Portd.5 : Ddrd.5 = 0 : Spk = 0

Seg_v = &B00100010
Segment = &H4321
Key_down = 0

'*******************************************************************************
'initial original time
If Set_seconds = &HFFFFFFFF Then Set_seconds = 659       '10 minutes
Seconds = Set_seconds

'*******************************************************************************
Enable Int1
Enable Timer0
Enable Timer2
Enable Interrupts

'*******************************************************************************

Do
Idle

If Key_down = 1 Then
   Disable Int1
   Disable Timer2

   If Key_time > 20 Then                               'Waitms 20
      V1 = 1 : Pp = 0
      Key = Pind And &B11110                            'get key status
      Shift Key , Right , 1                            'shift right 1 bit

      Select Case Key
         Case &B1010                                  'Key1 down
            If Seconds < 43259 Then Seconds = Seconds + 60 'less than 12 hours , add one minute
         Case &B0011                                  'Key3 down
            If Seconds > 119 Then Seconds = Seconds - 60 'more than one minute
         Case &B1001                                  'key2 down
            Call Power_off                            'powerdown mode
         Case &B1111                                  'key up
            Key_down = 0
            Seconds = Seconds / 60
            Seconds = Seconds * 60
            Seconds = Seconds + 59
            Set_seconds = Seconds                      'write to EEPROM
            Enable Int1
            Enable Timer2
      End Select
      Key_time = 0
   End If
End If

If Seconds < 60 Then                                  'time out
   Disable Timer0
   Disable Timer2
   V1 = 1 : V2 = 1 : V3 = 1 : Pp = 1
   Set_digital &B111111
   Call Play_music
   Spk = 0
   Ddrd.5 = 0
   If Key_down = 1 Then                               'any key press
      Key_down = 0
      If Key = &B1001 Then                            'key2 down
         Waitms 200
         Bitwait Intk , Set
         Call Power_off                               'powerdown mode
         Else
         Waitms 200
      End If
      Else
         Waitms 100
         Call Power_off                               'powerdown mode
   End If
   Seconds = Set_seconds                               'read seconds form eeprom
   Enable Timer0
   Enable Timer2
End If

'Three Bytes for Seconds, Minutes and Hour must follow each other in SRAM.
'The variable-name of the first Byte, that one for Second must be passed to the function.
Secd = Time(seconds)
Seg_digital(1) = Minutes Mod 10
Seg_digital(2) = Minutes / 10
Seg_digital(3) = Hours Mod 10
Seg_digital(4) = Hours / 10

Seg_index = Segment And &B1111

V1 = 0
V2 = 0
V3 = 0
V4 = 0
If Seg_digital(3) = 0 Then Seg_digital(3) = 10
If Seg_digital(4) = 0 Then Seg_digital(4) = 10
Seg_digital(seg_index) = Lookup(seg_digital(seg_index) , Digital)
Set_digital Seg_digital(seg_index)
V1 = Seg_v.1
V2 = Seg_v.2
V3 = Seg_v.3
V4 = Seg_v.4

Loop

'*******************************************************************************
Sub Set_digital(dat As Byte)
Portc = Dat
Portd.0 = Dat.6
End Sub

'*******************************************************************************
Sub Power_off()
V1 = 0 : Pp = 0 : Spk = 0
V2 = 0 : V3 = 0 : V4 = 0
Set_digital &H00
Do : Loop Until Key2 = 1
Waitms 50
Do : Loop Until Key2 = 1
Config Int1 = Low Level
Enable Int1
Powerdown
Waitms 200
Do : Loop Until Intk = 1
Config Int1 = Falling
Enable Timer2
End Sub

'*******************************************************************************
Sub Play_music()
Local I As Byte , J As Byte
Local Dp As Single
Local Duration As Word , Pulses As Word
Ddrd.5 = 1
For I = 1 To 10
   Restore Musicdata
   For J = 1 To 32
      Read Duration
      Read Pulses
      Sound Spk , Duration , Pulses
      If Key_down = 1 Then Exit Sub
   Next
   Waitms 500
Next
End Sub

'*******************************************************************************
'5 ms
Tim0_isr:
Timer0 = 180
Rotate Seg_v , Left                                     '<- 00100010 <-
Rotate Segment , Right , 4                            '-> 4321 ->
Incr Key_time
Return

'*******************************************************************************
'get here every second with a 32768 Hz xtal
One_second:
Toggle Pp
Toggle Decrtime
Seconds = Seconds - Decrtime
Return

'*******************************************************************************
Button_down:
Key = Pind And &B11110                                  'get key status
Shift Key , Right , 1                                  'shift right 1 bit
Key_down = 1
Key_time = 15
Return

'*******************************************************************************
Digital:
Data &H40 , &H79 , &H24 , &H30 , &H19 , &H12 , &H02 , &H78 , &H00 , &H10 , &HFF

'*******************************************************************************
'two tigers music
Musicdata:
Data 600% , 48% , 600% , 43% , 600% , 38% , 600% , 48%
Data 600% , 48% , 600% , 43% , 600% , 38% , 600% , 48%
Data 600% , 38% , 600% , 36% , 1200% , 32%
Data 600% , 38% , 600% , 36% , 1200% , 32%
Data 300% , 32% , 300% , 28% , 300% , 32% , 300% , 36%
Data 600% , 38% , 600% , 48%
Data 300% , 32% , 300% , 28% , 300% , 32% , 300% , 36%
Data 600% , 38% , 600% , 48%
Data 600% , 43% , 600% , 64% , 1200% , 48%
Data 600% , 43% , 600% , 64% , 1200% , 48%