Krakout: Poll the pause key (1)

8E63: Poll the pause key (1)

Reads key 1, the only input to the pause control.

Output
A	1 if key 1 is held, 0 otherwise

poll_pause_key

8E63

Read the keyboard half-row that holds keys 1 to 5 and keep the five key bits.

8E66

IN A,(C)

8E68

AND $1F

8E6A

BIT 0,A

Test key 1; active-low, so a set bit means the key is up.

8E6C

8E6E

LD A,$01

Key down: report it pressed.

8E70

RET

pause_key_up

8E71

XOR A

Key up: return 0.

8E72

RET

Routines