source: anotherchoice/tags/jsp-1.4.4-full-UTF8/config/sh1/sh1sci.c@ 26

/*
 *  TOPPERS/JSP Kernel
 *      Toyohashi Open Platform for Embedded Real-Time Systems/
 *      Just Standard Profile Kernel
 * 
 *  Copyright (C) 2000-2004 by Embedded and Real-Time Systems Laboratory
 *                              Toyohashi Univ. of Technology, JAPAN
 *  Copyright (C) 2001-2004 by Industrial Technology Institute,
 *                              Miyagi Prefectural Government, JAPAN
 * 
 *  上記著作権者
は，以下の (1)〜(4) の条件か，Free Software Foundation 
 *  によってå…
¬è¡¨ã•ã‚Œã¦ã„ã‚‹ GNU General Public License の Version 2 に記
 *  è¿°ã•ã‚Œã¦ã„ã‚‹æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ï¼ˆæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢
 *  を改変したものを含む．以下同じ）を使用・複製・改変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œ
 *  利用と呼ぶ）することを無償で許諾する．
 *  (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
 *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
 *      スコード中に含まれていること．
 *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
 *      用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
 *      者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
 *      の無保証規定を掲載すること．
 *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
 *      用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
 *      と．
 *    (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
 *        作権表示，この利用条件および下記の無保証規定を掲載すること．
 *    (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
 *        å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
 *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
 *      害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
 * 
 *  本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
 *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，その適用可能性も
 *  含めて，いかなる保証も行わない．また，本ソフトウェアの利用により直
 *  æŽ¥çš„ã¾ãŸã¯é–“æŽ¥çš„ã«ç”Ÿã˜ãŸã„ã‹ãªã‚‹æå®³ã«é–¢ã—ã¦ã‚‚ï¼Œãã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
 * 
 *  @(#) $Id: sh1sci.c,v 1.12 2005/11/14 08:00:44 honda Exp $
 */

/*
 *   SH1内
蔵シリアルコミュニケーションインタフェースSCI用 簡易ドライバ
 *　　　　
 *　　　　SCI0のみのサポートだが、2chへの拡張性は残している。
 *
 *　　　　sh1sci.{c,h}とhw_serial.hの分割の基準
 *　　　　　　・sh1sci.{c,h}：シリアルデバイスに依存する部分のみ記述
 *　　　　　　・hw_serial.h：割込みコントローラ依存
 *　　　　　　
 *　　　　　　・クロック周波数依存について
 *　　　　　　　　・デバイス依存のパラメータはsh1sci.c内
で用意する。
 *　　　　　　　　・大å…
ƒã®ã‚¯ãƒ­ãƒƒã‚¯å‘¨æ³¢æ•°ã¯ã‚³ãƒ³ãƒ‘イルオプションとして与える
 */

#include <s_services.h>
#include <sh1sci.h>

/*
 *  コントロールレジスタのアドレス （すべて1バイトサイズ）
 */
        /*  チャネル0  */
#define SCI_SMR0 (VB *)0x5fffec0        /*  シリアルモードレジスタ */
#define SCI_BRR0 (VB *)0x5fffec1        /*  ビットレートレジスタ  */
#define SCI_SCR0 (VB *)0x5fffec2        /*  シリアルコントロールレジスタ */
#define SCI_TDR0 (VB *)0x5fffec3        /*  トランスミットデータレジスタ */
#define SCI_SSR0 (VB *)0x5fffec4        /*  シリアルステータスレジスタ */
#define SCI_RDR0 (VB *)0x5fffec5        /*  レシーブデータレジスタ */

        /*  チャネル1  */
#define SCI_SMR1 (VB *)0x5fffec8        /*  シリアルモードレジスタ */
#define SCI_BRR1 (VB *)0x5fffec9        /*  ビットレートレジスタ  */
#define SCI_SCR1 (VB *)0x5fffeca        /*  シリアルコントロールレジスタ */
#define SCI_TDR1 (VB *)0x5fffecb        /*  トランスミットデータレジスタ */
#define SCI_SSR1 (VB *)0x5fffecc        /*  シリアルステータスレジスタ */
#define SCI_RDR1 (VB *)0x5fffecd        /*  レシーブデータレジスタ */


/*
 *  コントロールレジスタの設定値
 */
/*  シリアルステータスレジスタSSRの各ビット  */
#define SSR_TDRE        0x80u   /* トランスミットデータレジスタエンプティ */
#define SSR_RDRF        0x40u   /* レシーブデータレジスタフル              */
#define SSR_ORER        0x20u   /* オーバーランエラー                  */
#define SSR_FER         0x10u   /* フレーミングエラー                  */
#define SSR_PER         0x08u   /* パリティエラー                        */
#define SSR_TEND        0x04u   /* トランスミットエンド               */
#define SSR_MPB         0x02u   /* マルチプロセッサビット            */
#define SSR_MPBT        0x01u   /* マルチプロセッサビットトランスファ  */

/*  シリアルコントロールレジスタSCRの各ビット  */
#define SCR_TIE         0x80u   /* トランスミットインタラプトイネーブル */
#define SCR_RIE         0x40u   /* レシーブインタラプトイネーブル        */
#define SCR_TE          0x20u   /* トランスミットイネーブル                 */
#define SCR_RE          0x10u   /* レシーブイネーブル                  */
#define SCR_MPIE        0x08u   /* マルチプロセッサインタラプトイネーブル */
                                /* トランスミットエンドインタラプト     */
#define SCR_TEIE        0x04u   /* イネーブル                              */
#define SCR_CKE_MASK    0x03u   /* クロックソース選択用マスク              */
#define SCR_CKE         0x00u   /* クロックイネーブル                  */
                                /*   調歩同期式のとき                   */
                                /*      内
部クロック使用                */
                                /*      出力なし                    */

/*  シリアルモードジスタSMRの各ビット  */
                                /* コミュニケーションモード         */
#define SMR_CA_CLOCK    0x80u   /*      クロック同期式           */
#define SMR_CA_ASYNC    0x00u   /*      調歩同期式                 */
        /*  調歩同期式通信：Asynchronous Communication method   */
                                /* キャラクタレングス          */
#define SMR_CHR8        0x00u   /*      8ビット              */
#define SMR_CHR7        0x40u   /*      7ビット              */
                                /* パリティイネーブル          */
#define SMR_PE          0x20u   /*      パリティあり              */
#define SMR_PE_NON      0x00u   /*      パリティなし              */
#define SMR_OE_ODD      0x10u   /* パリティモード（奇数パリティ）*/
#define SMR_STOP2       0x08u   /* ストップビットレングス：2        */
#define SMR_STOP1       0x00u   /* ストップビットレングス：1        */
#define SMR_MP          0x04u   /* マルチプロセッサモード    */

/*
 *  クロック周波数依存
 *      京都マイクロコンピュータKZ-SH1-01のクロック周波数は20MHz
 *      CQ出版 RISC評価キット SH-1のクロック周波数は19.6608MHz
 *      常盤商行SH1/CPUBのクロック周波数は16MHz
 */

/*
 *  分周比とビットレートの設定
 */
#if CONFIG_BAUD == 9600
/*
 *
 *  クロック        　20MHzã®å ´åˆ
 *  ビットレート　9600bps
 *
 *  　n=0(分周しないのでそのまま)
 *  　N=64で誤差0.16%
 *  よって、
 *  　シリアルモードレジスタSMRのクロックセレクトビットCKS=00
 *  　ビットレートレジスタBRR=64
 */
#ifdef CONFIG_20MHZ
#define SMR_CKS         0x0u    /*  分周比           */
#define SCI_BRR         64u     /*  ビットレート          */
#endif

/*
 *  クロック        　19.6608MHz
 *  ビットレート　9600bps
 *
 *  　n=0(分周しないのでそのまま)
 *  　N=63で誤差0%
 *  よって、
 *  　シリアルモードレジスタSMRのクロックセレクトビットCKS=00
 *  　ビットレートレジスタBRR=63
 */
#ifdef CONFIG_19MHZ
#define SMR_CKS         0x0u    /*  分周比           */
#define SCI_BRR         63u     /*  ビットレート          */
#endif

/*
 *  クロック        　16MHz
 *  ビットレート　9600bps
 *
 *  　n=0(分周しないのでそのまま)
 *  　N=51で誤差0.16%
 *  よって、
 *  　シリアルモードレジスタSMRのクロックセレクトビットCKS=00
 *  　ビットレートレジスタBRR=51
 */
#ifdef CONFIG_16MHZ
#define SMR_CKS         0x0u    /*  分周比           */
#define SCI_BRR         51u     /*  ビットレート          */
#endif

/*
 *  ボーレート設定後、クロックが安定するまでの待
ち時間
 *  　（最初の1ビット分）　
 *  BPS=9600bpsã®å ´åˆ
 *  　t = 1 / BPS = 104,167 = 105,000[nsec]
 */
#define SH1SCI_DELAY    105000


#elif CONFIG_BAUD == 19200


/*
 *
 *  クロック        　20MHzã®å ´åˆ
 *  ビットレート　19200bps
 *
 *  　n=0(分周しないのでそのまま)
 *  　N=32で誤差 -1.36%
 *  よって、
 *  　シリアルモードレジスタSMRのクロックセレクトビットCKS=00
 *  　ビットレートレジスタBRR=32
 */
#ifdef CONFIG_20MHZ
#define SMR_CKS         0x0u    /*  分周比           */
#define SCI_BRR         32u     /*  ビットレート          */
#endif

/*
 *  クロック        　19.6608MHz
 *  ビットレート　19200bps
 *
 *  　n=0(分周しないのでそのまま)
 *  　N=31で誤差0%
 *  よって、
 *  　シリアルモードレジスタSMRのクロックセレクトビットCKS=00
 *  　ビットレートレジスタBRR=31
 */
#ifdef CONFIG_19MHZ
#define SMR_CKS         0x0u    /*  分周比           */
#define SCI_BRR         31u     /*  ビットレート          */
#endif

/*
 *  クロック        　16MHz
 *  ビットレート　19200bps
 *
 *  　n=0(分周しないのでそのまま)
 *  　N=25で誤差0.16%
 *  よって、
 *  　シリアルモードレジスタSMRのクロックセレクトビットCKS=00
 *  　ビットレートレジスタBRR=25
 */
#ifdef CONFIG_16MHZ
#define SMR_CKS         0x0u    /*  分周比           */
#define SCI_BRR         25u     /*  ビットレート          */
#endif

/*
 *  ボーレート設定後、クロックが安定するまでの待
ち時間
 *  　（最初の1ビット分）　
 *  BPS=19200bpsã®å ´åˆ
 *  　t = 1 / BPS = 52,083 = 53,000[nsec]
 */
#define SH1SCI_DELAY    53000


#elif CONFIG_BAUD == 38400


/*
 *
 *  クロック        　20MHzã®å ´åˆ
 *  ビットレート　38400bps
 *
 *  　n=0(分周しないのでそのまま)
 *  　N=15で誤差1.73%
 *  よって、
 *  　シリアルモードレジスタSMRのクロックセレクトビットCKS=00
 *  　ビットレートレジスタBRR=15
 */
#ifdef CONFIG_20MHZ
#define SMR_CKS         0x0u    /*  分周比           */
#define SCI_BRR         15u     /*  ビットレート          */
#endif

/*
 *  クロック        　19.6608MHz
 *  ビットレート　38400bps
 *
 *  　n=0(分周しないのでそのまま)
 *  　N=15で誤差0%
 *  よって、
 *  　シリアルモードレジスタSMRのクロックセレクトビットCKS=00
 *  　ビットレートレジスタBRR=15
 */
#ifdef CONFIG_19MHZ
#define SMR_CKS         0x0u    /*  分周比           */
#define SCI_BRR         15u     /*  ビットレート          */
#endif

/*
 *  クロック        　16MHz
 *  ビットレート　38400bps
 *
 *  　n=0(分周しないのでそのまま)
 *  　N=12で誤差0.16%
 *  よって、
 *  　シリアルモードレジスタSMRのクロックセレクトビットCKS=00
 *  　ビットレートレジスタBRR=16
 */
#ifdef CONFIG_16MHZ
#define SMR_CKS         0x0u    /*  分周比           */
#define SCI_BRR         16u     /*  ビットレート          */
#endif

/*
 *  ボーレート設定後、クロックが安定するまでの待
ち時間
 *  　（最初の1ビット分）　
 *  BPS=38400bpsã®å ´åˆ
 *  　t = 1 / BPS = 26,042 = 27,000[nsec]
 */
#define SH1SCI_DELAY    27000

#else   /*  CONFIG_BAUD  */

#error unsupported baud rate.

#endif  /*  CONFIG_BAUD  */


/*
 *  シリアルI/Oポート管理ブロックの定義
 *  　2chã‚µãƒãƒ¼ãƒˆã«æ‹¡å¼µã™ã‚‹å ´åˆã¯åˆæœŸå€¤ç”¨ã®ãƒ‡ãƒ¼ã‚¿ã‚‚å«ã‚ã‚‹
 */
struct sio_port_control_block {
        VP_INT          exinf;          /* 拡張情
å ± */
        BOOL            openflag;       /* オープン済みフラグ */
};

/*
 *  シリアルI/Oポート管理ブロックのエリア
 *  　　ID = 1 をSCI0に対応させている．
 */
static SIOPCB   siopcb_table[TNUM_SIOP];

/*
 *  シリアルI/OポートIDから管理ブロックを取り出すためのマクロ
 */
                                /*  ポートIDからデバイス番号を求めるマクロ  */
#define INDEX_SIOP(siopid)      ((UINT)((siopid) - 1))
#define get_siopcb(siopid)      (&(siopcb_table[INDEX_SIOP(siopid)]))

/*
 *  文字を受信できるか？
 */
Inline BOOL
sh1sci_getready(SIOPCB *siopcb)
{
        VB ssr0 = sil_reb_mem(SCI_SSR0);
        return(ssr0 & SSR_RDRF);
}

/*
 *  文字を送信できるか？
 */
Inline BOOL
sh1sci_putready(SIOPCB *siopcb)
{
        VB ssr0 = sil_reb_mem(SCI_SSR0);
        return(ssr0 & SSR_TDRE);
}

/*
 *  受信した文字の取出し
 */
Inline char
sh1sci_getchar(SIOPCB *siopcb)
{
        char data;

        data = sil_reb_mem(SCI_RDR0);
        
        /*  レシーブデータレジスタフル・フラグのクリア  */
        sh1_anb_reg(SCI_SSR0, (VB)~SSR_RDRF);
        return data;
}

/*
 *  送信する文字の書込み
 */
Inline void
sh1sci_putchar(SIOPCB *siopcb, char c)
{
#ifdef GDB_STUB
        gdb_stub_putc( c );
#else
        sil_wrb_mem(SCI_TDR0 ,c);
        
        /*  トランスミットデータレジスタエンプティ・フラグのクリア*/
        sh1_anb_reg(SCI_SSR0, (VB)~SSR_TDRE);
#endif
}

/*
 *  SIOドライバの初期化ルーチン
 */
void
sh1sci_initialize(void)
{
        SIOPCB  *siopcb;
        UINT    i;

        /*
         *  シリアルI/Oポート管理ブロックの初期化
         */
        for (siopcb = siopcb_table, i = 0; i < TNUM_SIOP; siopcb++, i++) {
                siopcb->openflag = FALSE;
        }
}

/*
 *  オープンしているポートがあるか？
 */
BOOL
sh1sci_openflag(void)
{
#if TNUM_SIOP < 2
        return(siopcb_table[0].openflag);
#else /* TNUM_SIOP < 2 */
        return(siopcb_table[0].openflag || siopcb_table[1].openflag);
#endif /* TNUM_SIOP < 2 */
}

/*
 *  シリアルI/Oポートのオープン
 */
SIOPCB *
sh1sci_opn_por(ID siopid, VP_INT exinf)
{
        SIOPCB *siopcb = get_siopcb(siopid);

#ifndef GDB_STUB
        VB scr0, smr0;
        VH pbcr1;

        sh1_anb_reg(SCI_SCR0, (VB)~(SCR_TE | SCR_RE));  /*  送受信停止  */

        /*  ピンアサイン
         *     ã‚·ãƒªã‚¢ãƒ«ãƒ‡ãƒã‚¤ã‚¹è‡ªä½“ã®äº‹é …
ではないので
         *     本来はこのファイルに記述するのはふさわしくないが、
         *     hw_serial.cを用意するのもç…
©é›‘なので暫定的にここにå…
¥ã‚Œã¦ã„る。
         */
        pbcr1 = sil_reh_mem((VP)PBCR1);
                                                /* PB8:RxD0 PB9:TxD0  */
        pbcr1 = (pbcr1 & PBCR1_TD0_RD0_MASK) |
                        PBCR1_TD0 | PBCR1_RD0;
        sil_wrh_mem((VP)PBCR1, pbcr1);
                                                /*  送受信フォーマット  */
        smr0 =  SMR_CA_ASYNC |  /*  調歩同期式             */
                SMR_CHR8 |      /*  キャラクタレングス：8ビット */
                SMR_PE_NON |    /*  パリティなし                  */
                SMR_STOP1 |     /*  ストップビットレングス：1       */
                SMR_CKS;        /*  クロックセレクト（分周比）  */
        sil_wrb_mem(SCI_SMR0, smr0);
        
        sil_wrb_mem(SCI_BRR0, SCI_BRR); /*  ボーレート設定       */

                                        /*  割込み禁止とクロックソースの選択 */
        scr0 = (VB)(~(SCR_TIE | SCR_RIE | SCR_TE | SCR_RE |
                          SCR_MPIE | SCR_TEIE | SCR_CKE_MASK) | SCR_CKE);
        sil_wrb_mem(SCI_SCR0, scr0);
        
        /*
         * ボーレートの設定後、1カウント分待
たなければならない。
         */
        sil_dly_nse(SH1SCI_DELAY);

                                        /* エラーフラグをクリア       */
        sh1_anb_reg(SCI_SSR0, (VB)~(SSR_ORER | SSR_FER | SSR_PER));
                                        /* 受信割り込み許可     */
                                        /* 送受信許可              */
        sh1_orb_reg(SCI_SCR0, (SCR_RIE | SCR_TE | SCR_RE));
                        /*  送信割込みの許可は送信制御関数で行う  */

#endif  /*  GDB_STUB  */

        siopcb->exinf = exinf;
        siopcb->openflag = TRUE;
        return(siopcb);
}

/*
 *  シリアルI/Oポートのクローズ
 */
void
sh1sci_cls_por(SIOPCB *siopcb)
{
                                /*  送受信停止、割込み禁止   */
        sh1_anb_reg(SCI_SCR0, (VB)~(SCR_TIE | SCR_RIE | SCR_TE | SCR_RE));
        siopcb->openflag = FALSE;
}

/*
 *  シリアルI/Oポートへの文字送信
 */
BOOL
sh1sci_snd_chr(SIOPCB *siopcb, char c)
{
        if (sh1sci_putready(siopcb)) {
                sh1sci_putchar(siopcb, c);
                return(TRUE);
        }
        return(FALSE);
}

/*
 *  シリアルI/Oポートからの文字受信
 */
INT
sh1sci_rcv_chr(SIOPCB *siopcb)
{
        if (sh1sci_getready(siopcb)) {
                return((INT)(UB)sh1sci_getchar(siopcb));
                /*  (UB)でキャストするのはゼロ拡張にするため  */
        }
        return(-1);
}

/*
 *  シリアルI/Oポートからのコールバックの許可
 */
void
sh1sci_ena_cbr(SIOPCB *siopcb, UINT cbrtn)
{
        switch (cbrtn) {
        case SIO_ERDY_SND:      /* 送信割り込み要求を許可 */
                sh1_orb_reg(SCI_SCR0, SCR_TIE);
                break;
        case SIO_ERDY_RCV:      /* 受信割り込み要求を許可 */
                sh1_orb_reg(SCI_SCR0, SCR_RIE);
                break;
        }
}

/*
 *  シリアルI/Oポートからのコールバックの禁止
 */
void
sh1sci_dis_cbr(SIOPCB *siopcb, UINT cbrtn)
{
        switch (cbrtn) {
        case SIO_ERDY_SND:      /* 送信割り込み要求を禁止 */
                sh1_anb_reg(SCI_SCR0, (VB)~SCR_TIE);
                break;
        case SIO_ERDY_RCV:      /* 受信割り込み要求を禁止 */
                sh1_anb_reg(SCI_SCR0, (VB)~SCR_RIE);
                break;
        }
}

/*
 *  シリアルI/Oポートに対する送信割込み処理
 */
Inline void
sh1sci_isr_siop_out(SIOPCB *siopcb)
{
        VB scr0 = sil_reb_mem(SCI_SCR0);
        
        if ((scr0 & SCR_TIE) != 0 && sh1sci_putready(siopcb)) {
                /*
                 *  送信通知コールバックルーチンを呼び出す．
                 */
                sh1sci_ierdy_snd(siopcb->exinf);
        }
}

/*
 *  シリアルI/Oポートに対する受信割込み処理
 */
Inline void
sh1sci_isr_siop_in(SIOPCB *siopcb)
{
        VB scr0 = sil_reb_mem(SCI_SCR0);

        if ((scr0 & SCR_RIE) != 0 && sh1sci_getready(siopcb)) {
                /*
                 *  受信通知コールバックルーチンを呼び出す．
                 */
                sh1sci_ierdy_rcv(siopcb->exinf);
        }
}

/*
 *  SIO送信割込みサービスルーチン
 *  
 *  　SH1内
蔵のSCIでは割込み番号が送受信別、チャネル別に分かれているので、
 *  　SCI0の送信割込み以外でこのルーチンが呼ばれることはない
 *  
 */
void
sh1sci_isr_out(void)
{
        if (siopcb_table[0].openflag) {
                sh1sci_isr_siop_out(get_siopcb(1));
        }
}

/*
 *  SIO受信割込みサービスルーチン
 *  
 *  　SH1内
蔵のSCIでは割込み番号が送受信別、チャネル別に分かれているので、
 *  　SCI0の受信割込み以外でこのルーチンが呼ばれることはない
 *  
 */
void
sh1sci_isr_in(void)
{
        if (siopcb_table[0].openflag) {
                sh1sci_isr_siop_in(get_siopcb(1));
        }
}

/*
 *  SIO受信エラー割込みサービスルーチン
 *  
 *  　SH1内
蔵のSCIでは割込み番号がチャネル別に分かれているので、
 *  　SCI0の受信エラー割込み以外でこのルーチンが呼ばれることはない
 *  　
 *  　エラー処理自体はエラーフラグのクリアのみにとどめている。
 *  　　　・オーバーランエラー
 *  　　　・フレーミングエラー
 *  　　　・パリティエラー
 */
void
sh1sci_isr_error(void)
{
        VB ssr0;
        
        if (siopcb_table[0].openflag) {
                ssr0 = sil_reb_mem(SCI_SSR0);   /*  1度読み出して  */
                ssr0 &= ~(SSR_RDRF | SSR_ORER | SSR_FER | SSR_PER);
                sil_wrb_mem(SCI_SSR0, ssr0);    /*  エラーフラグクリア  */
        }
}

/*
 * ポーリングによる文字の送信
 */
void
sh1sci_putc_pol(char c)
{
        while(!sh1sci_putready(&siopcb_table[0]));
        sh1sci_putchar(&siopcb_table[0], c);
}