/*---------------------------------------------------------------
*  micro:bitのデバイスIDの表示(μT-Kernel 3.0用)
*
*  Copyright (C) 2022-2024 by T3 WG of TRON Forum
*---------------------------------------------------------------*/
#include 
#include 

//-------- ボードIDの取得 ---------------------------------------
#define NRF5_FICR_BASE  0x10000000
#define DEVICEID_0      0x060       // Device identifier 0
#define DEVICEID_1      0x064       // Device identifier 1

// メインボード用micro:bitの実際のデバイスID
const W main_devid0 = 0x01234567;   // (★要設定★)
const W main_devid1 = 0x89abcdef;   // (★要設定★)

W devid0, devid1;                   // 実行中のmicro:bitのデバイスID

// 自分自身がメインボードの場合にTRUEを返す関数(※B)
LOCAL BOOL is_main_board(){
   return(devid0 == main_devid0 && devid1 == main_devid1);
}

// ボードのデバイスIDを取得してコンソールに表示
LOCAL void get_device_id(void)
{
   // DEVICE[0]の読み出し(※A)
   devid0 = in_w(NRF5_FICR_BASE + DEVICEID_0);
   // DEVICE[1]の読み出し(※A)
   devid1 = in_w(NRF5_FICR_BASE + DEVICEID_1);

   tm_printf("This devid_0_1: %08x_%08x\n", devid0, devid1);
   tm_printf("Main devid_0_1: %08x_%08x\n", main_devid0,
   main_devid1);
   if(is_main_board())
       tm_printf("This is MAIN board, P0TX_P1RX\n\n");
   else
       tm_printf("This is  SUB board, P1TX_P0RX\n\n");
}

//---------------------------------------------------------------
EXPORT void usermain( void ){

   get_device_id();        // デバイスIDの取得と表示
   tk_slp_tsk(TMO_FEVR);   // 永久待ち、以下は実行しない
}

microT-Kernel Version 3.00

This devid_0_1: 01234567_89abcdef
Main devid_0_1: 01234567_89abcdef
This is MAIN board, P0TX_P1RX
       

//-------- 割込み許可を含めたUARTE1の初期化とピン設定 -----------
//          最後の割込み許可以外は連載第13回のinit_uarte1と同じ
LOCAL void init_uarte1(INT pin_txd, INT pin_rxd)
{
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
    // EVENTS_ENDTXとEVENTS_ENDRXの割込み許可の設定
    out_w(UARTE(1, INTEN), 0x00000110);
}

//-------- UARTE1からtxdatの1バイトを送信開始(※C) --------------
//          ボタン状態変化により呼ばれる
LOCAL void uarte1_start_tx1(UB txdat){

    // 送信バッファの排他制御(※D)
    tk_wai_sem(semid, 1, TMO_FEVR);

    // 送信データを送信バッファに格納
    txbuf[0] = txdat;

    // 送信バッファ先頭アドレス
    out_w(UARTE(1, TXD_PTR), (UW) txbuf);
    // 送信するバイト数
    out_w(UARTE(1, TXD_MAXCNT), 1);

    // 送信終了フラグのクリア
    out_w(UARTE(1, EVENTS_ENDTX), 0);
    // 送信開始
    out_w(UARTE(1, TASKS_STARTTX), 1);
}

//-------- UARTE1で1バイトの受信開始(※E) -----------------------
//          起動後および受信完了の割込みハンドラから呼ばれる
LOCAL void uarte1_start_rx1(){
    // 受信バッファ先頭アドレス
    out_w(UARTE(1, RXD_PTR), (UW) rxbuf);
    // 受信するバイト数
    out_w(UARTE(1, RXD_MAXCNT), 1);

    // 受信終了フラグのクリア
    out_w(UARTE(1, EVENTS_ENDRX), 0);
    // 受信開始
    out_w(UARTE(1, TASKS_STARTRX), 1);
}

//-------- UARTE1の送信完了と受信完了の割込みハンドラ -----------
//          送信完了と受信完了が同時に起こる可能性もあるので、
//          8ビットの送信データと受信データを1つの16ビットデータに
//          まとめてからset_flgで送る
LOCAL void uarte1_inthdr(UINT intno)
{
    // 受信データと送信データを入れてset_flgで送る変数
    UW      txrxdat = 0;
    // 送信バッファまたは受信バッファの先頭アドレス
    _UB*    txrxadr;

    // 受信完了の割込みの場合(※F)
    if(in_w(UARTE(1, EVENTS_ENDRX))){
        txrxadr = (_UB *) in_w(UARTE(1, RXD_PTR));
        // 下位8ビットに受信データを格納
        txrxdat |= (UW) txrxadr[0];
        // 次の受信の準備(※G)
        uarte1_start_rx1();
    }

    // 送信完了の割込みの場合(※H)
    if(in_w(UARTE(1, EVENTS_ENDTX))){
        txrxadr = (_UB *) in_w(UARTE(1, TXD_PTR));

        // txrxdatの上位8ビットに送信データを格納(※J)
        txrxdat |= ((UW) txrxadr[0] << 8);

        // 送信終了フラグのクリア(※K)
        out_w(UARTE(1, EVENTS_ENDTX), 0);
        // 送信バッファの排他制御を解除(※L)
        tk_sig_sem(semid, 1);
    }

    // 受信データと送信データの通知(※M)
    tk_set_flg(flgid, txrxdat);
}

/*---------------------------------------------------------------
 *  割込みを使ったUARTE通信の動作確認(μT-Kernel 3.0用)
 *
 *  Copyright (C) 2022-2024 by T3 WG of TRON Forum
 *---------------------------------------------------------------*/
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
// UARTEの送信データと受信データを入れるバッファメモリ
#define MAXBUF  2
static _UB  txbuf[MAXBUF];
static _UB  rxbuf[MAXBUF];

LOCAL ID    flgid;                  // 割込み通知用イベントフラグのID
LOCAL ID    semid;               // 送信バッファ排他制御用セマフォのID
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
// 以前のボタンの状態を保持する変数
LOCAL BOOL prev_a = FALSE;
LOCAL BOOL prev_b = FALSE;

//---------------------------------------------------------------
// ボタンスイッチの状態をチェック(※P)
LOCAL void check2_btn(BOOL new_btn, BOOL *prev_btn, UB btnchr)
{
    UB actchr;

    // 状態変化が無ければ何もせずに戻る
    if(new_btn ==  *prev_btn) return;

    *prev_btn = new_btn;

    if(new_btn){                        // ボタンが押された場合
        uarte1_start_tx1(btnchr);    // btnchrのデータをUARTE1で送信
    }
}

// ボタンスイッチの入力判定を行う送信側タスク(※N)
LOCAL void btn_tx_task(INT stacd, void *exinf){
    UW gpio_p0in;
    BOOL btn_a, btn_b;

    for (;;) {              		// 約100msごとに永久に繰り返し

        // GPIO P0のINレジスタを読んでgpio_p0inに設定
        gpio_p0in = in_w(GPIO(P0, IN));

        // P0.14が0の場合にTRUE
        btn_a = ((gpio_p0in & (1 << 14)) == 0);
        // P0.23が0の場合にTRUE
        btn_b = ((gpio_p0in & (1 << 23)) == 0);

        // ボタンAの変化のチェックと送信
        check2_btn(btn_a, &prev_a, 'A');
        // ボタンBの変化のチェックと送信
        check2_btn(btn_b, &prev_b, 'B');

        tk_dly_tsk(100);                    	// 100msのディレイ
    }
}

// 表示できない文字を '.' に変換する関数
LOCAL UINT disp_ch(UINT ch){
    ch &= 0xff;
    if(ch < ' ' || ch > '~')    return('.');
    else                        return(ch);
}

// イベントフラグで通知された値を表示する受信側タスク(※Q)
LOCAL void flg_rx_task(INT stacd, void *exinf){
    UINT flgptn;
    UB  txchr, rxchr;

    for (;;) {              		// 永久に繰り返し

        // 割込み通知用イベントフラグの下位2バイトをOR待ち
        tk_wai_flg(flgid, 0xffff, (TWF_ORW | TWF_CLR), &flgptn,
        TMO_FEVR);

        // 送信データをtxchrに入れる(※R)
        txchr = (flgptn >> 8) & 0xff;
        // 受信データをrxchrに入れる
        rxchr = flgptn & 0xff;

        tm_printf("flg_rx_task: dat=%04x, tx='%c', rx='%c'\n",
            (UINT) flgptn, disp_ch(txchr), disp_ch(rxchr));
    }
}

//---------------------------------------------------------------
// タスクのオブジェクトID番号
ID txtskid;             // 送信側タスク
ID rxtskid;             // 受信側タスク

// タスク、イベントフラグ、セマフォの生成情報
const T_CTSK ctxtsk = {0, (TA_HLNG | TA_RNG3), &btn_tx_task,
  10, 1024, 0};
const T_CTSK crxtsk = {0, (TA_HLNG | TA_RNG3), &flg_rx_task,
  10, 1024, 0};
const T_CFLG cflg = {0, (TA_TFIFO | TA_WSGL), 0};
const T_CSEM csem = {0, (TA_TFIFO | TA_FIRST ), 1, 1};

// 割込みハンドラ定義情報
const T_DINT dint_uarte = {TA_HLNG, uarte1_inthdr};

// UARTE1の割込み番号と割込み優先度レベル
// 割込み番号
#define INTNO_UARTE1    ((UARTE1_BASE >> 12) & 0x3f)
// 割込み優先度レベル
#define INTPRI_UARTE1   6

// メインプログラム
EXPORT void usermain( void ){
    // UARTEの送受信用エッジコネクタ端子の定義
    INT tx_pin, rx_pin;

    get_device_id();
    if(is_main_board()){     // メインボードとサブボードの判定(※S)
        // メインボードの場合はP0TX_P1RX相当
        tx_pin = 2; rx_pin = 3;
    } else {
        // メインボード以外の場合はP1TX_P0RX相当
        tx_pin = 3; rx_pin = 2;
    }

    btn_init();        // ボタンスイッチ入力のためのGPIOの初期設定

    // UARTE1の初期化と送受信用端子の指定
    init_uarte1(tx_pin, rx_pin);
    uarte1_start_rx1();            // 最初の受信の準備

    // 割込み通知用のイベントフラグ生成
    flgid = tk_cre_flg(&cflg);
    // 送信バッファ排他制御用のセマフォ生成
    semid = tk_cre_sem(&csem);
    txtskid = tk_cre_tsk(&ctxtsk);   // 送信側タスクの生成
    rxtskid = tk_cre_tsk(&crxtsk);   // 受信側タスクの生成
    tk_sta_tsk(txtskid, 0);              // 送信側タスクの起動
    tk_sta_tsk(rxtskid, 0);              // 受信側タスクの起動

    // UARTEの割込みハンドラ定義
    tk_def_int(INTNO_UARTE1, &dint_uarte);
    EnableInt(INTNO_UARTE1, INTPRI_UARTE1); // 割込み許可

    tk_slp_tsk(TMO_FEVR);            // 永久待ち、以下は実行しない
}

microT-Kernel Version 3.00

This devid_0_1: 01234567_89abcdef
Main devid_0_1: 01234567_89abcdef
This is MAIN board, P0TX_P1RX

flg_rx_task: dat=4100, tx='A', rx='.'	←ボタンスイッチAを押す
flg_rx_task: dat=4100, tx='A', rx='.'	←ボタンスイッチAを押す
flg_rx_task: dat=4200, tx='B', rx='.'	←ボタンスイッチBを押す

microT-Kernel Version 3.00

This devid_0_1: 01234567_89abcdef
Main devid_0_1: 01234567_89abcdef
This is MAIN board, P0TX_P1RX

flg_rx_task: dat=4100, tx='A', rx='.'	←このボードのボタンスイッチA
                                                           を押す
flg_rx_task: dat=4200, tx='B', rx='.'	←このボードのボタンスイッチB
                                                           を押す
flg_rx_task: dat=0042, tx='.', rx='B'	←通信相手ボードのボタンスイッ
                                                           チBを押す
flg_rx_task: dat=0041, tx='.', rx='A'	←通信相手ボードのボタンスイッ
                                                           チAを押す

/*---------------------------------------------------------------
 *  MMLの楽譜を2台で合奏(μT-Kernel 3.0用)
 *
 *  Copyright (C) 2022-2024 by T3 WG of TRON Forum
 *---------------------------------------------------------------*/
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
//---------------------------------------------------------------
//  MMLの楽譜データ
//      mm_XXX がメインボード用(主旋律)
//      ms_XXX がサブボード用(伴奏)

// 起動時のチャイム
B mm_start[] = "t720>ceg>c2.";
B ms_start[] = "t720>>c<gec2.";

// きらきら星
B mm_kira[] = "ccggaag_ ffeeddc_ ggffeed_ ggffeed_ ccggaag_
ffeeddc_";
B ms_kira[] = "ccccffc_ ddcc<bb>c_ ccddcc<b_> ccddcc<b_>
 l8c<a>c<a>ececfdfdedc<<b> d<b>d<<b>c<a>
 c<a><baba>c__";

// かえるの合唱(輪唱)
B mm_kaeru[] = "     cdefedc.r8 efgagfe.r8 crcrcrcr l8ccddeeffl4
edc.r8";
B ms_kaeru[] = "r1r1 cdefedc.r8 efgagfe.r8 crcrcrcr l8ccddeeffl4
edc.r8";

// メインボード用のMMLの楽譜を入れた文字列の配列(※T)
B *mml_main[] = { mm_kira, mm_kaeru };

// サブボード用のMMLの楽譜を入れた文字列の配列(※U)
B *mml_sub[]  = { ms_kira, ms_kaeru };

// 演奏中の楽譜のインデックス(曲番号)
LOCAL INT mml_idx = 0;

// mml_idxで指定された楽譜の1曲を演奏(※V)
LOCAL void play_mml_idx(void){

    if(is_main_board()){
        tm_printf("play_mml_idx: mml_idx=%d (MAIN)\n", mml_idx);
        play_all_mml(mml_main[mml_idx]);
    } else {
        tm_printf("play_mml_idx: mml_idx=%d (SUB)\n", mml_idx);
        play_all_mml(mml_sub[mml_idx]);
    }
    tm_printf("play_mml_idx: mml_idx=%d -- END\n", mml_idx);
}
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
// イベントフラグによりPWMのMML演奏を開始する受信側タスク
LOCAL void flg_rx_task(INT stacd, void *exinf){
    UINT flgptn;
    UB  txchr, rxchr, cmdchr;

    if(is_main_board())
        play_all_mml(mm_start);
    else
        play_all_mml(ms_start);

    for (;;) {              		// 永久に繰り返し

        // 割込み通知用イベントフラグの下位2バイトをOR待ち
        tk_wai_flg(flgid, 0xffff, (TWF_ORW | TWF_CLR), &flgptn,
        TMO_FEVR);

        txchr = (flgptn >> 8) & 0xff;  // 送信データをtxchrに入れる(※R)
        rxchr = flgptn & 0xff;         // 受信データをrxchrに入れる

        tm_printf("flg_rx_task: dat=%04x, tx='%c', rx='%c'\n",
            (UINT) flgptn, disp_ch(txchr), disp_ch(rxchr));

        // 送信データと受信データのうち、データのある方をcmdchrに
        // 入れる(※W)
        if(txchr != 0){
            cmdchr = txchr; // 送信データをcmdchrに入れる
            if(rxchr != 0) // 送信完了と受信完了の割込みが同時に発生
                           // この場合は受信データrxchrを無視するので警告
            tm_printf("flg_rx_task: rxchr(%c) ignored.\n",
            disp_ch(rxchr));
        } else if(rxchr != 0){
            cmdchr = rxchr; // 受信データをcmdchrに入れる
        }

        if(cmdchr == 'A'){          // 次の曲に進んで演奏する(※X)
            mml_idx = (mml_idx + 1) % (sizeof(mml_main) /
            sizeof(B *));
            play_mml_idx();
        } else if(cmdchr == 'B'){   // 同じ曲をもう一度最初から演奏する
            play_mml_idx();
        }
    }
}
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　・