diff options
Diffstat (limited to 'evts')
| -rw-r--r-- | evts/focal-fib.evt | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/evts/focal-fib.evt b/evts/focal-fib.evt new file mode 100644 index 0000000..6368abe --- /dev/null +++ b/evts/focal-fib.evt | |||
| @@ -0,0 +1,29 @@ | |||
| 1 | +1000 | ||
| 2 | $1.1 SET X0=0 | ||
| 3 | TT_BITS=0x0D01/0xFF01 | ||
| 4 | +1000 | ||
| 5 | $1.2 SET X1=1 | ||
| 6 | TT_BITS=0x0D01/0xFF01 | ||
| 7 | +1000 | ||
| 8 | $1.3 FOR X=1,100; DO 2 | ||
| 9 | TT_BITS=0x0D01/0xFF01 | ||
| 10 | +1000 | ||
| 11 | $2.1 TYPE X0,! | ||
| 12 | TT_BITS=0x0D01/0xFF01 | ||
| 13 | +1000 | ||
| 14 | $2.2 SET X2=X0+X1 | ||
| 15 | TT_BITS=0x0D01/0xFF01 | ||
| 16 | +1000 | ||
| 17 | $2.3 SET X0=X1 | ||
| 18 | TT_BITS=0x0D01/0xFF01 | ||
| 19 | +1000 | ||
| 20 | $2.4 SET X1=X2 | ||
| 21 | TT_BITS=0x0D01/0xFF01 | ||
| 22 | +1000 | ||
| 23 | $2.5 RETURN | ||
| 24 | TT_BITS=0x0D01/0xFF01 | ||
| 25 | +1000 | ||
| 26 | $GO 1.1 | ||
| 27 | TT_BITS=0x0D01/0xFF01 | ||
| 28 | +2000000 | ||
| 29 | HALTED=1 | ||