From 7410377b0cecf00a38b53a073d2ca0edb424d4e2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Martin=20Stensg=C3=A5rd?= <mastensg@mastensg.net>
Date: Wed, 16 Jul 2025 21:32:10 +0200
Subject: move top -> record

---
 top.v | 125 ------------------------------------------------------------------
 1 file changed, 125 deletions(-)
 delete mode 100644 top.v

(limited to 'top.v')

diff --git a/top.v b/top.v
deleted file mode 100644
index cb9e729..0000000
--- a/top.v
+++ /dev/null
@@ -1,125 +0,0 @@
-module top(
-	input	clk,
-	input	ftdi_rx,
-	output	D1,
-	output	D2,
-	output	D3,
-	output	D4,
-	output	D5,
-	output	ftdi_tx,
-	output	p44,
-	output	p45,
-	output  pdm_clk,
-	input   pdm_dat
-);
-	wire clk_uart;
-
-	reg [7:0]	char = 8'h6f;
-	reg		uart_go = 0;
-	wire		uart_ready;
-
-	clk_div_pdm	clk_div_pdm_1(clk, pdm_clk);
-	clk_div_uart	clk_div_uart_1(clk, clk_uart);
-	uart_tx		uart_tx_1(clk_uart, char, uart_go, ftdi_tx, uart_ready);
-
-	reg [2:0]	pdm_t = 0;
-	always @(posedge pdm_clk) begin
-		pdm_t		<= pdm_t<7 ? pdm_t+1 : 0;
-		char[pdm_t]	<= pdm_dat;
-		uart_go		<= pdm_t==7;
-	end
-
-	assign D1 = 0;
-	assign D2 = 0;
-	assign D3 = 0;
-	assign D4 = 0;
-	assign D5 = 1;
-	assign p44 = 0;
-	assign p45 = 0;
-endmodule
-
-module clk_div_pdm(input clk, output reg clk_pdm);
-	reg [3:0] t = 0;
-	always @(posedge clk) begin
-		t <= t<12-1 ? t+1 : 0;
-		clk_pdm <= t<6;
-	end
-endmodule
-
-module rot(input clk, output [3:0] d);
-	reg [3:0]	r = 4'b1000;
-	always @(posedge clk) r <= {r[0], r[3:1]};
-	assign d = r;
-endmodule
-
-module clk_div_uart(input clk, output reg clk_uart);
-	reg [3:0] t = 0;
-	always @(posedge clk) begin
-		t <= t<4-1 ? t+1 : 0;
-		clk_uart <= t<2;
-	end
-endmodule
-
-module uart_tx(input clk, input [7:0] char, input go, output reg tx, output reg ready);
-	parameter s_ready =  0;
-	parameter s_start =  1;
-	parameter s_data0 =  2;
-	parameter s_data1 =  3;
-	parameter s_data2 =  4;
-	parameter s_data3 =  5;
-	parameter s_data4 =  6;
-	parameter s_data5 =  7;
-	parameter s_data6 =  8;
-	parameter s_data7 =  9;
-	parameter s_stop1 = 10;
-	parameter s_stop2 = 11;
-	parameter s_stop3 = 12;
-	parameter s_stop4 = 13;
-
-	reg [3:0]	state = s_ready;
-	reg [7:0]	data = 8'h41;
-
-	always @(posedge clk) begin
-		ready <= state == s_ready;
-		case (state)
-			s_ready: begin
-				if (go) begin
-					data <= char;
-					state <= s_start;
-				end
-			end
-			s_start:	state <= s_data0;
-			s_data0:	state <= s_data1;
-			s_data1:	state <= s_data2;
-			s_data2:	state <= s_data3;
-			s_data3:	state <= s_data4;
-			s_data4:	state <= s_data5;
-			s_data5:	state <= s_data6;
-			s_data6:	state <= s_data7;
-			s_data7:	state <= s_stop1;
-			s_stop1:	state <= s_stop2;
-			s_stop2:	state <= s_stop3;
-			s_stop3:	state <= s_stop4;
-			s_stop4: begin
-				if (!go)
-					state <= s_ready;
-			end
-		endcase
-		case (state)
-			s_ready:	tx <= 1;
-			s_start:	tx <= 0;
-			s_data0:	tx <= data[0];
-			s_data1:	tx <= data[1];
-			s_data2:	tx <= data[2];
-			s_data3:	tx <= data[3];
-			s_data4:	tx <= data[4];
-			s_data5:	tx <= data[5];
-			s_data6:	tx <= data[6];
-			s_data7:	tx <= data[7];
-			s_stop1:	tx <= 1;
-			s_stop2:	tx <= 1;
-			s_stop3:	tx <= 1;
-			s_stop4:	tx <= 1;
-		endcase
-	end
-endmodule
-- 
cgit v1.2.3