hp-saturn/opcodes/13x_ptr_and_AC.v

33 lines
680 B
Coq
Raw Normal View History

2019-02-09 19:18:58 +01:00
/******************************************************************************
* 13X
*
*
*/
`include "decstates.v"
`DEC_13X: begin
case (nb_in)
2019-02-10 12:04:53 +01:00
4'h4: D0[19:0] <= C[19:0];
4'h5: D1[19:0] <= C[19:0];
2019-02-09 19:18:58 +01:00
default: begin
$display("ERROR : DEC_13X");
decode_error <= 1;
end
endcase
decstate <= `DEC_START;
`ifdef SIM
$write("%5h ", inst_start_PC);
if (!nb_in[1])
$write("D");
else
$write("%sD", nb_in[3]?"C":"A");
$write("%b", nb_in[0]);
if (!nb_in[1])
$write("=%s%s", nb_in[2]?"C":"A", nb_in[3]?"S":"");
else
$write("%s", nb_in[3]?"XS":"EX");
$display("");
`endif
end