Device 16F876A ' Использовать микроконтроллер 16F876A
Declare Xtal 4 ' Использовать кварцевый генератор на 4 МГц
'-----------------------------Настройки подключения ЖКИ-----------------------------
Declare LCD_Type ALPHA ' Тип ЖКИ - буквенно-цифровой
Declare LCD_DTPin PORTA.0 ' Порт данных ЖКИ
Declare LCD_ENPin PORTA.4 ' Управление цепью E
Declare LCD_RSPin PORTA.5 ' Управление цепью RS
Declare LCD_Interface 4 ' 4-х битная разрядность шины данных
Declare LCD_CommandUs 2000 ' Задержка перед посылкой команды
Declare LCD_DataUs 50 ' Задержка перед посылкой данных
Declare LCD_Lines 4 ' Количество строк ЖКИ

Declare All_Digital = On ' Сделать все порты цифровыми

Использовать Config нужно тогда, когда нужно "тонко" настроить PIC-микроконтроллеры.
Но этот оператор можно использовать только с 12- и 14-разрядными микроконтроллерами.
Из-за сложностей, которые связаны с настройкой 16-разрядных микроконтроллеров, эта директива не совместима с этими устройствами. Поэтому, если требуется установить какие-то специфические параметры для них, то следует в тело программы на языке Basic вставить подпрограмму или фрагмент, написанный на ассемблере, используя команды ASM...ENDASM, или символ @. Эти настройки параметров могут быть изменены во время программирования.

Но еще раз подчекну, что в большинстве случаев тонкой настройки начинающему просто делать ну нужно, и долго еще не придется, так как Proton сам настроит конкретный микроконтроллер директивами Declare и Device по умолчанию.

DEVICE 16F628
Declare Xtal 4
TRISB=%00000000
TRISA=%00000100
SYMBOL BUT=PORTA.2
SYMBOL LED=PORTB.1
LOOP:
IF BUT=0 THEN
TOGGLE LED
WHILE BUT=0: DELAYMS 100: WEND
ENDIF
GOTO LOOP
END

Ошибка в монтаже исключается.Опыт в этом есть (например собирал Пиккит2, заработал сразу). Несколько раз проверял монтаж. Пик программировал на Автопроге.
Я вот и пенял на конфигурацию. Кварц использовал внешний, 4 мгц, кондеры по 27 пкф, 4 ногу через 1 ком на + питания. В чем может быть дело?
И еще, если я вписал Declare Xtal 4, какой генератор имеется ввиду: XT, HS, RC ?

LOOP:
IF BUT=0 THEN
TOGGLE LED
WHILE BUT=0: DELAYMS 100: WEND
ENDIF
GOTO LOOP

этот блок я бы переписмал так:
LOOP:
IF BUT=0 THEN TOGGLE LED: DELAYMS 100

GOTO LOOP

или так:

LOOP:

WHILE BUT=0: TOGGLE LED: DELAYMS 100: WEND

GOTO LOOP

DEVICE 16F628
Declare Xtal 4
DECLARE ALL_DIGITAL = ON
output portb.3
DIM BUF AS BYTE
INPUT PORTA.1
SYMBOL BUT=PORTA.1
SYMBOL LED=PORTB.3
DELAYMS 500
CLEAR
LOW LED
LOOP:
BUTTON BUT,0,100,5,BUF,1,LOOP1
GOTO LOOP
LOOP1:
TOGGLE LED
GOTO LOOP

DEVICE 16F628
Xtal 4
ALL_DIGITAL = TRUE
OUTPUT PORTB
INPUT PORTA
SYMBOL LED=PORTB.0
SYMBOL SW=PORTA.1
LOW LED
LOOP:
IF SW=0 THEN
DELAYMS 500
TOGGLE LED
END IF
GOTO LOOP

Я ее нашел в книге нашего пакистанского коллеги М.Амера
Извиняйте, кого напряг.Всем кто помогал мне огромное человеческое спасибо.
Судя по всему еще не раз вас напрягать буду.