Define CONFIG = 0x0008
TRISIO = %1000  'GP3 - in, остальные - out
OPTION_REG.5 = 0  'Выключить тактирование таймера по входу GPIO.2
OPTION_REG.7 = 0  'Разрешение разбудить МК при изменении уровня на входах

Dim press As Byte

GPIO.0 = 0  'Low - приглушенная мощность
GPIO.1 = 0  'High - вместе с предыдующим - полная мощность
GPIO.2 = 0  'Corner - боковой свет
press = 0  'Счетчик времени нажатия

start:
While GPIO.3 = 1
WaitMs 100
press = press + 1
Wend

If press <= 1 Then
Goto skip
Endif

If press > 1 And press < 7 Then
Gosub shortpress
Endif

If press >= 7 Then
Gosub longpress
Endif

skip:
press = 0

'Если потушены все светодиоды, спим и не кушаем ток )))
If GPIO.0 = 0 And GPIO.2 = 0 Then
ASM:        sleep
Endif

Goto start
End                                               

'******************** Короткое нажатие ********************
shortpress:
'Если ничего не горит, то зажечь осн. свет на пониженной мощности
If GPIO.0 = 0 And GPIO.2 = 0 Then
GPIO.0 = 1
Return                                            
Endif

'Если горит что-либо, то все выключить
If GPIO.0 = 1 Or GPIO.2 = 1 Then
GPIO.0 = 0
GPIO.1 = 0
GPIO.2 = 0
Endif

Return                                            

'******************** Длинное нажатие ********************
longpress:
'Если ничего не горит, то включить боковой свет
If GPIO.0 = 0 And GPIO.2 = 0 Then
GPIO.2 = 1
Return                                            
Endif

'Если горит приглушенный основной свет, то включить на полную мощность
If GPIO.0 = 1 And GPIO.1 = 0 Then
GPIO.1 = 1
Return                                            
Endif

'Если горит на полную мощность, то приглушить
If GPIO.0 = 1 And GPIO.1 = 1 Then
GPIO.1 = 0
Return                                            
Endif

Return