exeh4.abl

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

MODULE EXE4H
CLK,EN,LD,M PIN;
Q0,Q1,Q2,Q3 PIN ISTYPE 'REG';
FF0,FF1,FF2 PIN ISTYPE 'REG';
FF=[FF2,FF1,FF0];
S0=^b000;
S1=^b001;
S2=^b010;
S3=^b011;
S4=^b100;
S5=^b101;
S6=^b110;
S7=^b111;
L0=^B1010;L1=^B1000;L2=^B1001;L3=^B0001;
L4=^B0101;L5=^B0100;L6=^B0110;L7=^B0010;
L=[Q0,Q1,Q2,Q3];
c,x=.c.,.x.;
EQUATIONS
FF.CLK=CLK;
L.CLK=CLK;
STATE_DIAGRAM FF
  STATE S0:L:=L0;
           IF EN THEN S0
              ELSE IF LD THEN S0
                ELSE IF M THEN S7
                  ELSE S1;
        
  STATE S1:L:=L1;
           IF EN THEN S1
              ELSE IF LD THEN S0
                ELSE IF M THEN S0
                  ELSE S2;
  STATE S2:L:=L2;
           IF EN THEN S2
              ELSE IF LD THEN S0
                ELSE IF M THEN S1
                  ELSE S3;
  STATE S3:L:=L3;
           IF EN THEN S3
              ELSE IF LD THEN S0
                ELSE IF M THEN S2
                  ELSE S4;       
  STATE S4:L:=L4;
           IF EN THEN S4
              ELSE IF LD THEN S0
                ELSE IF M THEN S3
                  ELSE S5;
  STATE S5:L:=L5;
           IF EN THEN S5
              ELSE IF LD THEN S0
                ELSE IF M THEN S4
                  ELSE S6;
  STATE S6:L:=L6;
           IF EN THEN S6
              ELSE IF LD THEN S0
                ELSE IF M THEN S5
                  ELSE S7;      
  STATE S7:L:=L7;
           IF EN THEN S7
              ELSE IF LD THEN S0
                ELSE IF M THEN S6
                  ELSE S0;
TEST_VECTORS([CLK,EN,LD,M,FF]->[FF,L])
             [c,0,1,0,0]->[x,x];
             [c,0,1,0,0]->[x,x];
             [c,1,0,0,0]->[x,x];
             [c,1,0,0,0]->[x,x];

             [c,0,0,0,0]->[x,x];
             [c,0,0,0,1]->[x,x];
             [c,0,0,0,2]->[x,x];
             [c,0,0,0,3]->[x,x];
             [c,0,0,0,4]->[x,x];
             [c,0,0,0,5]->[x,x];
             [c,0,0,0,6]->[x,x];
             [c,0,0,0,7]->[x,x];

             [c,0,0,1,0]->[x,x];
             [c,0,0,1,0]->[x,x];
             [c,0,0,1,0]->[x,x];

             [c,0,0,1,1]->[x,x];
             [c,0,0,1,2]->[x,x];
             [c,0,0,1,3]->[x,x];
             [c,0,0,1,4]->[x,x];
             [c,0,0,1,5]->[x,x];
             [c,0,0,1,6]->[x,x];
             [c,0,0,1,7]->[x,x];

             [c,0,1,1,0]->[x,x];
             [c,0,1,1,1]->[x,x];
             [c,1,0,0,4]->[x,x];
             [c,1,1,0,5]->[x,x];
             [c,1,0,1,6]->[x,x];
             
             [c,1,1,1,7]->[x,x];



END