mirror of
https://github.com/hsoft/collapseos.git
synced 2024-07-26 02:20:18 +10: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.
16 lines
503 B
Plaintext
16 lines
503 B
Plaintext
: _glyph> ( a -- )
|
|
LCD_CURY C@ _row! LCD_CURX C@ 8 /MOD _col! ( a coff )
|
|
_xinc _data@ DROP SWAP
|
|
FNTH 0 DO ( coff a )
|
|
C@+ 2 PICK 8 -^ LSHIFT
|
|
_data@ 8 LSHIFT OR
|
|
LCD_BUF I + 2DUP FNTH + C!
|
|
SWAP 8 RSHIFT SWAP C!
|
|
LOOP 2DROP
|
|
LCD_CURY C@ _row!
|
|
FNTH 0 DO LCD_BUF I + C@ _data! LOOP
|
|
LCD_CURY C@ _row! LCD_CURX C@ 8 / 1+ _col!
|
|
FNTH 0 DO LCD_BUF FNTH + I + C@ _data! LOOP
|
|
LCD_CURX C@ FNTW + 1+ DUP LCD_CURX C! ( x )
|
|
96 FNTW - > IF _lf THEN ;
|