Weiß jetzt nicht, wie das gemeint ist. Daß CLK INH beim shiften auf LOW sein muß, weißt du ?
Ich würde ein Byte etwa so einlesen (testweise, demomäßig)
Code:
dim cnt as  byte
Do 
Temp = 0
Portd.4 = 0            ' Parallel die Input bits einlesen 
Portd.4 = 1            ' so, jetzt shiften 
'--- BITs holen ----------------
for cnt = 1 to 8 
    Portd.3 = 0            ' clock runter
    Portd.3 = 1           ' clock rauf
    shift temp, left, 1
    Temp = Temp or Pind.5   'Bit reinschieben
next 
' jetzt sind alle 8 Bit vom schieberegister in "temp"
Locate 1 , 1 
Lcd bin(Temp)
Waitms 200 
Loop