Warp-SE/cpld/CNT.v

112 lines
3.3 KiB
Verilog

module CNT(
/* C16M clock */
input C16M,
/* FSB clock and bus active signal */
input FCLK, input BACT,
/* Refresh request */
output reg RefReq, output RefUrgent,
/* BERR and QoS speed limit output */
output reg BERRTimeout, output reg QoSGate,
/* Reset, switch, button */
input [3:1] SW, input nRESin, output reg nRESout, input nIPL2,
/* Configuration outputs */
output reg nBR_IOB, output reg FastROMEN, output reg C20MEN, output reg C25MEN);
/* Timer counts from 0 to 11100000 (224) -- 225 states == 14.36 uS */
reg [7:0] Timer = 0;
wire TimerTC = Timer[7:5]==3'b111;
always @(posedge C16M) Timer <= TimerTC ? 0 : Timer+1;
/* Refresh timer outputs
* ___ _______________________________________
* RefReq |___________| |_________
* ___^ Timer==0 ^ Timer==17 _____________^ Timer==0
* RefUrg |_____________________________________| |_________
* ^ Timer==0 ^ Timer==128 ^ Timer==0
*/
assign RefUrgent = Timer[7];
always @(posedge C16M) begin
if (Timer[4]) RefREQ <= 1;
else if (TimerTC) RefREQ <= 0;
end
/* NBACT - "Narrow BACT" in FCLK clock domain */
reg [1:0] BACTCnt = 0;
reg NBACT;
always @(posedge FCLK) begin
if (!BACT) begin
BACTCnt <= 0;
NBACT <= 0;
end else begin
BACTCnt <= BACTCnt+1;
if (BACTCnt==2'b11 && BACT) NBACT <= 1;
end
end
/* NBACTr - NBACT synchronized to C16M clock domain */
reg NBACTr;
always @(posedge C16M) NBACTr <= NBACT;
/* BERR generation in C16M clock domain */
reg BERRArm = 0;
reg BERRTimeout = 0;
always @(posedge C16M) begin
if (NBACTr && TimerTC) begin
if (BERRArm) BERRTimeout <= 1;
end else if (!NBACTr) begin
BERRArm <= 0;
BERRTimeout <= 0;
end
end
/* Sound QoS */
always @(posedge C16M) begin
QoSGate <= Timer[7:6]==2'b11;
end
/* Button/switch synchronization */
reg RESr, IPL2r;
wire DisableSw = SW[1];
reg DisableBtn;
wire FastROMSw = !SW[2];
reg FastROMBtn;
always @(posedge C16M) begin
DisableBtn <= !nRES;
FastROMBtn <= !nIPL2;
end
/* Startup sequence control */
reg PORDone = 0;
reg [3:0] SC; // Startup counter
always @(posedge C16M) if (PORDone && TimerTC) SC <= SC+1; // SC increment
always @(posedge C16M) begin
if (!PORDone) begin
if (!nRESr) begin // While Mac is asserting POR...
nRESout <= 1; // Disable reset
nBR_IOB <= 1; // Disable bus request
end else begin // Once Mac disbles POR...
nRESout <= 0; // Re-enable reset
PORDone <= 1; // Mark POR done
// Decode buttons
if ((DisableSw ^ DisableBtn) && !FastROMBtn) begin
// Disable switch XOR disable button and no ROM button
nBR_IOB <= 1; // Don't request Mac bus
FastROMEN <= 0; // Fast ROM enable is don't care
end else if (( (DisableSw ^ DisableBtn) && FastROMBtn) ||
(!(DisableSw ^ DisableBtn))) begin
// Disable switch XOR disable button and ROM button
// Or neither pressed/enabled
// Or both pressed/enabled
nBR_IOB <= 0; // Request Mac bus
FastROMEN <= FastROMSw ^ FastROMBtn;
end
end
end else if (SC[3:2]==2'b11) nRESout <= 1; // Release reset to run after 12 refresh cycles
end
// Enable both oscillators... only mount one
assign C20MEN = 1;
assign C25MEN = 1;
endmodule