MSX キーボードイベント

/*
z80dk kbevt.c キーボードイベント
zcc +msx -lndos -create-app kbevt.c

WebMSXにa.casをドロップ
bload"cas:",r
*/

# include <stdio.h>

int snsmat(int line)
{
# asm
	ld	a, l
	call	$0141		; SNSMAT
	ld	l, a
	ld	h, 0
# endasm
}

char *mat[][] = {
	{ "7", "6", "5", "4", "3", "2", "1", "0" },
	{ "+", "[", "@", "\\", "^", "-", "9", "8" },
	{ "B", "A", "_", "/", ">", "<", "]", "*" },
	{ "J", "I", "H", "G", "F", "E", "D", "C" },
	{ "R", "Q", "P", "O", "N", "M", "L", "K" },
	{ "Z", "Y", "X", "W", "V", "U", "T", "S" },
	{ "F3", "F2", "F1", "KANA", "CPAS", "GRAPH", "CTRL", "SHIFT" },
	{ "RETURN", "SELECT", "BS", "STOP", "TAB", "ESC", "F5", "F4" },
	{ "RIGHT", "DOWN", "UP", "LEFT", "DEL", "INS", "CLS", "SPACE" },
	{ "4", "3", "2", "1", "0", "/", "+", "*" },
	{ ".", ",", "-", "9", "8", "7", "6", "5" }
};

void main()
{
	int bits[2][11];
	int iold = 0;
	int inew = 1;

	for (int i = 0; i <= 10; i++) {
		bits[iold][i] = snsmat(i);
	}

	for (;;) {
		for (int i = 0; i <= 10; i++) {
			bits[inew][i] = snsmat(i);
		}
		for (int i = 0; i <= 10; i++) {
			int bold = bits[iold][i];
			int bnew = bits[inew][i];
			int diff = bold ^ bnew;
			if (diff) {
				int bit = 0x80;
				for (int j = 0; j < 8; j++) {
					if (diff & bit) {
						printf("%s %s\n", mat[i][j],
							(bnew & bit) ? "Up" : "Down");
					}
					bit >>= 1;
				}
			}
		}
		iold = inew;
		inew = 1 - iold;
	}
}