OpenCores
URL https://opencores.org/ocsvn/rtf68ksys/rtf68ksys/trunk

Subversion Repositories rtf68ksys

[/] [rtf68ksys/] [trunk/] [Software/] [kbd_test.v] - Blame information for rev 4

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 4 robfinch
//---------------------------------------------------------------------------
2
// Keyboard test bench
3
//---------------------------------------------------------------------------
4
//
5
// Displays the ascii code for the key struck on the seven segment display.
6
/*
7
reg kbd_cyc;
8
reg kbd_stb;
9
reg kbd_we;
10
reg [31:0] kbd_adr;
11
reg [3:0] kstate;
12
always @(posedge clk25)
13
if (rst)
14
        kstate <= 4'd0;
15
else
16
case(kstate)
17
4'd0:
18
        if (kbd_irq) begin
19
                kstate <= 4'd1;
20
        end
21
4'd1:
22
        if (!kbd_cyc) begin
23
                kbd_cyc <= 1'b1;
24
                kbd_stb <= 1'b1;
25
                kbd_we <= 1'b0;
26
                kbd_adr <= 32'hFFDC_0000;
27
        end
28
        else if (kbd_ack) begin
29
                kbd_cyc <= 1'b0;
30
                kbd_stb <= 1'b0;
31
                valreg <= kbd_dbo + 6;
32
                kstate <= 4'd2;
33
        end
34
4'd2:
35
        if (!kbd_cyc) begin
36
                kbd_cyc <= 1'b1;
37
                kbd_stb <= 1'b1;
38
                kbd_adr <= 32'hFFDC_0001;
39
        end
40
        else if (kbd_ack) begin
41
                kbd_cyc <= 1'b0;
42
                kbd_stb <= 1'b0;
43
                kstate <= 4'd0;
44
        end
45
default:
46
        kstate <= 4'd0;
47
endcase
48
*/
49
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.