Subversion Repositories open_hitter

/hitter_wrapper.vhd

/parse_price_sim.vhd

/hitter_sim.vhd

/build.sh

build.sh Property changes : Added: svn:executable ## -0,0 +1 ## +* \ No newline at end of property Index: parse_price.vhd =================================================================== --- parse_price.vhd (nonexistent) +++ parse_price.vhd (revision 3) @@ -0,0 +1,119 @@ +--//////////////////////////////////////////////////////////////////// +--// //// +--// parse_price.vhd //// +--// //// +--// This file is part of the open_hitter opencores effort. //// +--// //// +--// //// +--// Module Description: //// +--// Byte stream input, open hitter price output //// +--// //// +--// To Do: //// +--// #LOTS //// +--// //// +--// Author(s): //// +--// - Stephen Hawes //// +--// //// +--//////////////////////////////////////////////////////////////////// +--// //// +--// Copyright (C) 2015 Stephen Hawes and OPENCORES.ORG //// +--// //// +--// This source file may be used and distributed without //// +--// restriction provided that this copyright statement is not //// +--// removed from the file and that any derivative work contains //// +--// the original copyright notice and the associated disclaimer. //// +--// //// +--// This source file is free software; you can redistribute it //// +--// and/or modify it under the terms of the GNU Lesser General //// +--// Public License as published by the Free Software Foundation; //// +--// either version 2.1 of the License, or (at your option) any //// +--// later version. //// +--// //// +--// This source is distributed in the hope that it will be //// +--// useful, but WITHOUT ANY WARRANTY; without even the implied //// +--// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR //// +--// PURPOSE. See the GNU Lesser General Public License for more //// +--// details. //// +--// //// +--// You should have received a copy of the GNU Lesser General //// +--// Public License along with this source; if not, download it //// +--// from //// +--// //// +--//////////////////////////////////////////////////////////////////// +--// +--// \$Id\$ TAKE OUT THE \'s and this comment in order to get this to work +--// +--// CVS Revision History +--// +--// \$Log\$ TAKE OUT THE \'s and this comment in order to get this to work +--// +library ieee; +use ieee.std_logic_1164.all; + +entity parse_price is + port ( + in_byte: in std_logic_vector(7 downto 0); + byte_reset: in std_logic; + byte_ready: in std_logic; + price_ready: out std_logic; + -- pxdata: out price_packet + px_type: out std_logic_vector(4 downto 0); + buy_sell: out std_logic_vector(2 downto 0); -- 111 buy, 000 sell + px: out std_logic_vector(15 downto 0); -- price + qty: out std_logic_vector(15 downto 0); -- quantity + sec: out std_logic_vector(55 downto 0); -- 7x 8bits securities identifier + id: out std_logic_vector(15 downto 0) -- unique/identifier/counter + ); +end parse_price; + +architecture parse_price_implementation of parse_price is + signal infield: std_logic_vector(55 downto 0); + signal pos: integer range 0 to 13; +begin + parse: process (byte_ready) is + begin + infield(55 downto 8) <= infield(47 downto 0); + infield(7 downto 0) <= in_byte; + if rising_edge(byte_ready) then + case pos is + when 0 => + px_type <= in_byte(4 downto 0); + buy_sell <= in_byte(7 downto 5); + infield <= (others=>'0'); + when 1 => + px <= infield(15 downto 0); + infield <= (others=>'0'); + when 3 => + qty <= infield(15 downto 0); + infield <= (others=>'0'); + when 10 => + sec <= infield(55 downto 0); + infield <= (others=>'0'); + when 12 => + id <= infield(15 downto 0); + infield <= (others=>'0'); + price_ready <= std_logic'('1'); + when others => null; + end case; + + if byte_reset = '1' then + pos <= 0; + else + pos <= pos+1; + end if; + end if; + end process parse; + +end parse_price_implementation; + +-- 2008: can make price packet generic, eg; +-- generic ( type price_packet ); +-- type price_packet is record +-- px_type: std_logic_vector(4 downto 0); +-- buy_sell: std_logic_vector(2 downto 0); -- 111 buy, 000 sell +-- px: std_logic_vector(15 downto 0); -- price +-- qty: std_logic_vector(15 downto 0); -- quantity +-- sec: std_logic_vector(55 downto 0); -- 7x 8bits securities identifier +-- id: std_logic_vector(15 downto 0); -- unique/identifier/counter +-- end record price_packet; + Index: parse_price_wrapper.vhd =================================================================== --- parse_price_wrapper.vhd (nonexistent) +++ parse_price_wrapper.vhd (revision 3) @@ -0,0 +1,182 @@ +--//////////////////////////////////////////////////////////////////// +--// //// +--// parse_price_wrapper.vhd //// +--// //// +--// This file is part of the open_hitter opencores effort. //// +--// //// +--// //// +--// Module Description: //// +--// Simulation program (non-synthesizable) //// +--// Single module development: parse_price.vhd //// +--// target env: ghdl //// +--// //// +--// To Do: //// +--// #LOTS //// +--// //// +--// Author(s): //// +--// - Stephen Hawes //// +--// //// +--//////////////////////////////////////////////////////////////////// +--// //// +--// Copyright (C) 2015 Stephen Hawes and OPENCORES.ORG //// +--// //// +--// This source file may be used and distributed without //// +--// restriction provided that this copyright statement is not //// +--// removed from the file and that any derivative work contains //// +--// the original copyright notice and the associated disclaimer. //// +--// //// +--// This source file is free software; you can redistribute it //// +--// and/or modify it under the terms of the GNU Lesser General //// +--// Public License as published by the Free Software Foundation; //// +--// either version 2.1 of the License, or (at your option) any //// +--// later version. //// +--// //// +--// This source is distributed in the hope that it will be //// +--// useful, but WITHOUT ANY WARRANTY; without even the implied //// +--// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR //// +--// PURPOSE. See the GNU Lesser General Public License for more //// +--// details. //// +--// //// +--// You should have received a copy of the GNU Lesser General //// +--// Public License along with this source; if not, download it //// +--// from //// +--// //// +--//////////////////////////////////////////////////////////////////// +--// +--// \$Id\$ TAKE OUT THE \'s and this comment in order to get this to work +--// +--// CVS Revision History +--// +--// \$Log\$ TAKE OUT THE \'s and this comment in order to get this to work +--// +library ieee; +use ieee.std_logic_1164.all; +use std.textio.all; -- Imports the standard textio package. +-- use ieee.std_logic_textio.all; + + entity parse_price_wrapper is + end parse_price_wrapper; + + architecture behaviour of parse_price_wrapper is + component parse_price + port ( + in_byte: in std_logic_vector(7 downto 0); + byte_reset: in std_logic; + byte_ready: in std_logic; + price_ready: out std_logic; + -- pxdata: out price_packet + px_type: out std_logic_vector(4 downto 0); + buy_sell: out std_logic_vector(2 downto 0); -- 111 buy, 000 sell + px: out std_logic_vector(15 downto 0); -- price + qty: out std_logic_vector(15 downto 0); -- quantity + sec: out std_logic_vector(55 downto 0); -- 7x 8bits securities identifier + id: out std_logic_vector(15 downto 0) -- unique/identifier/counter + ); + end component; + for parse_price_0: parse_price use entity work.parse_price; + signal in_byte: std_logic_vector(7 downto 0); + signal byte_reset: std_logic; + signal byte_ready: std_logic; + signal price_ready: std_logic; + -- pxdata: price_packet + signal px_type: std_logic_vector(4 downto 0); + signal buy_sell: std_logic_vector(2 downto 0); -- 111 buy, 000 sell + signal px: std_logic_vector(15 downto 0); -- price + signal qty: std_logic_vector(15 downto 0); -- quantity + signal sec: std_logic_vector(55 downto 0); -- 7x 8bits securities identifier + signal id: std_logic_vector(15 downto 0); -- unique/identifier/counter + begin + parse_price_0: parse_price port map ( + in_byte => in_byte, + byte_reset => byte_reset, + byte_ready => byte_ready, + price_ready => price_ready, + -- price_packet + px_type => px_type, + buy_sell => buy_sell, + px => px, + qty => qty, + sec => sec, + id => id + ); + process + variable l : line; + -- WWHHAATTSSEECC + constant pkt : std_logic_vector(103 downto 0) := X"081234567857484154534543C0"; + variable pos : integer; + variable offset : integer; + variable eoffset : integer; + begin + write (l, String'("Exercising parse_price")); + writeline (output, l); + + byte_ready <= '0'; + wait for 1 ns; + byte_reset <= '1'; + byte_ready <= '1'; + wait for 1 ns; + byte_ready <= '0'; + wait for 1 ns; + byte_reset <= '0'; + + for pos in 12 downto 0 loop + in_byte <= pkt(8*pos+7 downto 8*pos); + byte_ready <= '1'; + wait for 1 ns; + + for i in in_byte'range loop + write(l, std_logic'image(in_byte(i)) ); + end loop; + + write(l, String'(" px_type:")); + for i in px_type'range loop + write(l, std_logic'image(px_type(i)) ); + end loop; + + write(l, String'(" buy_sell:")); + for i in buy_sell'range loop + write(l, std_logic'image(buy_sell(i)) ); + end loop; + + write(l, String'(" px:")); + for i in px'range loop + write(l, std_logic'image(px(i)) ); + end loop; + + write(l, String'(" qty:")); + for i in qty'range loop + write(l, std_logic'image(qty(i)) ); + end loop; + + write(l, String'(" sec:")); + for i in sec'range loop + write(l, std_logic'image(sec(i)) ); + end loop; + + write(l, String'(" id:")); + for i in id'range loop + write(l, std_logic'image(id(i)) ); + end loop; + + writeline(output, l); + + byte_ready <= '0'; + wait for 1 ns; + end loop; + + + write (l, String'("Done parse_price")); + writeline (output, l); + + if (px_type = B"01000") and (buy_sell = B"000") and (px = B"00000000_00001000") + and (qty = B"00110100_00110100") + and (sec = B"01001000_01000001_01000001_01010100_01010100_01010011_01010011") + and (id = B"01000011_01000011") + then + write (l, String'("... and Price is OK.")); + writeline (output, l); + end if; + + wait; + end process; + end behaviour;