projects
/
fleet.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
return ship if already created in Interpreter
[fleet.git]
/
tests
/
pump
/
test-use-loop-counter.fleet
1
#skip
2
#expect 5
3
#expect 7
4
#expect 5
5
#expect 7
6
#expect 5
7
#expect 7
8
#expect 9
9
10
#ship memory : Memory
11
#ship debug : Debug
12
#ship fifo : Fifo
13
#ship fifo2 : Fifo
14
15
debug.in: [*] take, deliver;
16
17
fifo.out: [*] take, sendto debug.in;
18
19
fifo.in:
20
load loop counter with 2;
21
[L] nop;
22
[L] literal 5;
23
[L] deliver;
24
[L] notify memory.inCBD;
25
[L] take, deliver;
26
[L] decrement loop counter;
27
tail;
28
29
fifo2.out:
30
literal 7;
31
load repeat counter with 4;
32
sendto fifo.in;
33
34
memory.inCBD: literal {
35
fifo.in:
36
literal 9;
37
deliver;
38
};
39
discard;
40
discard;
41
discard;
42
deliver;
43