Prototup и slavauk, вот как это работает в Proton-e
Code
Device = 16F84A
XTAL = 4
'--------------Настройки подключения ЖКИ--------------------------
Declare LCD_TYPE ALPHA 'Тип ЖКИ буквенно-цифровой
Declare LCD_DTPIN PORTB.4 'Порт данных ЖКИ
Declare LCD_ENPIN PORTB.3 'Управление линией E
Declare LCD_RSPIN PORTB.2 'Управление линией RS
Declare LCD_INTERFACE 4 'Разрядность шины данных
Declare LCD_COMMANDUS 2000 'Задержка перед посылкой команды
Declare LCD_DATAUS 50 'Задержка перед посылкой данных
Declare LCD_LINES 4 'количество строк ЖКИ
'--------------------------Настройка портов--------------------------
TRISA = %00001111 ' порты RA0...RA3 входа для кнопок
'--------------------------Объявление переменных---------------------
Dim W As Word
Dim E As Word
'-------------------Присвоение начальных значение----------------
W = %1111111111111011
E = %1111111111111111
'--------------------------Главная программа--------------------------
main:
If PORTA.0 = 0 Then DelayMS 150: W = W + 1
If PORTA.1 = 0 Then DelayMS 150: W = W - 1
If PORTA.2 = 0 Then DelayMS 150: E = E + 1
If PORTA.3 = 0 Then DelayMS 150: E = E - 1
Print At 1, 1, "Srawnen. dvuh chisel"
Print At 2, 1, "W= ", BIN W
Print At 3, 1, "E= ", BIN E
If W > E Then Print At 4, 1, "W>E"
If W < E Then Print At 4, 1, "W<E"
If W = E Then Print At 4, 1, "W=E"
GoTo main
Здесь модель в Proteus 7.4 SP3