mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-27 05:28:06 +11:00
2f1e635b9d
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.
14 lines
416 B
Plaintext
14 lines
416 B
Plaintext
( 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
|