data out: out
== Fleeterpreter ====================================================
-public void service() { }
+
+boolean full = false;
+boolean op_count = false;
+boolean op_repeat = false;
+boolean op_pass = false;
+boolean op_drop = false;
+boolean op_c1 = false;
+boolean op_c2 = false;
+boolean op_v1 = false;
+boolean op_v2 = false;
+long temp = 0;
+
+public void reset() {
+ super.reset();
+ full = false;
+ temp = 0;
+}
+public void service() {
+
+ if (full) {
+ if (temp < 0) {
+ temp = 0;
+ full = false;
+ box_inOp.removeDataForShip();
+ if (op_count) box_in2.removeDataForShip();
+ else if (op_repeat && op_v1) box_in1.removeDataForShip();
+ else if (op_repeat && op_v2) box_in2.removeDataForShip();
+
+ } else if (box_out.readyForDataFromShip()) {
+ if (op_count) {
+ box_out.addDataFromShip(temp);
+ temp = temp - box_in2.peekDataForShip();
+ } else if (op_v1 && box_in1.dataReadyForShip()) {
+ if (op_drop) { box_in1.removeDataForShip(); temp--; }
+ else { box_out.addDataFromShip(op_pass ? box_in1.removeDataForShip() : box_in1.peekDataForShip()); temp--; }
+ } else if (op_v2 && box_in2.dataReadyForShip()) {
+ if (op_drop) { box_in2.removeDataForShip(); temp--; }
+ else { box_out.addDataFromShip(op_pass ? box_in2.removeDataForShip() : box_in2.peekDataForShip()); temp--; }
+ }
+
+ }
+
+ } else if (box_inOp.dataReadyForShip()) {
+ long op = box_inOp.peekDataForShip();
+ op_count = (op & 15)==12;
+ op_repeat = ((op>>2) & 3)==0;
+ op_pass = ((op>>2) & 3)==1;
+ op_drop = ((op>>2) & 3)==2;
+ op_c1 = (op_repeat || op_pass || op_drop) && !(((op>>1)&1)!=0);
+ op_c2 = (op_repeat || op_pass || op_drop) && (((op>>1)&1)!=0);
+ op_v1 = (op_repeat || op_pass || op_drop) && !(((op>>0)&1)!=0);
+ op_v2 = (op_repeat || op_pass || op_drop) && (((op>>0)&1)!=0);
+
+ if (op_count && (!box_in1.dataReadyForShip() || !box_in2.dataReadyForShip())) return;
+ if (op_c1 && !box_in1.dataReadyForShip()) return;
+ if (op_c2 && !box_in2.dataReadyForShip()) return;
+
+ full = true;
+
+ if (op_count) temp = box_in1.removeDataForShip() - box_in2.peekDataForShip();
+ if (op_c1) temp = box_in1.removeDataForShip()-1;
+ if (op_c2) temp = box_in2.removeDataForShip()-1;
+ }
+}
== FleetSim ==============================================================
== FPGA ==============================================================
+ wire [3:0] inOp_d_trunc;
+ assign inOp_d_trunc = inOp_d[3:0];
+
reg [`WORDWIDTH-1:0] temp;
initial temp = {`WORDWIDTH{1'b1}};
+ reg out_draining;
reg full;
initial full = 0;
- wire op_count; assign op_count = inOp_d==12;
+ wire op_count; assign op_count = inOp_d_trunc==12;
wire op_repeat; assign op_repeat = inOp_d[3:2]==0;
wire op_pass; assign op_pass = inOp_d[3:2]==1;
wire op_drop; assign op_drop = inOp_d[3:2]==2;
// FIXME: REPEAT with a count of zero will not work properly
always @(posedge clk) begin
- if (!rst) begin
+ if (rst) begin
`reset
full <= 0;
+ out_draining <= 0;
end else begin
- `flush
`cleanup
if (`inOp_empty) full <= 0;
- if (`out_draining) begin
+ if (out_draining && `out_empty) begin
if (op_count) temp <= temp - in2_d;
else temp <= temp - 1;
if (op_pass && op_v1) `drain_in1
if (op_pass && op_v2) `drain_in2
+ out_draining <= 0;
end else if (`inOp_full) begin
if (!full) begin
if (op_count && `in1_full && `in2_full) begin
end else if (`out_empty) begin
if (op_count) begin
`fill_out
+ out_draining <= 1;
end else if (op_v1 && `in1_full) begin
if (op_drop) begin `drain_in1 temp <= temp-1; end
- else `fill_out
+ else begin `fill_out out_draining <= 1; end
end else if (op_v2 && `in2_full) begin
if (op_drop) begin `drain_in2 temp <= temp-1; end
- else `fill_out
+ else begin `fill_out out_draining <= 1; end
end
end
end