From: Christopher Zihao Lu Date: Sun, 11 May 2008 12:15:03 +0000 (-0400) Subject: added daa X-Git-Url: http://git.joshuawise.com/fpgaboy.git/commitdiff_plain/1a827c5b1f95a12df5eac754a84a6bc8e0bf6c40?ds=sidebyside;hp=-c added daa --- 1a827c5b1f95a12df5eac754a84a6bc8e0bf6c40 diff --git a/core/insn_alu_a.v b/core/insn_alu_a.v index 14ccd76..80d317d 100644 --- a/core/insn_alu_a.v +++ b/core/insn_alu_a.v @@ -32,9 +32,81 @@ `_F <= {`_F[7:5],`_A[7],`_F[3:0]}; end `INSN_alu_RRA: begin - `_A <= {`_A[4],`_A[7:1]}; + `_A <= {`_F[4],`_A[7:1]}; `_F <= {`_F[7:5],`_A[0],`_F[3:0]}; end + `INSN_alu_DAA: begin + if (`_F[6]) begin + if (`_F[4]) begin + if(`_A[3:0] >= 4'h6 && `_A[7:4] >= 4'h6 && `F[5]) begin + `_A <= `_A + 8'h9A; + `_F <= {((`_A + 8'h9A) == 8'b0), `_F[6:0]}; + end + else begin + `_A <= `_A + 8'hA0; + `_F <= {((`_A + 8'hA0) == 8'b0), `_F[6:0]}; + end + end + else begin + if(`_A[3:0] <= 4'h9 && `_A[7:4] <= 4'h9 && !`_F[5]) begin + `_F <= {(`_A == 8'b0), `_F[6:0]}; + end + else begin + `_A <= `_A + 8'hFA; + `_F <= {((`_A + 8'hFA) == 8'b0), `_F[6:0]}; + end + end + end + else begin + if (`_F[4]) begin + if(`_F[5]) begin + `_A <= `_A + 8'h66; + `_F <= {((`_A + 8'h66) == 8'b0), `_F[6:0]}; + end + else if (`_A[3:0] > 4'b9) begin + `_A <= `_A + 8'h66; + `_F <= {((`_A + 8'h66) == 8'b0), `_F[6:0]}; + end + else begin + `_A <= `_A + 8'h60; + `_F <= {((`_A + 8'h60) == 8'b0), `_F[6:0]}; + end + end + else begin + if(`_F[5]) begin + if(`_A[7:4] > 4'h9) begin + `_A <= `_A + 8'h66; + `_F <= {((`_A + 8'h66) == 8'b0), `_F[6:5], 1'b1, `_F[3:0]}; + end + else begin + `_A <= `_A + 8'h06; + `_F <= {((`_A + 8'h06) == 8'b0), `_F[6:0]}; + end + end + else begin + if(`_A[3:0] > 4'h9) begin + if (`_A[7:4] > 4'h8) begin + `_A <= `_A + 8'h66; + `_F <= {((`_A + 8'h66) == 8'b0), `_F[6:5], 1'b1, `_F[3:0]}; + end + else begin + `_A <= `_A + 8'h06; + `_F <= {((`_A + 8'h06) == 8'b0), `_F[6:0]}; + end + end + else begin + if (`_A[7:4] > 4'h9) begin + `_A <= `_A + 8'h66; + `_F <= {((`_A + 8'h66) == 8'b0), `_F[6:5], 1'b1, `_F[3:0]}; + end + else begin + `_F <= {(`_A == 8'b0), `_F[6:0]}; + end + end + end + end + end + end `INSN_alu_CPL: begin `_A <= ~`_A; `_F <= {`_F[7],1'b1,1'b1,`_F[4:0]};