hw_serial.h

嵌入式系统开发 TOPPERS and JSP Kernel Release 1.3 TOPPERS = Toyohashi Open Platform for Embedded Real-Tim

/*
 *  TOPPERS/JSP Kernel
 *      Toyohashi Open Platform for Embedded Real-Time Systems/
 *      Just Standard Profile Kernel
 *
 *  Copyright (C) 2000,2001 by Embedded and Real-Time Systems Laboratory
 *                              Toyohashi Univ. of Technology, JAPAN
 *  Copyright (C) 2002 by Monami software, Limited Partners.
 *  Copyright (C) 2002 by MURANAKA Masaki
 *
 *  惧淡螟侯涪荚は·Free Software Foundation によって给山されている
 *  GNU General Public License の Version 2 に淡揭されている掘凤か·笆
 *  布の(1)×(4)の掘凤を塔たす眷圭に嘎り·塑ソフトウェア∈塑ソフトウェ
 *  アを猖恃したものを崔むˉ笆布票じ∷を蝗脱ˇ剩澜ˇ猖恃ˇ浩芹邵∈笆布·
 *  网脱と钙ぶ∷することを痰浸で钓满するˉ
 *  (1) 塑ソフトウェアをソ〖スコ〖ドの妨で网脱する眷圭には·惧淡の螟侯
 *      涪山绩·この网脱掘凤および布淡の痰瘦沮惮年が·そのままの妨でソ〖
 *      スコ〖ド面に崔まれていることˉ
 *  (2) 塑ソフトウェアを浩网脱材墙なバイナリコ〖ド∈リロケ〖タブルオブ
 *      ジェクトファイルやライブラリなど∷の妨で网脱する眷圭には·网脱
 *      に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯涪山绩·
 *      この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
 *  (3) 塑ソフトウェアを浩网脱稍材墙なバイナリコ〖ドの妨または怠达に寥
 *      み哈んだ妨で网脱する眷圭には·肌のいずれかの掘凤を塔たすことˉ
 *    (a) 网脱に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯
 *        涪山绩·この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
 *    (b) 网脱の妨轮を·侍に年める数恕によって·惧淡螟侯涪荚に鼠桂する
 *        ことˉ
 *  (4) 塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じるいかなる禄
 *      巢からも·惧淡螟侯涪荚を倘勒することˉ
 *
 *  塑ソフトウェアは·痰瘦沮で捏丁されているものであるˉ惧淡螟侯涪荚は·
 *  塑ソフトウェアに簇して·その努脱材墙拉も崔めて·いかなる瘦沮も乖わ
 *  ないˉまた·塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じたい
 *  かなる禄巢に簇しても·その勒扦を砷わないˉ
 *
 *  @(#) $Id: hw_serial.h,v 1.2 2002/04/10 12:08:17 honda Exp $
 */

/*
 *	タ〖ゲット巴赂シリアルI/Oモジュ〖ル∈PC/AT脱∷
 */

#ifndef _HW_SERIAL_H_
#define _HW_SERIAL_H_

#include "sys_config.h"
#include "cpu_insn.h"
#include "irc.h"

/*
 *  シリアルI/Oの充哈みハンドラのベクタ戎规
 */
#define INHNO_SERIAL	 (0x24)

/*
 *  シリアルポ〖トのハ〖ドウェア巴赂攫鼠の年盗
 *  Not yet! m68kのようにコントロ〖ルレジスタを菇陇挛にする。
 */
typedef struct pcat_hardware_serial_port_descripter {
  INT	    *initflag;	   /* 介袋步貉フラグへのポインタ   */
  BOOL    sendflag;      /* 流慨充り哈みイネ〖ブルフラグ */
  short base_address;
  short com_irq;
} HWPORT;


/*
 *  你レベルポ〖ト攫鼠瓷妄ブロックの介袋猛
 */

#define NUM_PORT	1	/* サポ〖トするシリアルポ〖トの眶 */

static INT	initflag[2] = { 0, 0 } ;	/* 介袋步貉フラグ */

#define HWPORT1	{ &initflag[0],  0, PCAT_COM1_BASE, PCAT_COM1_IRQ }
#define HWPORT2 { &initflag[1],  0, PCAT_COM2_BASE, PCAT_COM2_IRQ }

Inline short pcat_com_data_port(HWPORT *p)
{
  return p->base_address;
}

Inline short pcat_com_ier_port(HWPORT *p)
{
  return p->base_address + 1;
}

Inline short pcat_com_lsr_port(HWPORT *p)
{
  return p->base_address + 5;
}

#define PCAT_COM_IER_LS (4)
#define PCAT_COM_IER_TX (2)
#define PCAT_COM_IER_RX (1)

/*
 *  シリアルI/Oポ〖トの介袋步
 */

Inline BOOL
hw_port_initialize(HWPORT *p)
{
  outb(pcat_com_ier_port(p), 0); // Disable interrupt.
  outb(p->base_address + 3, 0x83); // DLAB=1, 8bit, stop=1, Non parity.
  outb(p->base_address, 0x0c);  // 9600bps
  outb(p->base_address + 1, 0x00);  // 9600bps
  outb(p->base_address + 3, 0x03); // DLAB=0, 8bit, stop=1, Non parity.
  outb(p->base_address + 2, 0x00);  // Disable FIFO.
  irc_ena_irq(p->com_irq);

  outb(p->base_address + 4, 0x0b); // Enable OUT2 interrupt.

  outb(pcat_com_ier_port(p),
       PCAT_COM_IER_LS |
       PCAT_COM_IER_TX |
       PCAT_COM_IER_RX);  // Enable interrupt (Ls & Tx & Rx)

  inb(pcat_com_lsr_port(p));
  inb(pcat_com_data_port(p));
  inb(p->base_address + 2);
  inb(p->base_address + 4);

  *(p->initflag) = 1;			/* 介袋步フラグ肋年 */
  return(FALSE);
}

/*
 *  シリアルI/Oポ〖トの姜位
 */
Inline void
hw_port_terminate(HWPORT *p)
{
    
  *(p->initflag) = -1;			/* 介袋步フラグ肋年 */
  outb(pcat_com_ier_port(p), 0); // Disable interrupt.
  irc_dis_irq(PCAT_COM1_IRQ);
}


/*
 *  シリアルポ〖ト充哈みサ〖ビスル〖チン∈涟数徊救∷
 */
extern void	serial_handler_in(int portid);
extern void	serial_handler_out(int portid);


#define PCAT_COM_IIR_RLS (0x06)
#define PCAT_COM_IIR_RXD (0x04)
#define PCAT_COM_IIR_TXD (0x02)

//static volatile UW txcount = 0;

/*
 *  シリアルI/Oポ〖トの充哈みハンドラ
 */
Inline void
hw_serial_handler()
{
  UB comstat;

  irc_eoi_irq(PCAT_COM1_IRQ);

  comstat = inb(PCAT_COM1_BASE + 2) & 0x0f;

  switch (comstat)
    {
    case PCAT_COM_IIR_RLS:
      inb(PCAT_COM1_BASE + 5);
      break;
    case PCAT_COM_IIR_RXD:
      serial_handler_in(1);
      break;
    case PCAT_COM_IIR_TXD:
      serial_handler_out(1);
      break;
    default:
      break;
    }

  irc_ena_irq(PCAT_COM1_IRQ);

}


/*
 *  矢机を减慨したか々
 */
Inline BOOL
hw_port_getready(HWPORT *p)
{
  UB stat;
  stat = inb(pcat_com_lsr_port(p));

  return ((stat & 0x01) != 0);
}

/*
 *  矢机を流慨できるか々
 */
Inline BOOL
hw_port_putready(HWPORT *p)
{
  UB stat;
  stat = inb(pcat_com_lsr_port(p));

  return ((stat & 0x60) != 0);
}

/*
 *  减慨した矢机の艰り叫し
 */
Inline UB
hw_port_getchar(HWPORT *p)
{
  UB ch;
  
  ch = inb(pcat_com_data_port(p));

  return ch;
}

/*
 *  流慨する矢机の今き哈み
 */
Inline void
hw_port_putchar(HWPORT *p, UB c)
{
  outb(pcat_com_data_port(p), c);
}

/*
 *  流慨扩告簇眶
 */
Inline void
hw_port_sendstart(HWPORT *p)
{
  if (p->sendflag == 0)
    {
      UB stat;
      stat = inb(pcat_com_ier_port(p)) | PCAT_COM_IER_TX;
      outb(pcat_com_ier_port(p), stat);
      p->sendflag = 1;
    }
}

Inline void
hw_port_sendstop(HWPORT *p)
{
  if (p->sendflag)
    {
      UB stat;
      outb(p->base_address + 3, 0x03); // DLAB=0, 8bit, stop=1, Non parity.
      stat = inb(pcat_com_ier_port(p)) & ~PCAT_COM_IER_TX;
      outb(pcat_com_ier_port(p), stat);
      p->sendflag = 0;
    }
}


#endif /* _HW_SERIAL_H_ */