mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-15 09:08:06 +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
409 B
Plaintext
15 lines
409 B
Plaintext
: _clrrows ( n u -- Clears u rows starting at n )
|
|
SWAP _row!
|
|
( u ) 0 DO
|
|
_yinc 0 _col!
|
|
11 0 DO 0 _data! LOOP
|
|
_xinc 0 _data!
|
|
LOOP ;
|
|
: _clrln ( n ) FNTH 1+ _clrrows ;
|
|
: LCDCLR 0 64 _clrrows ;
|
|
( Changes the current line and go back to leftmost column )
|
|
: _lf
|
|
LCD_CURY C@ FNTH 1+ + DUP 63 > IF DROP 0 THEN
|
|
DUP _clrln DUP FNTH 1+ + _zoff!
|
|
LCD_CURY C! 0 LCD_CURX C! ;
|