collapseos/arch/z80/ti84/blk/608
Virgil Dupras c7d8de25b2 ti84: use Grid subsystem
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.
2020-11-10 20:30:37 -05:00

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 ;