File:  [gforth] / gforth / arch / r8c / lauftext.fs
Revision 1.5: download - view: text, annotated - select for diffs
Wed Dec 10 15:44:12 2008 UTC (13 years, 11 months ago) by pazsan
Branches: MAIN
CVS tags: HEAD
Cleared distribution conditions

    1: \ lauftext
    2: \ this file is in the public domain
    3: 
    4: rom
    5: 
    6: Create text
    7: ," GNU Forth EC R8C -- Microprocessor -- "
    8: Create ledtable 1 c, 2 c, 4 c, 8 c, 4 c, 2 c,
    9: Variable /text
   10: 
   11: : lauftext  task
   12:   BEGIN  text count /text @ over mod /string
   13:          16 min dup >r lcdpage lcdtype
   14:          r@ 16 < IF  text 1+ 16 r@ - lcdtype  THEN
   15:          rdrop 1 /text +!
   16:          /text @ 6 mod ledtable + c@ led!
   17:          6 adc@ 2/ ms
   18:   AGAIN ;
   19: 
   20: ram

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>