Line 3... |
Line 3... |
// IBM 650 Reconstruction in Verilog (i650)
|
// IBM 650 Reconstruction in Verilog (i650)
|
//
|
//
|
// This file is part of the IBM 650 Reconstruction in Verilog (i650) project
|
// This file is part of the IBM 650 Reconstruction in Verilog (i650) project
|
// http:////www.opencores.org/project,i650
|
// http:////www.opencores.org/project,i650
|
//
|
//
|
// Description: Table lookup.
|
// Description: Table look-up.
|
//
|
//
|
// Additional Comments: See US 2959351, Fig. 86.
|
// Additional Comments: See US 2959351, Fig. 86.
|
//
|
//
|
// Copyright (c) 2015 Robert Abeles
|
// Copyright (c) 2015 Robert Abeles
|
//
|
//
|
Line 161... |
Line 161... |
assign prog_ped_regen = prog_ped_regen_latch; // & ~ap;
|
assign prog_ped_regen = prog_ped_regen_latch; // & ~ap;
|
|
|
always @(posedge bp)
|
always @(posedge bp)
|
if (rst) begin
|
if (rst) begin
|
prog_ped_regen_latch <= 0;
|
prog_ped_regen_latch <= 0;
|
end else if (~prog_add_on_p)
|
end else if (~prog_add_on_p) begin
|
prog_ped_regen_latch <= 0;
|
prog_ped_regen_latch <= 0;
|
end else if (wp) begin
|
end else if (dx) begin
|
prog_ped_regen_latch <= 1;
|
prog_ped_regen_latch <= 1;
|
end;
|
end;
|
|
|
//-----------------------------------------------------------------------------
|
//-----------------------------------------------------------------------------
|
// TLU Carry Latch
|
// TLU Carry Latch
|
Line 179... |
Line 179... |
reg tlu_carry;
|
reg tlu_carry;
|
|
|
always @(posedge ap)
|
always @(posedge ap)
|
if (rst) begin
|
if (rst) begin
|
tlu_carry <= 0;
|
tlu_carry <= 0;
|
end else if (edx) begin
|
end else if (dx) begin
|
tlu_carry <= tlu_control & (carry_test_latch | tlu_or_acc_zero_check);
|
tlu_carry <= tlu_control & (carry_test_latch | tlu_or_acc_zero_check);
|
end;
|
end;
|
|
|
wire tlu_carry_off_sig;
|
wire tlu_carry_off_sig;
|
digit_pulse tc_sig (rst, bp, ~tlu_carry, 1'b1, tlu_carry_off_sig);
|
digit_pulse tc_sig (rst, bp, ~tlu_carry, 1'b1, tlu_carry_off_sig);
|