Miroirs/hp-saturn
1
0
Fork 0
mirror of https://github.com/sxpert/hp-saturn synced 2024-11-16 19:50:19 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

need more registers ;-)

Browse source
This commit is contained in:
Raphael Jacquot 2019-02-12 15:12:19 +01:00
parent bb633d5b80
commit e409021f35
2 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
def-alu.v
View file

@ -50,6 +50,7 @@
`define ALU_REG_R4 12
`define ALU_REG_CST 13
`define ALU_REG_ST 14
`define ALU_REG_M 15
`define ALU_REG_P 15
`define ALU_REG_M 16
`endif

11
saturn-decoder.v
View file

@ -78,9 +78,9 @@ output reg [3:0] o_field_last;
output reg [4:0] o_alu_op;
output reg [3:0] o_reg_dest;
output reg [3:0] o_reg_src1;
output reg [3:0] o_reg_src2;
output reg [4:0] o_reg_dest;
output reg [4:0] o_reg_src1;
output reg [4:0] o_reg_src2;
// generic
output reg o_direction;
@ -151,11 +151,13 @@ always @(posedge i_clk) begin
case (o_alu_op)
`ALU_OP_ZERO: if (o_reg_dest==`ALU_REG_ST) $write("CLRST"); else $write("=0");
`ALU_OP_COPY: $write("=");
`ALU_OP_EXCH: begin end
default: $write("[op:%d]", o_alu_op);
endcase
case (o_alu_op)
`ALU_OP_COPY,
`ALU_OP_EXCH,
`ALU_OP_AND,
`ALU_OP_OR:
case (o_reg_src1)
@ -167,6 +169,9 @@ always @(posedge i_clk) begin
endcase
endcase
if (o_alu_op == `ALU_OP_EXCH)
$write("EX");
case (o_alu_op)
`ALU_OP_AND,
`ALU_OP_OR: begin