mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-15 19:58:06 +11:00
c7d8de25b2
Also, rename CLRLN to NEWLN and make it clear that it's only called on entering a new line. This way, we can set Z offset in there for the TI-84+ LCD driver.
12 lines
270 B
Plaintext
12 lines
270 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 ;
|
|
: NEWLN ( ln -- )
|
|
DUP 1+ FNTH 1+ * _zoff!
|
|
FNTH 1+ * FNTH 1+ _clrrows ;
|
|
: LCDCLR 0 64 _clrrows ;
|