/*Experiment 4+ - Utilizare FRDM KL25Z pentru control motor pas cu pas unipolar 
Tandon IBM disk . Motorul este interfatat  prin intermediul unor optocuploare de tip CNY74
activabile in "0". Driverele de putere sint realizate cu ULN2803.

Bobina A - PTA1
       B - PTA2
       C - PTD4
       D - PTA12
*/
#include "mbed.h"     // apel clase biblioteca

DigitalOut A(PTA1); // constructor 
DigitalOut B(PTA2); // constructor 
DigitalOut C(PTD4); // constructor 
DigitalOut D(PTA12);

float t; // secunde

int main() 
 {
    A=B=C=D=1; // bobine dezactivate
    t=0.01;       // stabilire viteza
    while(1)       
    {
        A=0;     // activare bobina A
        wait(t);     
        A=1; 
     
      wait(0.001);
     
        D=0; // bobina B activata
        wait(t);
        D=1;
        
         wait(0.001);
        
        B=0; // bobina C activata
        wait(t);
        B=1;
        
         wait(0.001);
        
        C=0; // bobina D activata
        wait(t);
        C=1;
        
         wait(0.001);            
     }
 }