URL
https://opencores.org/ocsvn/t6507lp/t6507lp/trunk
[/] [t6507lp/] [trunk/] [rtl/] [verilog/] [t6507lp_alu.v] - Diff between revs 166 and 167
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
| Rev 166 |
Rev 167 |
| Line 429... |
Line 429... |
STATUS[V] = 1;
|
STATUS[V] = 1;
|
else
|
else
|
STATUS[V] = 0;
|
STATUS[V] = 0;
|
*/
|
*/
|
if (alu_status[D] == 1) begin
|
if (alu_status[D] == 1) begin
|
bcdl = A[3:0] - alu_a[3:0] - ~alu_status[C];
|
bcdl = A[3:0] - alu_a[3:0] - ( 1 - alu_status[C] );
|
bcdh = A[7:4] - alu_a[7:4];
|
bcdh = A[7:4] - alu_a[7:4];
|
if (bcdl > 9) begin
|
if (bcdl > 9) begin
|
bcdh = bcdh + bcdl[5:4];
|
bcdh = bcdh + bcdl[5:4];
|
bcdl = bcdl % 10;
|
bcdl = bcdl % 10;
|
end
|
end
|
© copyright 1999-2025
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.
