Line 123... |
Line 123... |
// Accumulator
|
// Accumulator
|
//-----------------------------------------------------------------------------
|
//-----------------------------------------------------------------------------
|
wire [0:6] ac_early_out, ac_ontime_out, ac_ped_out;
|
wire [0:6] ac_early_out, ac_ontime_out, ac_ped_out;
|
|
|
//-----------------------------------------------------------------------------
|
//-----------------------------------------------------------------------------
|
|
// Adder
|
|
//-----------------------------------------------------------------------------
|
|
wire [0:6] ad_adder_out;
|
|
wire ad_carry_test, ad_no_carry_test, ad_d0l_carry_sig, ad_overflow_stop,
|
|
ad_overflow_light, ad_overflow_sense_sig;
|
|
|
|
//-----------------------------------------------------------------------------
|
// Address register
|
// Address register
|
//-----------------------------------------------------------------------------
|
//-----------------------------------------------------------------------------
|
wire [0:6] ar_addr_th, ar_addr_h, ar_addr_t, ar_addr_u;
|
wire [0:6] ar_addr_th, ar_addr_h, ar_addr_t, ar_addr_u;
|
wire ar_dynamic_addr_hit, ar_addr_no_800x, ar_addr_8000, ar_addr_8001,
|
wire ar_dynamic_addr_hit, ar_addr_no_800x, ar_addr_8000, ar_addr_8001,
|
ar_addr_8002, ar_addr_8003, ar_addr_8002_8003, ar_invalid_addr;
|
ar_addr_8002, ar_addr_8003, ar_addr_8002_8003, ar_invalid_addr;
|
Line 165... |
Line 172... |
wire oc_pgm_start, oc_pgm_stop, oc_err_reset, oc_err_sense_reset;
|
wire oc_pgm_start, oc_pgm_stop, oc_err_reset, oc_err_sense_reset;
|
wire oc_run_control, oc_half_or_pgm_stop, oc_ri_storage, oc_ro_storage,
|
wire oc_run_control, oc_half_or_pgm_stop, oc_ri_storage, oc_ro_storage,
|
oc_storage_control;
|
oc_storage_control;
|
wire oc_man_pgm_reset, oc_man_acc_reset, oc_set_8000, oc_reset_8000,
|
wire oc_man_pgm_reset, oc_man_acc_reset, oc_set_8000, oc_reset_8000,
|
oc_hard_reset;
|
oc_hard_reset;
|
|
wire oc_restart_reset_busy;
|
assign display_digit = oc_display_digit;
|
assign display_digit = oc_display_digit;
|
|
|
//-----------------------------------------------------------------------------
|
//-----------------------------------------------------------------------------
|
// Program step register
|
// Program step register
|
//-----------------------------------------------------------------------------
|
//-----------------------------------------------------------------------------
|
Line 226... |
Line 234... |
.d10(d10),
|
.d10(d10),
|
.dxu(dxu),
|
.dxu(dxu),
|
.d0u(d0u),
|
.d0u(d0u),
|
.wu(wu),
|
.wu(wu),
|
.wl(wl),
|
.wl(wl),
|
.adder_out(`biq_0),
|
.adder_out(ad_adder_out),
|
.console_out(oc_console_out),
|
.console_out(oc_console_out),
|
.acc_regen_gate(1'b1),
|
.acc_regen_gate(1'b1),
|
.right_shift_gate(1'b0),
|
.right_shift_gate(1'b0),
|
.acc_ri_gate(1'b0),
|
.acc_ri_gate(1'b0),
|
.acc_ri_console(oc_acc_ri_console),
|
.acc_ri_console(oc_acc_ri_console),
|
Line 242... |
Line 250... |
.early_out(ac_early_out),
|
.early_out(ac_early_out),
|
.ontime_out(ac_ontime_out),
|
.ontime_out(ac_ontime_out),
|
.ped_out(ac_ped_out)
|
.ped_out(ac_ped_out)
|
);
|
);
|
|
|
|
adder ad (
|
|
.rst(rst),
|
|
.ap(ap),
|
|
.bp(bp),
|
|
.dp(dp),
|
|
.dxu(dxu),
|
|
.dx(dx),
|
|
.d0u(d0u),
|
|
.d1(d1),
|
|
.d1l(d1l),
|
|
.d10(d10),
|
|
.d10u(d10u),
|
|
.wl(wl),
|
|
.entry_a(aa_entry_a),
|
|
.entry_b(ab_entry_b),
|
|
.tlu_on(1'b0),
|
|
.left_shift_off(1'b1),
|
|
.left_shift_on(1'b0),
|
|
.no_carry_insert(1'b0),
|
|
.no_carry_blank(1'b0),
|
|
.carry_insert(1'b0),
|
|
.carry_blank(1'b0),
|
|
.zero_insert(1'b0),
|
|
.error_reset(oc_err_reset),
|
|
.quotient_digit_on(1'b0),
|
|
.overflow_stop_sw(1'b1), // missing from oc_
|
|
.overflow_sense_sw(1'b0), // ditto
|
|
.mult_div_off(1'b0),
|
|
.dist_true_add_gate(1'b0),
|
|
.acc_true_add_latch(1'b0),
|
|
.shift_overflow(1'b0),
|
|
.adder_out(ad_adder_out),
|
|
.carry_test(ad_carry_test),
|
|
.no_carry_test(ad_no_carry_test),
|
|
.d0l_carry_sig(ad_d0l_carry_sig),
|
|
.overflow_stop(ad_overflow_stop),
|
|
.overflow_light(ad_overflow_light),
|
|
.overflow_sense_sig(ad_overflow_sense_sig)
|
|
);
|
|
|
addr_reg ar (
|
addr_reg ar (
|
.rst(rst),
|
.rst(rst),
|
.ap(ap),
|
.ap(ap),
|
.bp(bp),
|
.bp(bp),
|
.dx(dx),
|
.dx(dx),
|
Line 380... |
Line 428... |
.gs_in(tr_gs_out),
|
.gs_in(tr_gs_out),
|
.acc_ontime(ac_ontime_out),
|
.acc_ontime(ac_ontime_out),
|
.dist_ontime(ds_ontime_out),
|
.dist_ontime(ds_ontime_out),
|
.prog_ontime(ps_ontime_out),
|
.prog_ontime(ps_ontime_out),
|
.command(command),
|
.command(command),
|
|
.restart_reset(1'b0),
|
.data_out(oc_data_out),
|
.data_out(oc_data_out),
|
.addr_out(oc_addr_out),
|
.addr_out(oc_addr_out),
|
.console_out(oc_console_out),
|
.console_out(oc_console_out),
|
.display_digit(oc_display_digit),
|
.display_digit(oc_display_digit),
|
.console_to_addr(oc_console_to_addr),
|
.console_to_addr(oc_console_to_addr),
|
Line 406... |
Line 455... |
.reset_8000(oc_reset_8000),
|
.reset_8000(oc_reset_8000),
|
.hard_reset(oc_hard_reset),
|
.hard_reset(oc_hard_reset),
|
.cmd_digit_out(cmd_digit_out),
|
.cmd_digit_out(cmd_digit_out),
|
.busy(busy),
|
.busy(busy),
|
.digit_ready(digit_ready),
|
.digit_ready(digit_ready),
|
|
.restart_reset_busy(oc_restart_reset_busy),
|
.punch_card(punch_card),
|
.punch_card(punch_card),
|
.read_card(read_card),
|
.read_card(read_card),
|
.card_digit_ready(card_digit_ready)
|
.card_digit_ready(card_digit_ready)
|
);
|
);
|
|
|