hp-saturn/opcodes/80[CD]n_C_and_P_n.v

24 lines
427 B
Coq
Raw Normal View History

2019-02-07 22:54:06 +01:00
/******************************************************************************
* 80Cn C=P n
*
*
*/
`include "decstates.v"
`DEC_C_EQ_P_N: begin
2019-02-09 19:18:58 +01:00
C[nb_in*4+:4] <= P;
decstate <= `DEC_START;
`ifdef SIM
2019-02-09 19:18:58 +01:00
$display("%05h C=P\t%h", inst_start_PC, nb_in);
`endif
end
2019-02-10 09:02:24 +01:00
`DEC_P_EQ_C_N: begin
P <= C[nb_in*4+:4];
decstate <= `DEC_START;
`ifdef SIM
$display("%05h P=C\t%h", inst_start_PC, nb_in);
`endif
end