part3.txt

Thomas课本中的verilog例子。Thomas的verilog在可编程期间领域很有名

#(`P/8);
rddata = 0; 
end
end
end
end
end
`endprotect
endmodule
//  memory.v  
//  by Tom Martin for 18-360, February 1995.
//  Models the memory bus controller and memory for
//  use with the floppy disk controller (Project 1)


//  bus clock is specified to be 8 MHz, or 125ns/cycle

module memory(clock, hrq, hack, memw, d, a);
parameter tProp = 1;

output clock, hack;
reg clock, hack;
input hrq, memw;

inout [7:0] d; 
inout [8:0] a;

reg debug;


reg [7:0] m[0:511];  file://512 bytes of memory

initial begin
clock = 0;
hack = 0;
debug = 0;
//  set memory all to 0?
end

//  the bus clock
always 
#6.25 clock = ~clock;
`protect
// the bus protocol
always begin
@(posedge clock);
if (hrq && ~hack)  begin
#tProp;
hack = 1;
end
else if (hrq && hack) begin 
if (~memw) begin
@(negedge clock); 
m[a] = d;
@(posedge clock);
if (~memw) 
  $display($time,,,"Memw high error");
end  
end
else if (~hrq && hack ) begin
#tProp;
hack = 0;
end
end
`endprotect
//  debug stuff--print contents of memory.
//  to print contents of memory, just set debug = 1...

integer count;

always begin
@(posedge debug);
for (count = 0; count < 512; count = count + 1)
begin
// $write( "%0x ", m[count]);
$write( "%c ", m[count]);
if (( (count+1) % 25) == 0)
$display;
end
$display;
end
endmodule
//  disk module with correct data
//  by Tom Martin, February 1995
//  for 18-360.

//  this particular module has a clock with jitter.

`define P 400 // period is 4 us...

module disk(idx, rddata);
output idx, rddata;


reg [7:0] disk[0:5119];  // the 10 sectors of the disk
reg idx, rddata;

integer sector, byte, bit, z;


//  for testing random rddata clock
integer ave, count, max;

reg [7:0] tmp;
reg [3:0] ran;
reg [3:0] ran2;

initial begin
idx = 0;
rddata = 0;

ave = 0 ;
max = 0;
count = 0;
// $monitor($time,,rddata);

z = 1;

$readmemh("good.dat", disk);  
ran =  $random(z);

end 

//  set up the clock in rddata
`protect
always begin
#(`P/8) rddata = 1;   // these will have to change later
#(`P/8) rddata = 0;   // to have some randomness
#(`P*0.7 + (40*ran)/15 ); // delay between 280 and 
     // 320 counts--2.8 and 3.2us
ave = `P*0.7 + (40*ran)/15 + `P/4;
// $display(ave);
ran = $random;
count = count + 1;
// if (ave > max) 
// max = ave;
// if (ave > 420) 
// $stop;
end
`endprotect

// set up idx
`protect
always begin
#(`P/8) idx = 1;
#(`P*8) idx = 0;
#(4087.875*`P) ;  // pulses per sector = 4096
end
`endprotect

// and put the data in rddata.
`protect
always begin
for (sector=0; sector < 10; sector = sector + 1 ) 
begin
for (byte=0; byte < 512; byte = byte + 1) 
begin
tmp = disk[sector*512 + byte];
for (bit = 0; bit < 8; bit = bit + 1)
begin
@(posedge rddata);
if ( tmp[bit] ) 
begin
ran2 = $random;
#(ave/2 - ave/40 + (ave/20)*ran2/15);
rddata = 1;
#(`P/8);
rddata = 0; 
end
end
end
end
end
`endprotect
endmodule



/*
Copyright -c- 1996, Kluwer Academic Publishers. All Rights Reserved.

This electronic text file is distributed by Kluwer Academic Publishers with
*ABSOLUTELY NO SUPPORT* and *NO WARRANTY* from Kluwer
Academic Publishers.

Use or reproduction of the information provided in this electronic text file for
commercial gain is strictly prohibited. Explicit permission is given for the
reproduction and use of this information in an instructional setting provided
proper reference is given to the original source. Kluwer Academic Publishers
shall not be liable for damage in connection with, or arising out of, the furnishing,
performance or use of this information.


>From the Authors:
This file contains the good.dat file which is provided in support of the floppy disk
exercise in chapter 9 of "The Verilog Hardware Description Language, Third
Edition" by D. E. Thomas and P. R. Moorby. To use this file, remove this header
information and save it in a file called "good.dat".

-always
DT, PM
*/
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 81 54 68 
69 73 20 69 73 20 73 65 63 74 6f 72 20 30 2e 20 20 54 68 65 72 65 20 73 68 
6f 75 6c 64 20 62 65 20 6e 6f 20 65 72 72 6f 72 73 2e a 20 20 20 20 44 69 
76 69 73 69 6f 6e 2c 20 50 65 6e 74 69 75 6d 2d 53 74 79 6c 65 3a 20 41 6e 
20 41 6e 61 6c 79 73 69 73 20 6f 66 20 49 6e 74 65 6c 27 73 20 4d 69 73 74 
61 6b 65 28 73 29 a 9 9 20 20 20 20 20 52 61 6e 64 61 6c 20 45 2e 20 42 
72 79 61 6e 74 a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 61 72 
6e 65 67 69 65 20 4d 65 6c 6c 6f 6e 20 55 6e 69 76 65 72 73 69 74 79 a 20 
20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 42 
53 54 52 41 43 54 a 49 6e 20 4e 6f 76 65 6d 62 65 72 2c 20 31 39 39 34 2c 
20 61 20 73 65 72 69 65 73 20 6f 66 20 70 6f 73 74 73 20 74 6f 20 74 68 65 
20 49 6e 74 65 72 6e 65 74 20 6e 65 77 73 67 72 6f 75 70 a 63 6f 6d 70 2e 
73 79 73 2e 69 6e 74 65 6c 20 72 65 76 65 61 6c 65 64 20 74 6f 20 74 68 65 
20 77 6f 72 6c 64 20 74 68 61 74 20 74 68 65 20 50 65 6e 74 69 75 6d 2c 20 
49 6e 74 65 6c 27 73 20 6d 6f 73 74 a 61 64 76 61 6e 63 65 64 20 6d 69 63 
72 6f 70 72 6f 63 65 73 73 6f 72 2c 20 64 69 64 20 6e 6f 74 20 69 6d 70 6c 
65 6d 65 6e 74 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 6e 74 20 64 69 76 69 
73 69 6f 6e a 63 6f 72 72 65 63 74 6c 79 2e 20 20 46 6f 72 20 65 78 61 6d 
70 6c 65 2c 20 77 68 65 6e 20 63 6f 6d 70 75 74 69 6e 67 20 74 68 65 20 72 
61 74 69 6f 20 34 31 39 35 38 33 35 2f 33 31 34 35 37 32 37 2c 20 74 68 65 
e3 be 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 81 54 68 
69 73 20 69 73 20 73 65 63 74 6f 72 20 31 2e 20 20 49 20 64 6f 6e 27 74 20 
74 68 69 6e 6b 20 74 68 65 72 65 27 73 20 61 6e 79 20 65 72 72 6f 72 73 20 
68 65 72 65 20 65 69 74 68 65 72 2e a 45 78 63 65 70 74 20 66 6f 72 20 74 
79 70 6f 65 73 2e 2e 2e a 49 6e 74 65 6c 27 73 20 68 61 6e 64 6c 69 6e 67 
20 6f 66 20 74 68 69 73 20 70 72 6f 62 6c 65 6d 20 70 72 6f 76 69 64 65 73 
20 61 20 63 61 73 65 20 73 74 75 64 79 20 69 6e 20 70 6f 6f 72 20 63 72 69 
73 69 73 a 6d 61 6e 61 67 65 6d 65 6e 74 2e 20 20 41 6c 74 68 6f 75 67 68 
20 49 6e 74 65 6c 20 61 74 74 65 6d 70 74 65 64 20 74 6f 20 6d 69 6e 69 6d 
69 7a 65 20 74 68 65 20 73 69 67 6e 69 66 69 63 61 6e 63 65 20 6f 66 a 74 
68 65 20 65 72 72 6f 72 20 61 6e 64 20 74 68 65 20 6e 65 65 64 20 74 6f 20 
72 65 70 6c 61 63 65 20 64 65 66 65 63 74 69 76 65 20 63 68 69 70 73 2c 20 
74 68 65 79 20 75 6c 74 69 6d 61 74 65 6c 79 a 72 65 6c 65 6e 74 65 64 2c 
20 6f 66 66 65 72 69 6e 67 20 66 72 65 65 20 72 65 70 6c 61 63 65 6d 65 6e 
74 73 20 74 6f 20 61 6e 79 6f 6e 65 2e 20 20 49 6e 74 65 6c 20 74 6f 6f 6b 
20 61 20 63 68 61 72 67 65 a 6f 66 20 24 34 35 37 20 6d 69 6c 6c 69 6f 6e 
20 61 67 61 69 6e 73 74 20 34 74 68 20 51 75 61 72 74 65 72 2c 20 31 39 39 
34 20 65 61 72 6e 69 6e 67 73 20 74 6f 20 63 6f 76 65 72 20 74 68 65 20 63 
6f 73 74 a 6f 66 20 74 68 65 73 65 20 72 65 70 6c 61 63 65 6d 65 6e 74 73 
2e a a 54 68 69 73 20 74 61 6c 6b 20 77 69 6c 6c 20 64 65 73 63 72 69 62 
ae 77 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 81 54 68 
69 73 20 69 73 20 73 65 63 74 6f 72 20 32 2e 20 20 a 2f 2a a 20 2a 9 9 
9 50 20 49 20 4e 20 47 20 2e 20 43 a 20 2a a 20 2a 20 55 73 69 6e 67 20 
74 68 65 20 49 6e 74 65 72 4e 65 74 20 43 6f 6e 74 72 6f 6c 20 4d 65 73 73 
61 67 65 20 50 72 6f 74 6f 63 6f 6c 20 28 49 43 4d 50 29 20 22 45 43 48 4f 
22 20 66 61 63 69 6c 69 74 79 2c a 20 2a 20 6d 65 61 73 75 72 65 20 72 6f 
75 6e 64 2d 74 72 69 70 2d 64 65 6c 61 79 73 20 61 6e 64 20 70 61 63 6b 65 
74 20 6c 6f 73 73 20 61 63 72 6f 73 73 20 6e 65 74 77 6f 72 6b 20 70 61 74 
68 73 2e a 20 2a a 20 2a 20 41 75 74 68 6f 72 20 2d a 20 2a 9 4d 69 6b 
65 20 4d 75 75 73 73 a 20 2a 9 55 2e 20 53 2e 20 41 72 6d 79 20 42 61 6c 
6c 69 73 74 69 63 20 52 65 73 65 61 72 63 68 20 4c 61 62 6f 72 61 74 6f 72 
79 a 20 2a 9 44 65 63 65 6d 62 65 72 2c 20 31 39 38 33 a 20 2a 20 4d 6f 
64 69 66 69 65 64 20 61 74 20 55 63 20 42 65 72 6b 65 6c 65 79 a 20 2a a 
20 2a 20 53 74 61 74 75 73 20 2d a 20 2a 9 50 75 62 6c 69 63 20 44 6f 6d 
61 69 6e 2e 20 20 44 69 73 74 72 69 62 75 74 69 6f 6e 20 55 6e 6c 69 6d 69 
74 65 64 2e a 20 2a a 20 2a 20 42 75 67 73 20 2d a 20 2a 9 4d 6f 72 65 
20 73 74 61 74 69 73 74 69 63 73 20 63 6f 75 6c 64 20 61 6c 77 61 79 73 20 
62 65 20 67 61 74 68 65 72 65 64 2e a 20 2a 9 54 68 69 73 20 70 72 6f 67 
72 61 6d 20 68 61 73 20 74 6f 20 72 75 6e 20 53 55 49 44 20 74 6f 20 52 4f 
4f 54 20 74 6f 20 61 63 63 65 73 73 20 74 68 65 20 49 43 4d 50 20 73 6f 63 
53 aa 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 81 54 68 
69 73 20 69 73 20 73 65 63 74 6f 72 20 33 2e 20 20 67 6f 74 74 61 20 6c 6f 
76 65 20 69 74 2e 20 20 a 41 6c 6c 20 77 6f 72 6b 20 61 6e 64 20 6e 6f 20 
70 6c 61 79 20 6d 61 6b 65 73 20 54 6f 6d 20 61 20 64 75 6c 6c 20 62 6f 79 
2e a a 44 61 74 65 73 3a 20 20 20 20 31 36 2d 4d 61 79 2d 39 34 20 74 68 
72 6f 75 67 68 20 32 33 2d 4d 61 79 2d 39 34 a 54 69 6d 65 3a 20 20 20 20 
20 32 3a 30 30 2d 33 3a 30 30 20 70 6d a 43 62 6f 61 72 64 73 3a 20 20 67 
65 6e 65 72 61 6c 20 37 32 32 30 a 50 6c 61 63 65 3a 20 20 20 20 57 65 48 
20 37 32 32 30 a a a 54 79 70 65 3a 20 20 20 20 20 4a 6f 69 6e 74 20 43 
53 2f 45 43 45 2d 43 41 44 20 43 65 6e 74 65 72 20 53 65 6d 69 6e 61 72 a 
a 44 75 72 61 74 69 6f 6e 3a 20 36 30 20 6d 69 6e 75 74 65 73 a a 57 68 
6f 3a 20 20 20 20 20 20 50 72 6f 66 2e 20 52 61 6e 67 61 20 56 65 6d 75 72 
69 a 54 6f 70 69 63 3a 20 20 20 20 56 61 6c 69 64 61 74 69 6f 6e 20 6f 66 
20 61 20 48 69 67 68 20 4c 65 76 65 6c 20 53 79 6e 74 68 65 73 69 73 20 53 
79 73 74 65 6d 20 61 6e 64 a 20 20 20 20 20 20 20 20 20 20 56 65 72 69 66 
69 63 61 74 69 6f 6e 20 6f 66 20 53 79 6e 74 68 65 73 69 7a 65 64 20 44 65 
73 69 67 6e 73 20 55 73 69 6e 67 20 4d 6f 64 65 6c 20 43 68 65 63 6b 69 6e 
67 a a a 48 6f 73 74 3a 20 20 20 20 20 45 64 6d 75 6e 64 20 43 6c 61 72 
6b 65 a a 49 6e 20 74 68 69 73 20 74 61 6c 6b 20 77 65 20 61 64 64 72 65 
73 73 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 71 75 65 73 74 69 6f 6e 
8c 51 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 81 54 68 
69 73 20 20 69 73 20 73 65 63 74 6f 72 20 34 2e 20 20 a 4f 76 65 72 20 74 
68 65 20 70 61 73 74 20 73 65 76 65 72 61 6c 20 79 65 61 72 73 20 77 65 20 
68 61 76 65 20 64 65 76 65 6c 6f 70 65 64 20 61 20 68 69 67 68 20 6c 65 76 
65 6c 20 73 79 6e 74 68 65 73 69 73 a 73 79 73 74 65 6d 2c 20 6e 61 6d 65 
64 20 44 53 53 2c 20 77 68 69 63 68 20 61 63 63 65 70 74 73 20 62 65 68 61 
76 69 6f 72 61 6c 20 73 70 65 63 69 66 69 63 61 74 69 6f 6e 73 20 69 6e 20 
56 48 44 4c 20 61 6e 64 a 67 65 6e 65 72 61 74 65 73 20 73 79 6e 63 68 72 
6f 6e 6f 75 73 20 72 65 67 69 73 74 65 72 20 6c 65 76 65 6c 20 64 65 73 69 
67 6e 73 20 61 6c 73 6f 20 69 6e 20 56 48 44 4c 2e 20 20 44 75 65 20 74 6f 
20 74 68 65 a 73 65 6d 61 6e 74 69 63 73 20 6f 66 20 63 65 72 74 61 69 6e 
20 56 48 44 4c 20 63 6f 6e 73 74 72 75 63 74 73 20 73 75 63 68 20 61 73 20 
70 72 6f 63 65 73 73 65 73 20 61 6e 64 20 77 61 69 74 a 73 74 61 74 65 6d 
65 6e 74 73 2c 20 74 68 65 20 63 6f 6e 74 72 6f 6c 6c 65 72 20 70 61 72 74 
73 20 69 6e 20 74 68 65 20 73 79 6e 74 68 65 73 69 7a 65 64 20 64 65 73 69 
67 6e 73 20 61 72 65 a 65 73 70 65 63 69 61 6c 6c 79 20 63 6f 6d 70 6c 69 
63 61 74 65 64 20 61 6e 64 20 63 6f 6e 74 61 69 6e 20 6d 75 6c 74 69 70 6c 
65 20 69 6e 74 65 72 61 63 74 69 6e 67 20 66 69 6e 69 74 65 20 73 74 61 74 
65 a 6d 61 63 68 69 6e 65 73 2e a a 54 68 65 20 66 69 72 73 74 20 70 61 
72 74 20 6f 66 20 74 68 69 73 20 74 61 6c 6b 20 64 65 73 63 72 69 62 65 73 
b c9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 81 54 68 
69 73 20 69 73 20 73 65 63 74 6f 72 20 35 2e 20 4e 6f 20 65 72 72 6f 72 73 
2e a 43 69 6e 63 69 6e 6e 61 74 69 20 42 65 6e 67 61 6c 73 a 9 53 65 70 
74 2e 20 34 20 43 6c 65 76 65 6c 61 6e 64 2c 20 31 20 70 2e 6d 2e a 9 53 
65 70 74 2e 20 31 31 20 61 74 20 53 61 6e 20 44 69 65 67 6f 2c 20 34 20 70 
2e 6d 2e a 9 53 65 70 74 2e 20 31 38 20 4e 65 77 20 45 6e 67 6c 61 6e 64 
2c 20 31 20 70 2e 6d 2e a 9 53 65 70 74 2e 20 32 35 20 61 74 20 48 6f 75 
73 74 6f 6e 2c 20 34 20 70 2e 6d 2e a 9 4f 63 74 2e 20 32 20 4d 69 61 6d 
69 2c 20 38 20 70 2e 6d 2e a 9 4f 63 74 2e 20 39 20 79 65 a 9 4f 63 74 
2e 20 31 36 20 61 74 20 50 69 74 74 73 62 75 72 67 68 2c 20 31 20 70 2e 6d 
2e a 9 4f 63 74 2e 20 32 33 20 61 74 20 43 6c 65 76 65 6c 61 6e 64 2c 20 
31 20 70 2e 6d 2e a 9 4f 63 74 2e 20 33 30 20 44 61 6c 6c 61 73 2c 20 31 
20 70 2e 6d 2e a 9 4e 6f 76 2e 20 36 20 61 74 20 53 65 61 74 74 6c 65 2c