Stephan/solo_altera
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Compare commits

base: Stephan:f5590f42603db54d86feab8850aaa29a121e9efc
Branches Tags
Stephan:master
Stephan:thhor
..
compare: Stephan:59cd500e6d12c99bac29e7eeec9043015205eaf0
Branches Tags
Stephan:master
Stephan:thhor

No commits in common. "f5590f42603db54d86feab8850aaa29a121e9efc" and "59cd500e6d12c99bac29e7eeec9043015205eaf0" have entirely different histories.
f5590f4260 ... 59cd500e6d

5 changed files with 46 additions and 642 deletions
Download patch file Download diff file Expand all files Collapse all files

2
.gitignore vendored
View file

@ -1,5 +1,3 @@
db/
incremental_db/
*.vvp
vcd
*~

93
altera/frontend.v
View file

@ -9,13 +9,6 @@ module frontend
input spi_mosi,
output spi_miso,
`ifdef AX_PORT
input sclk,
input ARxC, ARxD,
output ATxC, ATxD,
output [W-2:0] states, strobes,
`endif
output we,
output wp,
output [W-3:0] wa,
@ -100,82 +93,14 @@ module frontend
else
{re_core, rd_core} <= {re, rd};
wire s_we, s_wp;
wire [W-3:0] s_wa;
wire [W-1:0] s_wd;
spi_slave arm
(.mclk(mclk),
.ssel(spi_ssel), .sclk(spi_sck), .mosi(spi_mosi), .miso(spi_miso),
.we(s_we), .wp(s_wp), .wa(s_wa), .wd(s_wd),
.we(we), .wp(wp), .wa(wa), .wd(wd),
.re(re_fend|re_fifo|re_core), .rd(rd_fend|rd_fifo|rd_core),
.rreset(spi_reset), .roverflow(spi_overflow), .afull(spi_afull),
.rdefault(spi_default) );
`ifndef AX_PORT
assign {we, wp, wa, wd} = {s_we, s_wp, s_wa, s_wd};
wire ax_clock_reset = 0;
wire ax_read_fifo = 0;
wire ax_ff_enable = 0;
wire ax_afull = 0;
tri0 lost_sync;
`else
// inter FPGA serial link as GSE/calib/test/HSS interface
wire a_we, a_wp;
wire [W-3:0] a_wa;
wire [W-1:0] a_wd;
reg r_we, r_wp;
reg [W-3:0] r_wa;
reg [W-1:0] r_wd;
assign {we, wp, wa, wd} = {r_we, r_wp, r_wa, r_wd};
wire lost_sync;
ser_slave_rx srx
(.mclk(mclk), .ser_clk(ARxC),
.TX(ARxD),
.we(a_we), .wp(a_wp), .wa(a_wa), .wd(a_wd),
.states(states), .strobes(strobes),
.lost_sync(lost_sync) );
always @(posedge mclk)
begin
if (s_we)
{r_wp, r_wa, r_wd} <= {s_wp, s_wa, s_wd};
else if (a_we)
{r_wp, r_wa, r_wd} <= {a_wp, a_wa, a_wd};
r_we <= s_we | a_we;
end
wire ax_disable;
wire ax_clock_reset = strobes[3] & ~ax_disable;
wire ax_read_fifo = strobes[12] & ~ax_disable;
wire ax_rb_reset = strobes[13];
wire ax_fifo_reset = strobes[14];
wire ax_ff_enable = states[12] & ~ax_disable;
wire ax_rb_disable = states[13];
wire ax_fifo_full = states[14];
wire ATxCh;
assign ATxC = sclk;
wire ax_afull;
ser_slave_tx #(.AF(6)) stx
(.mclk(mclk), .ser_clk(sclk),
.freset(ax_fifo_reset), .rreset(ax_rb_reset),
.fifo_full(ax_fifo_full),
.rb_disable(ax_rb_disable),
.RXp({ATxCh,ATxD}),
.re(re_fend|re_core), .rd(rd_fend|rd_core),
.fifoe(ax_ff_enable & re_fifo), .fifo(rd_fifo),
.fifof(ax_afull) );
`endif // !`ifndef AX_PORT
// master config and status
parameter RFIFO_ADDR = 0;
@ -230,8 +155,7 @@ module frontend
// 16 strobes to set things straight.
reset_reg master_rsts(mclk, ww[MRSTS_ADDR], wp, wd, resets);
wire rfifo = ww[RFIFO_ADDR] & ~wp | ax_read_fifo;
wire afull = ax_ff_enable ? ax_afull : spi_afull;
wire rfifo = ww[RFIFO_ADDR] & ~wp;
parameter WHK_ADDR = 'h 10;
parameter RHKS_ADDR = 'h 10;
@ -268,7 +192,7 @@ module frontend
packetfifo hkfifo(.mclk(mclk),
.reset(fifo_reset[0]),
.afull(afull),
.afull(spi_afull),
.push(ww[WHK_ADDR] & wp),
.data(wd),
.full(hkfifo_full),
@ -291,7 +215,7 @@ module frontend
packetfifo f1(.mclk(mclk),
.reset(fifo_reset[1]),
.afull(afull),
.afull(spi_afull),
.push(fifo_push[1]),
.data(fifo1),
.full(fifo_full[1]),
@ -314,7 +238,7 @@ module frontend
packetfifo f2(.mclk(mclk),
.reset(fifo_reset[2]),
.afull(afull),
.afull(spi_afull),
.push(fifo_push[2]),
.data(fifo2),
.full(fifo_full[2]),
@ -337,7 +261,7 @@ module frontend
packetfifo f3(.mclk(mclk),
.reset(fifo_reset[3]),
.afull(afull),
.afull(spi_afull),
.push(fifo_push[3]),
.data(fifo3),
.full(fifo_full[3]),
@ -363,20 +287,17 @@ module frontend
assign fifo_disable = confs[8];
assign fend_disable = confs[9];
assign core_disable = confs[10];
assign ax_disable = confs[11];
assign lstats[0] = errsum;
assign lstats[2] = lost_sync;
assign lstats[7:4] = {fifo_full, hkfifo_full};
assign lstats[15:8] = {packet, empty};
assign clock_reset = resets[3] | ax_clock_reset;
assign clock_reset = resets[3];
assign fifo_reset = resets[7:4];
assign spi_reset = resets[8];
assign mconf_reset = resets[9];
assign lerrors[0] = spi_overflow;
assign lerrors[2] = lost_sync;
assign lerrors[7:4] = {fifo_full, hkfifo_full};
assign lerrors[15:8] = {packet, empty};

34
dorn/altera/nmahepam.gold
View file

@ -1,21 +1,21 @@
Compiling VVP ...
... VVP file version 12.0 (stable)
Compile cleanup...
... 6326 functors (net_fun pool=524288 bytes)
1503 logic
... 6269 functors (net_fun pool=524288 bytes)
1466 logic
0 bufif
5 resolv
2574 signals
... 5924 filters (net_fil pool=786432 bytes)
... 34194 opcodes (835584 bytes)
... 5295 nets
... 6326 vvp_nets (1048544 bytes)
2572 signals
... 5867 filters (net_fil pool=786432 bytes)
... 34184 opcodes (835584 bytes)
... 5269 nets
... 6269 vvp_nets (1048544 bytes)
... 71 arrays (415 words)
... 82 memories
82 logic (30000 words)
0 real (0 words)
... 981 scopes
... 0.129428 seconds, 24988.0/17200.0/5596.0 KBytes size/rss/shared
... 980 scopes
... 0.052337 seconds, 24848.0/16776.0/5328.0 KBytes size/rss/shared
Running ...
...execute EndOfCompile callbacks
...propagate initialization events
@ -2371,7 +2371,7 @@ FE[0]: event timestamp 15
L1 SAMPLE: slot 1 ch_det 21 idx 3 adc 415
FE[0]: event Δ-time x
spi frame: sent 8000, received 0000
FE[0]: event lost X ch 0 det 1
FE[0]: event lost 0 ch 0 det 1
FE[0]: event a 14048
spi frame: sent 8000, received 0000
FE[0]: event b -6626
@ -2404,7 +2404,7 @@ L1 SAMPLE: slot 10 ch_det 2 idx 5 adc 514
spi frame: sent 8000, received xxxx
FE[0]: event b -8
L1 SAMPLE: slot 11 ch_det 3 idx 5 adc 517
spi frame: sent 8000, received XxX1
spi frame: sent 8000, received 8001
L1 SAMPLE: slot 12 ch_det 9 idx 5 adc 547
L1 SAMPLE: slot 13 ch_det 10 idx 5 adc 504
L1 SAMPLE: slot 14 ch_det 11 idx 5 adc 348
@ -2495,7 +2495,7 @@ L1 SAMPLE: slot 1 ch_det 21 idx 8 adc 450
FE[1]: event timestamp 15
spi frame: sent 8000, received 000e
FE[1]: event Δ-time x
FE[1]: event lost X ch 1 det 1
FE[1]: event lost 1 ch 1 det 1
L1 SAMPLE: slot 9 ch_det 1 idx 9 adc 866
L1 SAMPLE: slot 10 ch_det 2 idx 9 adc 514
FE[1]: event a 14679
@ -2764,7 +2764,7 @@ FS[0]: sample[0010] 498
L2 sum: slot 12 ch_det 9 A -14947 B 1030 age 17
FS[0]: sample[0110] 557
FS[0]: sample[1010] 501
spi frame: sent 8000, received XxX5
spi frame: sent 8000, received 8015
FS[0]: sample[1110] 498
L2 sum: slot 12 ch_det 9 A -11896 B -112 age 16
spi frame: sent 8000, received 3957
@ -6193,16 +6193,16 @@ spi frame: sent 8000, received 0000
spi frame: sent 8000, received 0000
spi frame: sent 8000, received 0000
spi frame: sent 8000, received 0000
nmahepam.v:463: $finish called at 2404598250 (1ps)
nmahepam.v:462: $finish called at 2404598250 (1ps)
...execute Postsim callbacks
... 144.964 seconds, 26884.0/19560.0/5752.0 KBytes size/rss/shared
... 47.5244 seconds, 25820.0/18084.0/5580.0 KBytes size/rss/shared
Event counts:
2139391 time steps (pool=113)
9329988 thread schedule events
155979390 assign events
155825391 assign events
...assign(vec4) pool=9362
...assign(vec8) pool=204
...assign(real) pool=256
...assign(word) pool=128
...assign(word/r) pool=204
5425314 other events (pool=4096)
5411650 other events (pool=4096)

59
dorn/altera/stis_ana_core.v
View file

@ -616,7 +616,7 @@ module stis_ana_core
endmodule // stis_ana_core
module stis_slice
#(parameter MCLK=16, I=0, ND=4, WH=6, FO=1)
#(parameter MCLK=16, I=0, ND=4, WH=6)
(
input mclk,
@ -629,23 +629,9 @@ module stis_slice
output reg fifo_e,
output reg [15:0] fifo,
output reg hk_fifo_e,
output reg ev_fifo_e,
output reg [2:0] sa_fifo_e,
output reg [15:0] hk_fifo,
output reg[191:0] ev_fifo,
output reg [47:0] sa_fifo,
input afull,
`ifdef THHOR
input hk_afull,
input ev_afull,
input sa_afull,
input [2:0] fifo_nonblock,
`endif
input [15:0] ev_psize,
input [11:0] ev_word_sel,
output reg event_valid,
input [2:0] ff_enable, ff_read, ff_reset,
input [2:0] rri, rbi,
@ -654,8 +640,7 @@ module stis_slice
input enable, resync, req_hk,
input clock_reset, dorn_reset,
output reg [31:0] clock,
`ifdef WITH_DORN_L4
output incr,
output [WH+3:0] hist,
@ -672,17 +657,10 @@ module stis_slice
input gtrigger,
output trigger,
output [FO-1:0] SCLK, nCS, DIN,
output SCLK, nCS, DIN,
input [ND-1:0] DOUT
);
`ifndef THHOR
wire hk_afull = 0;
wire ev_afull = 0;
wire sa_afull = 0;
wire [2:0] fifo_nonblock = 0;
`endif
parameter HK_MAGIC = 16'h 5710;
parameter SA_MAGIC = 16'h 5714;
parameter EV_MAGIC = 16'h 5718;
@ -693,6 +671,7 @@ module stis_slice
parameter WC = 2;
parameter NR = 26;
reg [31:0] clock;
always @(posedge mclk)
if (clock_reset)
clock <= 0;
@ -730,7 +709,7 @@ module stis_slice
wire hk_fifo_full;
dorn_core #(.DCLK(MCLK), .FO(FO), .ND(ND), .NE(32), .WH(WH)) dorn
dorn_core #(.DCLK(MCLK), .FO(1), .ND(ND), .NE(32), .WH(WH)) dorn
(.dclk(mclk),
.enable(enable & ~resync), .req_hk(req_hk & ~hk_fifo_full),
.l2_reset(dorn_reset),
@ -758,6 +737,8 @@ module stis_slice
parameter [15:0] HK_SIZE = 8*ND;
wire [15:0] hk_magic = HK_MAGIC + I;
reg [15:0] hk_fifo;
reg hk_fifo_e;
always @(posedge mclk)
begin
if (req_hk & ~hk_fifo_full)
@ -778,25 +759,27 @@ module stis_slice
.we(1'b0),
.psize(HK_SIZE), .hmask(16'hffff), .hval(hk_magic), .match(64'b0)
);
assign hk_fifo_full = ff_full[0] & ~fifo_nonblock[0] | hk_afull;
assign hk_fifo_full = ff_full[0];
wire [15:0] ev_magic = EV_MAGIC + I;
wire ev_fifo_full;
reg [191:0] ev_fifo;
reg ev_fifo_e;
reg [11:1] evv;
reg [31:0] ev_last_clock;
reg [31:0] ev_dtime;
reg [14-WC-WD:0] ev_lost;
wire ev_fifo_busy = |{ev_fifo_full, ev_fifo_e, evv};
always @(posedge mclk)
begin
if (valid & ~ev_fifo_busy)
// BUG: `ev_fifo_e` is insufficient for sparse events
if (valid & ~ev_fifo_full & ~ev_fifo_e)
{ev_fifo_e, evv} <= ev_word_sel;
else
{ev_fifo_e, evv} <= {evv, 1'b0};
event_valid <= valid & ~ev_fifo_busy;
if (valid & ~ev_fifo_busy)
// BUG: garbles the previous event when `ev_fifo_e`
if (valid)
ev_fifo <= { pha[34:3],
a[NR-17:NR-24], b[NR-17:NR-24],
b[NR-1:NR-16],
@ -811,10 +794,10 @@ module stis_slice
ev_fifo <= {16'b0, ev_fifo[191:16]};
if (valid)
if (~ev_fifo_busy)
ev_lost <= 0;
else if (~&ev_lost)
if ((ev_fifo_e | ev_fifo_full) & ~&ev_lost)
ev_lost <= ev_lost + 1;
else
ev_lost <= 0;
// everything but pha[] becomes valid some clocks before valid.
ev_dtime <= filter_clock - ev_last_clock;
@ -828,7 +811,7 @@ module stis_slice
packetfifo fev
(.mclk(mclk), .reset(ff_reset[1]), .afull(afull),
.push(ev_fifo_e), .data(ev_fifo[15:0]),
.full(ff_full[1]),
.full(ev_fifo_full),
.halffull(ff_half[1]), .empty(ff_empty[1]), .packet(ff_packet[1]),
.re(ree[2]), .rd(rdd[2]),
.rre(ff_enable[1]), .rr(ff_read[1]),
@ -836,9 +819,11 @@ module stis_slice
.we(1'b0),
.psize(ev_psize), .hmask(16'hffff), .hval(ev_magic), .match(64'b0)
);
assign ev_fifo_full = ff_full[1] & ~fifo_nonblock[1] | ev_afull;
assign ff_full[1] = ev_fifo_full;
wire [15:0] sa_magic = SA_MAGIC + I;
reg [47:0] sa_fifo;
reg [2:0] sa_fifo_e;
wire [15:0] sa_chdata = {sa_addr[3:0], sa_data};
always @(posedge mclk)
begin
@ -880,7 +865,7 @@ module stis_slice
.we(1'b0),
.psize(SA_SIZE), .hmask(16'hffff), .hval(sa_magic), .match(64'b0)
);
assign sa_busy = ff_half[2] & ~fifo_nonblock[2] | sa_afull;
assign sa_busy = ff_half[2];
endmodule // stis_slice

500
dorn/altera/thhor_core.v
View file

@ -1,500 +0,0 @@
module thhor_core
#(parameter MCLK=32, ND=4, FO=4)
(
input mclk,
input we, wp,
input [13:0] wa,
input [15:0] wd,
output re,
output [15:0] rd,
input [15:0] confs,
input [15:0] resets,
input [14:0] ax_strobes, ax_states,
output [31:0] clock,
output stick,
output [3:1] fifo_e,
output [15:0] fifo1, fifo2, fifo3,
input [3:1] afull,
output [15:0] ev_psize,
output [ND*3:0] counter_hit,
output [FO-1:0] SCLK, nCS, DIN,
input [ND-1:0] DOUT
);
parameter DORN_ADDR = 14'h 2000;
parameter MISC_ADDR = 14'h 0080+DORN_ADDR;
reg [14:0] strobes;
wire dorn_reset = strobes[8];
wire req_hk = strobes[4];
wire clock_reset = strobes[3];
wire resync = strobes[2];
wire [14:0] spi_strobes = { 6'b0,
resets[2],
resets[15:12],
resets[3:0] };
wire ax_disable = confs[11];
wire enable_s = ax_states[0] & ~ax_disable | confs[0];
wire full_events = ~confs[1];
assign ev_psize = full_events ? 11 : 7;
reg [15:0] ww; // mostly unused
always @(posedge mclk)
if (we & wa[13:4] == MISC_ADDR[13:4])
ww <= 1 << wa[3:0];
else
ww <= 0;
wire enable_c;
reg enable;
always @(posedge mclk)
begin
if (ax_disable)
if (ww[11] & wp)
strobes <= wd[14:0];
else
strobes <= spi_strobes;
else
if (ww[11] & wp)
strobes <= ax_strobes | wd[14:0];
else
strobes <= ax_strobes | spi_strobes;
enable <= enable_s;
end
// the ports of stis_slice are wider than needed here
wire [2:0] sa_fifo_e;
assign fifo_e[3] = sa_fifo_e[0];
wire [47:0] sa_fifo;
assign fifo3 = sa_fifo[15:0];
wire [191:0] ev_fifo;
assign fifo2 = ev_fifo[15:0];
wire [11:0] ev_word_sel;
wire event_valid;
stis_slice #(.MCLK(MCLK), .ND(ND), .FO(FO)) stis
(.mclk(mclk),
.conf_we(we), .conf_wp(wp), .conf_wa(wa), .conf_wd(wd),
.conf_re(re), .conf_rd(rd),
.hk_fifo_e(fifo_e[1]), .ev_fifo_e(fifo_e[2]), .sa_fifo_e(sa_fifo_e),
.hk_fifo(fifo1), .ev_fifo(ev_fifo), .sa_fifo(sa_fifo),
.hk_afull(afull[1]), .ev_afull(afull[2]), .sa_afull(afull[3]),
.ev_psize(ev_psize), .ev_word_sel(ev_word_sel), .event_valid(event_valid),
.ff_enable(3'b 000), .ff_read(3'b 000), .ff_reset(3'b 111),
.rri(3'b 000), .rro(), .rbi(3'b 111),
.enable(enable), .resync(resync), .req_hk(req_hk),
.clock_reset(clock_reset), .dorn_reset(dorn_reset),
.counter_hit(counter_hit), .stick(stick), .clock(clock),
.gtrigger(1'b0),
.SCLK(SCLK), .nCS(nCS), .DIN(DIN), .DOUT(DOUT) );
endmodule // thhor_core
`ifdef SIMULATION
`timescale 1ns/1ps
`ifdef THHOR_TEST
`define THHOR_JIG
`endif
`ifdef THHOR_JIG
module thhor_jig
#(parameter SLICES=1, ND=4)
(
// Quarz
output reg mclk,
output [14:0] strobes, states,
output we, wp,
output [13:0] wa,
output [15:0] wd,
input re,
input [15:0] rd,
input fifoe,
input [15:0] fifo,
// ADC
input [SLICES-1:0] SCLK, nCS, DIN,
output [ND*SLICES-1:0] DOUT
);
always
begin
# 15.625 mclk = 0;
# 15.625 mclk = 1;
end
always @(posedge xclk)
mclk = mclk !== 1;
parameter WD = $clog2(ND);
reg [11:0] shape[0:511];
initial $readmemh("sallen-key-pulse.hex", shape);
reg [2:0] pulse_a;
reg [2:0] pulse_s[0:15];
task pulse;
input [1:0] sl;
input [5:0] ch;
input [2:0] a;
integer c,d;
begin
c = ch[WD+1:WD];
d = {sl, ch[WD-1:0]};
pulse_a = a;
pulse_s[d][c] = pulse_s[d][c] !== 1;
end
endtask
genvar i, j;
generate
for (i=0; i<ND*SLICES; i=i+1)
begin:a
wire signed [11:0] AINN[0:7];
for (j=0; j<8; j=j+1)
begin:n
noise #(.W(12), .F(100)) noise(AINN[j]);
initial #1
begin
noise.amp = 20;
noise.tau = 10;
end
end
wire [11:0] AIN[0:2];
adc128s102 adc (.SCLK(SCLK[i/ND]), .nCS(nCS[i/ND]), .DIN(DIN[i/ND]),
.DOUT(DOUT[i]),
.AIN0(12'h 0 + AIN[0] + AINN[0]),
.AIN1(12'h 0 + AIN[1] + AINN[1]),
.AIN2(12'h 0 + AIN[2] + AINN[2]),
.AIN3(12'h 300 + AINN[3]),
.AIN4(12'h 400 + AINN[4]),
.AIN5(12'h 500 + AINN[5]),
.AIN6(12'h 600 + AINN[6]),
.AIN7(12'h 700 + AINN[7]) );
for (j=0; j<3; j=j+1)
begin:p
wire [8:0] pidx;
wire [11:0] pshape = shape[pidx];
pulser #(.F(62.5)) pu(AIN[j], pidx, pshape);
wire start = pulse_s[i][j];
always @(start)
begin
$display("PULSE ADC %d CH %d", i, j);
pu.a = pulse_a;
pu.start();
end
end
end
endgenerate
reg [14:0] a_states=0, a_strobes=0;
assign {strobes, states} = {a_strobes, a_states};
reg awe = 0, awp;
reg awb;
reg [13:0] awa;
reg [15:0] awd;
assign {we, wp, wa, wd} = {awe, awp, awa, awd};
event end_command;
always @(posedge mclk)
if (awe)
begin
awb <= 1;
@(end_command);
@(posedge mclk) awb <= 0;
end
event send_command;
event send_strobes;
event send_states;
task strobe;
input [3:0] n;
begin
@(posedge mclk) a_strobes <= 1<<n;
#1 -> send_strobes;
@(posedge mclk) a_strobes <= 0;
end
endtask
task set;
input [3:0] n;
begin
@(posedge mclk) a_states <= a_states | (1<<n);
#1 -> send_states;
end
endtask
task clear;
input [3:0] n;
begin
@(posedge mclk) a_states <= a_states & ~(1<<n);
#1 -> send_states;
end
endtask
task strobe_m;
input [14:0] n;
begin
@(posedge mclk) a_strobes <= n;
#1 -> send_strobes;
@(posedge mclk) a_strobes <= 0;
end
endtask
task set_m;
input [14:0] n;
begin
@(posedge mclk) a_states <= a_states | n;
#1 -> send_states;
end
endtask
task clear_m;
input [14:0] n;
begin
@(posedge mclk) a_states <= a_states & ~n;
#1 -> send_states;
end
endtask
task cmdw;
begin
@(posedge mclk);
while (awb) @(posedge mclk);
end
endtask
task cmdp;
input [13:0] a;
input [15:0] d;
begin
cmdw;
awe <= 1;
awp <= 1;
awd <= d;
awa <= a;
#1 -> send_command;
@(posedge mclk) awe <=0;
end
endtask
task cmd;
input [13:0] a;
begin
cmdw;
awe <= 1;
awp <= 0;
awd <= 'bx;
awa <= a;
#1 -> send_command;
@(posedge mclk) awe <=0;
end
endtask
always @(posedge mclk)
if (re)
$display("MRX RE: %16b", rd);
assign afull = 0;
wire [15:0] ev_psize = a_states[8] ? 7 : 11;
wire [15:0] ffifo;
stis_split #(.WH(WH)) split
(.mclk(mclk), .push(fifoe), .data(fifo),
.ev_psize(ev_psize),
.hk_e(hk_e), .ev_e(ev_e), .sa_e(sa_e), .hi_e(hi_e),
.q(ffifo) );
task l1_thres;
input [1:0] sl;
input [5:0] ch;
input [11:0] t;
begin
cmdp({1'b1, sl, 5'b 000_01, ch}, t);
end
endtask
task w_l2;
input [1:0] sl;
input [5:0] ch;
input [3:1] i;
input [11:0] a, b;
begin
cmdp({1'b1, sl, 1'h 1, ch, i, 1'b0}, a);
cmdp({1'b1, sl, 1'h 1, ch, i, 1'b1}, b);
end
endtask
task w_l3;
input [1:0] sl;
input [5:0] ch;
input [15:0] p0;
input [15:0] p1; // ignored
input [15:0] p2;
input [15:0] p3;
begin
cmdp({1'b1, sl, 3'b 001, ch, 2'd0}, p0);
cmdp({1'b1, sl, 3'b 001, ch, 2'd1}, p2);
cmdp({1'b1, sl, 3'b 001, ch, 2'd2}, p3);
cmdp({1'b1, sl, 3'b 001, ch, 2'd3}, 0);
end
endtask
task w_l4;
input [1:0] sl;
input [3:0] xt;
input [7:0] cwin;
input [1:0] res;
input [8:0] bin0;
begin
cmdp({1'b1, sl, 11'd 12}, {4'b0, xt, cwin});
cmdp({1'b1, sl, 11'd 13}, {5'b0, res, bin0});
end
endtask
task l1_conf;
integer ch, sl;
begin
for (sl=0; sl<SLICES; sl=sl+1)
for (ch=0; ch < 3*ND; ch = ch+1)
l1_thres(sl, ch, 222);
cmdw;
end
endtask
task l2_conf;
integer ch, sl;
begin
for (sl=0; sl<SLICES; sl=sl+1)
for (ch=0; ch < 3*ND; ch = ch+1)
begin
w_l2(sl, ch, 0, -1203, 0);
w_l2(sl, ch, 1, -1203, 0);
w_l2(sl, ch, 2, -1203, 0);
w_l2(sl, ch, 3, -1186, 0);
w_l2(sl, ch, 4, -39, 2000);
w_l2(sl, ch, 5, 1709, 970);
w_l2(sl, ch, 6, 2000, -1082);
w_l2(sl, ch, 7, 1125, -1888);
end
cmdw;
end
endtask
task l3_conf;
integer ch, sl;
begin
for (sl=0; sl<SLICES; sl=sl+1)
for (ch=0; ch < 3*ND; ch = ch+1)
w_l3(sl, ch,
-3930, // L3 p0 × 2¹⁴
14413, // L3 p2 x 2¹⁴
33, // L3 p3 x 2¹⁵
0 ); // L3 p4 x 2¹⁶
cmdw;
end
endtask
task w_enable;
input [3:0] en;
input sen;
input rfe;
input [SLICES*2:1] sfe;
begin
cmdp('h887, {sfe, rfe, sen, en});
end
endtask
endmodule // thhor_jig
`endif // `ifdef THHOR_JIG
`ifdef THHOR_CORE_TEST
module thhor_core_test;
parameter SLICES = 1;
parameter FO = 1;
wire mclk;
wire [FO-1:0] SCLK, nCS, DIN;
wire [4*SLICES-1:0] DOUT;
thhor_jig #(.SLICES(SLICES), .FO(FO)) jig
( .mclk(mclk),
.SCLK(SCLK), .nCS(nCS), .DIN(DIN), .DOUT(DOUT)
);
wire conf_re, conf_fifoe;
wire [15:0] conf_rd, conf_fifo;
thhor_core dut
( .mclk(mclk),
.SCLK(SCLK), .nCS(nCS), .DIN(DIN), .DOUT(DOUT),
.conf_re(conf_re), .conf_rd(conf_rd),
.fifoe(fifoe), .fifo(fifo)
);
always @(posedge mclk)
begin
if (conf_re)
$display("GSE RE: %16b", conf_rd);
if (conf_fifoe)
$display("GSE FIFO: %16b", conf_fifo);
end
integer ch;
initial
begin
$dumpfile("vcd/thhor_core.fst");
$dumpvars(0);
#5000 jig.strobe_m(15'h 7108);
#1000 jig.cmdp('h81b, 16'h 7108);
#10000;
#1000 jig.w_enable(4'b1111, 1, 1, 6'b 111_111);
#1000 jig.cmdp('h 888, 0);
jig.l1_conf;
jig.l2_conf;
jig.l3_conf;
jig.l4_conf;
jig.set_m('h010);
for (ch=0; ch < SLICES*32; ch=ch+1)
begin
jig.r_sram(ch, 0, 1);
#40000;
end
jig.cmdp('h 088e, 'h 302);
jig.cmdp('h 088d, 'h 12);
jig.cmdp('h 088c, 'h 3456);
jig.r_sram('h300>>WH, 1, 0);
jig.cmdp('h800, 1);
#10000 jig.pulse('b 00_00_01, 0);
#20000 jig.pulse('b 00_01_11, 0);
#4000 jig.pulse('b 00_10_10, 0);
#50000 jig.pulse('b 00_00_01, 3);
#1000 jig.pulse('b 00_01_11, 1);
#20000 jig.pulse('b 00_10_10, 1);
#100000 jig.strobe_m('b 000_0000_1111_0000);
#100000 jig.r_sram('h300>>WH, 1, 0);
#500000 $finish;
end
endmodule // stis_ana_core_test
`endif // `ifdef THHOR_CORE_TEST
`endif // `ifdef SIMULATION