schieberegister geht immer noch net

hi
ich hab gestern schon mal ne frage gestellt
aber leider bekomme ich immer noch keine werte heraus
ich habe nun folgenden code genommen

 P1_5 = 1; //par laden beenden
     schieberegister = 0;
   for (u = 0; u < 16; u++)
    {
             P1_3 = 0; //clock                 P1_0 |= 1; //muss zum 
einlesen
gesetzt werden
      P1_3 = 1; //clock                 for(j=0;j<500;j++){} //kleine 
pause
      schieberegister <<= 1;
      if(P1_0 & 1)
      {
      schieberegister |= 1;
       }


switch (zahl)
     {
      case 4:
        schieberegister = 0;
        break;
      case 8:
            zahl1 = schieberegister;
        schieberegister = 0;
        break;
      case 12:
        zahl2 = schieberegister;
        schieberegister = 0;
        break;
      case 16:
          zahl3 = schieberegister;
        schieberegister =          (zahl1*100+zahl2*10+zahl3);
        break;
    }








}
      P1_5 = 0; // par laden
usw

die 16 bit liegen am port P1_0 richtig an (habs gemessen)
aber leider funktioniert es nicht
takten und par einlesen der daten an den schieberegistern geht auch
mfg