Kontroler wzmacniacz

$regfile = "attiny2313.dat"
$crystal = 4000000

Config Portb = &B00000000 : Portb = &B11111111
Config Portd = &B1111111 : Portd = &B1111111
Config Debounce = 1

Dim Master As Byte
Dim Channel As Byte

Master = 0

Do
                                                             'Kanały 1-4
Debounce Pinb.0 , 0 , Ch1 , Sub                             'Kanał 1
Debounce Pinb.1 , 0 , Ch2 , Sub                             'Kanał 2
Debounce Pinb.2 , 0 , Ch3 , Sub                             'Kanał 3
Debounce Pinb.3 , 0 , Ch4 , Sub                             'Kanał 4

 If Channel = 0 Then Portd.0 = 0
 If Channel = 1 Then Portd.1 = 0
 If Channel = 2 Then Portd.2 = 0
 If Channel = 3 Then Portd.3 = 0

Debounce Pinb.4 , 0 , Mastersw , Sub                        'Master A/B

 If Master = 0 Then

   If Pind.5 = 0 Then                                       'Wyjście A włączone
   Portd.4 = 1
   Portd.5 = 0

   Elseif Pind.5 = 1 Then                                   'Wyjście B włączone
   Portd.4 = 0
   Portd.5 = 1
   End If

   Master = 1
 End If

 If Master = 0 Then
   Toggle Portd.4
   Toggle Portd.5
 End If

Debounce Pinb.5 , 0 , Mute , Sub                            'Mute

Loop                                                        'Koniec pętli programu

Ch1:
If Pinb.0 = 0 Then Channel = 0
Portd.1 = 1
Portd.2 = 1
Portd.3 = 1
Return

Ch2:
If Pinb.1 = 0 Then Channel = 1
Portd.0 = 1
Portd.2 = 1
Portd.3 = 1
Return

Ch3:
If Pinb.2 = 0 Then Channel = 2
Portd.1 = 1
Portd.0 = 1
Portd.3 = 1
Return

Ch4:
If Pinb.3 = 0 Then Channel = 3
Portd.1 = 1
Portd.2 = 1
Portd.0 = 1
Return

Mastersw:
 Toggle Portd.4
 Toggle Portd.5
 Master = 0
Return

Mute:
Toggle Portd.6
Return

End