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/617

17 lines
767B
Raw Blame History 

  1. ( wait until all keys are de-pressed. To avoid repeat keys, we

  2.   require 64 subsequent polls to indicate all depressed keys.

  3.   all keys are considered depressed when the 0 group returns

  4.   0xff. )

  5. : _wait 64 BEGIN 0 _get 0xff = NOT IF DROP 64 THEN

  6.     1- DUP NOT UNTIL DROP ;

  7. ( digits table. each row represents a group. 0 means

  8.   unsupported. no group 7 because it has no key. )

  9. CREATE _dtbl

  10.     0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C,

  11.     0xd C, '+' C, '-' C, '*' C, '/' C, '^' C, 0 C, 0 C,

  12.     0 C, '3' C, '6' C, '9' C, ')' C, 0 C, 0 C, 0 C,

  13.     '.' C, '2' C, '5' C, '8' C, '(' C, 0 C, 0 C, 0 C,

  14.     '0' C, '1' C, '4' C, '7' C, ',' C, 0 C, 0 C, 0 C,

  15.     0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0x80 ( alpha ) C,

  16.     0 C, 0 C, 0 C, 0 C, 0 C, 0x81 ( 2nd ) C, 0 C, 0x7f C,