mirror of
https://github.com/sxpert/hp-saturn
synced 2025-01-31 19:57:50 +01:00
41 lines
1.1 KiB
Coq
41 lines
1.1 KiB
Coq
|
/******************************************************************************
|
||
|
|
*1bnnnnn DO=(5) nnnnn
|
||
|
|
*
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
`include "decstates.v"
|
||
|
|
|
||
|
|
`DEC_D0_EQ_5N, `DEC_D1_EQ_5N: begin
|
||
|
|
t_cnt <= 4;
|
||
|
|
t_ctr <= 1;
|
||
|
|
if (decstate == `DEC_D0_EQ_5N) begin
|
||
|
|
D0[3:0] <= nibble;
|
||
|
|
decstate <= `DEC_D0_EQ_5N_LOOP;
|
||
|
|
end else begin
|
||
|
|
D1[3:0] <= nibble;
|
||
|
|
decstate <= `DEC_D1_EQ_5N_LOOP;
|
||
|
|
end
|
||
|
|
end
|
||
|
|
`DEC_D0_EQ_5N_LOOP, `DEC_D1_EQ_5N_LOOP: begin
|
||
|
|
|
||
|
|
if (decstate == `DEC_D0_EQ_5N_LOOP)
|
||
|
|
D0[t_ctr*4+:4] <= nibble;
|
||
|
|
else
|
||
|
|
D1[t_ctr*4+:4] <= nibble;
|
||
|
|
|
||
|
|
if (t_ctr == t_cnt) begin
|
||
|
|
decstate <= `DEC_START;
|
||
|
|
`ifdef SIM
|
||
|
|
$write("%5h D%b=(5)\t%1h", inst_start_PC, (decstate == `DEC_D0_EQ_5N_LOOP), nibble);
|
||
|
|
for(t_ctr = 0; t_ctr != t_cnt; t_ctr ++)
|
||
|
|
$write("%1h",
|
||
|
|
(decstate == `DEC_D0_EQ_5N_LOOP)?
|
||
|
|
D0[(t_cnt - t_ctr - 4'h1)*4+:4]:
|
||
|
|
D1[(t_cnt - t_ctr - 4'h1)*4+:4]
|
||
|
|
);
|
||
|
|
$write("\n");
|
||
|
|
`endif
|
||
|
|
end else
|
||
|
|
t_ctr <= t_ctr + 1;
|
||
|
|
end
|