• Control Register setzen mit initlcd.
• Die Tabelle seglist die den Segment Code (look-up-table) enthält benutzen.
• Zeichen in den lcd character buffer cbuf schreiben, keyin.
• Immer 6 Zeichen von cbuf in die lcd data register schreiben mit wlcd.

Ich habe amforth 1.2 mit dem r@ bug-fix benutzt. download LCD Demo

\ how it is done:

\ include lcd_init.fs       
\ include look_up_table.fs  
\ include lcd_emit.fs       
\ include lcd_write.fs      
\ include testing.fs  \ if you like

\ intended use:
\  initlcd          Set controle once.
\  keyin            Fill cbuf with characters in some way.
\  cbuf n + wlcd    Display cbuf, add n to srcoll through cbuf.
\  segon / segoff   Show/hide characters in display.
\  lcdoff           Turn off lcd finaly.

\ finis