MSX キーマトリクス

CHPUT equ $00a2
CLS equ $00c3
SNSMAT equ $0141

 org $d000

 xor a
 call CLS
start:
 ld e, 0 ; E = キーマトリクスの行(0～10)
 ld hl, text+3
 push hl ; 出力先 push
.line
 ld a, e
 call SNSMAT
 ld d, a ; D = キーマトリクスの行の状態
 pop hl
 ld bc, 12 ; 次の行
 add hl, bc
 push hl
 ld b, 8
.bits
 xor a
 sla d
 adc a, $30
 ld (hl), a
 inc hl
 djnz bits

 inc e
 ld a, 11
 cp e
 jr nz, line

 pop hl ; 出力先 pop
 ld hl, text
 call puts
 jr start

puts:
 ld a, (hl)
 or a
 ret z
 call CHPUT
 inc hl
 jr puts

text: defm 11
 defm " 76543210\r\n"
 defm "0 \r\n"
 defm "1 \r\n"
 defm "2 \r\n"
 defm "3 \r\n"
 defm "4 \r\n"
 defm "5 \r\n"
 defm "6 \r\n"
 defm "7 \r\n"
 defm "8 \r\n"
 defm "9 \r\n"
 defm "A \r\n"
 defm 0

/*
zcc +msx -lndos -create-app snsmat.c
bload"cas:",r
*/

# include <stdio.h>
# include <stdlib.h>

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

void main()
{
 char buf[20];

 printf("\x0c");
 for (;;) {
 printf("\x0b 76543210\n");
 for (int i = 0; i <= 10; i++) {
 int bits = snsmat(i);
 itoa(0x100 | bits, buf, 2);
 printf("%X %s\n", i, buf+1);
 }
 }
}