procedure TMainForm.BFK_IO;
var      OUTval:byte;

begin
OUTBFK:=0;
asm
          jmp @@start

@@SET_SDA:
         mov     dx,SDA_REG
         in      al,dx
         mov     ah,SDA_BIT
         or      al,ah
         out     dx,al
         ret

@@SET_SCL:
         mov     dx,SCL_REG
         in      al,dx
         mov     ah,SCL_BIT
         or      al,ah
         out     dx,al
         ret

@@CLR_SDA:
         mov     dx,SDA_REG
         in      al,dx
         mov     ah,SDA_BIT
         not     ah
         and     al,ah
         out     dx,al
         ret

@@CLR_SCL:
         mov     dx,SCL_REG
         in      al,dx
         mov     ah,SCL_BIT
         not     ah
         and     al,ah
         out     dx,al
         ret

@@WAITH_FOR_EMPTY_TxD:
         mov dx,LSR
@@loop:
         in  al,dx
         and al,32
         cmp al,32
         jne @@loop
         mov al,0h
         out dx,al
         ret

@@start:
         mov dx,LCR
         in  al,dx
         or  al,00000011B      //Transmit 8 bits
         out dx,al
         cmp SDA,00h
         je  @@makeCLR_SDA
         call @@SET_SDA
         jmp  @@gotoSCL

@@makeCLR_SDA:
         call @@CLR_SDA
         jmp  @@gotoSCL

@@gotoSCL:
         cmp  SCL,00h
         je   @@makeCLR_SCL
         call @@SET_SCL
         jmp  @@go_on

@@makeCLR_SCL:
         call @@CLR_SCL
         jmp  @@go_on

@@go_on:
         call @@WAITH_FOR_EMPTY_TxD
         mov dx,THR
         mov al,varTxDval
         out dx,al

         mov dx,LSR
@@loop2:
         in  al,dx
         and al,01000000B
         cmp al,01000000B   //test bit 6
         jne @@loop2

         in  al,dx
         mov ah,al
         and al,00000001B   //test bit 0
         mov OUTval,al
         mov al,ah
         and al,11111110B   //clear bit 0
         out dx,al
  end;
if OUTval>0 then OUTBFK:=1;
end;