Программирование последовательного порта

Выполнил: студентка группы Т8-11

Хайдарова А.Е.

Принял: Шарапов М.П.

Москва, 2013г.

Цель работы – передача информации с одного ПК на другой ПК, последовательные порты которых соединены между собой нуль - модемным кабелем по протоколу RS-232.

Введение

Последовательный порт ПК просуществовал в их конструкции, начиная с самых ранних моделей до настоящего времени, и был предназначен для подключения к ПК внешних устройств, поддерживающих протокол обмена данными RS-232. В свое время к таким устройствам относились принтеры, мыши, модемы. Развитие вычислительной техники привело к настоящему моменту к тому, что принтеры полностью перестали поддерживать указанный протокол, перейдя на более современный IEEE 1284 или на не менее современный USB. Мыши в значительной степени перешли на PS/2 или USB. Модемы также все более часто используют протокол USB. Это связано с тем, что на небольшом удалении от ПК указанные устройства могут использовать более функциональные и скоростные интерфейсы. В автоматизированных измерительных системах ситуация иная и там нередко существенное удаление подключаемых устройств от вычислительной системы (до сотен метров). В таком случае по-прежнему востребованным является протокол RS-232 и семейство родственных протоколов. Более того, нередко системы АСУ ТП являются многоуровневыми и в состав УСО могут входить программируемые устройства – контроллеры, поддерживающие, как правило, протокол RS-232.

Схема установки

Для достижения цели работы были написаны две программы, одна из которых передает, а другая принимает данные с одного ПК на другой.

Program PEREDACHA;

uses DOS; {программа должна работать под управление MS-DOS}

var {объявление переменных

R: registers;

A: byte; }

begin

{ Инициализация программируемого контроллера

1. R.AH: =0; ( В AH мы записываем функцию «0», отвечающую за инициализацию последовательного порта);

R.AL: =$E3; (В AL мы записываемспециальносформированный байт, значения отдельных битов которого определяют различные параметры передачи);

R.DX: =1; (В DX мы записываем номер порта 0-COM1, 1-COM2 …);

intr($14, R); (14h прерывание);

}

2. readln(A); (ввод передаваемого байта);

3.

1. R.AH: =0; ( В AH мы записываем функцию «0», отвечающую за инициализацию последовательного порта);

R.AL: =$E3; (В AL мы записываемспециальносформированный байт, значения отдельных битов которого определяют различные параметры передачи);

R.DX: =1; (В DX мы записываем номер порта 0-COM1, 1-COM2 …);

intr($14, R); (14h прерывание);

}

{Прием байта информаци

2. repeat (начало цикла работы контроллера)

R.AH: =2; (В AH мы записываем функцию «2», отвечающую за прием байта);

R.AL: =A; (В AL записываем передаваемый байт);

intr($14, R); (прерывание 14h);

until (будем работать, пока не будет принят байт, т.е в AH не

R.AH=0; будет 0);

Writeln(R.AL); (выводим принятый байт на экран);

}