mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-28 15:58:05 +11:00
7001446212
Recipes contain bits and pieces of hardware-related knowledge, but these bits feel sparse. I've been wanting to consolidate hardware- related documentation for a while, but always fell at odds with the recipes organisation. We don't have recipes anymore, just a /doc/hw section that contains hardware-related documentation which often translate to precise instructions to run Collapse OS on a specific machine. With this new organisation, I hope to end up with a better, more solid documentation.
15 lines
421 B
Plaintext
15 lines
421 B
Plaintext
: _tbl^ ( swap input tbl )
|
|
_atbl = IF _dtbl ELSE _atbl THEN ;
|
|
: (key)
|
|
0 _2nd! 0 ( lastchr ) BEGIN
|
|
_alock@ IF _atbl ELSE _dtbl THEN
|
|
OVER 0x80 ( alpha ) =
|
|
IF _tbl^ _2nd@ IF _alock^ THEN THEN
|
|
SWAP 0x81 = _2nd!
|
|
_gti + C@
|
|
DUP 0 0x80 >< UNTIL ( loop if not in range )
|
|
( lowercase? )
|
|
_2nd@ IF DUP 'A' 'Z' =><= IF 0x20 OR THEN THEN
|
|
;
|
|
: KBD$ 0 [ KBD_MEM LITN ] C! ;
|