《基于Quartus II的FPGACPLD数字系统设计与应用》范例的源程序

2-28模块加法器_4(cout、sum、ina、inb、cin、clk)；输出:0总和；输出标准输出输入:0不，输入；/tempa，tempb中间变量声明输入clk CINreg3:0 tempa，tempb，sumreg cout .reg tempc ./tempc中间变量声明总是(posedge clk)/总是clk上升沿触发开始/阻塞语句tempa=inatempb=inb .CIN；目标总是(posedge clk)/总是clk上升沿触发开始cout，sum=tempa tempb tempc .目标结束模块2-40“”时间刻度1ns/10ps模块adder4 _ testbench注册3:0inb中国reg CIN；reg clk=0；电汇:0sum；有线电视；总是# 10 clk= clk最初的开始ina=0；重复(20)# 20 ina=$ random/随机数艾娜产生目标最初的开始inb=0；重复(10)# 40 inb=$ random/随机数inb产生目标最初的开始CIN=0；重复(2)#200CIN=$random；/随机数股份有限公司产生# 200美元停止目标adder4 adder4 _ te(。clk (clk)。总和，cout (cout)。ina (ina)。inb (inb)。cin (cin)；最初的结束模块2-73图书馆。使用电气和电子工程师协会。标准逻辑1164 .全部；使用电气和电子工程师协会。标准逻辑无符号。全部；实体SEG_7是端口（标准逻辑向量中的段：(3向下0)；/-四位二进制码输入Q3:输出标准逻辑向量(6向下0)；/-输出领先七段码结束SEG _ 7；世纪坛的建筑艺术开始过程开始案例二当0000 =Q3= 0000001- 0当0001 =Q3= 1001111- 1当0010 =Q3= 0010010- 2当0011 =Q3= 0000110- 3当0100 =Q3= 1001100- 4当0101 =Q3= 0100100- 5当0110 =Q3= 0100000- 6当0111 =Q3= 0001111- 7当1000=Q3=0000000 时；- 8当1001=Q3=0000100 时；- 9当其他=Q3= 1111111结案；结束流程；艺术终结；3-1“”时间刻度1ns/1ns模块解码器2x4(A、B、EN、Z)；输入甲、乙、英；输出0:3Z；电线Abar、Bbar分配# 1 Abar= A；/语句1分配# 1 Bbar= B；/语句2指定#2 Z0=(阿巴布巴尔伦)；/语句3指定#2 Z1=(阿巴本)；/语句4指定#2 Z2=(阿巴仁)；/语句5指定# 2Z3=(ABEN)；/语句6结束模块3-3模块FASeq(甲、乙、Cin、萨默、库特)；输入甲、乙、CIN；输出总和，Cout注册夏季，Coutreg T1，T2，T3；永远(甲或乙或Cin)开始sum=(ab)cin；T1=ACin .T2=巴林；T3=ABcout=(T1 | T2)| T3；目标结束模块3-4“”时间刻度1ns/1ns模块测试(Pop、Pid)；输出Pop、Pid注册流行，Pid最初的开始pop=0；/语句1Pid=0 ./语句2pop=# 51/语句3工艺管道仪表流程图=# 3 1；/语句4pop=# 60/语句5工艺管道仪表流程图=# 2 0；/语句6目标结束模块3-5模块四位功能（功能区、功能区、功能区输入、功能区输出)；参数尺寸=4。输入尺寸：1 FA，FB；输出尺寸：1 FS um输入FCin输入FCout电汇1: SIZE-1全时当量；FAStrFA1 .（英足总1号).(联邦1).Cin .夏季(1).Cout(全时当量1):FA2 .（英足总2号).(联邦储备银行2).CIN(1).夏季(2).Cout(全时当量2):FA3(.（英足总3).(联邦共和国3).Cin(全职议员2 .夏季(3).Cout(全时当量3)，FA4(.（英足总4号).(联邦共和国4).CIN(3).夏季(4).cout(FCout)；结束模块3.1开始art=0；艺术=1；目标3.2最初的开始Cbn=0 .Cbn=1 .目标3.3注册0:2问州；最初的开始q状态=3 b011q状态=3 b100$显示(“问”状态的当前值是 %b，Q状态”；# 5；/等待一定的时延。$显示(“问_状态”的延迟值为，b为Q状态”；目标例3.4开始areg=bregcreg=areg ./creg的值为breg的值。目标例3.5叉# 50 r=h35# 100 r=hE2# 150 r=h00# 200 r=hF7# 250-end _ wave；/触发事件结束波加入例3.6案例（选择1:2)结果=0。2 b01:结果=flaga2 b0x:结果=flagb2 b0z:结果=flaga？bx : 0；2 b10:结果=flagb2 bx0，结果=flagb2 bz0:结果=flagb？bx : 0；违约：结果=bxendcase例3.7case(sig) :1 bz:美元显示器(”信号浮动”；1个bx:美元显示器(”信号未知”；default:$display(信号为%b ，SIG)；endcase例3.8注册7:0IR；casez(ir)8 b1？说明1(红外线)；8 b01？说明2(红外线)；8 b00010？说明3(红外线)；8 b000001？说明4(红外线)；endcase例3.9reg7:0 r，面罩；掩码=8bx0x0x0x0casex(rmask)8b 0011