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) 2001 by Industrial Technology Institute,
 *                              Miyagi Prefectural Government, JAPAN
 *  Copyright (C) 2001,2002 by Dep. of Computer Science and Engineering
 *                   Tomakomai National College of Technology, JAPAN
 * 
 *  惧淡螟侯涪荚は·Free Software Foundation によって给山されている 
 *  GNU General Public License の Version 2 に淡揭されている掘凤か·笆
 *  布の(1)×(4)の掘凤を塔たす眷圭に嘎り·塑ソフトウェア∈塑ソフトウェ
 *  アを猖恃したものを崔むˉ笆布票じ∷を蝗脱ˇ剩澜ˇ猖恃ˇ浩芹邵∈笆布·
 *  网脱と钙ぶ∷することを痰浸で钓满するˉ
 *  (1) 塑ソフトウェアをソ〖スコ〖ドの妨で网脱する眷圭には·惧淡の螟侯
 *      涪山绩·この网脱掘凤および布淡の痰瘦沮惮年が·そのままの妨でソ〖
 *      スコ〖ド面に崔まれていることˉ
 *  (2) 塑ソフトウェアを浩网脱材墙なバイナリコ〖ド∈リロケ〖タブルオブ
 *      ジェクトファイルやライブラリなど∷の妨で网脱する眷圭には·网脱
 *      に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯涪山绩·
 *      この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
 *  (3) 塑ソフトウェアを浩网脱稍材墙なバイナリコ〖ドの妨または怠达に寥
 *      み哈んだ妨で网脱する眷圭には·肌のいずれかの掘凤を塔たすことˉ
 *    (a) 网脱に燃うドキュメント∈网脱荚マニュアルなど∷に·惧淡の螟侯
 *        涪山绩·この网脱掘凤および布淡の痰瘦沮惮年を非很することˉ
 *    (b) 网脱の妨轮を·侍に年める数恕によって·惧淡螟侯涪荚に鼠桂する
 *        ことˉ
 *  (4) 塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じるいかなる禄
 *      巢からも·惧淡螟侯涪荚を倘勒することˉ
 * 
 *  塑ソフトウェアは·痰瘦沮で捏丁されているものであるˉ惧淡螟侯涪荚は·
 *  塑ソフトウェアに簇して·その努脱材墙拉も崔めて·いかなる瘦沮も乖わ
 *  ないˉまた·塑ソフトウェアの网脱により木儡弄または粗儡弄に栏じたい
 *  かなる禄巢に簇しても·その勒扦を砷わないˉ
 *
 *  @(#) $Id: hw_serial.h,v 1.4 2002/04/14 11:36:50 hiro Exp $
 */

#ifndef _HW_SERIAL_H_
#define _HW_SERIAL_H_

/*
 *  タ〖ゲット巴赂シリアルI/Oモジュ〖ル∈H8脱∷
 *    ˇポ〖トが 1塑の眷圭は HWPORT1_ADDRに回年されたポ〖トを蝗脱し、
 *      2塑の眷圭は、HWPORT1_ADDRをユ〖ザ脱、HWPORT2_ADDRをコンソ〖ル
 *      叫蜗として蝗脱する。
 *      HWPORTx_ADDRは タ〖ゲット巴赂の sys_config.h面で回年する。
 *    ˇ鼎奶婶のモジュ〖ルによって、XON/XOFFフロ〖扩告が乖わ
 *      れているので、慨规俐はTxDとRxDの2塑でよい
 */

#include "sys_config.h"
#include "cpu_config.h"

#ifndef _MACRO_ONLY

/*
 *  シリアルポ〖トのハ〖ドウェア巴赂攫鼠の年盗
 */

typedef struct hardware_serial_port_descripter {
	UW	base;	/* SCI のベ〖スアドレス		*/
} HWPORT;

#endif	/* of #ifndef _MACRO_ONLY */

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

#define PORT_ID1	1
#define PORT_ID2	2

#define HWPORT1	{ HWPORT1_ADDR	}
#define HWPORT2	{ HWPORT2_ADDR	}

#ifndef _MACRO_ONLY

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

Inline void
SCI_initialize(UW base)
{
    int i;
					/* 流减慨匿贿		*/
    outb(base + H8SCR, inb(base + H8SCR) & ~(H8SCR_TE | H8SCR_RE));

    					/* 流减慨フォ〖マット	*/
         		/* 拇殊票袋及				*/
         		/* キャラクタレングス¨8ビット		*/
         		/* パリティなし				*/
         		/* ストップビットレングス¨1		*/
         		/* クロックセレクト∈尸件孺∷		*/
    outb(base + H8SMR, 0);

    outb(base + H8BRR, H8BRR_RATE);	/*  ボ〖レ〖ト肋年  	*/

    			/* 充哈み敦贿とクロックソ〖スの联买	*/
    outb(base + H8SCR,
     inb(base + H8SCR) & ~(H8SCR_TIE  | H8SCR_RIE  |
                           H8SCR_MPIE | H8SCR_TEIE |
                           H8SCR_CKE1 | H8SCR_CKE0 ));

    /* ボ〖レ〖トの肋年稿、1ビット尸略たなければならない。*/

    for(i = SCI_SETUP_COUNT; i -- > 0; )
    	;

    				/* エラ〖フラグをクリア		*/
    outb(base + H8SSR,
     inb(base + H8SSR) & ~(H8SSR_ORER | H8SSR_FER | H8SSR_PER));

    /* 减慨充り哈み钓材, 流慨充哈みの钓材は流慨扩告簇眶で乖う	*/
    /* 流减慨钓材 */

    outb(base + H8SCR,
     inb(base + H8SCR) | (H8SCR_RIE | H8SCR_TE | H8SCR_RE));
}

/*
 * serial_open、serial_close [systask/serial.c] から钙ばれる
 * 簇眶では部もしない。
 * sys_initialize [config/h8/akih8_3048f/sys_config.c] で乖う。
 */

Inline BOOL
hw_port_initialize(HWPORT *p)
{
	return (FALSE);
}

Inline void
hw_port_terminate(HWPORT *p)
{
}

/*
 *  シリアルポ〖ト充哈みサ〖ビスル〖チン∈涟数徊救∷
 */

extern void	serial_handler_in(int portid);
extern void	serial_handler_out(int portid);

/*
 *  シリアルI/Oポ〖トの充哈みハンドラ
 */

#if NUM_PORT == 1

Inline void
hw_serial_handler_in()
{
	unsigned char status;

	status = inb(SYSTEM_SCI + H8SSR);
	if (status & (H8SSR_ORER | H8SSR_FER | H8SSR_PER)) {

		/* エラ〖借妄		*/

	    	/* エラ〖フラグをクリア	*/
		outb(SYSTEM_SCI + H8SSR, status & ~(H8SSR_ORER | H8SSR_FER | H8SSR_PER));
		}

	if (status & H8SSR_RDRF)
		serial_handler_in(SYSTEM_PORTID);

}

Inline void
hw_serial_handler_out()
{
	serial_handler_out(SYSTEM_PORTID);
}

#elif NUM_PORT == 2	/* of #if NUM_PORT == 1 */

Inline void
hw_serial_handler_in()
{
	unsigned char status;

	/* USER_SCI の借妄 */

	status = inb(USER_SCI + H8SSR);
	if (status & (H8SSR_ORER | H8SSR_FER | H8SSR_PER)) {

		/* エラ〖借妄		*/

	    	/* エラ〖フラグをクリア	*/
		outb(USER_SCI + H8SSR, status & ~(H8SSR_ORER | H8SSR_FER | H8SSR_PER));
		}

	if (status & H8SSR_RDRF)
		serial_handler_in(USER_PORTID);

	/* SYSTEM_SCI の借妄 */

	status = inb(SYSTEM_SCI + H8SSR);
	if (status & (H8SSR_ORER | H8SSR_FER | H8SSR_PER)) {

		/* エラ〖借妄		*/

	    	/* エラ〖フラグをクリア	*/
		outb(SYSTEM_SCI + H8SSR, status & ~(H8SSR_ORER | H8SSR_FER | H8SSR_PER));
		}

	if (status & H8SSR_RDRF)
		serial_handler_in(SYSTEM_PORTID);

}

Inline void
hw_serial_handler_out()
{
	unsigned char status;

	/* USER SCI の借妄 */

	status = inb(USER_SCI + H8SSR);
	if (status & H8SSR_TDRE)
		serial_handler_out(USER_PORTID);

	/* SYSTEM SCI の借妄 */

	status = inb(SYSTEM_SCI + H8SSR);
	if (status & H8SSR_TDRE)
		serial_handler_out(SYSTEM_PORTID);
}

#else	/* of #if NUM_PORT == 1 */

#error NUM_PORT <= 2

#endif	/* of #if NUM_PORT == 1 */

/*
 *  矢机を减慨したか々
 */

Inline BOOL
hw_port_getready(HWPORT *p)
{
	/*  レシ〖ブデ〖タレジスタフルˇフラグのチェック  */
	return(inb(p->base + H8SSR) & H8SSR_RDRF);
}

/*
 *  矢机を流慨できるか々
 */

Inline BOOL
hw_port_putready(HWPORT *p)
{
	/*  トランスミットデ〖タレジスタエンプティˇフラグのチェック*/

	return(inb(p->base + H8SSR) & H8SSR_TDRE);
}

/*
 *  减慨した矢机の艰り叫し
 */

Inline UB
hw_port_getchar(HWPORT *p)
{
	UB data;
	UW addr = p->base + H8SSR;

	data = inb(p->base + H8RDR);

 	/*  レシ〖ブデ〖タレジスタフルˇフラグのクリア  */

#define BITCLR(bit)	Asm("bclr #" bit ", @%0" : : "r"(addr))
	BITCLR(_TO_STRING(H8SSR_RDRF_BIT));
#undef  BITCLR

	return data;
}

/*
 *  流慨する矢机の今き哈み
 */

Inline void
hw_port_putchar(HWPORT *p, UB c)
{
	UW addr = p->base + H8SSR;

	outb(p->base + H8TDR, c);

#define BITCLR(bit)	Asm("bclr #" bit ", @%0" : : "r"(addr))
	BITCLR(_TO_STRING(H8SSR_TDRE_BIT));
#undef  BITCLR
}

/*
 * 木儡叫蜗 (略ちあり)
 */

Inline void
SCI_putchar (int base, int c)
{
	UW addr = base + H8SSR;

	/* TDRE が 1 になるまで略つ */
	while ((inb(addr) & H8SSR_TDRE) == 0)
		;
	outb(base + H8TDR, c);

#define BITCLR(bit)	Asm("bclr #" bit ", @%0" : : "r"(addr))
	BITCLR(_TO_STRING(H8SSR_TDRE_BIT));
#undef  BITCLR

	}

/*
 *  流慨扩告簇眶
 */

Inline void
hw_port_sendstart(HWPORT *p)
{
	UW addr = p->base + H8SCR;

#define BITSET(bit)	Asm("bset #" bit ", @%0" : : "r"(addr))
	BITSET(_TO_STRING(H8SCR_TIE_BIT));
#undef  BITSET
}

Inline void
hw_port_sendstop(HWPORT *p)
{
	UW addr = p->base + H8SCR;

#define BITCLR(bit)	Asm("bclr #" bit ", @%0" : : "r"(addr))
	BITCLR(_TO_STRING(H8SCR_TIE_BIT));
#undef  BITCLR
}

#endif	/* of #ifndef _MACRO_ONLY */

#endif /* _HW_SERIAL_H_ */