Powered by ViewCVS 1.0-dev
| 1 : | anton | 1.8 | \ taken from David Gregg's EuroForth 2001 paper; omitted some sequences |
| 2 : | anton | 1.7 | super1 = lit + |
| 3 : | super2 = lit call | ||
| 4 : | super3 = lit @ | ||
| 5 : | anton | 1.8 | super4 = lit @ call |
| 6 : | super5 = @ call | ||
| 7 : | super6 = lit ! | ||
| 8 : | super7 = lit lit | ||
| 9 : | super8 = dup lit | ||
| 10 : | super9 = ! lit | ||
| 11 : | super10 = lit ! lit | ||
| 12 : | super11 = ! ;s | ||
| 13 : | super12 = lit + @ | ||
| 14 : | super13 = 0= ?branch | ||
| 15 : | super14 = dup call | ||
| 16 : | super15 = useraddr @ | ||
| 17 : | super16 = + @ | ||
| 18 : | super17 = lit @ ?branch | ||
| 19 : | super18 = lit ! ;s | ||
| 20 : | super19 = lit @ and | ||
| 21 : | super20 = = ?branch | ||
| 22 : | super21 = lit lit ! | ||
| 23 : | super22 = @ ?branch | ||
| 24 : | super23 = useraddr ! | ||
| 25 : | super24 = dup ?branch | ||
| 26 : | super25 = @ ;s | ||
| 27 : | super26 = lit @ + | ||
| 28 : | super27 = dup @ |
|
CVS Admin Powered by ViewCVS 1.0-dev |
ViewCVS and CVS Help |