hp-saturn/opcodes/1x.v

31 lines
768 B
Coq
Raw Normal View History

2019-02-07 22:54:06 +01:00
/******************************************************************************
* 1X
*
*
*/
2019-02-08 19:09:13 +01:00
`include "decstates.v"
`DEC_1X: begin
2019-02-09 19:18:58 +01:00
case (nb_in)
4'h3: decstate <= `DEC_13X;
2019-02-08 19:09:13 +01:00
4'h4: decstate <= `DEC_14X;
2019-02-09 11:53:45 +01:00
4'h5: decstate <= `DEC_15X;
2019-02-10 13:39:56 +01:00
4'h6, 4'h7, 4'h8, 4'hC: begin
2019-02-11 10:41:34 +01:00
t_ptr <= (nb_in[0] && nb_in[1]) || (nb_in[2] && nb_in[3]);
2019-02-10 13:39:56 +01:00
t_add_sub <= nb_in[3];
decstate <= `DEC_PTR_MATH;
end
2019-02-10 23:00:20 +01:00
4'h9: decstate <= `DEC_D0_EQ_2N;
2019-02-10 12:47:50 +01:00
4'hA: decstate <= `DEC_D0_EQ_4N;
2019-02-09 09:49:22 +01:00
4'hB: decstate <= `DEC_D0_EQ_5N;
2019-02-10 23:00:20 +01:00
4'hD: decstate <= `DEC_D1_EQ_2N;
2019-02-09 11:53:45 +01:00
4'hE: decstate <= `DEC_D1_EQ_4N;
2019-02-09 09:49:22 +01:00
4'hF: decstate <= `DEC_D1_EQ_5N;
2019-02-08 19:09:13 +01:00
default: begin
2019-02-10 13:39:56 +01:00
$display("ERROR : DEC_1X %h", nb_in);
2019-02-08 19:09:13 +01:00
decode_error <= 1;
end
endcase
end