source: asp3_wo_tecs/trunk/extension/dcre/kernel/interrupt.tf@ 302

$
$   TOPPERS/ASP Kernel
$       Toyohashi Open Platform for Embedded Real-Time Systems/
$       Advanced Standard Profile Kernel
$ 
$   Copyright (C) 2007 by TAKAGI Nobuhisa
$   Copyright (C) 2007-2015 by Embedded and Real-Time Systems Laboratory
$               Graduate School of Information Science, Nagoya Univ., JAPAN
$ 
$   上記著作権者
は，以下の(1)〜(4)ã®æ¡ä»¶ã‚’æº€ãŸã™å ´åˆã«é™ã‚Šï¼Œæœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§
$   ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
$   変・再é…
å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
$   (1) æœ¬ã‚½ãƒ•ãƒˆã‚¦ã‚§ã‚¢ã‚’ã‚½ãƒ¼ã‚¹ã‚³ãƒ¼ãƒ‰ã®å½¢ã§åˆ©ç”¨ã™ã‚‹å ´åˆã«ã¯ï¼Œä¸Šè¨˜ã®è‘—ä½œ
$       権表示，この利用条件および下記の無保証規定が，そのままの形でソー
$       スコード中に含まれていること．
$   (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
$       用できる形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
$       者
マニュアルなど）に，上記の著作権表示，この利用条件および下記
$       の無保証規定を掲載すること．
$   (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
$       用できない形で再é…
å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
$       と．
$     (a) 再é…
å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
マニュアルなど）に，上記の著
$         作権表示，この利用条件および下記の無保証規定を掲載すること．
$     (b) 再é…
å¸ƒã®å½¢æ…
‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
$         å ±å‘Šã™ã‚‹ã“ã¨ï¼Ž
$   (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
$       害からも，上記著作権者
およびTOPPERSプロジェクトをå…
è²¬ã™ã‚‹ã“と．
$       また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
$       由に基づく請求からも，上記著作権者
およびTOPPERSプロジェクトを
$       å…
è²¬ã™ã‚‹ã“と．
$ 
$   本ソフトウェアは，無保証で提供されているものである．上記著作権者
お
$   よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
$   に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
$   アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
$   ã®è²¬ä»»ã‚’è² ã‚ãªã„ï¼Ž
$ 
$   $Id: interrupt.tf 480 2016-01-03 07:37:12Z ertl-hiro $
$ 

$
$               割込み管理機能のテンプレートファイル
$

$
$  AID_ISRの処理
$
$num_aisrid = 0$
$FOREACH i AISR.ORDER_LIST$
$       // noisrãŒè² ã®å ´åˆï¼ˆE_PAR）
        $IF AISR.NOISR[i] < 0$
                $ERROR AISR.TEXT_LINE[i]$E_PAR:$SPC$
                        $FORMAT(_("illegal %1% `%2%\' in %3%"),
                                                                        "noisr", AISR.NOISR[i], "AID_ISR")$
                $END$
        $END$
        $num_aisrid = num_aisrid + AISR.NOISR[i]$
$END$
$num_isrid = LENGTH(ISR.ID_LIST) + num_aisrid$

$
$  kernel_cfg.hの生成
$
$FILE "kernel_cfg.h.new"$

#define TNUM_ISRID      $num_isrid$$NL$
$FOREACH id ISR.ID_LIST$
        #define $id$    $+id$$NL$
$END$

$
$  kernel_cfg.cの生成
$
$FILE "kernel_cfg.c"$

/*$NL$
$SPC$*  Interrupt Management Functions$NL$
$SPC$*/$NL$
$NL$

$
$  CRE_ISRで使用できる割込み番号とそれに対応する割込みハンドラ番号のデフォ
$  ルト定義
$
$IF !LENGTH(INTNO_CREISR_VALID)$
        $INTNO_CREISR_VALID = INTNO_VALID$
$END$
$IF !LENGTH(INHNO_CREISR_VALID)$
        $INHNO_CREISR_VALID = INHNO_VALID$
$END$

$
$  CFG_INTで使用できる割込み優å…
ˆåº¦ã®ãƒ‡ãƒ•ã‚©ãƒ«ãƒˆå®šç¾©
$ 
$IF !LENGTH(INTPRI_CFGINT_VALID)$
        $INTPRI_CFGINT_VALID = RANGE(TMIN_INTPRI, TMAX_INTPRI)$
$END$

$
$  割込み番号と割込みハンドラ番号の変換テーブルの作成
$
$IF LENGTH(INTNO_CREISR_VALID) != LENGTH(INHNO_CREISR_VALID)$
        $ERROR$length of `INTNO_CREISR_VALID' is different from length of `INHNO_CREISR_VALID'$END$
$END$
$i = 0$
$FOREACH intno INTNO_CREISR_VALID$
        $inhno = AT(INHNO_CREISR_VALID, i)$
        $INHNO[intno] = inhno$
        $INTNO[inhno] = intno$
        $i = i + 1$
$END$

$
$  割込み要求ラインに関するエラーチェック
$
$ INTNO_LIST：処理済みの割込み番号のリスト（ここでのみ使用）
$
$FOREACH intno INT.ORDER_LIST$
$       // intnoãŒå‰²è¾¼ã¿ç•ªå·ã¨ã—ã¦æ­£ã—ããªã„å ´åˆï¼ˆE_PAR）［NGKI2972ï¼½
        $IF !LENGTH(FIND(INTNO_VALID, INT.INTNO[intno]))$
                $ERROR INT.TEXT_LINE[intno]$E_PAR:$SPC$
                        $FORMAT(_("illegal %1% `%2%\' in %3%"),
                                                "intno", INT.INTNO[intno], "CFG_INT")$
                $END$
        $END$

$       // intnoがCFG_INTã«ã‚ˆã£ã¦è¨­å®šæ¸ˆã¿ã®å ´åˆï¼ˆE_OBJ）［NGKI2976ï¼½
        $IF LENGTH(FIND(INTNO_LIST, INT.INTNO[intno]))$
                $ERROR INT.TEXT_LINE[intno]$E_OBJ:$SPC$
                        $FORMAT(_("%1% `%2%\' in %3% is duplicated"),
                                                "intno", INT.INTNO[intno], "CFG_INT")$
                $END$
        $END$

$       // intatrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）［NGKI2969ï¼½
$       //（TA_ENAINT，TA_EDGE，TARGET_INTATRä»¥å¤–ã®ãƒ“ãƒƒãƒˆãŒã‚»ãƒƒãƒˆã•ã‚Œã¦ã„ã‚‹å ´åˆï¼‰
        $IF (INT.INTATR[intno] & ~(TA_ENAINT|TA_EDGE|TARGET_INTATR)) != 0$
                $ERROR INT.TEXT_LINE[intno]$E_RSATR:$SPC$
                        $FORMAT(_("illegal %1% `%2%\' of %3% `%4%\' in %5%"),
                                                "intatr", INT.INTATR[intno], "intno",
                                                INT.INTNO[intno], "CFG_INT")$
                $END$
        $END$

$       // intpriがCFG_INTに対する割込み優å…
ˆåº¦ã¨ã—ã¦æ­£ã—ããªã„å ´åˆï¼ˆE_PAR）
$       // ï¼»NGKI2973ï¼½
        $IF !LENGTH(FIND(INTPRI_CFGINT_VALID, INT.INTPRI[intno]))$
                $ERROR INT.TEXT_LINE[intno]$E_PAR:$SPC$
                        $FORMAT(_("illegal %1% `%2%\' in %3%"),
                                                "intpri", INT.INTPRI[intno], "CFG_INT")$
                $END$
        $END$

$       // カーネル管理外に固定されているintnoに対して，intpriにTMIN_INTPRI
$       // ã‚ˆã‚Šã‚‚å°ã•ã„å€¤ãŒæŒ‡å®šã•ã‚Œãªã‹ã£ãŸå ´åˆï¼ˆE_OBJ）［NGKI2983ï¼½
        $IF LENGTH(FIND(INTNO_FIX_NONKERNEL, intno))$
                $IF INT.INTPRI[intno] >= TMIN_INTPRI$
                        $ERROR INT.TEXT_LINE[intno]$E_OBJ:$SPC$
                                $FORMAT(_("%1% `%2%\' must have higher priority than %3%"),
                                                        "intno", INT.INTNO[intno], "TMIN_INTPRI")$
                        $END$
                $END$
        $END$

$       // カーネル管理に固定されているintnoに対して，intpriにTMIN_INTPRI
$       // ã‚ˆã‚Šã‚‚å°ã•ã„å€¤ãŒæŒ‡å®šã•ã‚ŒãŸå ´åˆï¼ˆE_OBJ）［NGKI2984ï¼½
        $IF LENGTH(FIND(INTNO_FIX_KERNEL, intno))$
                $IF INT.INTPRI[intno] < TMIN_INTPRI$
                        $ERROR INT.TEXT_LINE[intno]$E_OBJ:$SPC$
                                $FORMAT(_("%1% `%2%\' must not have higher priority than %3%"),
                                                        "intno", INT.INTNO[intno], "TMIN_INTPRI")$
                        $END$
                $END$
        $END$

        $INTNO_LIST = APPEND(INTNO_LIST, INT.INTNO[intno])$
$END$

$
$  割込みハンドラに関するエラーチェック
$
$ INHNO_LIST：処理済みの割込みハンドラ番号のリスト（ここでのみ使用）
$
$FOREACH inhno INH.ORDER_LIST$
$       // inhnoãŒå‰²è¾¼ã¿ãƒãƒ³ãƒ‰ãƒ©ç•ªå·ã¨ã—ã¦æ­£ã—ããªã„å ´åˆï¼ˆE_PAR）［NGKI3055ï¼½
        $IF !LENGTH(FIND(INHNO_VALID, INH.INHNO[inhno]))$
                $ERROR INH.TEXT_LINE[inhno]$E_PAR:$SPC$
                        $FORMAT(_("illegal %1% `%2%\' in %3%"),
                                                "inhno", INH.INHNO[inhno], "DEF_INH")$
                $END$
        $END$

$       // inhnoがDEF_INHã«ã‚ˆã£ã¦è¨­å®šæ¸ˆã¿ã®å ´åˆï¼ˆE_OBJ）［NGKI3063ï¼½
        $IF LENGTH(FIND(INHNO_LIST, INH.INHNO[inhno]))$
                $ERROR INH.TEXT_LINE[inhno]$E_OBJ:$SPC$
                        $FORMAT(_("%1% `%2%\' in %3% is duplicated"),
                                                "inhno", INH.INHNO[inhno], "DEF_INH")$
                $END$
        $END$

$       // inhatrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）［NGKI3052ï¼½
$       //（TARGET_INHATRä»¥å¤–ã®ãƒ“ãƒƒãƒˆãŒã‚»ãƒƒãƒˆã•ã‚Œã¦ã„ã‚‹å ´åˆï¼‰
        $IF (INH.INHATR[inhno] & ~TARGET_INHATR) != 0$
                $ERROR INH.TEXT_LINE[inhno]$E_RSATR:$SPC$
                        $FORMAT(_("illegal %1% `%2%\' of %3% `%4%\' in %5%"),
                                                "inhatr", INH.INHATR[inhno], "inhno",
                                                INH.INHNO[inhno], "DEF_INH")$
                $END$
        $END$

$       // カーネル管理外に固定されているinhnoに対して，inhatrにTA_NONKERNEL
$       // ãŒæŒ‡å®šã•ã‚Œã¦ã„ãªã„å ´åˆï¼ˆE_RSATR）［NGKI3067ï¼½
        $IF LENGTH(FIND(INHNO_FIX_NONKERNEL, inhno))$
                $IF (INH.INHATR[inhno] & TA_NONKERNEL) == 0$
                        $ERROR INH.TEXT_LINE[inhno]$E_RSATR:$SPC$
                                $FORMAT(_("%1% `%2%\' must be non-kernel interrupt"),
                                                        "inhno", INH.INHNO[inhno])$
                        $END$
                $END$
        $END$

$       // カーネル管理に固定されているinhnoに対して，inhatrにTA_NONKERNEL
$       //ã€€ãŒæŒ‡å®šã•ã‚Œã¦ã„ã‚‹å ´åˆï¼ˆE_RSATR）［NGKI3068ï¼½
        $IF LENGTH(FIND(INHNO_FIX_KERNEL, inhno))$
                $IF (INH.INHATR[inhno] & TA_NONKERNEL) != 0$
                        $ERROR INH.TEXT_LINE[inhno]$E_RSATR:$SPC$
                                $FORMAT(_("%1% `%2%\' must not be non-kernel interrupt"),
                                                        "inhno", INH.INHNO[inhno])$
                        $END$
                $END$
        $END$

        $IF LENGTH(INTNO[INH.INHNO[inhno]])$
                $intno = INTNO[INH.INHNO[inhno]]$
$               // inhnoに対応するintnoに対するCFG_INTãŒãªã„å ´åˆï¼ˆE_OBJ）［NGKI3062ï¼½
                $IF !LENGTH(INT.INTNO[intno])$
                        $ERROR INH.TEXT_LINE[inhno]$E_OBJ:$SPC$
                                $FORMAT(_("%1% `%2%\' corresponding to %3% `%4%\' is not configured with %5%"),
                                                "intno", intno, "inhno", INH.INHNO[inhno], "CFG_INT")$
                        $END$
                $ELSE$
                        $IF (INH.INHATR[inhno] & TA_NONKERNEL) == 0$
$                               // inhatrにTA_NONKERNELが指定されておらず，inhnoに対応
$                               // するintnoに対してCFG_INTで設定された割込み優å…
ˆåº¦ãŒ
$                               // TMIN_INTPRIã‚ˆã‚Šã‚‚å°ã•ã„å ´åˆï¼ˆE_OBJ）［NGKI3065ï¼½
                                $IF INT.INTPRI[intno] < TMIN_INTPRI$
                                        $ERROR INT.TEXT_LINE[intno]$E_OBJ:$SPC$
                                                $FORMAT(_("%1% `%2%\' configured for %3% `%4%\' is higher than %5%"),
                                                                        "intpri", INT.INTPRI[intno], "inhno",
                                                                        INH.INHNO[inhno], "TMIN_INTPRI")$
                                        $END$
                                $END$
                        $ELSE$
$                               // inhatrにTA_NONKERNELが指定されており，inhnoに対応
$                               // するintnoに対してCFG_INTで設定された割込み優å…
ˆåº¦ãŒ
$                               // TMIN_INTPRIä»¥ä¸Šã§ã‚ã‚‹å ´åˆï¼ˆE_OBJ）［NGKI3066ï¼½
                                $IF INT.INTPRI[intno] >= TMIN_INTPRI$
                                        $ERROR INT.TEXT_LINE[intno]$E_OBJ:$SPC$
                                                $FORMAT(_("%1% `%2%\' configured for %3% `%4%\' is lower than or equal to %5%"),
                                                                        "intpri", INT.INTPRI[intno], "inhno",
                                                                        INH.INHNO[inhno], "TMIN_INTPRI")$
                                        $END$
                                $END$
                        $END$
                $END$
        $END$

        $INHNO_LIST = APPEND(INHNO_LIST, INH.INHNO[inhno])$
$END$

$
$  割込みサービスルーチン（ISR）に関するエラーチェック
$
$FOREACH id ISR.ID_LIST$
$       // isratrãŒç„¡åŠ¹ã®å ´åˆï¼ˆE_RSATR）［NGKI2998ï¼½
$       //（TARGET_ISRATRä»¥å¤–ã®ãƒ“ãƒƒãƒˆãŒã‚»ãƒƒãƒˆã•ã‚Œã¦ã„ã‚‹å ´åˆï¼‰
        $IF (ISR.ISRATR[id] & ~TARGET_ISRATR) != 0$
                $ERROR ISR.TEXT_LINE[id]$E_RSATR:$SPC$
                        $FORMAT(_("illegal %1% `%2%\' in %3%"),
                                                "isratr", ISR.ISRATR[id], "CRE_ISR")$
                $END$
        $END$

$       // intnoがCRE_ISRã«å¯¾ã™ã‚‹å‰²è¾¼ã¿ç•ªå·ã¨ã—ã¦æ­£ã—ããªã„å ´åˆï¼ˆE_PAR）
$       // ï¼»NGKI3003ï¼½
        $IF !LENGTH(FIND(INTNO_CREISR_VALID, ISR.INTNO[id]))$
                $ERROR ISR.TEXT_LINE[id]$E_PAR:$SPC$
                        $FORMAT(_("illegal %1% `%2%\' in %3%"),
                                                "intno", ISR.INTNO[id], "CRE_ISR")$
                $END$
        $END$

$       // (TMIN_ISRPRI <= isrpri && isrpri <= TMAX_ISRPRI)ã§ãªã„å ´åˆï¼ˆE_PAR）
$       // ï¼»NGKI3005ï¼½
        $IF !(TMIN_ISRPRI <= ISR.ISRPRI[id] && ISR.ISRPRI[id] <= TMAX_ISRPRI)$
                $ERROR ISR.TEXT_LINE[id]$E_PAR:$SPC$
                        $FORMAT(_("illegal %1% `%2%\' in %3%"),
                                                "isrpri", ISR.ISRPRI[id], "CRE_ISR")$
                $END$
        $END$
$END$

$FOREACH intno INTNO_CREISR_VALID$
        $inhno = INHNO[intno]$

$       // 割込み番号intnoに対して登録されたISRのリストの作成
        $isrid_list = {}$
        $FOREACH id ISR.ID_LIST$
                $IF ISR.INTNO[id] == intno$
                        $isrid_list = APPEND(isrid_list, id)$
                        $id_for_error = id$
                $END$
        $END$

$       // 割込み番号intnoに対して登録されたISRãŒå­˜åœ¨ã™ã‚‹å ´åˆ
        $IF LENGTH(isrid_list) > 0$
$               // intnoに対応するinhnoに対してDEF_INHãŒã‚ã‚‹å ´åˆï¼ˆE_OBJ）［NGKI3013ï¼½
                $IF LENGTH(INH.INHNO[inhno])$
                        $ERROR ISR.TEXT_LINE[id_for_error]$E_OBJ:$SPC$
                                $FORMAT(_("%1% `%2%\' in %3% is duplicated with %4% `%5%\'"),
                                                        "intno", ISR.INTNO[id_for_error],
                                                        "CRE_ISR", "inhno", INH.INHNO[inhno])$
                        $END$
                $END$

$               // intnoに対するCFG_INTãŒãªã„å ´åˆï¼ˆE_OBJ）［NGKI3012ï¼½
                $IF !LENGTH(INT.INTNO[intno])$
                        $ERROR ISR.TEXT_LINE[id_for_error]$E_OBJ:$SPC$
                                $FORMAT(_("%1% `%2%\' is not configured with %3%"),
                                                        "intno", ISR.INTNO[id_for_error], "CFG_INT")$
                        $END$
                $ELSE$
$                       // intnoに対してCFG_INTで設定された割込み優å…
ˆåº¦ãŒTMIN_INTPRI
$                       // ã‚ˆã‚Šã‚‚å°ã•ã„å ´åˆï¼ˆE_OBJ）［NGKI3014ï¼½
                        $IF INT.INTPRI[intno] < TMIN_INTPRI$
                                $ERROR INT.TEXT_LINE[intno]$E_OBJ:$SPC$
                                        $FORMAT(_("%1% `%2%\' configured for %3% `%4%\' is higher than %5%"),
                                                                "intpri", INT.INTPRI[intno], "intno",
                                                                ISR.INTNO[id_for_error], "TMIN_INTPRI")$
                                $END$
                        $END$
                $END$
        $END$
$END$

$
$  割込みサービスルーチン（ISRï¼‰ç®¡ç†ã®ãƒ‡ãƒ¼ã‚¿æ§‹é€ 
$
$intno_isr_list = {}$
$FOREACH intno INTNO_CREISR_VALID$
        $inhno = INHNO[intno]$
        $IF LENGTH(INT.INTNO[intno]) && !LENGTH(INH.INHNO[inhno])$
                $intno_isr_list = APPEND(intno_isr_list, intno)$
        $END$
$END$

$INTNO_ISR = {}$
$i = 0$
$FOREACH intno SORT(intno_isr_list, "INT.INTNO")$
        $INTNO_ISR = APPEND(INTNO_ISR, intno)$
        $ISR_QUEUE_HEADER[intno] = FORMAT("&(_kernel_isr_queue_table[%d])", i)$
        $i = i + 1$
$END$

const uint_t _kernel_tnum_isr_queue = $LENGTH(INTNO_ISR)$;$NL$
$NL$

$IF LENGTH(INTNO_ISR)$
        const ISR_ENTRY _kernel_isr_queue_list[$LENGTH(INTNO_ISR)$] = {$NL$
        $JOINEACH intno INTNO_ISR ",\n"$
                $TAB${ $intno$, $ISR_QUEUE_HEADER[intno]$ }
        $END$$NL$
        };$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(QUEUE, _kernel_isr_queue_table);$NL$
$END$$NL$

$IF LENGTH(INTNO_ISR)$
        QUEUE _kernel_isr_queue_table[$LENGTH(INTNO_ISR)$];$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(QUEUE, _kernel_isr_queue_table);$NL$
$END$$NL$

$
$  割込みサービスルーチン（ISR）呼出しのための割込みハンドラ
$
$FOREACH intno INTNO_ISR$
        $inhno = INHNO[intno]$

$       // DEF_INH(inhno, { TA_NULL, _kernel_inthdr_<intno> } );
        $INH.INHNO[inhno] = inhno$
        $INH.INHATR[inhno] = VALUE("TA_NULL", 0)$
        $INH.INTHDR[inhno] = CONCAT("_kernel_inthdr_", intno)$
        $INH.ORDER_LIST = APPEND(INH.ORDER_LIST, inhno)$

$       // ISR用の割込みハンドラ
        void$NL$
        _kernel_inthdr_$intno$(void)$NL$
        {$NL$
        $TAB$_kernel_call_isr($ISR_QUEUE_HEADER[intno]$);$NL$
        }$NL$
        $NL$
$END$

$
$  静的に生成された割込みサービスルーチンの数
$
#define TNUM_SISRID     $LENGTH(ISR.ID_LIST)$$NL$
$NL$

$
$  割込みサービスルーチンID番号の最大値
$
const ID _kernel_tmax_isrid = (TMIN_ISRID + TNUM_ISRID - 1);$NL$
const ID _kernel_tmax_sisrid = (TMIN_ISRID + TNUM_SISRID - 1);$NL$
$NL$

$
$  割込みサービスルーチン初期化ブロックの生成
$
$IF LENGTH(ISR.ID_LIST)$
        const ISRINIB _kernel_isrinib_table[TNUM_SISRID] = {$NL$
        $JOINEACH id ISR.ID_LIST ",\n"$
                $TAB${$SPC$
                ($ISR.ISRATR[id]$), ($ISR.EXINF[id]$),$SPC$
                ($ISR_QUEUE_HEADER[ISR.INTNO[id]]$),$SPC$
                (ISR)($ISR.ISR[id]$), ($ISR.ISRPRI[id]$)$SPC$
                }$END$$NL$
        };$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(const ISRINIB, _kernel_isrinib_table);$NL$
$END$
$NL$

$
$  動的生成割込みサービスルーチン用の割込みサービスルーチン初期化ブロック
$
$IF num_aisrid > 0$
        ISRINIB _kernel_aisrinib_table[$num_aisrid$];$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(ISRINIB, _kernel_aisrinib_table);$NL$
$END$
$NL$

$
$  割込みサービスルーチン管理ブロック
$
$IF num_isrid > 0$
        ISRCB _kernel_isrcb_table[TNUM_ISRID];$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(ISRCB, _kernel_isrcb_table);$NL$
$END$
$NL$

$
$  割込みハンドラのための標準的な初期化情
å ±ã®ç”Ÿæˆ
$
$IF !OMIT_INITIALIZE_INTERRUPT || USE_INHINIB_TABLE$

$
$  定義する割込みハンドラの数
$
#define TNUM_DEF_INHNO  $LENGTH(INH.ORDER_LIST)$$NL$
const uint_t _kernel_tnum_def_inhno = TNUM_DEF_INHNO;$NL$
$NL$

$
$  割込みハンドラのエントリ
$
$FOREACH inhno INH.ORDER_LIST$
        $IF (INH.INHATR[inhno] & TA_NONKERNEL) == 0$
                INTHDR_ENTRY($INH.INHNO[inhno]$, $+INH.INHNO[inhno]$,$SPC$
                                                                                                $INH.INTHDR[inhno]$)$NL$
        $END$
$END$$NL$

$
$  割込みハンドラ初期化ブロック
$
$IF LENGTH(INH.ORDER_LIST)$
        const INHINIB _kernel_inhinib_table[TNUM_DEF_INHNO] = {$NL$
        $JOINEACH inhno INH.ORDER_LIST ",\n"$
                $TAB${$SPC$
                        ($INH.INHNO[inhno]$),$SPC$
                        ($INH.INHATR[inhno]$),$SPC$
                        $IF (INH.INHATR[inhno] & TA_NONKERNEL) == 0$
                                (FP)(INT_ENTRY($INH.INHNO[inhno]$, $INH.INTHDR[inhno]$))
                        $ELSE$
                                (FP)($INH.INTHDR[inhno]$)
                        $END$$SPC$
                }$END$$NL$
        };$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(const INHINIB, _kernel_inhinib_table);$NL$
$END$$NL$
$END$

$
$  割込み要求ラインのための標準的な初期化情
å ±ã®ç”Ÿæˆ
$
$IF !OMIT_INITIALIZE_INTERRUPT || USE_INTINIB_TABLE$

$
$  設定する割込み要求ラインの数
$
#define TNUM_CFG_INTNO  $LENGTH(INT.ORDER_LIST)$$NL$
const uint_t _kernel_tnum_cfg_intno = TNUM_CFG_INTNO;$NL$
$NL$

$
$  割込み要求ライン初期化ブロック
$
$IF LENGTH(INT.ORDER_LIST)$
        const INTINIB _kernel_intinib_table[TNUM_CFG_INTNO] = {$NL$
        $JOINEACH intno INT.ORDER_LIST ",\n"$
                $TAB${$SPC$
                        ($INT.INTNO[intno]$),$SPC$
                        ($INT.INTATR[intno]$),$SPC$
                        ($INT.INTPRI[intno]$)$SPC$
                }$END$$NL$
        };$NL$
$ELSE$
        TOPPERS_EMPTY_LABEL(const INTINIB, _kernel_intinib_table);$NL$
$END$$NL$
$END$

$
$  割込み管理機能初期化関数
$
$initfuncs = APPEND(initfuncs, "_kernel_initialize_interrupt();")$
$IF num_isrid > 0$
        $initfuncs = APPEND(initfuncs, "_kernel_initialize_isr();")$
$END$