$crystal = 8000000
$hwstack = 36
$swstack = 36
$framesize = 36


' Acsr.7 = 0                   '    питание компаратора вкл
' Acsr.6 = 1                   '    внутренний ион вкл
' Acsr.5 = 0                   '    состояние выхода компаратора
' Acsr.4 = 0                   '    флаг прерывания
' Acsr.3 = 1                   '    включение прерывания компаратора
' Acsr.2 = 0                   '    захват таймера выкл
' Acsr.1 = 0                   '    срабатывает
' Acsr.0 = 0                   '    по любому изменению

 Config Portb.2 = Output
 Config Aci = On , Compare = On , Trigger = Toggle
' Тут хоть Compare = On, хоть Compare = Off
 Enable Interrupts
 Enable Aci
 On Aci R
 Dim A As Byte


 Do
 A = Acsr
 Loop


 R:
   ' всё работает,   флаг прерывания устанавливается И СЮДА ИДЕТ
 Toggle Portb.2
 Return