mirror of
https://github.com/sxpert/hp-saturn
synced 2025-02-07 20:46:14 +01:00
28 lines
552 B
Coq
28 lines
552 B
Coq
|
/******************************************************************************
|
||
|
|
* Dx
|
||
|
|
* register manipulation field A
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
|
||
|
|
`include "decstates.v"
|
||
|
|
|
||
|
|
`DEC_DX: begin
|
||
|
|
case (nibble)
|
||
|
|
4'hA: begin
|
||
|
|
A[19:0] <= C[19:0];
|
||
|
|
$display("%5h A=C\tA", inst_start_PC);
|
||
|
|
end
|
||
|
|
4'hE: begin
|
||
|
|
A[19:0] <= C[19:0];
|
||
|
|
C[19:0] <= A[19:0];
|
||
|
|
$display("%5h ACEX\tA", inst_start_PC);
|
||
|
|
end
|
||
|
|
default: begin
|
||
|
|
$display("ERROR : DEC_DX");
|
||
|
|
decode_error <= 1;
|
||
|
|
end
|
||
|
|
endcase
|
||
|
|
decstate <= `DEC_START;
|
||
|
|
end
|