nulx.lst

来自「VHDL实例,适合大家学习使用」· LST 代码 · 共 27 行

0002 | CLK        PIN;
0003 | MS7..MS0   PIN;
0004 | S6..S0     PIN;
0005 | Q2..Q0     PIN ISTYPE 'REG';
0006 | OUT3..OUT0 PIN;
0007 | M6..M0     PIN;
0008 | SEG8..SEG0 PIN;
0009 | SS = [Q2..Q0];
0010 |
0011 |MS10 = [MS7..MS4];MS100 = [MS3..MS0];
0012 |S1S  = [S3..S0];  S10S  = [0,S6,S5,S4];
0013 |M1M  = [M3..M0];  M10M  = [0,M6,M5,M4];
0014 |OUT  = [OUT3..OUT0];
0015 |SEG  = [SEG8..SEG1];
0016 |
0017 |EQUATIONS
0018 |SS.CLK = CLK;
0019 |WHEN(SS ==^H5) THEN SS:=0 ELSE SS:=SS.FB+1;
0020 |WHEN(SS == 0 ) THEN { OUT = MS10;SEG = ^B11111111;}
0021 |    ELSE WHEN(SS ==1) THEN {OUT = MS100;SEG = ^B111101;}
0022 |    ELSE WHEN(SS ==2) THEN {OUT = S1S;  SEG = ^B111101;}
0023 |    ELSE WHEN(SS ==3) THEN {OUT = S10S; SEG = ^B111101;}
0024 |    ELSE WHEN(SS ==4) THEN {OUT = M1M;  SEG = ^B111101;}
0025 |    ELSE WHEN(SS ==5) THEN {OUT = M10M; SEG = ^B111101;}
0026 |END 
0027 |