izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1619 Commits
4 Branches
13MB
Tree: 532bcc7e78
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '532bcc7e78'
${ noResults }
collapseos/arch/z80/ti84/blk/616

15 lines
273B
Raw Blame History 

  1. ( Requires KBD_MEM, KBD_PORT )

  2. ( gm -- pm, get pressed keys mask for group mask gm )

  3. CODE _get

  4.     HL POP,

  5.     chkPS,

  6.     DI,

  7.         A 0xff LDri,

  8.         KBD_PORT OUTiA,

  9.         A L LDrr,

  10.         KBD_PORT OUTiA,

  11.         KBD_PORT INAi,

  12.     EI,

  13.     L A LDrr, HL PUSH,

  14. ;CODE