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

14 lines
656B
Raw Blame History 

  1. ( alpha table. same as _dtbl, for when we're in alpha mode. )

  2. CREATE _atbl

  3.     0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C,

  4.     0xd C, '"' C, 'W' C, 'R' C, 'M' C, 'H' C, 0 C, 0 C,

  5.     '?' C, 0 C, 'V' C, 'Q' C, 'L' C, 'G' C, 0 C, 0 C,

  6.     ':' C, 'Z' C, 'U' C, 'P' C, 'K' C, 'F' C, 'C' C, 0 C,

  7.     0x20 C, 'Y' C, 'T' C, 'O' C, 'J' C, 'E' C, 'B' C, 0 C,

  8.     0 C, 'X' C, 'S' C, 'N' C, 'I' C, 'D' C, 'A' C, 0x80 C,

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

  10. : _2nd@ [ KBD_MEM LITN ] C@ 1 AND ;

  11. : _2nd! [ KBD_MEM LITN ] C@ 0xfe AND + [ KBD_MEM LITN ] C! ;

  12. : _alock@ [ KBD_MEM LITN ] C@ 2 AND ;

  13. : _alock^ [ KBD_MEM LITN ] C@ 2 XOR [ KBD_MEM LITN ] C! ;