get rid of ChainControls
[fleet.git] / tests / flush / flush-alu.test
1 // FIXME: need test for ADD carry-out c-flag
2
3 #ship debug : Debug
4 #ship alu   : Alu
5
6 #expect 18
7 #expect 12
8
9 debug.in:   set ilc=*;  recv, deliver;
10 alu.in1:
11   set word=9;
12   deliver;
13   set word=9;
14   deliver;
15   flush;
16   set word=3;
17   deliver;
18
19 alu.in2:
20   set word=9;
21   deliver;
22   set word=10;
23   flush;
24   set word=9;
25   deliver;
26
27 alu.inOp:
28  set word=Alu.inOp[ADD];
29  deliver;
30  deliver;
31  deliver;
32  deliver;
33  flush;
34  deliver;
35  deliver;
36
37 alu.out:
38   set ilc=*;
39   collect, send to debug.in;