collapseos/recipes/ti84/blk/616

15 lines
273 B
Plaintext
Raw Normal View History

2020-05-09 11:55:58 -04:00
( Requires KBD_MEM, KBD_PORT )
( gm -- pm, get pressed keys mask for group mask gm )
CODE _get
HL POP,
2020-05-09 11:55:58 -04:00
chkPS,
DI,
A 0xff LDri,
KBD_PORT OUTiA,
2020-05-09 11:55:58 -04:00
A L LDrr,
KBD_PORT OUTiA,
KBD_PORT INAi,
2020-05-09 11:55:58 -04:00
EI,
L A LDrr, HL PUSH,
2020-05-09 11:55:58 -04:00
;CODE