diff options
| author | Julian Blake Kongslie | 2022-11-05 13:18:01 -0700 |
|---|---|---|
| committer | Julian Blake Kongslie | 2022-11-05 13:18:01 -0700 |
| commit | 4266a45379d8f9ad1ac5080235119ab8ee7869b1 (patch) | |
| tree | ae5c2d621ad16e687e396aff00312df6f548cb4c | |
| parent | Slower default output delay (diff) | |
| download | biggolf-4266a45379d8f9ad1ac5080235119ab8ee7869b1.tar.xz | |
Add a focal69 version of fib as an evt
Diffstat (limited to '')
| -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 | ||