`define DATAWIDTH                37
`define CODEBAG_SIZE_BITS        6
`define BENKOBOX_ADDRESS_BITS    11
`define DESTINATION_ADDRESS_BITS 11
`define COUNT_BITS               7
`define COUNT_WIDTH              7
`define PACKET_WIDTH             (`DATAWIDTH + `DESTINATION_ADDRESS_BITS)
`define INSTRUCTION_WIDTH        37

`define packet_data(p)              p[(`DESTINATION_ADDRESS_BITS+`DATAWIDTH-1):(`DESTINATION_ADDRESS_BITS)]
`define INSTRUCTION_BENKOBOX_OFFSET (1+`COUNT_BITS+`DESTINATION_ADDRESS_BITS+5)
`define packet_dest(p)              p[(`DESTINATION_ADDRESS_BITS-1):0]
`define instruction_dest(i)         i[(24+11-1):24]
`define packet_dest_steer(p)        p[0]
`define instruction_dest_steer(i)   i[24]

`define opcode_base (1+`DESTINATION_ADDRESS_BITS+`COUNT_BITS)
`define instruction_bit_tokenout(instruction) instruction[`opcode_base+4]
`define instruction_bit_dataout(instruction)  instruction[`opcode_base+3]
`define instruction_bit_latch(instruction)    instruction[`opcode_base+2]
`define instruction_bit_datain(instruction)   instruction[`opcode_base+1]
`define instruction_bit_tokenin(instruction)  instruction[`opcode_base+0]
`define instruction_bit_dest(instruction)     instruction[(`DESTINATION_ADDRESS_BITS):1]
`define instruction_bit_recycle(instruction)  instruction[0]
`define instruction_is_kill(i)                (`instruction_bit_latch(i) && (!(`instruction_bit_datain(i))))
`define instruction_count(instruction)        instruction[(1+`DESTINATION_ADDRESS_BITS+`COUNT_BITS-1):(1+`DESTINATION_ADDRESS_BITS)]

`define defreg(signame,width,regname) reg width regname; wire width signame;  assign signame = regname; initial regname = 0;
`define input(r, a, a_, w, d)  input r;  output a_; reg a; assign a_=a; input  w d;
`define output(r, r_, a, w, d) output r_; input a;  reg r; assign r_=r; output w d;

`define onread(req, ack)        if (!req && ack) ack=0;    else if (req && !ack)  begin ack=1;
`define onwrite(req, ack)       if (!req && !ack) req = 1; else if (req && ack)   begin req = 0;