Byte_1_auslesen:
mov a,#00h
mov R7,#08h
byte_1:
setb scl
lcall zeit_6us
mov c,sda
rlc a
clr scl
lcall zeit_6us
djnz R7,byte_1

mov 78h,a
ret