update test cases to am33

[fleet.git] / ships / Fifo.ship

diff --git a/ships/Fifo.ship b/ships/Fifo.ship
index 0b93764..bcaec4b 100644 (file)
--- a/ships/Fifo.ship
+++ b/ships/Fifo.ship
@@ -2,10 +2,20 @@ ship: Fifo
 
 == Ports ===========================================================
 data  in:   in
+
 data  out:  out
 
 == Constants ========================================================
+
 == TeX ==============================================================
+
+The {\tt Fifo} ship is a simple fifo.  Word-sized delivered to the {\tt
+in} port are enqueued into the fifo, and values which arrive at the
+end of the fifo are provided to the {\tt out} port.
+
+The internal capacity of the fifo is unspecified, but guaranteed to be
+at least 16 words.
+
 == Fleeterpreter ====================================================
     private Queue<Long> fifo = new LinkedList<Long>();
     public void service() {
@@ -31,10 +41,17 @@ debug.in:   [*] take, deliver;
 fifo.in:
   literal 9;
   deliver;
-  [100] take, deliver;
+  load repeat counter with 63;
+  take, deliver;
+  load repeat counter with 37;
+  take, deliver;
+
 fifo.out:
-  [99] take, sendto fifo.in;
-  [1]  take, sendto debug.in;
+  load repeat counter with 63;
+  take, sendto fifo.in;
+  load repeat counter with 36;
+  take, sendto fifo.in;
+  take, sendto debug.in;