1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 22:48:05 +11:00
collapseos/blk/555
Virgil Dupras b90efb0f7f ti84: first glyph on screen!
On the emulator of course...
2020-05-08 09:07:44 -04:00

16 lines
482 B
Plaintext

( Required config: TI_MEM )
: TI_MEM+ [ TI_MEM LITN ] @ + ;
TI_MEM : TI_MEM [ LITN ] ;
: LCD_PORT_CMD 0x10 ; : LCD_PORT_DATA 0x11 ;
: FNTW 3 ; : FNTH 5 ;
( Wait until the lcd is ready to receive a command. It's a bit
weird to implement a waiting routine in asm, but the forth
version is a bit heavy and we don't want to wait longer than
we have to. )
CODE LCDWAIT
BEGIN,
0x10 INAn,
RLA, ( When 7th bit is clr, we can send a new cmd )
JRC, AGAIN,
;CODE