Zitat Zitat von BoondockDuck
kann man irgendwie eine Bitfolge drehen?
Hallo BoondockDuck!

Das ist jetzt nicht sonderlich ausgeklügelt, aber ich glaube es macht genau das was du haben willst:
Code:
$regfile = "M8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40
$baud = 4800

Declare Function Reversed(byval Source As Byte) As Byte


Print Reversed(&B00000001)       '=128

End


Function Reversed(byval Source As Byte) As Byte
   Local Dest As Byte
   Dest.0 = Source.7
   Dest.1 = Source.6
   Dest.2 = Source.5
   Dest.3 = Source.4
   Dest.4 = Source.3
   Dest.5 = Source.2
   Dest.6 = Source.1
   Dest.7 = Source.0
   Reversed = Dest
End Function
mfg
Gerold
:-)