collapseos/arch/z80/ti84/blk/607

: _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!
;
ti84: HelloWorld! In emulator of course... 2020-05-09 01:36:50 +10:00			`: _yinc 0x07 _cmd ; : _xinc 0x05 _cmd ;`
ti84: add Z offset mechanism 2020-05-09 03:24:55 +10:00			`: _zoff! ( off -- ) 0x40 + _cmd ;`
			`: _col! ( col -- ) 0x20 + _cmd ;`
			`: _row! ( row -- ) 0x80 + _cmd ;`
ti84: first glyph on screen! On the emulator of course... 2020-05-08 23:07:44 +10:00			`: LCD$`
ti84: tidy up driver code Pushed all words directly interfacing with ports and memory offsets to low level layers. This saves us the need for keeping those variables in runtime memory. 2020-05-09 22:50:55 +10:00			`H@ [ LCD_MEM LITN ] ! FNTH 2 * 2+ ALLOT`
ti84: first glyph on screen! On the emulator of course... 2020-05-08 23:07:44 +10:00			`LCDON 0x01 ( 8-bit mode ) _cmd`
ti84: add Z offset mechanism 2020-05-09 03:24:55 +10:00			`FNTH 1+ _zoff!`
ti84: first glyph on screen! On the emulator of course... 2020-05-08 23:07:44 +10:00			`;`