mirror of
https://github.com/nippur72/Apple1_MiST.git
synced 2025-02-28 18:29:27 +00:00
53 lines
1.5 KiB
Verilog
53 lines
1.5 KiB
Verilog
|
|
module clock
|
|
(
|
|
input sys_clock, // master clock at cpu x 7 x 8
|
|
input reset, // reset
|
|
|
|
output pixel_clken, // 7MHz clock enable for the display
|
|
output cpu_clken, // 1MHz clock enable for the CPU, ram refresh cycles inlcuded
|
|
output cpu_clken_noRF, // 1MHz clock (pure, without refresh cycles)
|
|
|
|
output cpu_clock
|
|
);
|
|
|
|
localparam CPU_DIVISOR = 56; // (sys_clock / CPU_DIVISOR) = 1 MHz
|
|
localparam PIXEL_DIVISOR = 8; // (sys_clock / PIXEL_DIVISOR) = 7 MHz
|
|
localparam REFRESH_DIVISOR = 65; // counts 65 clock ticks (one complete scanline at phi0 speed)
|
|
|
|
reg [5:0] counter_cpu;
|
|
reg [2:0] counter_pixel;
|
|
reg [7:0] counter_refresh;
|
|
|
|
always @(posedge sys_clock or posedge reset)
|
|
begin
|
|
if(reset) begin
|
|
counter_cpu <= 0;
|
|
counter_pixel <= 0;
|
|
counter_refresh <= 0;
|
|
end
|
|
else begin
|
|
|
|
if (counter_cpu == (CPU_DIVISOR-1)) begin
|
|
counter_cpu <= 0;
|
|
counter_refresh <= (counter_refresh == REFRESH_DIVISOR-1) ? 0 : counter_refresh + 1;
|
|
end
|
|
else
|
|
counter_cpu <= counter_cpu + 1;
|
|
|
|
counter_pixel <= (counter_pixel == PIXEL_DIVISOR-1) ? 0 : counter_pixel + 1;
|
|
|
|
end
|
|
end
|
|
|
|
// the ram refresh cycle is activated by the horizontal counter on every 10 characters
|
|
wire RF = counter_refresh == 25 || counter_refresh == 35 || counter_refresh == 45 || counter_refresh == 55;
|
|
|
|
assign cpu_clken = counter_cpu == 0 && !RF;
|
|
assign cpu_clken_noRF = counter_cpu == 0;
|
|
assign pixel_clken = counter_pixel == 0;
|
|
|
|
assign cpu_clock = counter_pixel < 4 ? 1 : 0;
|
|
|
|
endmodule
|