wslで、最小のカーネルをコンパイル その41

概要

wslで、kernel.elfのコンパイル、やってみた。
さらに、上のkernel見つけたので、コンパイルしてみた。
俺言語インタープリタを、移植してみた。
キー入力する機能を実装して、じゃんけん、やってみた。

写真

サンプルコード

void facto() {
	unsigned char cc;
	char ch;
	if (RD(Ptr) == '\0')
	{
		Val = 0;
		return;
	}
	if (getnm2())
		return;
	cc = RD(Ptr++);
	if (cc == '?')
	{
		putstr("> ");
		ch = api_getkey(1);
		if (ch == 0x31)
			Val = 1;
		else if (ch == 0x32)
			Val = 2;
		else if (ch == 0x33)
			Val = 3;
		else
			Val = 0;
	}
	else if (cc == '$')
	{
		Val = 55;
	}
	else if (cc == '!')
	{
		Val = _rand() % 3 + 1;
	}
	else
	{
		Ptr--;
		getvr2();
		Val = RD(Adr2);
		Ptr++;
	}
}

以上。