collapseos/arch/z80/ti84/blk/608

: _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 ;
ti84: HelloWorld! In emulator of course... 2020-05-09 01:36:50 +10:00			`: _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 ;`
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-11 12:30:37 +11:00			`: NEWLN ( ln -- )`
			`DUP 1+ FNTH 1+ * _zoff!`
			`FNTH 1+ * FNTH 1+ _clrrows ;`
ti84: HelloWorld! In emulator of course... 2020-05-09 01:36:50 +10:00			`: LCDCLR 0 64 _clrrows ;`