Работа с массивом в ассемблерной вставке

[Fabeldyr]

доброго времени суток, долго искал решение своей проблемы на просторах интернета, так и не нашёл, видимо из-за почти нулевого знания asm'a.
суть проблемы: имеется функция, написанная в c++ builder, которая считывает данные, приходящие от устройства, подключённого к lpt-порту и выводит их на экран. процесс самого считывания написан в ассемблерной вставке, т.к. при написании команд на си цикл занимает 170мс, а на ассемблере - 25-30мс. и вот проблема в том - как правильно работать с массивом?
текст функции:

void __fastcall TForm1::read_buttonClick(TObject *Sender)
{
int i = 0;
unsigned char data[6];
AnsiString datastr = "
";

asm
{
mov al, 0
@@cycle:
mov dx, 037bh//порт адреса
out dx, al
mov ah, al
mov dx, 037ch//порт данных
in al, dx
mov data, al
как вот здесь перейти на следующий элемент массива?
mov al, ah
inc al
cmp al, 6//т.к. у устройства 6 адресов
jb @@cycle
}
for (i = 0; i < 6; i++)
{
datastr += IntToStr(i);
datastr += (" - ");
datastr += IntToStr(data[i]);
Memo1 -> Lines -> Add(datastr);
datastr = "";
}
}

прошу прощения за отсутствие смещения внутри фигурных скобок - пишу с КПК

[Mikl___]

Fabeldyr

unsigned char data_[6];//data лучше не называть, так как это 
// зарезервированное слово в ассемблере
. . .
asm
{
mov ecx,6 //по числу адресов
mov esi,offset data_ 
mov al,0
@@cycle: mov dx, 037bh//порт адреса
              out dx, al
              mov ah, al
              mov dx, 037ch//порт данных
              in al, dx
mov [esi], al
inc esi // перешли на следующий элемент массива
mov al, ah
inc al
loop @@cycle
}

[Fabeldyr]

Mikl___, спасибо за код, однако на строке

mov [esi], al

вылетает с ошибкой Project project1.exe raised exception
class EAccessViolation with message
'Access violation at address
004023B1 in module 'project1.exe'. Read of address FFFFFF8C'. Process stopped.Use Step or Run to continue.

[Ang15]

Разрядность регистор разная. Попробуй поставить AX (в AH занеси нули).
...
Косвенная адресация. Не прав я.

[Fabeldyr]

то же самое
я так понял, дело в том, что регистр esi - 32 бита, а al/ax - 8/16?
с eax тоже не работает

[Mikl___]

Fabeldyr
Попробуй заменить esi в mov esi,offset data_, mov [esi],al и inc esi на si

[Fabeldyr]

Сообщение от Mikl___

Попробуй заменить esi в mov esi,offset data_, mov [esi],al и inc esi на si

уже пробовал =((
такое ощущение, что компилятор ругается на []. Если написать любой регистр без них - всё работает, правда записывается неправильно, а если их поставить - вылетает с одинаковой ошибкой при любых регистрах

[yuran666666]

Используйте регистр di и команду stosb, а вообще размерность надо указывать mov byte ptr[si],al

[Fabeldyr]

Сообщение от yuran666666

а вообще размерность надо указывать mov byte ptr[si],al

ничего не изменилось

Сообщение от yuran666666

Используйте регистр di и команду stosb

спасибо!! теперь всё работает, вот рабочий код, может кому ещё пригодится:

void __fastcall TForm1::read_buttonClick(TObject *Sender)
{
    int i = 0;
    unsigned char data_[6];
    AnsiString datastr = "";

    asm
    {
        mov al, 0
        lea di, data_

        @@cycle:
        mov dx, 037bh
        out dx, al
        mov ah, al

        mov dx, 037ch
        in al, dx
        stosb

        mov al, ah
        inc al
        cmp al, 6
        jb @@cycle
    }
    for (i = 0; i < 6; i++)
    {
        datastr += IntToStr(i);
        datastr += (" - ");
        datastr += IntToStr(data_[i]);
        Memo1 -> Lines -> Add(datastr);
        datastr = "";
    }
}