Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Коммуникация    >>    communit
   
 
 CommUnit v1.02 - Low Level Communication Routines   Night Linker 15.01.1997

Простая коммуникационная программа, использующая низкоуровневые ассемблерные функции для работы с COM портом на скоростях от 50 до 115200 бод.



4k 
 

Serial Port Low/Mid level programming by Integral Adept Thanx for: R. Jourdain & other. Greets to: MNU & ALP СТАHЦИЯ +њћ ћ . +- +- +---- +- +- +- +- +---- +- +-њћ ћ . | -+ | | | -+ | -+ | | | ++ | . | | | -+ | | | | -+ | + --+-- . +њћ ћ | . . +---- +---- +---- +---- +- +- +---- +- +-њћ ћ . | | -+ | -+ +-- | -+ | | | ++ . . | --- | -+ ++ | +-- | | | -+ | + . . 2:5020/724.35@Fidoњћ ћ FIDONET _1 2:5020/661.18@Fidoњћ ћ FIDONET _2 39:241/3.5@AmigaNetњћ ћ AMIGANET Night.Linker@p35.f724.n5020.z2.fidonet.orgњћ ћ INTERNET ######## Описание пpоцедуp pаботы с сеpиальным поpтом ############# -- I_HANDLER ------------------------------------------------------- Пpоцедуpа получает управление при возникновении прерывания. Она забирает байт из порта и кладет его в буфер. Буфер кольцевой - т.е. при заполнении он начинает заполняться сначала. --- SETPARM --------------------------------------------------------- Пpоцедуpа устанавливает параметры обмена: скорость, вид контроля по четности, число битов данных и число стоповых битов --- PORTON ---------------------------------------------------------- Пpоцедуpа porton переводит порт в рабочий режим. Подменяет вектор прерывания, разрешает прерывания от порта и выставляет сигналы готовности терминала и запроса на передачу. --- PORTOFF --------------------------------------------------------- Пpоцедуpа portoff переводит порт в из рабочего режима в обычное состояние для MS-DOS (обратная к porton). Запрещает прерывания от порта, востанавливает обработчик прерываний и маскирует сигналы MCR. --- PORTIN ---------------------------------------------------------- Пpоцедуpа portin выбирает один байт из кольцевого буфера и записывает его в пеpеменную from. Если буфер пуст, from:word=256 --- PORTOUT --------------------------------------------------------- Пpоцедуpа portout посылает байт ch в линию. Возвращает 0 в from при нормальном завершении. При ошибке возвращается 1