Ага...все заработало программка классная для расчетов задержек Программлю дальше. Спасибо.Добавлено (28.09.2009, 12.31.31)
---------------------------------------------
Да вот, теперь думаю как приме организовать, как часто надо считывать данные с буфера и когда он переполнится, то что будет?
Добавлено (29.09.2009, 19.12.10)
---------------------------------------------
Кстати, наткнулся на проблему, не могу вывести в читабельном виде текст, не совпадает кодировка...
WOOOOOOOW выводится, и некоторые другие слова тоже...Оствльные превращаются в абру кадабру. Не ужели надо писать какую-то таблицу перекодировки?
На терминале пробовал ставить КОИ-8, 1251...
Добавлено (30.09.2009, 19.22.46)
---------------------------------------------
Все таки не работает, передается с ошибками...уже все пробовал проскакивают нужные последовательности символов но восновном муссор. Пробовал от 4 МГЦ, внутреннего генератора, вобще ничего не поулчилось, сплошной мусор. Задержки расчитывал предложенной сдесь утилиткой.
DEFINE osc 20
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 9600
DEFINE HSER_SPBRG 129
DEFINE HSER_EVEN 0
DEFINE HSER_ODD 0
DEFINE HSER_BRGH 1
B var word
T var word
HZ1:
'pause 100
'hserout ["B= ",B]
'HSERIN HZ2,100,hz3,[B,T]
'goto HZ1
'HZ2:
'hserout [207,208,200,194,197,210,81]
HZ3:
hserout ["1234567890","abcdefgh,ABCDFGH, 224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,81"]
goto HZ1
end
Добавлено (01.10.2009, 15.48.14)
---------------------------------------------
Между тем если использовать программну эмуляцию порта, то все работает так как я хочу....:(
Но этоже бред...если есть аппаратная реализация.
ВОт фрагмент, все работает замечательно.
Include "modedefs.bas" ' Include serial modes
DEFINE osc 20
hz1:
SEROUT portb.2,T9600,["mi rulim"]
goto HZ1