mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-09 01:38:05 +11:00
14 lines
615 B
Plaintext
14 lines
615 B
Plaintext
( alpha table. same as _dtbl, for when we're in alpha mode. )
|
|
CREATE _atbl
|
|
0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C, 0 C,
|
|
0xd C, '"' C, 'W' C, 'R' C, 'M' C, 'H' C, 0 C, 0 C,
|
|
'?' C, 0 C, 'V' C, 'Q' C, 'L' C, 'G' C, 0 C, 0 C,
|
|
':' C, 'Z' C, 'U' C, 'P' C, 'K' C, 'F' C, 'C' C, 0 C,
|
|
0x20 C, 'Y' C, 'T' C, 'O' C, 'J' C, 'E' C, 'B' C, 0 C,
|
|
0 C, 'X' C, 'S' C, 'N' C, 'I' C, 'D' C, 'A' C, 0x80 C,
|
|
0 C, 0 C, 0 C, 0 C, 0 C, 0x81 ( 2nd ) C, 0 C, 0x7f C,
|
|
: _2nd@ 0 [ KBD_MEM LITN ] BIT@ ;
|
|
: _2nd! 0 [ KBD_MEM LITN ] BIT! ;
|
|
: _alock@ 1 [ KBD_MEM LITN ] BIT@ ;
|
|
: _alock^ _alock@ NOT 1 [ KBD_MEM LITN ] BIT! ;
|