1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 05:08:06 +11:00
collapseos/blk/566
Virgil Dupras 2d9a07d215 blkunpack: don't include trailing empty lines
This was becoming heavy to manage.
2020-06-23 06:52:34 -04:00

15 lines
277 B
Plaintext

( Requires KBD_MEM, KBD_PORT )
( gm -- pm, get pressed keys mask for group mask gm )
CODE _get
HL POPqq,
chkPS,
DI,
A 0xff LDrn,
KBD_PORT OUTnA,
A L LDrr,
KBD_PORT OUTnA,
KBD_PORT INAn,
EI,
L A LDrr, HL PUSHqq,
;CODE