'-----------------------------------------------------------------------------------------
'name : pga2310_m8515_6in_encoder.bas
'copyright : © danzup
'purpose : PGA Preamp controller
'micro : AtMega8515
'version : 1.enc
' this version with 6 input, RC5 remote control & PGA2310 volume ,
' mute ,backlight LED control , with Encoder : A-->PD2 ,B-->PD1 ,C -->GND
' modified time delay for volume set , stop at +3dB for PGA2310
'-----------------------------------------------------------------------------------------
$regfile = "m8515.dat" ' specify the used micro
$crystal = 8000000 ' used crystal frequency
Ddrd = &B11100000 ' PD5...PD7 are output, PD0...PD4 are input
Portd = &B00011111 ' PD0...PD4 pull-up resistor enable
Ddra = &B11111111 ' PA0...PA7 are output ,input relay control
Ddrb = &B11111111 ' PB0...PB7 are output
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5 , E = Portc.1 , Rs = Portc.0
Config Spi = Soft , Din = Portb.0 , Dout = Portb.1 , Ss = Portb.2 , Clock = Portb.4
Config Porta = Output
Config Portb.3 = Output 'mute line for PGA2310
Dim Address As Byte , Command As Byte 'RC5 ir variable
Dim A As Bit 'On/Off button PortD.0
Dim B As Bit 'Menu button PortD.4
Dim G As Byte
Dim Inp_sel As Byte
Dim Pwr As Bit
Dim Mut As Bit
Dim L As Word
Dim R As Word
Dim Gain As Single
Dim Gain1 As Single
L = 126
R = 126
Gain1 = -33
Reset Portb.3 'mute PGA2310
Declare Sub Spio '
Declare Sub Shiftlf '
Declare Sub Shiftrt '
Declare Sub Volup '
Declare Sub Voldn '
Declare Sub Poweron '
Declare Sub Poweroff '
Declare Sub Af_sel '
Declare Sub Pwr_onof '
Declare Sub Mute '
Declare Sub Menu ' '
Cursor Off
Encb Alias Pind.1
Set Encb
On Int0 Int_0 'we enable the INT0 interrupt
Enable Int0 'we configure the INT0 interrupt to trigger when a falling edge is detected
Config Int0 = Falling
Config Lcd = 16 * 2 'other options are 16 * 4 and 20 * 4, 20 * 2 , 16 * 1a
Config Rc5 = Pind.3 'pin where is conected ir senzor
Set Portd.5 'backlight on
Reset Portb.3 'mute PGA2310
Spiinit 'init the spi bus for PGA2310 talk with
Call Spio
Pwr = 0 '0 =stand-by ; 1 = power on
Mut = 1 ' 0 =mute , 1 = normal
Inp_sel = &B00000001 'default selected first input
Cls 'clear the LCD display
Porta = Inp_sel ' will set the input selected default
Lcd "Preamp controler" 'display this at the top line
Lowerline 'select the lower line
Lcd "ver 2 " 'display this at the lower line
Wait 1
Cls
Enable Interrupts
'--------------------------------------------------------------------------
If Pwr = 0 Then
Call Poweroff
End If
'--------------------------------------------------------------------------
Do

If Pwr = 1 Then
Getrc5(address , Command) 'read if we have remote ir command
If Address = 8 Then
Command = Command And &B01111111
End If
Select Case Command
'---- this codes are for my remote , change code to your suit ! ----------------
Case 32 : Call Shiftlf 'remote command code for CH up
Case 33 : Call Shiftrt 'remote command code for CH down
Case 17 : Call Volup 'remote command code for Vol +
Case 16 : Call Voldn 'remote command code for Vol -
Case 13 : Call Mute 'remote command code for Mute
Case 12 : Call Pwr_onof 'remote command code for On/Off
End Select
A = Pind.0 'On/Off button
B = Pind.4 'Menu button
If A = 0 Then 'now we read the push buttons for command
Waitms 2
Call Pwr_onof 'button On/Off presed
End If
If B = 0 Then
Waitms 2
Call Menu 'button Menu presed
End If
End If

If Pwr = 0 Then
A = Pind.0 'On/Off button
Getrc5(address , Command) 'read if we have remote ir command
If Address = 8 Then
Command = Command And &B01111111
End If
Select Case Command
'---- this codes are for my remote , change code to your suit ! ----------------
Case 12 : Call Pwr_onof 'remote command code for On/Off
End Select
If A = 0 Then 'now we read the push buttons for command
Waitms 2
Call Pwr_onof 'button On/Off presed
End If
End If
Loop
End
'-------------------Int_0------------------------
Int_0:
Disable Int0
If Encb = 0 Then
If G = 0 Then
Call Volup
End If
If G = 1 Then
Call Shiftlf
End If
Else
If G = 0 Then
Call Voldn
End If
If G = 1 Then
Call Shiftrt
End If
End If
Enable Int0
Gifr = 64 'asta e cea mai mare smecherie !
Return
'-----------Pwr_onof-----------------
Sub Pwr_onof:
Pwr = Not Pwr
If Pwr = 1 Then
Call Poweron
Else
Call Poweroff
End If
End Sub
'------Poweron------------------------
Sub Poweron:
Set Portb.3 'unmute PGA2310
Set Portd.6 'power relay on
Set Portd.5
Display On 'turn display on
Cls
Lcd " Power On ! "
Waitms 500
Cls
Porta = Inp_sel
Call Af_sel
Home Lowerline
If L > 192 Then
Lcd "Volume +" ; Gain1 ; " dB "
Else
Lcd "Volume " ; Gain1 ; " dB "
End If
Wait 2
Enable Int0
End Sub
'-------Poweroff----------------------
Sub Poweroff:
Reset Portb.3 'mute PGA2310
Reset Portd.6 'power relay off
Reset Portd.5
Display Off 'turn display off
Porta = &B00000000 ' mute
Waitms 500
Disable Int0
End Sub
'---------shift input Left----------
Sub Shiftlf:
If Inp_sel >= 1 And Inp_sel < 8 Then
Rotate Inp_sel , Left
End If
Porta = Inp_sel
Call Af_sel
Waitms 200
End Sub
'--------shift input right----------
Sub Shiftrt:
If Inp_sel >= 2 And Inp_sel < 9 Then
Rotate Inp_sel , Right
End If
Porta = Inp_sel
Call Af_sel
Waitms 200
End Sub
'-------bring volume up-----------
Sub Volup:
If L >= 86 Then
If L = 256 Then
L = 255
End If
If R = 256 Then
R = 255
End If
Call Spio
L = L + 1
R = R + 1
Gain = L / 2
Gain1 = -96 + Gain
Else
Call Spio
L = L + 5
R = R + 5
Gain = L / 2
Gain1 = -96 + Gain
End If
Home Lowerline
If L > 192 Then
Lcd "Volume +" ; Gain1 ; " dB "
Else
Lcd "Volume " ; Gain1 ; " dB "
End If
Waitms 1
End Sub
'--------bring volume down----------
Sub Voldn:
If L <= 86 Then
If L = 1 Then
L = 6
End If
If R = 1 Then
R = 6
End If
Call Spio
L = L - 5
R = R - 5
Gain = L / 2
Gain1 = -96 + Gain
Else
Call Spio
L = L - 1
R = R - 1
Gain = L / 2
Gain1 = -96 + Gain
End If
Home Lowerline
If L > 192 Then
Lcd "Volume +" ; Gain1 ; " dB "
Else
Lcd "Volume " ; Gain1 ; " dB "
End If
Waitms 1
End Sub
'------Af_sel---------------------------
Sub Af_sel:
Home Upper
If Inp_sel = 1 Then
Lcd "PC selected"
End If
If Inp_sel = 2 Then
Lcd "CD selected"
End If
If Inp_sel = 4 Then
Lcd "AUX selected"
End If
End Sub
'------- Mute ----------
Sub Mute:
Mut = Not Mut
If Mut = 1 Then
Set Portb.3
Porta = Inp_sel
Home Lowerline
If L > 192 Then
Lcd "Volume +" ; Gain1 ; " dB "
Else
Lcd "Volume " ; Gain1 ; " dB "
End If
Wait 1
Else
Porta = &B00000000
Reset Portb.3
Home Lowerline
Lcd " MUTING "
Wait 1
End If
End Sub
'-----Send data to PGA2310------
Sub Spio:
Spiinit
Spiout L , 1
Spiout R , 1
End Sub
'-----------Menu-----------------
Sub Menu:
G = G + 1
If G > 1 Then
G = 0
End If
If G = 0 Then
Cls
Home Lower
Lcd " Level Volume "
Waitms 200
End If
If G = 1 Then
Cls
Home Upper
Lcd " Select Input "
Waitms 200
End If
End Sub