collapseos/blk/555

( Required config: LCD_MEM )
: _mem+ [ LCD_MEM LITN ] @ + ;
: 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 _wait
    BEGIN,
        0x10 ( CMD ) INAn,
        RLA, ( When 7th bit is clr, we can send a new cmd )
    JRC, AGAIN,
;CODE
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			`( Required config: LCD_MEM )`
			`: _mem+ [ LCD_MEM LITN ] @ + ;`
ti84: wip Gave more priority to CPU in the emulator because initialization would otherwise be horrendously slow. 2020-05-08 21:56:34 +10:00			`: 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. )`
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			`CODE _wait`
ti84: wip Gave more priority to CPU in the emulator because initialization would otherwise be horrendously slow. 2020-05-08 21:56:34 +10:00			`BEGIN,`
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			`0x10 ( CMD ) INAn,`
ti84: wip Gave more priority to CPU in the emulator because initialization would otherwise be horrendously slow. 2020-05-08 21:56:34 +10:00			`RLA, ( When 7th bit is clr, we can send a new cmd )`
			`JRC, AGAIN,`
			`;CODE`