★ご意見ください！RL78/G13のライブラリ統合化したいと思います。

In reply to @chobichan:

はい，そうです。（操作対象のビット以外のビットはそうなります。）
RL78/G13のハードウェアマニュアルの"4. 6. 1 ポート・レジスタn（Pn）に対する1ビット・メモリ操作命令に関する注意事項"に明記されています。
これを避けようとすると，出力ラッチの設定値を変数に入れておいて，ビット操作は変数に対して演算を行い，結果を出力ラッチに書き込む必要があります。

In reply to エイジ:

なるほど、うーん、正直言って汎用ポートとしては使いにくい。

今出先で確認できないのですが、d4、d5、d6はNPNトランジスタのベースに接続されていて、おそらく入力時には0.6Vくらいしか見えない気がするんですが。

In reply to @chobichan:

ポートで直接ベースをドライブすることはなく，ベースの保護のためにシリーズ抵抗が入っているはずです。その影響が考えられます。
直接LEDをドライブしている場合には，ドライブしていないときにLEDが発電してVf程度の電圧を発生していることがあり，電源電圧によっては，中間電位になり，入力レベルは不定になることも考えられます。

In reply to エイジ:

そうです、2kの抵抗が入っています。リーク電流がどれほどなのかで変わると思いますが。

In reply to エイジ:

光電効果は知ってます。

In reply to エイジ:

情報ありがとうございます。
ハードウェアマニュアルの『4. 6 ポート機能使用時の注意事項』に同様の記述を確認しました。

In reply to @chobichan:

gr_common/cores/wiring_digital.c の digitalWrite() のインラインアセンブラの部分を下記に戻し

	__asm __volatile(
	    "\n"
	    "        /* %%0 = %0 */                  \n"
	    "        /* %%1 = %1 */                  \n"
	    "        /* %%2 = %2 */                  \n"
	    "        /* %%3 = %3 */                  \n"
	    "        /* %%4 = %4 */                  \n"
	    "        /* %%5 = %5 */                  \n"
	    "        /* %%6 = %6 */                  \n"
	    "        /* %%7 = %7 */                  \n"
	    "        /* %%8 = %8 */                  \n"
	    "        mov     a, %0                   \n"
	    "        cmp     a, %1                   \n"
	    "        bnc     $8f                     \n"
	    "        mov     x, %2                   \n"
	    "        mulu    x                       \n"
	    "        movw    bc, ax                  \n"
	    "        movw    ax, %u3[bc]             \n"
	    "        movw    hl, ax                  \n"
	    "        mov     a, %u7[bc]              \n"
	    "        and     a, [hl]                 \n"
	    "        movw    ax, %u5[bc]             \n"
	    "        skz                             \n"
	    "        movw    ax, %u4[bc]             \n"
	    "        movw    hl, ax                  \n"
	    "        mov     a, %8                   \n"
	    "        add     a, #0xff                \n"
	    "        mov     a, %u6[bc]              \n"
	    "        bt      a.2, $4f                \n"
	    "        bt      a.1, $2f                \n"
	    "        bt      a.0, $1f                \n"
	    "        mov1    [hl].0, cy              \n"
	    "        br      $8f                     \n"
	    "1:                                      \n"
	    "        mov1    [hl].1, cy              \n"
	    "        br      $8f                     \n"
	    "2:                                      \n"
	    "        bt      a.0, $3f                \n"
	    "        mov1    [hl].2, cy              \n"
	    "        br      $8f                     \n"
	    "3:                                      \n"
	    "        mov1    [hl].3, cy              \n"
	    "        br      $8f                     \n"
	    "4:                                      \n"
	    "        bt      a.1, $6f                \n"
	    "        bt      a.0, $5f                \n"
	    "        mov1    [hl].4, cy              \n"
	    "        br      $8f                     \n"
	    "5:                                      \n"
	    "        mov1    [hl].5, cy              \n"
	    "        br      $8f                     \n"
	    "6:                                      \n"
	    "        bt      a.0, $7f                \n"
	    "        mov1    [hl].6, cy              \n"
	    "        br      $8f                     \n"
	    "7:                                      \n"
	    "        mov1    [hl].7, cy              \n"
	    "8:                                      \n"
	    :
	    : "m"(pin),
	      "i"(NUM_DIGITAL_PINS),
	      "i"((unsigned)&PinTable[1] - (unsigned)&PinTable[0]),
	      "i"(&PinTable->portModeRegisterAddr),
	      "i"(&PinTable->portPullUpRegisterAddr),
	      "i"(&PinTable->portRegisterAddr),
	      "i"(&PinTable->bit),
	      "i"(&PinTable->mask),
	      "m"(val)
	    : "a", "x", "b", "c", "h", "l"
	);

pinMode() を下記に差し替えてみて下さい。

void pinMode(uint8_t pin, uint8_t u8Mode)
{
#ifndef __RL78__
	uint8_t bit = digitalPinToBitMask(pin);
	uint8_t port = digitalPinToPort(pin);
	volatile uint8_t *reg, *out;

	if (port == NOT_A_PIN) return;

	// JWS: can I let the optimizer do this?
	reg = portModeRegister(port);
	out = portOutputRegister(port);

	if (mode == INPUT) { 
		uint8_t oldSREG = SREG;
                cli();
		*reg &= ~bit;
		*out &= ~bit;
		SREG = oldSREG;
	} else if (mode == INPUT_PULLUP) {
		uint8_t oldSREG = SREG;
                cli();
		*reg &= ~bit;
		*out |= bit;
		SREG = oldSREG;
	} else {
		uint8_t oldSREG = SREG;
                cli();
		*reg |= bit;
		SREG = oldSREG;
	}
#else /*__RL78__*/
	if (pin < NUM_DIGITAL_PINS) {
		// アナログピンかどうか？
		if (14 <= pin && pin <= 21) {
			// ピンモードをデジタルモードに変更
			if (pin == 20) {
				PMC14.pmc14 &= ~0x80;// P147をデジタルポートに設定
			}
			else if (pin == 21) {
				PMC12.pmc12 &= ~0x01;// P120をデジタルポートに設定
			}
			else {
				uint8_t oldadpc = ADPC.adpc;
				uint8_t newadpc = (pin - 14) + ANALOG_ADPC_OFFSET - 1;
				if ((oldadpc  == 0x00 ) || (oldadpc > newadpc)) {
					ADPC.adpc = newadpc;
				}
			}
		}

		PinTableType* p = getPinTable(pin);
		{
			if (g_u8AnalogWriteAvailableTable[pin]) {
				_turnOffPwmPin(pin);	// PWMの設定解除
			}
			if (!(*p->portModeRegisterAddr & p->mask)) {
				if (*p->portRegisterAddr & p->mask) {
					if (u8Mode == INPUT) {
						u8Mode = INPUT_PULLUP;
					} else if (u8Mode == INPUT_TTL) {
						u8Mode = INPUT_TTL_PULLUP;
					}
				}
			}
			switch (u8Mode) {
			case INPUT:
			case INPUT_PULLUP:
			case INPUT_TTL:
			case INPUT_TTL_PULLUP:
				if (u8Mode == INPUT_PULLUP || u8Mode == INPUT_TTL_PULLUP) {
					sbi(p->portPullUpRegisterAddr,  p->mask);	// プルアップ抵抗を有効に設定
				} else {
					cbi(p->portPullUpRegisterAddr,  p->mask);	// プルアップ抵抗を無効に設定
				}
				if (u8Mode == INPUT_TTL || u8Mode == INPUT_TTL_PULLUP) {
					sbi(p->portInputModeRegisterAddr, p->mask);	// TTL入力バッファに設定
				} else {
					cbi(p->portInputModeRegisterAddr, p->mask);	// CMOS入力バッファに設定
				}
				sbi(p->portModeRegisterAddr,  p->mask);	// 入力モードに設定
				break;
			case OUTPUT:
			case OUTPUT_OPENDRAIN:
				if (*p->portModeRegisterAddr & p->mask) {
					if (*p->portPullUpRegisterAddr & p->mask) {
						sbi(p->portRegisterAddr, p->mask);
					} else {
						cbi(p->portRegisterAddr, p->mask);
					}
				}
				if (u8Mode == OUTPUT_OPENDRAIN) {
					sbi(p->portOutputModeRegisterAddr, p->mask);	// N-chオープン・ドレイン出力モードに設定
				} else {
					cbi(p->portOutputModeRegisterAddr, p->mask);	// 通常出力モードに設定
				}
				cbi(p->portModeRegisterAddr,  p->mask);	// 出力モードに設定
				break;
			}
		}
	}
#endif/*__RL78__*/
}

In reply to fujita nozomu:

ありがとうございます。
家に帰ったら試してみます。

In reply to fujita nozomu:

以下のコードで、驚きの白さです。
成功みたいです！
お手数お掛けしました。

void setup() {
// turn the LEDs on, glow white.
digitalWrite(LED_RED, HIGH);
digitalWrite(LED_GREEN, HIGH);
digitalWrite(LED_BLUE, HIGH);

pinMode(LED_RED, OUTPUT);
pinMode(LED_GREEN, OUTPUT);
pinMode(LED_BLUE, OUTPUT);

digitalWrite(relay1, LOW);
digitalWrite(relay2, LOW);
digitalWrite(relay3, LOW);

pinMode(relay1, OUTPUT);
pinMode(relay2, OUTPUT);
pinMode(relay3, OUTPUT);

digitalWrite( LED_RED, digitalRead(relay1) );
digitalWrite( LED_GREEN, digitalRead(relay2) );
digitalWrite( LED_BLUE, digitalRead(relay3) );

while( 1 ) {}
}

In reply to Okamiya Yuuki:

> chobichanさんの方でも確認いただいたので、次版に適用しようと思いますが、問題あれば言ってください。

SoftwareSerial はどこだかのユーザのところでは動作してるので公開する、SD カードの件では問題の現象が確認できたのが手許の一枚だけなので公開するというのも同根と思いますが、ソフトウェアを不特定多数の方々を対象に公開するということに対して、特定個人のところで確認できたから次版に適用しようというのは安易すぎやしませんか。

今回 pinMode() に以下の変更を行っています。

• ポート・モード・レジスタを変更するタイミングを
  • プルアップ抵抗オプション・レジスタ
  • ポート入力モード・レジスタ
  • ポート・レジスタ
  • ポート出力モード・レジスタ
  の変更の後に修正
• HIGH出力に設定された出力モードのピンを INPUT か INPUT_TTL に変更する場合 INPUT_PULLUP か INPUT_TTL_PULLUP にすり替える(プルアップ付き入力モードに設定する)
• 入力に設定されたピンを出力に変更する場合、プルアップ抵抗オプションレジスタの設定をポート・レジスタに反映する

以上の変更により pinMode() と digitalWrite() の挙動が ATmega の載った Arduino のそれに近くなったと思いますが、これが GR-KURUMI 等のそれとして適正な変更かは議論があると思います。従来の pinMode() を使用してポート・レジスタの値を直接セットした後に pinMode(pin, OUTPUT); 等として出力ピンから最初から HIGH 出力をさせていたスケッチがあれば期待した動作となりません。そうしたい場合には pinMode(pin, INPUT_PULLUP); pinMode(pin, OUTPUT); とするか digitalWrite(pin, HIGH); pinMode(pin, OUTPUT); とする等変更が必要となります。pinMode() は基本的な関数なので影響はそれなりにある可能性は考えられます。

ライブラリ等を含むソフトウェアの公開に当たっては

• 現行の安定版に加え新版は暫くテスト版という扱いで公開する
• 正確に記述した変更履歴を公開する

等の対策はよくあることと思いますが、がじぇるねは

• 十分にテストがされてるとはいえない新版が公開され旧版は同時に消される
• 変更履歴は碌に書かれない

ということが平気で行われているので混乱は避けられない気がします。

web コンパイラのファイルが消えましたという報告があれば

japan.renesasrulz.com/.../thread

結局ユーザからの連絡があったかなかったに関わらずなんらかのリアクションを返す、

拡張コネクタでのアナログ入力がうまくできずピンマップに間違いがあったとわかれば

https://japan.renesasrulz.com/gr_user_forum_japanese/f/gr-sakura/4706/analogread

ピンマップを修正するだけではなくて

http://gadget.renesas.com/ja/reference/sakura/index.html

修正したことを該当のフォーラムで報告するのは当たり前のことと思うんですけどね、そういうの含めて情報公開に消極的ですね。

In reply to fujita nozomu:

アドバイスありがとうございます。