С++ и Ассемблерная вставка/чтение SPD ОЗУ

procedure WriteSMBus(SMBusAddr, Addr:integer; b:Byte);
var a:Byte;
begin
asm
mov dx,SMBUsAddr
mov cx,Addr
 
@loc_E92F7:
in  al,dx   {+0 Читаем регистор статуса}
out 0EBh,al {Задержка}
out dx,al   {+0 Пишем в регистор статуса, что обнуляет его}
 
and al,0BFh
or  al,al
jnz @loc_E92F7 {Ждем пока контролер не осовбодиться???}
 
out 0EBh,al {Задержка}
 
mov al,b
add dx,5    {+5 Регистр данных Date0}
out dx,al   {пишим в него}
 
out 0EBh,al {Задержка}
 
dec  dx {+4 Регистр адресса нулевой бит определяет запись или четение 1=Read 0=Write}
mov al,ch
and al,0FEh  {- запись}
out dx,al
 
mov al,cl
dec dx      {+3 Регистр команды, для EEPROM это адрес ячейки}
out dx,al
dec dx      {+2 Регистр Host Controler регистр задает способ передачи}
mov al,48h  {Способ передачи с Byte Data 010b }
out dx,al
 
out 0EBh,al {Задержка}
 
xor cx,cx
sub dx,2    {+0  регистор статуса}
 
@loc_E931C: {Порядок проверок важен!!!}
 
in al,dx
out 0EBh,al {Задержка}
test al,4   {ошибоки устройства}
jnz  @loc_E932D
test al,2   {Произошло прерывание}
jz  @loc_E932B
test al,80  {данные пришли}
jnz  @loc_E932D
@loc_E932B:
 
loop @loc_E931C
@loc_E932D:
end;
end;