1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 09:38:06 +11:00
collapseos/recipes/ti84/blk/616
2020-09-20 20:24:09 -04:00

15 lines
273 B
Plaintext

( Requires KBD_MEM, KBD_PORT )
( gm -- pm, get pressed keys mask for group mask gm )
CODE _get
HL POP,
chkPS,
DI,
A 0xff LDri,
KBD_PORT OUTiA,
A L LDrr,
KBD_PORT OUTiA,
KBD_PORT INAi,
EI,
L A LDrr, HL PUSH,
;CODE