2019-02-07 22:54:06 +01:00
|
|
|
|
|
|
|
|
/******************************************************************************
|
|
|
|
|
* 80
|
|
|
|
|
* a lot of things start with 80...
|
|
|
|
|
*
|
|
|
|
|
*/
|
|
|
|
|
|
2019-02-07 23:31:35 +01:00
|
|
|
`include "decstates.v"
|
|
|
|
|
|
|
|
|
|
`DEC_80X: begin
|
|
|
|
|
case (nibble)
|
2019-02-08 11:06:19 +01:00
|
|
|
4'h5: begin
|
|
|
|
|
execute_cycle <= 1;
|
|
|
|
|
decstate <= `DEC_CONFIG;
|
|
|
|
|
end
|
2019-02-08 00:02:55 +01:00
|
|
|
4'ha: begin
|
|
|
|
|
execute_cycle <= 1;
|
|
|
|
|
decstate <= `DEC_RESET;
|
|
|
|
|
end
|
2019-02-07 23:31:35 +01:00
|
|
|
4'hc: decstate <= `DEC_C_EQ_P_N;
|
|
|
|
|
default: begin
|
|
|
|
|
$display("ERROR : DEC_80X");
|
|
|
|
|
decode_error <= 1;
|
|
|
|
|
end
|
|
|
|
|
endcase
|
|
|
|
|
end
|
