add tape out and midi out

This commit is contained in:
Eugene Lozovoy
2024-09-18 19:12:14 +03:00
parent d35e1692eb
commit a718abd9eb
2 changed files with 31 additions and 6 deletions

View File

@ -45,6 +45,8 @@ module tsconf
input WARM_RESET,
input [64:0] RTC,
input TAPE_IN,
output TAPE_OUT,
output MIDI_OUT,
// Configuration bits
input CFG_OUT0,
@ -1014,6 +1016,8 @@ module tsconf
wire [11:0] ts_l, ts_r;
wire [7:0] ts_do;
wire [7:0] ioa_out;
assign MIDI_OUT = ioa_out[2];
turbosound turbosound
(
@ -1025,7 +1029,8 @@ module tsconf
.DI(d),
.DO(ts_do),
.CHANNEL_L(ts_l),
.CHANNEL_R(ts_r)
.CHANNEL_R(ts_r),
.IOA_out(ioa_out)
);
@ -1102,7 +1107,7 @@ module tsconf
// Beeper and Tape out
reg [7:0] port_xxfe_reg;
always @(posedge fclk) if (beeper_wr) port_xxfe_reg <= d;
assign TAPE_OUT = port_xxfe_reg[3];
// Audio output
wire [11:0] audio_l = ts_l + {gs_l[14], gs_l[14:4]} + {2'b00, covox_a, 2'b00} + {2'b00, covox_b, 2'b00} + {1'b0, saa_out_l, 3'b000} + {3'b000, port_xxfe_reg[4], 8'b00000000};