[vterm.git] / VTerm.v

module MulDivDCM(input xtal, output clk);
	parameter div = 5;
	parameter mul = 2;
	
	wire CLKFX_BUF;
	wire GND_BIT = 0;
	BUFG CLKFX_BUFG_INST (.I(CLKFX_BUF),
				.O(clk));
	DCM_SP DCM_SP_INST (.CLKFB(GND_BIT), 
			.CLKIN(xtal), 
			.DSSEN(GND_BIT), 
			.PSCLK(GND_BIT), 
			.PSEN(GND_BIT), 
			.PSINCDEC(GND_BIT), 
			.RST(GND_BIT), 
			.CLKFX(CLKFX_BUF));
	defparam DCM_SP_INST.CLK_FEEDBACK = "NONE";
	defparam DCM_SP_INST.CLKDV_DIVIDE = 2.0;
	defparam DCM_SP_INST.CLKFX_DIVIDE = div;
	defparam DCM_SP_INST.CLKFX_MULTIPLY = mul;
	defparam DCM_SP_INST.CLKIN_DIVIDE_BY_2 = "FALSE";
	defparam DCM_SP_INST.CLKIN_PERIOD = 20.000;
	defparam DCM_SP_INST.CLKOUT_PHASE_SHIFT = "NONE";
	defparam DCM_SP_INST.DESKEW_ADJUST = "SYSTEM_SYNCHRONOUS";
	defparam DCM_SP_INST.DFS_FREQUENCY_MODE = "LOW";
	defparam DCM_SP_INST.DLL_FREQUENCY_MODE = "LOW";
	defparam DCM_SP_INST.DUTY_CYCLE_CORRECTION = "TRUE";
	defparam DCM_SP_INST.FACTORY_JF = 16'hC080;
	defparam DCM_SP_INST.PHASE_SHIFT = 0;
	defparam DCM_SP_INST.STARTUP_WAIT = "TRUE";
endmodule

module VTerm(
	input xtal,
	output wire vs, hs,
	output reg [2:0] red,
	output reg [2:0] green,
	output reg [1:0] blue,
	input serrx,
	output sertx,
	input ps2c, ps2d);
	
	wire clk25;

	wire [11:0] x, y;
	wire border;

	MulDivDCM dcm25(xtal, clk25);
	defparam dcm25.div = 4;
	defparam dcm25.mul = 2;

	SyncGen sync(clk25, vs, hs, x, y, border);
	
	wire [7:0] cschar;
	wire [2:0] csrow;
	wire [7:0] csdata;
	
	wire [10:0] vraddr;
	wire [7:0] vrdata;
	
	wire [10:0] vwaddr;
	wire [7:0] vwdata;
	wire [7:0] serdata;
	wire vwr, serwr;
	wire [10:0] vscroll;
	
	wire odata;
	
	wire [7:0] sertxdata;
	wire sertxwr;
	
	CharSet cs(cschar, csrow, csdata);
	VideoRAM vram(clk25, vraddr + vscroll, vrdata, vwaddr, vwdata, vwr);
	VDisplay dpy(clk25, x, y, vraddr, vrdata, cschar, csrow, csdata, odata);
	SerRX rx(clk25, serwr, serdata, serrx);
	SerTX tx(clk25, sertxwr, sertxdata, sertx);
	RXState rxsm(clk25, vwr, vwaddr, vwdata, vscroll, serwr, serdata);
	PS2 ps2(clk25, ps2c, ps2d, sertxwr, sertxdata);
	
	always @(posedge clk25) begin
		red <= border ? 0 : {3{odata}};
		green <= border ? 0 : {3{odata}};
		blue <= border ? 0 : {2{odata}};
	end
endmodule

module SyncGen(
	input pixclk,
	output reg vs, hs,
	output reg [11:0] x, y,
	output reg border);
	
	parameter XRES = 640;
	parameter XFPORCH = 16;
	parameter XSYNC = 96;
	parameter XBPORCH = 48;
	
	parameter YRES = 480;
	parameter YFPORCH = 10;
	parameter YSYNC = 2;
	parameter YBPORCH = 29;
	
	always @(posedge pixclk)
	begin
		if (x >= (XRES + XFPORCH + XSYNC + XBPORCH))
		begin
			if (y >= (YRES + YFPORCH + YSYNC + YBPORCH))
				y = 0;
			else
				y = y + 1;
			x = 0;
		end else
			x = x + 1;
		hs <= (x >= (XRES + XFPORCH)) && (x < (XRES + XFPORCH + XSYNC));
		vs <= (y >= (YRES + YFPORCH)) && (y < (YRES + YFPORCH + YSYNC));
		border <= (x > XRES) || (y > YRES);
	end
endmodule

module CharSet(
	input [7:0] char,
	input [2:0] row,
	output wire [7:0] data);

	reg [7:0] rom [(256 * 8 - 1):0];
	
	initial
		$readmemb("ibmpc1.mem", rom);

	assign data = rom[{char, row}];
endmodule

module VideoRAM(
	input pixclk,
	input [10:0] raddr,
	output reg [7:0] rdata,
	input [10:0] waddr,
	input [7:0] wdata,
	input wr);
	
	reg [7:0] ram [2047 : 0];
	
	always @(posedge pixclk)
		rdata <= ram[raddr];
	
	always @(posedge pixclk)
		if (wr)
			ram[waddr] <= wdata;
endmodule

module VDisplay(
	input pixclk,
	input [11:0] x,
	input [11:0] y,
	output wire [10:0] raddr,
	input [7:0] rchar,
	output wire [7:0] cschar,
	output wire [2:0] csrow,
	input [7:0] csdata,
	output reg data);

	wire [7:0] col = x[11:3];
	wire [5:0] row = y[9:3];
	reg [7:0] ch;
	reg [11:0] xdly;

	assign raddr = ({row,4'b0} + {row,6'b0} + {4'h0,col});
	assign cschar = rchar;
	assign csrow = y[2:0];
	
	always @(posedge pixclk)
		xdly <= x;
	
	always @(posedge pixclk)
		data = ((xdly < 80 * 8) && (y < 25 * 8)) ? csdata[7 - xdly[2:0]] : 0;
endmodule

`define IN_CLK 25000000
`define OUT_CLK 57600
`define CLK_DIV (`IN_CLK / `OUT_CLK)

module SerRX(
	input pixclk,
	output reg wr = 0,
	output reg [7:0] wchar = 0,
	input serialrx);

	reg [15:0] rx_clkdiv = 0;
	reg [3:0] rx_state = 4'b0000;
	reg [7:0] rx_data_tmp;
	

	always @(posedge pixclk)
	begin
		if ((rx_state == 0) && (serialrx == 0) /*&& (rx_hasdata == 0)*/)		/* Kick off. */
			rx_state <= 4'b0001;
		else if ((rx_state != 4'b0000) && (rx_clkdiv == 0)) begin
			if (rx_state != 4'b1010)
				rx_state <= rx_state + 1;
			else
				rx_state <= 0;
			case (rx_state)
			4'b0001:	begin end /* Twiddle thumbs -- this is the end of the half bit. */
			4'b0010:	rx_data_tmp[0] <= serialrx;
			4'b0011:	rx_data_tmp[1] <= serialrx;
			4'b0100:	rx_data_tmp[2] <= serialrx;
			4'b0101:	rx_data_tmp[3] <= serialrx;
			4'b0110:	rx_data_tmp[4] <= serialrx;
			4'b0111:	rx_data_tmp[5] <= serialrx;
			4'b1000:	rx_data_tmp[6] <= serialrx;
			4'b1001:	rx_data_tmp[7] <= serialrx;
			4'b1010:	if (serialrx == 1) begin
						wr <= 1;
						wchar <= rx_data_tmp;
					end
			endcase
		end
		
		if (wr)
			wr <= 0;
		
		if ((rx_state == 0) && (serialrx == 0) /*&& (rx_hasdata == 0)*/)		/* Wait half a period before advancing. */
			rx_clkdiv <= `CLK_DIV / 2 + `CLK_DIV / 4;
		else if (rx_clkdiv == `CLK_DIV)
			rx_clkdiv <= 0;
		else
			rx_clkdiv <= rx_clkdiv + 1;
	end
endmodule

module SerTX(
	input pixclk,
	input wr,
	input [7:0] char,
	output reg serial = 1);
	
	reg [7:0] tx_data = 0;
	reg [15:0] tx_clkdiv = 0;
	reg [3:0] tx_state = 4'b0000;
	reg tx_busy = 0;
	wire tx_newdata = wr && !tx_busy;

	always @(posedge pixclk)
	begin
		if(tx_newdata) begin
			tx_data <= char;
			tx_state <= 4'b0000;
			tx_busy <= 1;
		end else if (tx_clkdiv == 0) begin
			tx_state <= tx_state + 1;
			if (tx_busy)
				case (tx_state)
				4'b0000: serial <= 0;
				4'b0001: serial <= tx_data[0];
				4'b0010: serial <= tx_data[1];
				4'b0011: serial <= tx_data[2];
				4'b0100: serial <= tx_data[3];
				4'b0101: serial <= tx_data[4];
				4'b0110: serial <= tx_data[5];
				4'b0111: serial <= tx_data[6];
				4'b1000: serial <= tx_data[7];
				4'b1001: serial <= 1;
				4'b1010: tx_busy <= 0;
				default: $stop;
				endcase
		end
		
		if(tx_newdata || (tx_clkdiv == `CLK_DIV))
			tx_clkdiv <= 0;
		else
			tx_clkdiv <= tx_clkdiv + 1;
	end
endmodule

module RXState(
	input clk25,
	output reg vwr = 0,
	output reg [10:0] vwaddr = 0,
	output reg [7:0] vwdata = 0,
	output reg [10:0] vscroll = 0,
	input serwr,
	input [7:0] serdata);

	parameter STATE_IDLE = 4'b0000;
	parameter STATE_NEWLINE = 4'b0001;
	parameter STATE_CLEAR = 4'b0010;

	reg [3:0] state = STATE_CLEAR;
	
	reg [6:0] x = 0;
	reg [4:0] y = 0;
	
	reg [10:0] clearstart = 0;
	reg [10:0] clearend = 11'b11111111111;
	
	always @(posedge clk25)
		case (state)
		STATE_IDLE:	if (serwr) begin
					if (serdata == 8'h0A) begin
						state <= STATE_NEWLINE;
						x <= 0;
						vwr <= 0;
					end else if (serdata == 8'h0D) begin
						x <= 0;
						vwr <= 0;
					end else if (serdata == 8'h0C) begin
						clearstart <= 0;
						clearend <= 11'b11111111111;
						x <= 0;
						y <= 0;
						vscroll <= 0;
						state <= STATE_CLEAR;
					end else begin
						vwr <= 1;
						vwaddr <= ({y,4'b0} + {y,6'b0} + {4'h0,x}) + vscroll;
						vwdata <= serdata;
						if (x == 79) begin
							x <= 0;
							state <= STATE_NEWLINE;
						end else 
							x <= x + 1;
					end
				end
		STATE_NEWLINE:
			begin
				vwr <= 0;
				if (y == 24) begin
					vscroll <= vscroll + 80;
					clearstart <= (25 * 80) + vscroll;
					clearend <= (26*80) + vscroll;
					state <= STATE_CLEAR;
				end else begin
					y <= y + 1;
					state <= STATE_IDLE;
				end
			end
		STATE_CLEAR:
			begin
				vwr <= 1;
				vwaddr <= clearstart;
				vwdata <= 8'h20;
				clearstart <= clearstart + 1;
				if (clearstart == clearend)
					state <= STATE_IDLE;
			end
		endcase
endmodule

module PS2(
	input pixclk,
	input inclk,
	input indata,
	output reg wr,
	output reg [7:0] data
	);

	reg [3:0] bitcount = 0;
	reg [7:0] key = 0;
	reg keyarrow = 0, keyup = 0, parity = 0;

	
	/* Clock debouncing */
	reg lastinclk = 0;
	reg [6:0] debounce = 0;
	reg fixedclk = 0;
	reg [11:0] resetcountdown = 0;
	
	reg [6:0] unshiftedrom [127:0];	initial $readmemh("scancodes.unshifted.hex", unshiftedrom);
	reg [6:0] shiftedrom [127:0];	initial $readmemh("scancodes.shifted.hex", shiftedrom);
	
	reg mod_lshift = 0;
	reg mod_rshift = 0;
	reg mod_capslock = 0;
	wire mod_shifted = (mod_lshift | mod_rshift) ^ mod_capslock;
	
	reg nd = 0;
	reg lastnd = 0;
	
	always @(posedge pixclk) begin
		if (inclk != lastinclk) begin
			lastinclk <= inclk;
			debounce <= 1;
			resetcountdown <= 12'b111111111111;
		end else if (debounce == 0) begin
			fixedclk <= inclk;
			resetcountdown <= resetcountdown - 1;
		end else
			debounce <= debounce + 1;
		
		if (nd ^ lastnd) begin
			lastnd <= nd;
			wr <= 1;
		end else
			wr <= 0;
	end

	always @(negedge fixedclk) begin
		if (resetcountdown == 0)
			bitcount <= 0;
		else if (bitcount == 10) begin
			bitcount <= 0;
			if(parity != (^ key)) begin
				if(keyarrow) begin
					casex(key)
						8'hF0: keyup <= 1;
						8'hxx: keyarrow <= 0;
					endcase
				end
				else begin
					if(keyup) begin
						keyup <= 0;
						keyarrow <= 0;
						casex (key)
						8'h12: mod_lshift <= 0;
						8'h59: mod_rshift <= 0;
						endcase
						// handle this? I don't fucking know
					end
					else begin
						casex(key)
							8'hE0: keyarrow <= 1;	// handle these? I don't fucking know
							8'hF0: keyup <= 1;
							8'h12: mod_lshift <= 1;
							8'h59: mod_rshift <= 1;
							8'h14: mod_capslock <= ~mod_capslock;
							8'b0xxxxxxx: begin nd <= ~nd; data <= mod_shifted ? shiftedrom[key] : unshiftedrom[key]; end
							8'b1xxxxxxx: begin /* AAAAAAASSSSSSSS */ end
						endcase
					end
				end
			end
			else begin
				keyarrow <= 0;
				keyup <= 0;
			end
		end else
			bitcount <= bitcount + 1;

		case(bitcount)
			1: key[0] <= indata;
			2: key[1] <= indata;
			3: key[2] <= indata;
			4: key[3] <= indata;
			5: key[4] <= indata;
			6: key[5] <= indata;
			7: key[6] <= indata;
			8: key[7] <= indata;
			9: parity <= indata;
		endcase
	end

endmodule
Commit	Line	Data
a55fc9f4 JW	1	module MulDivDCM(input xtal, output clk);
	2	parameter div = 5;
	3	parameter mul = 2;
	4
	5	wire CLKFX_BUF;
	6	wire GND_BIT = 0;
	7	BUFG CLKFX_BUFG_INST (.I(CLKFX_BUF),
	8	.O(clk));
	9	DCM_SP DCM_SP_INST (.CLKFB(GND_BIT),
	10	.CLKIN(xtal),
	11	.DSSEN(GND_BIT),
	12	.PSCLK(GND_BIT),
	13	.PSEN(GND_BIT),
	14	.PSINCDEC(GND_BIT),
	15	.RST(GND_BIT),
	16	.CLKFX(CLKFX_BUF));
	17	defparam DCM_SP_INST.CLK_FEEDBACK = "NONE";
	18	defparam DCM_SP_INST.CLKDV_DIVIDE = 2.0;
	19	defparam DCM_SP_INST.CLKFX_DIVIDE = div;
	20	defparam DCM_SP_INST.CLKFX_MULTIPLY = mul;
	21	defparam DCM_SP_INST.CLKIN_DIVIDE_BY_2 = "FALSE";
	22	defparam DCM_SP_INST.CLKIN_PERIOD = 20.000;
	23	defparam DCM_SP_INST.CLKOUT_PHASE_SHIFT = "NONE";
	24	defparam DCM_SP_INST.DESKEW_ADJUST = "SYSTEM_SYNCHRONOUS";
	25	defparam DCM_SP_INST.DFS_FREQUENCY_MODE = "LOW";
	26	defparam DCM_SP_INST.DLL_FREQUENCY_MODE = "LOW";
	27	defparam DCM_SP_INST.DUTY_CYCLE_CORRECTION = "TRUE";
	28	defparam DCM_SP_INST.FACTORY_JF = 16'hC080;
	29	defparam DCM_SP_INST.PHASE_SHIFT = 0;
	30	defparam DCM_SP_INST.STARTUP_WAIT = "TRUE";
	31	endmodule
	32
	33	module VTerm(
	34	input xtal,
	35	output wire vs, hs,
	36	output reg [2:0] red,
	37	output reg [2:0] green,
0491ebad	38	output reg [1:0] blue,
01e9841e JW	39	input serrx,
	40	output sertx,
	41	input ps2c, ps2d);
a55fc9f4 JW	42
	43	wire clk25;
	44
	45	wire [11:0] x, y;
	46	wire border;
	47
	48	MulDivDCM dcm25(xtal, clk25);
	49	defparam dcm25.div = 4;
	50	defparam dcm25.mul = 2;
	51
	52	SyncGen sync(clk25, vs, hs, x, y, border);
	53
d3ae999b JW	54	wire [7:0] cschar;
	55	wire [2:0] csrow;
	56	wire [7:0] csdata;
	57
7b96452d	58	wire [10:0] vraddr;
d3ae999b JW	59	wire [7:0] vrdata;
d3ae999b JW	60
7b96452d	61	wire [10:0] vwaddr;
0491ebad	62	wire [7:0] vwdata;
7b96452d JW	63	wire [7:0] serdata;
	64	wire vwr, serwr;
	65	wire [10:0] vscroll;
d3ae999b JW	66
	67	wire odata;
	68
cad52b37 JW	69	wire [7:0] sertxdata;
	70	wire sertxwr;
	71
d3ae999b	72	CharSet cs(cschar, csrow, csdata);
7b96452d	73	VideoRAM vram(clk25, vraddr + vscroll, vrdata, vwaddr, vwdata, vwr);
d3ae999b	74	VDisplay dpy(clk25, x, y, vraddr, vrdata, cschar, csrow, csdata, odata);
7b96452d	75	SerRX rx(clk25, serwr, serdata, serrx);
cad52b37	76	SerTX tx(clk25, sertxwr, sertxdata, sertx);
7b96452d	77	RXState rxsm(clk25, vwr, vwaddr, vwdata, vscroll, serwr, serdata);
cad52b37	78	PS2 ps2(clk25, ps2c, ps2d, sertxwr, sertxdata);
d3ae999b	79
a55fc9f4	80	always @(posedge clk25) begin
d3ae999b JW	81	red <= border ? 0 : {3{odata}};
	82	green <= border ? 0 : {3{odata}};
	83	blue <= border ? 0 : {2{odata}};
a55fc9f4 JW	84	end
	85	endmodule
	86
	87	module SyncGen(
	88	input pixclk,
	89	output reg vs, hs,
	90	output reg [11:0] x, y,
	91	output reg border);
	92
	93	parameter XRES = 640;
	94	parameter XFPORCH = 16;
	95	parameter XSYNC = 96;
	96	parameter XBPORCH = 48;
	97
	98	parameter YRES = 480;
	99	parameter YFPORCH = 10;
	100	parameter YSYNC = 2;
	101	parameter YBPORCH = 29;
	102
	103	always @(posedge pixclk)
	104	begin
	105	if (x >= (XRES + XFPORCH + XSYNC + XBPORCH))
	106	begin
	107	if (y >= (YRES + YFPORCH + YSYNC + YBPORCH))
	108	y = 0;
	109	else
	110	y = y + 1;
	111	x = 0;
	112	end else
	113	x = x + 1;
	114	hs <= (x >= (XRES + XFPORCH)) && (x < (XRES + XFPORCH + XSYNC));
	115	vs <= (y >= (YRES + YFPORCH)) && (y < (YRES + YFPORCH + YSYNC));
	116	border <= (x > XRES) \|\| (y > YRES);
	117	end
	118	endmodule
d3ae999b JW	119
	120	module CharSet(
	121	input [7:0] char,
	122	input [2:0] row,
	123	output wire [7:0] data);
	124
	125	reg [7:0] rom [(256 * 8 - 1):0];
	126
	127	initial
	128	$readmemb("ibmpc1.mem", rom);
	129
	130	assign data = rom[{char, row}];
	131	endmodule
	132
	133	module VideoRAM(
	134	input pixclk,
7b96452d	135	input [10:0] raddr,
d3ae999b	136	output reg [7:0] rdata,
7b96452d	137	input [10:0] waddr,
d3ae999b JW	138	input [7:0] wdata,
	139	input wr);
	140
7b96452d	141	reg [7:0] ram [2047 : 0];
d3ae999b JW	142
	143	always @(posedge pixclk)
	144	rdata <= ram[raddr];
	145
	146	always @(posedge pixclk)
	147	if (wr)
	148	ram[waddr] <= wdata;
	149	endmodule
	150
	151	module VDisplay(
	152	input pixclk,
	153	input [11:0] x,
	154	input [11:0] y,
7b96452d	155	output wire [10:0] raddr,
d3ae999b JW	156	input [7:0] rchar,
	157	output wire [7:0] cschar,
	158	output wire [2:0] csrow,
	159	input [7:0] csdata,
01e9841e	160	output reg data);
d3ae999b JW	161
	162	wire [7:0] col = x[11:3];
	163	wire [5:0] row = y[9:3];
	164	reg [7:0] ch;
	165	reg [11:0] xdly;
	166
	167	assign raddr = ({row,4'b0} + {row,6'b0} + {4'h0,col});
	168	assign cschar = rchar;
	169	assign csrow = y[2:0];
	170
	171	always @(posedge pixclk)
	172	xdly <= x;
	173
	174	always @(posedge pixclk)
	175	data = ((xdly < 80 * 8) && (y < 25 * 8)) ? csdata[7 - xdly[2:0]] : 0;
	176	endmodule
0491ebad JW	177
	178	`define IN_CLK 25000000
	179	`define OUT_CLK 57600
	180	`define CLK_DIV (`IN_CLK / `OUT_CLK)
	181
	182	module SerRX(
	183	input pixclk,
	184	output reg wr = 0,
0491ebad	185	output reg [7:0] wchar = 0,
01e9841e	186	input serialrx);
0491ebad JW	187
	188	reg [15:0] rx_clkdiv = 0;
	189	reg [3:0] rx_state = 4'b0000;
	190	reg [7:0] rx_data_tmp;
	191
	192
	193	always @(posedge pixclk)
	194	begin
	195	if ((rx_state == 0) && (serialrx == 0) /&& (rx_hasdata == 0)/) /* Kick off. */
	196	rx_state <= 4'b0001;
	197	else if ((rx_state != 4'b0000) && (rx_clkdiv == 0)) begin
	198	if (rx_state != 4'b1010)
	199	rx_state <= rx_state + 1;
	200	else
	201	rx_state <= 0;
	202	case (rx_state)
	203	4'b0001: begin end /* Twiddle thumbs -- this is the end of the half bit. */
	204	4'b0010: rx_data_tmp[0] <= serialrx;
	205	4'b0011: rx_data_tmp[1] <= serialrx;
	206	4'b0100: rx_data_tmp[2] <= serialrx;
	207	4'b0101: rx_data_tmp[3] <= serialrx;
	208	4'b0110: rx_data_tmp[4] <= serialrx;
	209	4'b0111: rx_data_tmp[5] <= serialrx;
	210	4'b1000: rx_data_tmp[6] <= serialrx;
	211	4'b1001: rx_data_tmp[7] <= serialrx;
	212	4'b1010: if (serialrx == 1) begin
	213	wr <= 1;
	214	wchar <= rx_data_tmp;
	215	end
	216	endcase
	217	end
	218
7b96452d	219	if (wr)
0491ebad	220	wr <= 0;
0491ebad JW	221
	222	if ((rx_state == 0) && (serialrx == 0) /&& (rx_hasdata == 0)/) /* Wait half a period before advancing. */
	223	rx_clkdiv <= `CLK_DIV / 2 + `CLK_DIV / 4;
	224	else if (rx_clkdiv == `CLK_DIV)
	225	rx_clkdiv <= 0;
	226	else
	227	rx_clkdiv <= rx_clkdiv + 1;
	228	end
01e9841e JW	229	endmodule
	230
	231	module SerTX(
	232	input pixclk,
	233	input wr,
	234	input [7:0] char,
	235	output reg serial = 1);
	236
	237	reg [7:0] tx_data = 0;
	238	reg [15:0] tx_clkdiv = 0;
	239	reg [3:0] tx_state = 4'b0000;
	240	reg tx_busy = 0;
	241	wire tx_newdata = wr && !tx_busy;
0491ebad	242
01e9841e JW	243	always @(posedge pixclk)
	244	begin
	245	if(tx_newdata) begin
	246	tx_data <= char;
	247	tx_state <= 4'b0000;
	248	tx_busy <= 1;
	249	end else if (tx_clkdiv == 0) begin
	250	tx_state <= tx_state + 1;
	251	if (tx_busy)
	252	case (tx_state)
	253	4'b0000: serial <= 0;
	254	4'b0001: serial <= tx_data[0];
	255	4'b0010: serial <= tx_data[1];
	256	4'b0011: serial <= tx_data[2];
	257	4'b0100: serial <= tx_data[3];
	258	4'b0101: serial <= tx_data[4];
	259	4'b0110: serial <= tx_data[5];
	260	4'b0111: serial <= tx_data[6];
	261	4'b1000: serial <= tx_data[7];
	262	4'b1001: serial <= 1;
	263	4'b1010: tx_busy <= 0;
	264	default: $stop;
	265	endcase
	266	end
	267
	268	if(tx_newdata \|\| (tx_clkdiv == `CLK_DIV))
	269	tx_clkdiv <= 0;
	270	else
	271	tx_clkdiv <= tx_clkdiv + 1;
	272	end
0491ebad	273	endmodule
7b96452d JW	274
	275	module RXState(
	276	input clk25,
	277	output reg vwr = 0,
	278	output reg [10:0] vwaddr = 0,
	279	output reg [7:0] vwdata = 0,
	280	output reg [10:0] vscroll = 0,
	281	input serwr,
	282	input [7:0] serdata);
	283
	284	parameter STATE_IDLE = 4'b0000;
	285	parameter STATE_NEWLINE = 4'b0001;
	286	parameter STATE_CLEAR = 4'b0010;
	287
	288	reg [3:0] state = STATE_CLEAR;
	289
	290	reg [6:0] x = 0;
	291	reg [4:0] y = 0;
	292
	293	reg [10:0] clearstart = 0;
	294	reg [10:0] clearend = 11'b11111111111;
	295
	296	always @(posedge clk25)
	297	case (state)
	298	STATE_IDLE: if (serwr) begin
	299	if (serdata == 8'h0A) begin
	300	state <= STATE_NEWLINE;
aae86acd	301	x <= 0;
7b96452d JW	302	vwr <= 0;
	303	end else if (serdata == 8'h0D) begin
	304	x <= 0;
	305	vwr <= 0;
	306	end else if (serdata == 8'h0C) begin
	307	clearstart <= 0;
	308	clearend <= 11'b11111111111;
	309	x <= 0;
	310	y <= 0;
	311	vscroll <= 0;
	312	state <= STATE_CLEAR;
	313	end else begin
	314	vwr <= 1;
	315	vwaddr <= ({y,4'b0} + {y,6'b0} + {4'h0,x}) + vscroll;
	316	vwdata <= serdata;
	317	if (x == 79) begin
	318	x <= 0;
	319	state <= STATE_NEWLINE;
	320	end else
	321	x <= x + 1;
	322	end
	323	end
	324	STATE_NEWLINE:
	325	begin
	326	vwr <= 0;
	327	if (y == 24) begin
	328	vscroll <= vscroll + 80;
	329	clearstart <= (25 * 80) + vscroll;
	330	clearend <= (26*80) + vscroll;
	331	state <= STATE_CLEAR;
	332	end else begin
	333	y <= y + 1;
	334	state <= STATE_IDLE;
	335	end
	336	end
	337	STATE_CLEAR:
	338	begin
	339	vwr <= 1;
	340	vwaddr <= clearstart;
	341	vwdata <= 8'h20;
	342	clearstart <= clearstart + 1;
	343	if (clearstart == clearend)
	344	state <= STATE_IDLE;
	345	end
	346	endcase
	347	endmodule
cad52b37 JW	348
	349	module PS2(
	350	input pixclk,
	351	input inclk,
	352	input indata,
	353	output reg wr,
	354	output reg [7:0] data
	355	);
	356
	357	reg [3:0] bitcount = 0;
	358	reg [7:0] key = 0;
	359	reg keyarrow = 0, keyup = 0, parity = 0;
	360
	361
	362	/* Clock debouncing */
	363	reg lastinclk = 0;
	364	reg [6:0] debounce = 0;
	365	reg fixedclk = 0;
	366	reg [11:0] resetcountdown = 0;
	367
857e180c JW	368	reg [6:0] unshiftedrom [127:0]; initial $readmemh("scancodes.unshifted.hex", unshiftedrom);
	369	reg [6:0] shiftedrom [127:0]; initial $readmemh("scancodes.shifted.hex", shiftedrom);
	370
	371	reg mod_lshift = 0;
	372	reg mod_rshift = 0;
	373	reg mod_capslock = 0;
	374	wire mod_shifted = (mod_lshift \| mod_rshift) ^ mod_capslock;
	375
cad52b37 JW	376	reg nd = 0;
	377	reg lastnd = 0;
	378
	379	always @(posedge pixclk) begin
	380	if (inclk != lastinclk) begin
	381	lastinclk <= inclk;
	382	debounce <= 1;
	383	resetcountdown <= 12'b111111111111;
	384	end else if (debounce == 0) begin
	385	fixedclk <= inclk;
	386	resetcountdown <= resetcountdown - 1;
	387	end else
	388	debounce <= debounce + 1;
	389
	390	if (nd ^ lastnd) begin
	391	lastnd <= nd;
	392	wr <= 1;
	393	end else
	394	wr <= 0;
	395	end
	396
	397	always @(negedge fixedclk) begin
	398	if (resetcountdown == 0)
	399	bitcount <= 0;
	400	else if (bitcount == 10) begin
	401	bitcount <= 0;
	402	if(parity != (^ key)) begin
	403	if(keyarrow) begin
857e180c	404	casex(key)
cad52b37	405	8'hF0: keyup <= 1;
857e180c	406	8'hxx: keyarrow <= 0;
cad52b37 JW	407	endcase
	408	end
	409	else begin
	410	if(keyup) begin
	411	keyup <= 0;
857e180c JW	412	keyarrow <= 0;
	413	casex (key)
	414	8'h12: mod_lshift <= 0;
	415	8'h59: mod_rshift <= 0;
	416	endcase
cad52b37 JW	417	// handle this? I don't fucking know
	418	end
	419	else begin
857e180c	420	casex(key)
cad52b37 JW	421	8'hE0: keyarrow <= 1; // handle these? I don't fucking know
cad52b37 JW	422	8'hF0: keyup <= 1;
857e180c JW	423	8'h12: mod_lshift <= 1;
	424	8'h59: mod_rshift <= 1;
	425	8'h14: mod_capslock <= ~mod_capslock;
	426	8'b0xxxxxxx: begin nd <= ~nd; data <= mod_shifted ? shiftedrom[key] : unshiftedrom[key]; end
	427	8'b1xxxxxxx: begin /* AAAAAAASSSSSSSS */ end
cad52b37 JW	428	endcase
	429	end
	430	end
	431	end
	432	else begin
	433	keyarrow <= 0;
	434	keyup <= 0;
	435	end
	436	end else
	437	bitcount <= bitcount + 1;
	438
	439	case(bitcount)
	440	1: key[0] <= indata;
	441	2: key[1] <= indata;
	442	3: key[2] <= indata;
	443	4: key[3] <= indata;
	444	5: key[4] <= indata;
	445	6: key[5] <= indata;
	446	7: key[6] <= indata;
	447	8: key[7] <= indata;
	448	9: parity <= indata;
	449	endcase
	450	end
	451
	452	endmodule