/* * 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-2007 by Industrial Technology Institute, * Miyagi Prefectural Government, JAPAN * Copyright (C) 2001-2004 by Dep. of Computer Science and Engineering * Tomakomai National College of Technology, JAPAN * * 上記著作権者は，以下の (1)〜(4) の条件か，Free Software Foundation * によって公表されている GNU General Public License の Version 2 に記 * 述されている条件を満たす場合に限り，本ソフトウェア（本ソフトウェア * を改変したものを含む．以下同じ）を使用・複製・改変・再配布（以下， * 利用と呼ぶ）することを無償で許諾する． * (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作 * 権表示，この利用条件および下記の無保証規定が，そのままの形でソー * スコード中に含まれていること． * (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使 * 用できる形で再配布する場合には，再配布に伴うドキュメント（利用 * 者マニュアルなど）に，上記の著作権表示，この利用条件および下記 * の無保証規定を掲載すること． * (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使 * 用できない形で再配布する場合には，次のいずれかの条件を満たすこ * と． * (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著 * 作権表示，この利用条件および下記の無保証規定を掲載すること． * (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに * 報告すること． * (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損 * 害からも，上記著作権者およびTOPPERSプロジェクトを免責すること． * * 本ソフトウェアは，無保証で提供されているものである．上記著作権者お * よびTOPPERSプロジェクトは，本ソフトウェアに関して，その適用可能性も * 含めて，いかなる保証も行わない．また，本ソフトウェアの利用により直 * 接的または間接的に生じたいかなる損害に関しても，その責任を負わない． * * @(#) $Id: hw_serial.c,v 1.7 2007/03/23 07:58:33 honda Exp $ */ /* * ターゲット依存シリアルI/Oモジュール（H8用） * ・ポートが 1本の場合は HWPORT1_ADDRに指定されたポートを使用し、 * 2本の場合は、HWPORT1_ADDRをユーザ用、HWPORT2_ADDRをコンソール * 出力として使用する。 * HWPORTx_ADDRは ターゲット依存の sys_config.h中で指定する。 * ・共通部のモジュールによって、XON/XOFFフロー制御が行わ * れているので、信号線はTxDとRxDの2本でよい */ #include "jsp_kernel.h" #include /* * シリアルポートの初期化ブロック */ static const SIOPINIB siopinib_table[TNUM_PORT] = { { (UB*)SCI_PORT1_BASE, SCI_PORT1_BAUD_RATE, { (UB*)SCI_PORT1_IPR, SCI_PORT1_IPR_BIT, SCI_PORT1_IPM }, SCI_PORT1_SMR } #if TNUM_PORT == 2u ,{ (UB*)SCI_PORT2_BASE, SCI_PORT2_BAUD_RATE, { (UB*)SCI_PORT2_IPR, SCI_PORT2_IPR_BIT, SCI_PORT2_IPM }, SCI_PORT2_SMR } #endif /* of #if TNUM_PORT == 2u */ }; /* * シリアルポートの制御ブロック */ SIOPCB siopcb_table[TNUM_PORT]; /* * SIO ID から管理ブロックへの変換 */ Inline SIOPINIB* get_siopinib(ID sioid) { UINT index = INDEX_SIO(sioid); assert(index < TNUM_PORT); return(&(siopinib_table[index])); } /* * ボーレートからBRRレジスタの設定値への変換 * 　演算の途中でオーバーフローしないようUW型を用いている */ Inline UB baud_to_brr(UW baud) { UB brr; if (baud > 38400ul) { brr = (UB)(((CPU_CLOCK+(16ul*baud)) / (32ul*baud))-1ul); } else { brr = (UB)((CPU_CLOCK / (32ul*baud))-1ul); } return brr; } /* * ボーレート設定後の待ち時間[nsec]を求めるマクロ * 　演算の途中でオーバーフローしないようUW型にキャストしている */ #define SCI_SETUP_TIME(b) (((1000000ul / (b)) + 1ul) * 1000ul) /* * SCI の初期化 */ void SCI_initialize (ID sioid) { const SIOPINIB *inib = get_siopinib(sioid); assert(inib != (SIOPINIB*)NULL); SCI_cls_por(inib->base); sil_wrb_mem((VP)(inib->base + H8SMR), (VB)(inib->smr_init)); /* ボーレート設定 */ sil_wrb_mem((VP)(inib->base + H8BRR), (VB)baud_to_brr(inib->baudrate)); /* 割込み禁止とクロックソースの選択 */ h8_anb_reg(inib->base + H8SCR, (UB)~(H8SCR_TIE | H8SCR_RIE | H8SCR_MPIE | H8SCR_TEIE | H8SCR_CKE1 | H8SCR_CKE0 )); /* ボーレートの設定後、1ビット分待たなければならない。*/ sil_dly_nse_long(SCI_SETUP_TIME(inib->baudrate)); /* エラーフラグをクリア */ h8_anb_reg(inib->base + H8SSR, (UB)~(H8SSR_ORER | H8SSR_FER | H8SSR_PER)); /* * プライオリティレベルの設定 * 本当は割込みコントローラ依存部分を分離すべき */ define_int_plevel(&(inib->irc)); /* 受信割り込みと送信割込みの許可はシリアル I/O で行う */ /* 送受信許可 */ h8_orb_reg(inib->base + H8SCR, (UB)(H8SCR_TE | H8SCR_RE)); } /* * SCI のクローズ */ void SCI_cls_por (UB *base) { UB ssr; /* TDRE が 1 になるまで待つ */ do { ssr = sil_reb_mem((VP)(base + H8SSR)); ssr &= H8SSR_TDRE; } while(ssr == 0u); /* 11ビット送信分待つ。*/ /* * 要検討：約1.2msec空回りするので、他の処理にCPUを * 　　　　譲った方が得策だが、非タスクコンテキストで * 　　　　呼ばれる可能性があるので、そのままにしている。 */ sil_dly_nse_long(SCI_SETUP_TIME(H8_MIN_BAUD_RATE)*11ul); /* 送受信停止 */ h8_anb_reg(base + H8SCR, (UB)(~(H8SCR_TIE | H8SCR_RIE | H8SCR_TE | H8SCR_RE))); } /* * SCI_in_handler -- SCI 入力割込みハンドラ */ void SCI_in_handler(ID sioid) { SIOPCB *pcb = get_siopcb(sioid); UB status = sil_reb_mem((VP)(pcb->inib->base + H8SSR)); UB flag = (UB)(status & (H8SSR_ORER | H8SSR_FER | H8SSR_PER)); if (flag != 0) { /* エラー処理 */ /* エラーフラグをクリア */ sil_wrb_mem((VP)(pcb->inib->base + H8SSR), (VB)(status & ~(H8SSR_ORER | H8SSR_FER | H8SSR_PER))); } flag = (UB)(status & H8SSR_RDRF); if (flag != 0) { if (pcb->openflag == TRUE) { /* 受信可能コールバックルーチンを呼出す。*/ SCI_ierdy_rcv(pcb->exinf); } else { sil_wrb_mem((VP)(pcb->inib->base + H8SSR), (VB)(status & ~H8SSR_RDRF)); } } } /* * SCI_out_handler -- SCI 出力割込みハンドラ */ void SCI_out_handler(ID sioid) { SIOPCB *pcb; pcb = get_siopcb(sioid); if (pcb->openflag == TRUE) { /* 送信可能コールバックルーチンを呼出す。*/ SCI_ierdy_snd(pcb->exinf); } } #ifdef H8_CFG_SCI_ERR_HANDLER /* * SCI_err_handler -- SCI エラー入力割込みハンドラ */ void SCI_err_handler(ID sioid) { SIOPCB *pcb; UB status; pcb = get_siopcb(sioid); status = sil_reb_mem((VP)(pcb->inib->base + H8SSR)); if (status & (H8SSR_ORER | H8SSR_FER | H8SSR_PER)) { /* エラー処理 */ /* エラーフラグをクリア */ sil_wrb_mem((VP)(pcb->inib->base + H8SSR), status & ~(H8SSR_ORER | H8SSR_FER | H8SSR_PER)); } } #endif /* of #ifdef H8_CFG_SCI_ERR_HANDLER */ /* * sio_initialize -- シリアルポートドライバの初期化 */ void sio_initialize(void) { INT ix; /* SIO 管理ブロックの初期化 */ for (ix = 0; ix < TNUM_PORT; ix++) { siopcb_table[ix].inib = &siopinib_table[ix]; siopcb_table[ix].openflag = FALSE; } } /* * sio_ena_cbr -- シリアル I/O からのコールバックの許可 */ void sio_ena_cbr(SIOPCB *pcb, UINT cbrtn) { switch (cbrtn) { case SIO_ERDY_SND: SCI_enable_send(pcb); break; case SIO_ERDY_RCV: SCI_enable_recv(pcb); break; default: assert(FALSE); } } /* * sio_dis_cbr -- シリアル I/O からのコールバックの禁止 */ void sio_dis_cbr(SIOPCB *pcb, UINT cbrtn) { switch (cbrtn) { case SIO_ERDY_SND: SCI_disable_send(pcb); break; case SIO_ERDY_RCV: SCI_disable_recv(pcb); break; default: assert(FALSE); } } /* * SCI 割り込み */ void sio_in_handler (void) { SCI_in_handler(SCI_PORTID1); } void sio_out_handler (void) { SCI_out_handler(SCI_PORTID1); } #ifdef H8_CFG_SCI_ERR_HANDLER void sio_err_handler (void) { SCI_err_handler(SCI_PORTID1); } #endif /* of #ifdef H8_CFG_SCI_ERR_HANDLER */ #if TNUM_PORT >= 2u void sio_in2_handler (void) { SCI_in_handler(SCI_PORTID2); } void sio_out2_handler (void) { SCI_out_handler(SCI_PORTID2); } #ifdef H8_CFG_SCI_ERR_HANDLER void sio_err2_handler (void) { SCI_err_handler(SCI_PORTID2); } #endif /* of #ifdef H8_CFG_SCI_ERR_HANDLER */ #endif /* of #if TNUM_PORT >= 2u */