Context Navigation

EX1_FSM.vhd @ 39

Last change on this file since 39 was 39, checked in by rolagamo, 12 years ago

File size: 28.8 KB

Line
1	----------------------------------------------------------------------------------
2	-- Company:
3	-- Engineer:GAMOM /KIEGAING
4	--
5	-- Create Date: 08:12:29 06/16/2011
6	-- Design Name:
7	-- Module Name: EX1_FSM - Behavioral
8	-- Project Name:
9	-- Target Devices:
10	-- Tool versions:
11	-- Description: Ce module est chargé de recevoir les instructions du programme MPI et
12	-- de les exécuter (PUT) il coopère avec EX2 qui reçoit les instructions venant du NoC
13	-- (GET)
14	--
15	-- Dependencies:
16	--
17	-- Revision: 09/07/2012
18	-- Revision 0.03 - File updated
19	-- Additional Comments:
20	--
21	----------------------------------------------------------------------------------
22	library IEEE;
23	use IEEE.STD_LOGIC_1164.ALL;
24	--use IEEE.STD_LOGIC_ARITH.ALL;
25	use IEEE.STD_LOGIC_UNSIGNED.ALL;
26	library NocLib ;
27	use Work.Packet_type.ALL;
28	USE ieee.numeric_std.ALL;
29
30
31	use NocLib.CoreTypes.all;
32	---- Uncomment the following library declaration if instantiating
33	---- any Xilinx primitives in this code.
34	--library UNISIM;
35	--use UNISIM.VComponents.all;
36
37	entity EX1_FSM is
38	-- parametres generiques du module :
39
40
41	Port (
42	--instruction_available : in STD_LOGIC;
43	clk : in STD_LOGIC;
44	reset : in STD_LOGIC;
45
46	instruction_en : in std_logic:='0'; -- active le module instruction
47	pid : in std_logic_vector(3 downto 0) ; -- id du processeur
48	nprocs : in std_logic_vector(3 downto 0);-- nombre de processeur du MPSOC - 1
49	Result : out STD_LOGIC_VECTOR (7 downto 0):=(others=>'0'); -- le résultat de l'exécution de ce module
50	AppInitReq :out STD_LOGIC:='0'; -- requête d'initialisation de l'application
51	AppInitAck :in STD_LOGIC; -- Acquitement d'initialisation
52	Initialized:in std_logic ; -- état de la Lib
53	-- Accès au Fifo d'instructions
54	priority_rotation : out STD_LOGIC:='0';
55	fifo_rd_en : out STD_LOGIC:='0';
56	fifo_empty : in STD_LOGIC;
57	fifo_data_out : in STD_LOGIC_VECTOR (7 downto 0);
58	fifo_src : in STD_LOGIC; --permet de désigner le fifo qui est en service
59
60	-- Accès au réseau sur puce
61	switch_port_in_full : in std_logic;
62	switch_port_in_data : out STD_LOGIC_VECTOR (7 downto 0):=(others=>'Z');
63	switch_port_in_wr_en : out STD_LOGIC:='0';
64	-- Accès à la mémoire RAM du PE
65	ram_data_in : in std_logic_vector(7 downto 0);
66	ram_data_out : out std_logic_vector(7 downto 0):=(others=>'0');
67	ram_rd,ram_wr : out std_logic:='0';
68	ram_address : out std_logic_vector(15 downto 0):=(others=>'Z');
69
70	dma_wr_request : OUT std_logic:='0';
71	dma_rd_request : OUT std_logic:='0';
72	dma_wr_grant : in STD_LOGIC;
73	dma_rd_grant : in STD_LOGIC);
74	end EX1_FSM;
75
76	architecture Behavioral of EX1_FSM is
77	-- definition du type etat pour le codage des etats des fsm
78	type fsm_states is (fifo_select, fetch_packet_type, decode_packet_type, fetch_addresses,
79	decode_packet_type2, read_status1,read_status2,execute_barrier1, execute_barrier2, execute_barrier3, execute_barrier4,
80	execute_get1, execute_get2,execute_get3,execute_get4, execute_put1, execute_put2, execute_put3, execute_put4,execute_put5,
81	execute_init1,execute_init2,execute_init3);
82	-- machine a etat du module
83	signal ex1_state_mach : fsm_states;
84
85	-- les variables utilisées dans la fsm
86
87	signal data_to_send : std_logic_vector(Word-1 downto 0);
88	signal packet_type : std_logic_vector(3 downto 0);
89	--signal dpid : std_logic_vector(3 downto 0);
90	signal pid_counter : std_logic_vector(3 downto 0);
91	signal packet_length : std_logic_vector(Word-1 downto 0);
92	signal src_address : std_logic_vector(ADRLEN-1 downto 0);
93	signal dma_rd,dma_wr,Wr_ok,rd_ok:std_logic:='0';
94	--signal res_address : std_logic_vector(15 downto 0);
95	signal dest_address : std_logic_vector(ADRLEN-1 downto 0);
96	signal n : std_logic_vector(3 downto 0);
97	signal len : std_logic_vector(Word-1 downto 0);
98
99	begin
100	-- connection des signaux avec les ports
101	ram_address <= src_address;
102
103	-- processus de transistion entre les etats
104	fsm_nst_logic : process(clk)
105	variable tempval : std_logic_vector(Word-1 downto 0);
106	begin
107	if rising_edge(clk) then
108	if reset = '1' then
109	ex1_state_mach <= fifo_select;
110	else
111	case ex1_state_mach is
112	when fifo_select => if instruction_en='1' and fifo_empty ='0' then
113	ex1_state_mach <= fetch_packet_type;
114	else
115	ex1_state_mach <= fifo_select;
116	end if;
117	--lecture du registre status de la mib MPI
118	when read_status1 => if dma_rd_grant = '1' then -- fin du mpi_put
119	ex1_state_mach <= read_status2;
120	else
121	ex1_state_mach <= read_status1;
122	end if;
123	src_address<=std_logic_vector(to_unsigned(core_base_adr,16));
124	when read_status2 =>
125	ex1_state_mach <= fifo_select;
126	when fetch_packet_type => if fifo_empty ='1' then
127	ex1_state_mach <= fifo_select;
128	else
129	packet_type <= fifo_data_out(7 downto 4);
130	data_to_send <= fifo_data_out;
131	ex1_state_mach <= decode_packet_type;
132	end if;
133	when decode_packet_type =>
134	if packet_type = MPI_PUT then
135	packet_length <= fifo_data_out + 4;
136	n <= "0000";
137	ex1_state_mach <= fetch_addresses;
138	elsif packet_type = MPI_GET then
139	len <= fifo_data_out;
140	n <= "0000";
141	ex1_state_mach <= fetch_addresses;
142	elsif packet_type = MPI_BARRIER_REACHED or packet_type = MPI_BARRIER_COMPLETED then
143	packet_length <= "00000011"; -- = 3
144	pid_counter <= "0000";
145	ex1_state_mach <= execute_barrier1;
146	elsif packet_type = MPI_INIT then
147	ex1_state_mach<=execute_init1;
148	else -- packet non reconnu
149	if fifo_empty = '1' then
150	ex1_state_mach <= fifo_select;
151	else
152	packet_type <= fifo_data_out(7 downto 4); --lire le prochain paquet
153	data_to_send <= fifo_data_out;
154	ex1_state_mach <= decode_packet_type;-- pas necessaire mais plus sure
155	end if;
156	end if;
157
158	when fetch_addresses => if fifo_empty = '0' and n = 0 then
159	src_address(15 downto 8) <= fifo_data_out;
160	n <= n + 1;
161	ex1_state_mach <= fetch_addresses;
162	elsif fifo_empty = '0' and n = 1 then
163	src_address(7 downto 0) <= fifo_data_out;
164	n <= n + 1;
165	ex1_state_mach <= fetch_addresses;
166	elsif fifo_empty = '0' and n = 2 then
167	dest_address(15 downto 8) <= fifo_data_out;
168	n <= n + 1;
169	ex1_state_mach <= fetch_addresses;
170	elsif fifo_empty = '0' and n = 3 then
171	dest_address(7 downto 0) <= fifo_data_out;
172	n <= "0000";
173	ex1_state_mach <= decode_packet_type2;
174	elsif fifo_empty='1' then
175	ex1_state_mach <= fetch_addresses; --attendre les données manquantes
176	else
177	ex1_state_mach <= fifo_select;
178	end if;
179	when decode_packet_type2 => if packet_type = MPI_PUT then
180	ex1_state_mach <= execute_put1;
181	elsif packet_type = MPI_GET then
182	ex1_state_mach <= execute_get1;
183	end if;
184	-- execution du mpi put
185	when execute_put1 => if dma_rd_grant = '1' then
186	ex1_state_mach <= execute_put2;
187	else
188	ex1_state_mach <= execute_put1;
189	end if;
190	Wr_ok<='0';
191	when execute_put2 => if switch_port_in_full = '0' and n = 0 then
192	data_to_send <= packet_length;
193	n <= n + 1;
194	ex1_state_mach <= execute_put2;
195	elsif switch_port_in_full = '0' and n = 1 then
196	data_to_send <= dest_address(15 downto 8);
197	n <= n + 1;
198	ex1_state_mach <= execute_put2;
199	elsif switch_port_in_full = '0' and n = 2 then
200	data_to_send <= dest_address(7 downto 0);
201	n <= n +1;
202	ex1_state_mach <= execute_put2;
203	elsif switch_port_in_full = '0' and n = 3 then
204	packet_length <= packet_length - 4;
205	ex1_state_mach <= execute_put3;
206	Wr_ok<='0';
207	else
208	ex1_state_mach <= execute_put2;
209	end if;
210	when execute_put3 => if unsigned(packet_length)>0 then
211	if switch_port_in_full = '0' then
212	packet_length <= packet_length - 1;
213	src_address <= src_address + 1;
214	ex1_state_mach <= execute_put3;
215	Wr_Ok<='1';
216	else
217	Wr_Ok<='0';
218	end if;
219	else
220	Wr_Ok<='0';
221	ex1_state_mach <= execute_put4;
222	end if;
223	when execute_put4 => if dma_rd_grant = '1' then -- fin du mpi_put
224	ex1_state_mach <= execute_put5;
225	n<="0000";
226	data_to_send<="00000001";
227	else
228	ex1_state_mach <= execute_put4;
229	end if;
230	rd_ok<='1';
231	wr_ok<='0';
232	src_address<=std_logic_vector(to_unsigned(core_base_adr+4,16));
233
234	when execute_put5 => if n <6 then
235
236	dma_wr<='1'; --demander un accès exclusif au bus
237	dma_rd<='1'; -- pour éviter une mauvaise mise à jour des données
238	else
239	dma_wr<='0';
240	dma_rd<='0';
241	end if;
242
243	if n=0 then
244	if dma_rd_grant='1' then
245	n<=n+1;
246
247	end if;
248	rd_ok<='1';
249	wr_ok<='0';
250	dma_wr<='1';
251	dma_rd<='1';
252	elsif n=1 then
253	if dma_rd_grant='1' then
254	n<=n+1;
255	dma_wr<='1';
256	end if;
257	rd_ok<='1';
258	wr_ok<='0';
259
260	dma_rd<='1';
261	elsif n=2 then
262	if dma_rd_grant='1' and dma_wr_grant='1' then
263	n<=n+1;
264	tempval:=Ram_data_in;
265	src_address<=std_logic_vector(to_unsigned(core_base_adr+4,16));
266	if fifo_src='0' then -- c'est un put qui est exécuté
267	tempval(5):='1'; -- SET du bit DSENT
268	else -- c'est un Get qui est exécuté
269	tempval(2):='0'; --annuler le sending après un GET
270	end if;
271	data_to_send<=tempval;
272	rd_ok<='0';
273	wr_ok<='1';
274	dma_wr<='1';
275	dma_rd<='1';
276	else
277	rd_ok<='1';
278	wr_ok<='0';
279	dma_rd<='0'; --libérer le bus et revenir en arrière
280	dma_wr<='0';
281	n<=n-1;
282	end if;
283	elsif n=3 then
284	if dma_wr_grant = '1' and dma_rd_grant='1' then
285	n<=n+1;
286
287	src_address<=std_logic_vector(to_unsigned(core_base_adr+4,16));
288	end if;
289	rd_ok<='0';
290	wr_ok<='1';
291	dma_wr<='1';
292	dma_rd<='1';
293	elsif n=4 then
294	if dma_wr_grant = '1' and dma_rd_grant='1' then
295	n<=n+1;
296
297	src_address<=std_logic_vector(to_unsigned(core_put_adr+6,16));
298
299	end if;
300	rd_ok<='0';
301	wr_ok<='1';
302	dma_wr<='1';
303	dma_rd<='0';
304	elsif n=5 then
305	if dma_wr_grant = '1' then
306	n<=n+1;
307
308	-- SET du bit DSENT
309	data_to_send<="00000001";
310	end if;
311	rd_ok<='0';
312	wr_ok<='1';
313	dma_wr<='1';
314	dma_rd<='0';
315	elsif n=6 then
316	n<="0000";
317	ex1_state_mach <= fifo_select;
318	rd_ok<='0';
319	wr_ok<='0';
320	dma_wr<='0';
321	dma_rd<='0';
322	end if;
323
324
325	when execute_get1 => if switch_port_in_full = '0' and n = 0 then -- execution du mpi get
326	data_to_send <= "00001000"; -- longueur du paquet sur le réseau ?
327	n <= n + 1;
328	ex1_state_mach <= execute_get1;
329	elsif switch_port_in_full = '0' and n = 1 then
330	data_to_send <= "0000"&pid; -- Rang source
331	n <= n + 1;
332	ex1_state_mach <= execute_get1;
333	elsif switch_port_in_full = '0' and n = 2 then
334	data_to_send <= len;
335	n <= n + 1;
336	ex1_state_mach <= execute_get1;
337	elsif switch_port_in_full = '0' and n = 3 then
338	data_to_send <= src_address(15 downto 8);
339	n <= n + 1;
340	ex1_state_mach <= execute_get1;
341	elsif switch_port_in_full = '0' and n = 4 then
342	data_to_send <= src_address(7 downto 0);
343	n <= n + 1;
344	ex1_state_mach <= execute_get1;
345	elsif switch_port_in_full = '0' and n = 5 then
346	data_to_send <= dest_address(15 downto 8);
347	n <= n + 1;
348	ex1_state_mach <= execute_get1;
349	elsif switch_port_in_full = '0' and n = 6 then
350	data_to_send <= dest_address(7 downto 0);
351	n <= n + 1;
352	ex1_state_mach <= execute_get1;
353	elsif switch_port_in_full = '0' and n = 7 then
354	ex1_state_mach <= execute_get2;
355	n<="0000";
356	else
357	ex1_state_mach <= execute_get1;
358	end if;
359	when execute_get2 => if dma_wr_grant = '1' then
360	ex1_state_mach <= execute_get3;
361	src_address<=std_logic_vector(to_unsigned(core_get_adr+6,16));
362	data_to_send<="00000001";
363	else
364	ex1_state_mach <= execute_get2;
365	wr_ok<='1';
366	end if;
367
368	when execute_get3 => if dma_wr_grant = '1' then -- fin du post de mpi_get
369	ex1_state_mach <= execute_get4;
370	n<="0000";
371	data_to_send<="00000001";
372	wr_ok<='0';
373	rd_ok<='1';
374	else
375	ex1_state_mach <= execute_get3;
376	end if;
377	src_address<=std_logic_vector(to_unsigned(core_get_adr+6,16));
378	when execute_get4 => if n=0 then
379
380	if dma_rd_grant='1' then
381	n<=n+1;
382
383	end if;
384	rd_ok<='1';
385	wr_ok<='0';
386	dma_wr<='1';
387	dma_rd<='1';
388	elsif n=1 then
389	src_address<=std_logic_vector(to_unsigned(core_base_adr+4,16));
390	if dma_rd_grant='1' then
391	n<=n+1;
392
393	end if;
394	rd_ok<='1';
395	wr_ok<='0';
396	dma_wr<='1';
397	dma_rd<='1';
398	elsif n=2 then
399	if dma_rd_grant='1' then
400	n<=n+1;
401
402	src_address<=std_logic_vector(to_unsigned(core_base_adr+4,16));
403	end if;
404	dma_wr<='1';
405	dma_rd<='1';
406	elsif n=3 then
407	if dma_rd_grant='1' and dma_wr_grant='1' then
408	n<=n+1;
409	tempval:=Ram_data_in;
410	rd_ok<='0';
411	wr_ok<='1';
412	dma_wr<='1';
413	dma_rd<='1';
414	else
415	dma_wr<='0';
416	dma_rd<='0';
417	n<=n-1;
418	end if;
419	src_address<=std_logic_vector(to_unsigned(core_base_adr+4,16));
420	elsif n=4 then
421	if dma_wr_grant = '1' and dma_rd_grant='1' then
422	n<=n+1;
423
424	--tempval(4):='0'; --RESET du bit DReceived
425	tempval(1):='1'; -- SET du bit DReceiving
426	data_to_send<=tempval;
427	else
428	rd_ok<='0';
429	wr_ok<='1';
430	end if;
431	dma_wr<='1';
432	dma_rd<='1';
433	elsif n=5 then
434	n<="0000";
435	ex1_state_mach <= fifo_select;
436	dma_wr<='0';
437	dma_rd<='0';
438	end if;
439
440	-- execution du barrier
441	when execute_barrier1 => if switch_port_in_full = '0' then
442	ex1_state_mach <= execute_barrier2;
443	else
444	ex1_state_mach <= execute_barrier1;
445	end if;
446	when execute_barrier2 => if switch_port_in_full = '0' then
447	ex1_state_mach <= execute_barrier3;
448	else
449	ex1_state_mach <= execute_barrier2;
450	end if;
451	when execute_barrier3 => if switch_port_in_full = '0' then
452	ex1_state_mach <= execute_barrier4;
453	else
454	ex1_state_mach <= execute_barrier3;
455	end if;
456	when execute_barrier4 => if packet_type = MPI_BARRIER_COMPLETED and pid_counter < nprocs then
457	pid_counter <= pid_counter + 1;
458	ex1_state_mach <= execute_barrier1;
459	else
460	ex1_state_mach <= fifo_select;
461	end if;
462	when execute_init1 => if Initialized='1' then
463	ex1_state_mach<=execute_init2;
464	end if;
465
466	when execute_init2 => if dma_wr_grant = '1' then -- fin du mpi_init
467	ex1_state_mach <= execute_init3;
468	else
469	ex1_state_mach <= execute_init2;
470	end if;
471	-- écriture dans le registre status reg.
472	src_address<=std_logic_vector(to_unsigned(core_base_adr,16));
473	when execute_init3 =>if AppInitAck='1' then
474	ex1_state_mach <= fifo_select;
475	end if;
476	when others => ex1_state_mach <= fifo_select;
477	end case;
478	end if;
479	end if;
480	end process;
481
482	-- sortie de la machine à etat
483	ex1_fsm_action : process(ex1_state_mach, fifo_empty, switch_port_in_full, packet_length,pid,
484	pid_counter, ram_data_in,AppInitAck, data_to_send, packet_type, wr_ok)
485	variable status_reg : std_logic_vector(word-1 downto 0):=(others=>'0');
486	begin
487	-- code fonctionnel
488	case ex1_state_mach is
489	when fifo_select => priority_rotation <='1'; -- on peut changer la priorité
490	fifo_rd_en <= '0';
491	switch_port_in_data <= (others =>'Z');
492	switch_port_in_wr_en <= '0';
493	dma_rd_request <= '0';
494	dma_wr_request <= '0';
495	Ram_rd<='0';
496	Ram_wr<='0';
497	Ram_data_out<=(others=>'0');
498	AppInitReq<='0';
499	Result <=(others=>'0');
500	when read_status1 => priority_rotation <='0';
501	fifo_rd_en <= '0';
502	switch_port_in_data <= (others =>'Z');
503	switch_port_in_wr_en <= '0';
504	dma_rd_request <= '1';
505	dma_wr_request <= '0';
506	Ram_rd<='0';
507	Ram_wr<='0';
508	Ram_data_out<=(others=>'0');
509	AppInitReq<='0';
510	Result <=(others=>'0');
511	when read_status2 => priority_rotation <='0';
512	fifo_rd_en <= '0';
513	switch_port_in_data <= (others =>'Z');
514	switch_port_in_wr_en <= '0';
515	dma_rd_request <= '1';
516	dma_wr_request <= '0';
517	Ram_rd<='1';
518	Ram_wr<='0';
519	Ram_data_out<=(others=>'0');
520	AppInitReq<='0';
521	status_reg:=Ram_data_in;
522	Result <=(others=>'0');
523	when fetch_packet_type => priority_rotation <='0';
524	fifo_rd_en <= not(fifo_empty);
525	switch_port_in_data <= (others =>'Z');
526	AppInitReq<='0';
527	switch_port_in_wr_en <= '0';
528	Ram_rd<='0';
529	Ram_wr<='0';
530	dma_rd_request <= '0';
531	dma_wr_request <= '0';
532	Ram_data_out<=(others=>'0');
533	Result <=(others=>'0');
534
535	when decode_packet_type => priority_rotation <='0';
536	fifo_rd_en <= not(fifo_empty);
537	switch_port_in_data <= (others =>'Z');
538	switch_port_in_wr_en <= '0';
539	AppInitReq<='0';
540	Ram_rd<='0';
541	Ram_wr<='0';
542	dma_rd_request <= '0';
543	dma_wr_request <= '0';
544	Ram_data_out<=(others=>'0');
545	Result <=(others=>'0');
546
547	when fetch_addresses => priority_rotation <='0';
548	fifo_rd_en <= not(fifo_empty);
549	switch_port_in_data <= (others =>'Z');
550	switch_port_in_wr_en <= '0';
551	AppInitReq<='0';
552	Ram_rd<='0';
553	Ram_wr<='0';
554	dma_rd_request <= '0';
555	dma_wr_request <= '0';
556	Ram_data_out<=(others=>'0');
557	Result <=(others=>'0');
558
559	when decode_packet_type2 =>priority_rotation <='0';
560	fifo_rd_en <= '0';
561	switch_port_in_data <= data_to_send;
562	switch_port_in_wr_en <= '0';
563	AppInitReq<='0';
564	Ram_rd<='0';
565	Ram_wr<='0';
566	dma_rd_request <= '0';
567	dma_wr_request <= '0';
568	Ram_data_out<=(others=>'0');
569	Result <=(others=>'0');
570
571	when execute_barrier1 => priority_rotation <='0';
572	fifo_rd_en <= '0';
573	switch_port_in_data <= packet_type & pid_counter;
574	switch_port_in_wr_en <= not(switch_port_in_full);
575	AppInitReq<='0';
576	Ram_rd<='0';
577	Ram_wr<='0';
578	dma_rd_request <= '0';
579	dma_wr_request <= '0';
580	Ram_data_out<=(others=>'0');
581	Result <=(others=>'0');
582
583	when execute_barrier2 => priority_rotation <='0';
584	fifo_rd_en <= '0';
585	switch_port_in_data <= packet_length;
586	switch_port_in_wr_en <= not(switch_port_in_full);
587	AppInitReq<='0';
588	Ram_rd<='0';
589	Ram_wr<='0';
590	dma_rd_request <= '0';
591	dma_wr_request <= '0';
592	Ram_data_out<=(others=>'0');
593	Result <=(others=>'0');
594
595	when execute_barrier3 => priority_rotation <='0';
596	fifo_rd_en <= '0';
597	switch_port_in_data <= "0000" & pid;
598	switch_port_in_wr_en <= not(switch_port_in_full);
599	AppInitReq<='0';
600	Ram_rd<='0';
601	Ram_wr<='0';
602	dma_rd_request <= '0';
603	dma_wr_request <= '0';
604	Ram_data_out<=(others=>'0');
605	Result <=(others=>'0');
606
607	when execute_barrier4 => priority_rotation <='0';
608	fifo_rd_en <= '0';
609	switch_port_in_data <= "0000" & pid;
610	switch_port_in_wr_en <= '0';
611	AppInitReq<='0';
612	dma_rd_request <= '0';
613	Ram_rd<='0';
614	Ram_wr<='0';
615	dma_wr_request <= '0';
616	Ram_data_out<=(others=>'0');
617	Result <=(others=>'0');
618
619	when execute_get1 => priority_rotation <='0';
620	fifo_rd_en <= '0';
621	switch_port_in_data <= data_to_send;
622	switch_port_in_wr_en <= not(switch_port_in_full);
623	AppInitReq<='0';
624	Ram_rd<='0';
625	Ram_wr<='0';
626	dma_rd_request <= '0';
627	dma_wr_request <= '0';
628	Ram_data_out<=(others=>'0');
629	Result <=(others=>'0');
630
631	when execute_get2 => priority_rotation <='0';
632	fifo_rd_en <= '0';
633	switch_port_in_data <= data_to_send;
634	switch_port_in_wr_en <='0';
635	AppInitReq<='0';
636	Ram_rd<='0';
637	Ram_wr<='0';
638	dma_rd_request <= '0';
639	dma_wr_request <= Wr_ok;
640	Ram_rd<='0';
641	Ram_wr<='0';
642	Ram_data_out<=(others=>'0');
643	Result <=(others=>'0');
644
645
646	when execute_get3 => priority_rotation <='0';
647	fifo_rd_en <= '0';
648	switch_port_in_data <= ram_data_in;---???
649	switch_port_in_wr_en <= '0';
650	AppInitReq<='0';
651	dma_rd_request <= '0';
652	dma_wr_request <= '1';
653	Ram_rd<='0';
654	Ram_wr<='1';
655	Ram_data_out<=data_to_send; -- le résultat de l'exécution
656	--result(1)<='1';
657	Result <=(2=>'1',others=>'0');--Get completed
658	when execute_get4 => priority_rotation <='0';
659	fifo_rd_en <= '0';
660	switch_port_in_data <= ram_Data_in;
661	switch_port_in_wr_en <= '0';
662	AppInitReq<='0';
663	dma_rd_request <= dma_rd;
664	dma_wr_request <= dma_wr;
665	Ram_rd<=rd_ok;
666	Ram_wr<=wr_ok;
667	Ram_data_out<=data_to_send; --"00000001";
668	Result <=(2=>'1',others=>'0'); --get completed
669	when execute_put1 => priority_rotation <='0';
670	fifo_rd_en <= '0';
671	switch_port_in_data <= data_to_send;
672	switch_port_in_wr_en <= '0';
673	AppInitReq<='0';
674	dma_rd_request <= '1';
675	dma_wr_request <= '0';
676	Ram_rd<='0';
677	Ram_wr<='0';
678	Ram_data_out<=(others=>'0');
679	Result <=(others=>'0');
680
681
682	when execute_put2 => priority_rotation <='0';
683	fifo_rd_en <= '0';
684	switch_port_in_data <= data_to_send;
685	switch_port_in_wr_en <= not(switch_port_in_full);
686	AppInitReq<='0';
687	Ram_rd<='1';
688	Ram_wr<='0';
689	dma_rd_request <= '1';
690	dma_wr_request <= '0';
691	Ram_data_out<=(others=>'0');
692	Result <=(others=>'0');
693
694	when execute_put3 => priority_rotation <='0';
695	fifo_rd_en <= '0';
696	switch_port_in_data <= ram_data_in;
697	switch_port_in_wr_en <= not(switch_port_in_full) and wr_ok;
698	AppInitReq<='0';
699	dma_rd_request <= '1';
700	dma_wr_request <= '0';
701	Ram_rd<='1';
702	Ram_wr<='0';
703	Ram_data_out<=(others=>'0');
704	Result <=(others=>'0');
705
706	when execute_put4 => priority_rotation <='0';
707	fifo_rd_en <= '0';
708	switch_port_in_data <= ram_data_in;---???
709	switch_port_in_wr_en <= '0';
710	AppInitReq<='0';
711	dma_rd_request <= rd_ok;
712	dma_wr_request <= wr_ok;
713	Ram_rd<=rd_ok;
714	Ram_wr<=wr_ok;
715	Ram_data_out<=data_to_send; --"00000001"; -- le résultat de l'exécution
716	--result(1)<='1';
717	Result <=(1=>'1',others=>'0');--put completed
718	when execute_put5 => priority_rotation <='0';
719	fifo_rd_en <= '0';
720	switch_port_in_data <= ram_Data_in;
721	switch_port_in_wr_en <= '0';
722	AppInitReq<='0';
723	dma_rd_request <= dma_rd;
724	dma_wr_request <= dma_wr;
725	Ram_rd<=rd_ok;
726	Ram_wr<=wr_ok;
727	Ram_data_out<=data_to_send; --"00000001";
728	Result <=(1=>'1',others=>'0'); --put completed
729	when execute_init1 => priority_rotation <='0';
730	fifo_rd_en <= '0';
731	switch_port_in_data <= (others =>'Z');
732	switch_port_in_wr_en <= '0';
733	dma_rd_request <= '0';
734	dma_wr_request <= '0';
735	Ram_rd<='0';
736	Ram_wr<='0';
737	Ram_data_out<=(others=>'0');
738	AppInitReq<='1';
739	Result <=(others=>'0');
740
741	when execute_init2=> priority_rotation <='0';
742	fifo_rd_en <= '0';
743	switch_port_in_data <= (others =>'Z');
744	switch_port_in_wr_en <= '0';
745	AppInitReq<='1';
746	dma_rd_request <= '0';
747	dma_wr_request <= '1';
748	Ram_rd<='0';
749	Ram_wr<='1';
750	Ram_data_out<="00010000"; -- le résultat de l'exécution
751	-- dans le registre status
752	Result <=(others=>'0');--
753	when execute_init3=> priority_rotation <='0';
754	fifo_rd_en <= '0';
755	switch_port_in_data <= ram_Data_in;
756	switch_port_in_wr_en <= '0';
757	AppInitReq<='1';
758	dma_rd_request <= '0';
759	dma_wr_request <= '1';
760	Ram_rd<='0';
761	Ram_wr<='1';
762	Ram_data_out<="00010000";
763	Result<=(0=>'1',others=>'0'); --le résultat de l'initialisation est écrit
764
765	when others => priority_rotation <='0';
766	fifo_rd_en <= '0';
767	switch_port_in_data <= (others =>'Z');
768	switch_port_in_wr_en <= '0';
769	dma_rd_request <= '0';
770	dma_wr_request <= '0';
771	Ram_rd<='0';
772	Ram_wr<='0';
773	Ram_data_out<=(others=>'0');
774	AppInitReq<='0';
775	Result <=(others=>'0');
776	end case;
777
778	end process;
779
780	end Behavioral;
781

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: PROJECT_CORE_MPI/CORE_MPI/BRANCHES/v0.01/EX1_FSM.vhd @ 39

Download in other formats: