вывод массива на встроенном ассемблере в паскале Опции

[Tanchik]

Как написать вывод одномерного массива на встроенном ассемблере в Паскале

[volvo]

Вот тебе пример вывода массива байт. Все прокомментировано, читай, разбирайся, ищи ошибки в своей реализации. Что непонятно - спрашивай.

const size = 10;
var
  a: array[1 .. size] of byte;
  i: integer;

begin
  { заполняем массив значениями 101, 102, 103, ..., 110 }
  for i := 1 to size do a[i] := 100 + i;

  asm
    mov cx, size	{ размер массива }
    lea si, a		{ начало массива }
  
  { основной цикл, перебор всех элементов массива }
  @@m:
    xor ax, ax		{ обнуляем AX }
    mov al, [si]	{ берем байт, чье содержимое будем печатать }
    push cx		{ сохраняем кол-во элементов, которые осталось напечатать }

    { это - дополнительные движения, для того, чтобы разбить AL на цифры }
      xor cx, cx
      mov bx, 10
    @@next:
      xor dx, dx	{ обнуляем DX , чтобы можно было делить DX:AX на BX }
      div bx
      push dx		{ запоминаем остаток, это цифра, которую надо напечатать }
      inc cx		{ число цифр в числе, хранящемся в AL }
      or ax, ax	{ AX = 0? Нет? Продолжаем }
      jnz @@next

    { Здесь, собственно, печатаем все сохраненные в стеке цифры }
    @@digits:
      pop ax
      add al, '0'	{ преобразование цифры в символ }
      int 29h		{ вывод на консоль }
      loop @@digits
    { Все, со второстепенной задачей закончили, продолжаем основную }

    pop cx		{ прежде всего - восстановим количество печатаемых элементов }

    mov al, ' '	{ напечатаем пробел, чтоб числа не сливались }
    int 29h
    inc si		{ переходим к следующему элементу массива }
    loop @@m
  end;
end.