mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-27 11:08: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.
13 lines
417 B
Plaintext
13 lines
417 B
Plaintext
: _gti ( -- tindex, that it, index in _dtbl or _atbl )
|
|
0 ( gid ) 0 ( dummy )
|
|
BEGIN ( loop until a digit is pressed )
|
|
DROP
|
|
1+ DUP 7 = IF DROP 0 THEN ( inc gid )
|
|
1 OVER LSHIFT 0xff -^ ( group dmask ) _get
|
|
DUP 0xff = NOT UNTIL _wait
|
|
( gid dmask )
|
|
0xff XOR ( dpos ) 0 ( dindex )
|
|
BEGIN 1+ 2DUP RSHIFT NOT UNTIL 1-
|
|
( gid dpos dindex ) NIP
|
|
( gid dindex ) SWAP 8 * + ;
|