/*
 * 8250.c v0.1
 * RS-232 I/O Driver.
 * Copyright (c) Pashix, 2005-06, mailto: pashix(at)pochta.ru
 */

#define MAX_RS232_IF 5 // Максимальное количество адаптеров RS-232

#define	_ADAPTER_FREQ	1843200L // Частота источника синхронизации, константа
#define _16550_UART_FIFO // Этот дефайн я использую для включения/выключения буферизации

unsigned long	RS232_base_ports	[MAX_RS232_IF]; // В этом массиве мы будем хранить базовые адреса для каждого интерфейса

/* Использование такого массиа позволит нам указать базовый адрес только один раз, в функции RS232_init(),
а в остальных функциях указывать лишь номер адаптера. Просто так удобнее =) */

char RS232_init(unsigned char num, unsigned short base_port, unsigned char parity,
		unsigned char stop_bits, unsigned char word_length, unsigned long baud_rate)

// Функция инициализациии RS-232

// num - номер интерфейса (от 0 до MAX_RS232_IF), base_port - БА, parity - контроль по чётности
// stop_bits - количество стоп-битов, word_length - длина слова, baud_rate - желаемая скорость передачи/приёма

{
	char format_byte;
	union
	{
		int baud_divisor;
		char bytes[2];
	}word;

	// Контроль ошибок:
	if ((num > MAX_RS232_IF-1)||(word_length > 3)||(stop_bits > 1)||(parity > 7)||(!baud_rate)) return RS232_INVALID_PARAM;

	RS232_base_ports[num] = base_port; // Запомнили БА для данного интерфейса, он нам пригодится в других функциях

	format_byte = 0x3F & ((word_length)|(stop_bits << 2)|(parity << 3));
	word.baud_divisor = (_ADAPTER_FREQ / baud_rate) >> 4;

	outportb(base_port+3, format_byte | 0x80);	// (Шаг 1)
	outportb(base_port+0, word.bytes[0]);		// (Шаг 2)
	outportb(base_port+1, word.bytes[1]);
	outportb(base_port+3, format_byte);		// (Шаг 3)

	#ifdef _16550_UART_FIFO // Если мы разрешили FIFO для микросхемы 16550 UART
		outportb(base_port+2, 0xC7); // Включаем режим FIFO и устанавливаем размер буфера в 16 байт (Шаг 4)
	#endif

	return RS232_NOERROR;
}

char isRS232_init(unsigned char num)
{ // Проверка инициализации адаптера (была ли использована функция RS232_init()?)
	return (RS232_base_ports[num] != 0)?RS232_NOERROR:RS232_NOT_INIT;
}

char RS232_receive_ready(unsigned char num)
{ // Функция возвращает признак готовности приёмника (проверяет бит 0 в БА+5)
	return (inportb(RS232_base_ports[num]+5) & 0x01)?RS232_NOERROR:RS232_NOT_READY;
}

char RS232_send_ready(unsigned char num)
{ // Функция возвращает признак готовности передатчика (проверяет бит 4 в БА+6)
	return (inportb(RS232_base_ports[num]+6) & 0x10)?RS232_NOERROR:RS232_NOT_READY;
}

char RS232_receivebyte(unsigned char num)
{ // Чтение байта из интерфейса
	return inportb(RS232_base_ports[num]);
}

void RS232_sendbyte(unsigned char num, char byte)
{ // Отправка байта в интерфейс
	outportb(RS232_base_ports[num], byte);
}

char RS232_modem_on(unsigned char num)
{ // Инициализация модема
	char mcr;
	unsigned long wait;

	if(num>MAX_RS232_IF-1) return RS232_INVALID_PARAM;

	mcr = inportb(RS232_base_ports[num]+4);
	outportb(RS232_base_ports[num]+4, mcr | 0x01); // Выставляем DTR (Data Terminal Ready)

	wait = _WAIT;
	while(wait--); // Задержка

	if(!(inportb(RS232_base_ports[num]+6) & 0x20))
	{ // Если сигнал DSR (Data Set Ready) не поступил - модем не отвечает
		outportb(RS232_base_ports[num]+4, mcr); // Восстанавливаем регистр
		return RS232_NO_MODEM;
	}

	outportb(RS232_base_ports[num]+4, mcr | 0x03); // Выставляем DTR и RTS (Request To Send)

	wait = _WAIT;
	while(wait--); // Задержка

	if(!(inportb(RS232_base_ports[num]+6) & 0x10))
	{ // Если нет сигнала CTS (Clear To Send) - модем есть, но не готов
		outportb(RS232_base_ports[num]+4, mcr); // Восстанавливаем регистр
		return RS232_MODEM_NOT_READY;
	}

	outportb(RS232_base_ports[num]+4, mcr | 0x0B); // Выставляем сигналы DTR, RTS и OUT2

	// Очищаем все возможные события аппаратного прерывания:
	inportb(RS232_base_ports[num]+0);
	inportb(RS232_base_ports[num]+5);
	inportb(RS232_base_ports[num]+6);

	return RS232_NOERROR;
}

void RS232_modem_off(unsigned char num)
{ // Деинициализация (выключение) модема
	RS232_device_off(num); // Вызываем функцию RS232_device_off(), описанную ниже
}

char RS232_device_on(unsigned char num)
{ // Инициализация устройства (из разряда не очень умных =) )
	char mcr;

	if(num>MAX_RS232_IF-1) return RS232_INVALID_PARAM;

	mcr = inportb(RS232_base_ports[num]+4);
	outportb(RS232_base_ports[num]+4, mcr | 0x03); // Выставляем DTR и RTS

	return RS232_NOERROR;
}

void RS232_device_off(unsigned char num)
{ // Деинициализация устройства (подходит и для модемов)
	if(num>MAX_RS232_IF-1) return; 

	outportb(RS232_base_ports[num]+4, 0x00); // Очищаем все биты управления

	// Очищаем все возможные события аппаратного прерывания:
	inportb(RS232_base_ports[num]+0);
	inportb(RS232_base_ports[num]+5);
	inportb(RS232_base_ports[num]+6);
}

char RS232_framing_error(unsigned char num)
{ // Определяем наличие ошибки кадрирования
	return (inportb(RS232_base_ports[num]+5) & 0x08)?RS232_FRAMING_ERROR:RS232_NOERROR;
}

char RS232_parity_error(unsigned char num)
{ // Определяем наличие ошибки паритета
	return (inportb(RS232_base_ports[num]+5) & 0x04)?RS232_PARITY_ERROR:RS232_NOERROR;
}

char RS232_modem_ring(unsigned char num)
{
	if(num>MAX_RS232_IF-1) return RS232_INVALID_PARAM;

	return (inportb(RS232_base_ports[num]+6) & 0x40)?RS232_NOERROR:RS232_MODEM_NO_RING;
}

void RS232_IRQ_init(unsigned char num, unsigned char can_receive, unsigned char can_send,
			 unsigned char line_status_change, unsigned char modem_status_change)

{ // Устанавливаем события для генерации IRQ
	outportb(RS232_base_ports[num]+1, 
		(can_receive?1:0)|(can_send?2:0)|(line_status_change?4:0)|(modem_status_change?8:0));
/*
  can_receive=1 - генерировать IRQ в случае готовности получения данных контроллером
  can_send=1 - генерировать IRQ в случае готовности отправления данных контроллером
  line_status_change=1 - генерировать IRQ в случае изменения состояния линии
  modem_status_change=1 - генерировать IRQ в случае изменения состояния модема

  Если эти параметры равны нулю - прерывание не будет генерироваться по этим событиям.
  Если установить все параметры (кроме номера интерфейса num) в ноль - IRQ контроллером не сгенерируется.
*/
}

/*
 * rs232err.h
 * Copyright (c) Pashix, 2005-06, mailto: pashix(at)pochta.ru
 */

#ifndef __RS232ERR_H
#define __RS232ERR_H

#define RS232_NOERROR		 0
#define RS232_INVALID_PARAM	-1
#define RS232_NOT_INIT		-2
#define RS232_NOT_READY		-3
#define RS232_NO_MODEM		-4
#define RS232_MODEM_NOT_READY	-5
#define RS232_MODEM_NO_RING	-6
#define RS232_FRAMING_ERROR	-7
#define RS232_PARITY_ERROR	-8

#endif

void outportb(unsigned short port, unsigned char value)
{ // Запись в порт ввода/вывода
	asm("outb %b0,%w1"::"a"(value), "d"(port));
}

unsigned char inportb(unsigned short port)
{ // Чтение из порта ввода/вывода
	unsigned char value;
	asm("inb %w1, %b0":"=a"(value): "d"(port));
	return value;
}

Copyright (c) Pashix, 2005-06, pashix(at)pochta.ru