exe4h.lst

这是一个用abel语言编写的步进电机程序

0002 |CLK,EN,LD,M PIN;
0003 |Q0,Q1,Q2,Q3 PIN ISTYPE 'REG';
0004 |FF0,FF1,FF2 PIN ISTYPE 'REG';
0005 |FF=[FF2,FF1,FF0];
0006 |S0=^b000;
0007 |S1=^b001;
0008 |S2=^b010;
0009 |S3=^b011;
0010 |S4=^b100;
0011 |S5=^b101;
0012 |S6=^b110;
0013 |S7=^b111;
0014 |L0=^B1010;L1=^B1000;L2=^B1001;L3=^B0001;
0015 |L4=^B0101;L5=^B0100;L6=^B0110;L7=^B0010;
0016 |L=[Q0,Q1,Q2,Q3];
0017 |c,x=.c.,.x.;
0018 |EQUATIONS
0019 |FF.CLK=CLK;
0020 |L.CLK=CLK;
0021 |STATE_DIAGRAM FF
0022 |  STATE S0:L:=L0;
0023 |           IF EN THEN S0
0024 |              ELSE IF LD THEN S0
0025 |                ELSE IF M THEN S7
0026 |                  ELSE S1;
0027 |        
0028 |  STATE S1:L:=L1;
0029 |           IF EN THEN S1
0030 |              ELSE IF LD THEN S0
0031 |                ELSE IF M THEN S0
0032 |                  ELSE S2;
0033 |  STATE S2:L:=L2;
0034 |           IF EN THEN S2
0035 |              ELSE IF LD THEN S0
0036 |                ELSE IF M THEN S1
0037 |                  ELSE S3;
0038 |  STATE S3:L:=L3;
0039 |           IF EN THEN S3
0040 |              ELSE IF LD THEN S0
0041 |                ELSE IF M THEN S2
0042 |                  ELSE S4;       
0043 |  STATE S4:L:=L4;
0044 |           IF EN THEN S4
0045 |              ELSE IF LD THEN S0
0046 |                ELSE IF M THEN S3
0047 |                  ELSE S5;
0048 |  STATE S5:L:=L5;
0049 |           IF EN THEN S5
0050 |              ELSE IF LD THEN S0
0051 |                ELSE IF M THEN S4
0052 |                  ELSE S6;
0053 |  STATE S6:L:=L6;
0054 |           IF EN THEN S6
0055 |              ELSE IF LD THEN S0
0056 |                ELSE IF M THEN S5
0057 |                  ELSE S7;      
0058 |  STATE S7:L:=L7;
0059 |           IF EN THEN S7
0060 |              ELSE IF LD THEN S0
0061 |                ELSE IF M THEN S6
0062 |                  ELSE S0;
0063 |TEST_VECTORS([CLK,EN,LD,M,FF]->[FF,L])
0064 |             [c,0,1,0,0]->[x,x];
0065 |             [c,0,1,0,0]->[x,x];
0066 |             [c,1,0,0,0]->[x,x];
0067 |             [c,1,0,0,0]->[x,x];
0068 |
0069 |             [c,0,0,0,0]->[x,x];
0070 |             [c,0,0,0,1]->[x,x];
0071 |             [c,0,0,0,2]->[x,x];
0072 |             [c,0,0,0,3]->[x,x];
0073 |             [c,0,0,0,4]->[x,x];
0074 |             [c,0,0,0,5]->[x,x];
0075 |             [c,0,0,0,6]->[x,x];
0076 |             [c,0,0,0,7]->[x,x];
0077 |
0078 |             [c,0,0,1,0]->[x,x];
0079 |             [c,0,0,1,0]->[x,x];
0080 |             [c,0,0,1,0]->[x,x];
0081 |
0082 |             [c,0,0,1,1]->[x,x];
0083 |             [c,0,0,1,2]->[x,x];
0084 |             [c,0,0,1,3]->[x,x];
0085 |             [c,0,0,1,4]->[x,x];
0086 |             [c,0,0,1,5]->[x,x];
0087 |             [c,0,0,1,6]->[x,x];
0088 |             [c,0,0,1,7]->[x,x];
0089 |
0090 |             [c,0,1,1,0]->[x,x];
0091 |             [c,0,1,1,1]->[x,x];
0092 |             [c,1,0,0,4]->[x,x];
0093 |             [c,1,1,0,5]->[x,x];
0094 |             [c,1,0,1,6]->[x,x];
0095 |             
0096 |             [c,1,1,1,7]->[x,x];
0097 |
0098 |
0099 |
0100 |END 
0101 |