diff --git a/blk/557 b/blk/557 index 38bc3dd..046f63c 100644 --- a/blk/557 +++ b/blk/557 @@ -4,9 +4,11 @@ : LCDOFF 0x02 ( CMD_DISABLE ) _cmd ; : LCDON 0x03 ( CMD_ENABLE ) _cmd ; : _yinc 0x07 _cmd ; : _xinc 0x05 _cmd ; -: _col! ( col -- ) 0x20 ( CMD_COL ) + _cmd ; -: _row! ( row -- ) 0x80 ( CMD_ROW ) + _cmd ; +: _zoff! ( off -- ) 0x40 + _cmd ; +: _col! ( col -- ) 0x20 + _cmd ; +: _row! ( row -- ) 0x80 + _cmd ; : LCD$ H@ TI_MEM ! FNTH 2 * 2+ ALLOT LCDON 0x01 ( 8-bit mode ) _cmd + FNTH 1+ _zoff! ; diff --git a/blk/558 b/blk/558 index cb5fe53..902998a 100644 --- a/blk/558 +++ b/blk/558 @@ -10,4 +10,5 @@ ( Changes the current line and go back to leftmost column ) : _lf LCD_CURY C@ FNTH 1+ + DUP 63 > IF DROP 0 THEN - DUP _clrln LCD_CURY C! 0 LCD_CURX C! ; + DUP _clrln DUP FNTH 1+ _zoff! + LCD_CURY C! 0 LCD_CURX C! ;