Ну уж яснее и проще не бывает

Есть операторы, посмотри:

DATA
READ
WRITE

Добавлено (13.02.2010, 19.48.37)
---------------------------------------------
Блин люди простите засранца...
не заглянул сразу в pdf? там проще пареной репы? спасибо!

Добавлено (14.02.2010, 10.17.15)
---------------------------------------------
C индикацией разобрался, еще раз спасибо за помощь, оперативно.
Теперь уперся в проблему передачи данных от одного контроллера к другому.
Оба камня 628-е, может кто сталкивался? Хотел организовать 4-х разрядную шину, но нехватает одной линии, да и извращение это если есть USART. Вот только как это организовать в Бейсике незнаю, по поиску нашел только обмен с компом и вот эту http://www.picbasic.ru/forum/5-164-1 ссылочку, но там вообще ничего непонятно...

HSerout - передача, HSerin - прием.
Hserin в основном цикле программы, с Timeout несколько десятков или сотен мс, т.е. проц, когда ничем не занимается, слушает USART

Существуют два контроллера один - пульт (ведущий), другой - исполнитель (ведомый)

Первый отвечает за подсчет импульсов с энкодера (RB7), отображение, корректировку и храненние информации.
Второй принимает данные от первого и на их основе управляет 6-ю приводами через частотники (инверторы), а также опрашивает датчики на предмет аварии.
В случае аварии ведомый передает ведущему сигнал "АВАРИЯ" (RB6=1), ведущий в свою очередь переключается на прием данных и получает от ведомого информацию о характере аварии. Вот собственно и все... Ну покрайней мере пока энкодер не привезли.

Судя по тому как порвали ЖКИ и EEPROM это неочень сложно...
И чего я голову себе морочил с ассемблером?...

Как ведомый сможет понять что ему нужно принимать информацию? что почитать можно? или может есть какой либо пример?

HSerin 100, next_label, [byte1, byte2, ...]

Прога будет останавливаться на 100 мс и ждать байты с USART, если за 100 мс ничего не принялось,
то переход на next_label, если принялось, то принятое запишется в byte1, byte2 ... и проц перейдет к следующей
команде, где эти байты можно анализировать.
В хелпе написано, как пользоваться hserin, hserout и какие define надо указать в начале программы
(параметры USART-соединения)

Думаю прерывания пока ненужны.
Программа все время вертится в цикле, без принудительных задержек, т.е. время уходит только на выполнение команд и подсчет импульсов энкодера.
Возможна ли такая конструкция?

chr_in var byte
chr_out var byte

metka:

HSerin 100, compare_, chr_in
if chr_in=%00011101 then gosub transmit_
goto metka

transmit_:
???????????? 'с передачей пока проблема, что то не совсем понятно как это организовать
return

а можно ли использовать произвольные выводы портов? у меня остались RA0,RA1,RA6,RA7

В даташите на 628-й RB0-INT прерывание RB1-RX прием RB2-TX передача, если я правильно понял.
Это жесткие ограничения?

камень у меня 16ф877а кварц 20, LCD ts1620a-17

ниже прога
@ device HS_osc,wdt_off, wrt_off, lvp_off, pwrt_on, protect_off

DEFINE LCD_TYPE ALPHA
DEFINE LCD_DPORT PORTD
DEFINE LCD_DBIT 0
DEFINE LCD_EPORT PORTC
DEFINE LCD_EBIT 0
DEFINE LCD_RSPORT PORTC ;
DEFINE LCD_RSBIT 1
DEFINE LCD_BITS 8
DEFINE LCD_COMMANDUS 2000
DEFINE LCD_DATAUS 50
DEFINE LCD_LINES 2

trisd=0
trisc=0

lcdout "12345678"
MainProgram:

portc.7=1
pause 1000
portc.7=0
pause 1000



Goto MainProgram

светодиод для того чтоб знать что камень работает а вот LCD не хочет

Device 16F877
Xtal = 4
'@ Device HS_osc, wdt_off', wrt_off', lvp_off, pwrt_on, protect_off ' Кажется в этой строке есть ошибки.

DEFINE LCD_Type ALPHA
DEFINE LCD_DREG PORTD ' Лучше так
DEFINE LCD_DBIT 0
DEFINE LCD_EREG PORTC ' Лучше так
DEFINE LCD_EBIT 0
DEFINE LCD_RSREG PORTC ' Лучше так
DEFINE LCD_RSBIT 1
DEFINE LCD_BITS 8
DEFINE LCD_CommandUs 2000
DEFINE LCD_DataUs 50
DEFINE LCD_Lines 2

TRISD=%00000000 ' Лучше так
TRISC=%00000000 ' Лучше так

LCDout $fe, 1 ' Очистить экран ' Лучше так
LCDout $fe, 2, "12345678" ' Поместить курсор в начало первой строки и напечатать 12345678 ' Лучше так

MainProgram:

PORTC.7 = 1
pause 1000
PORTC.7 = 0
pause 1000

GoTo MainProgram

В Протоне это работает. Должно компилиться и в PIcBasicPro

Вы, уважаемый, что-то перепутали PBP с протоном, как-раз здесь ошибок нет.
Eсли кварц на 20 МГц, то в начале надо добавить еще DEFINE OSC 20