mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-14 14:58:05 +11:00
2d9a07d215
This was becoming heavy to manage.
10 lines
247 B
Plaintext
10 lines
247 B
Plaintext
: _yinc 0x07 _cmd ; : _xinc 0x05 _cmd ;
|
|
: _zoff! ( off -- ) 0x40 + _cmd ;
|
|
: _col! ( col -- ) 0x20 + _cmd ;
|
|
: _row! ( row -- ) 0x80 + _cmd ;
|
|
: LCD$
|
|
H@ [ LCD_MEM LITN ] ! FNTH 2 * 2+ ALLOT
|
|
LCDON 0x01 ( 8-bit mode ) _cmd
|
|
FNTH 1+ _zoff!
|
|
;
|