Ассемблер в Delphi

[Roof]

Читаю учебник по ассемблеру. Дошел до главы "Ваша первая программа", которая должна вывести легендарное сообщение "Hello World", а там следующие строки:

.386 
.model flat 
 
extrn ExitProcess:PROC 
extrn MessageBoxA:PROC 
 
.data 
 
Ttl db "First ASSEMBLER program",0h 
Msg db 'Hello, World!!!!',0h 
 
.code 
 
start: 
    push 0h 
        push offset Msg 
        push offset Ttl 
        push 0h 
        call MessageBoxA 
        push 0h 
        call ExitProcess 
end    start 

Вставляю его по наивности в Delphi в консоль между asm и end; и получаю кучу ошибок при компиляции.
как правильно в Delphi в консоле реализовать на ассемблере вывод сообщения "Hello World" ?

[Net]

Даже забудьте подобный код вставлять.
В Delphi свой ассемблер, называется BASM (borland asm), там очень урезан метафункционал, наподобии первых пяти строчек вашей программы. Тот код, что вы привели, должен скомпилироваться на fasm, tasm и подобных ассемблерах.

в дельфе вот так попробуйте:

procedure TfrmMain.Button1Click(Sender: TObject);
var msg:string;
    title:string;
begin
    msg:='Hello world';
    title:='title';
    asm          // параметры запихиваются в стек справа налево
        push 0
        push title
        push msg
        push 0
        call MessageBoxA
    end;
end;

[Roof]

подскажи мне компилятор для fasm и tasm? Да и вообще какой assembler лучше изучать?

[Net]

борландовский tasm уже лет 10, если не ошибаюсь, как не развивается. ныне перспективный flat assembler (fasm).
я качал его здесь http://fasmassembler.narod.ru/

[Roof]

Благодарствую
Скачал, сижу разбираюсь
Мир не без добрых людей
Еще раз убедился )))

[Веруня]

А вы не знаете,как написать программу,которая будет выводить на экран текущую дату?

[Terran]

Сообщение от Веруня

А вы не знаете,как написать программу,которая будет выводить на экран текущую дату?

А на каком языке должна быть реализована эта программа?

[pomoshnic]

На Паскале это выглядт так

Uses WinDos;
Const Days : Array [0..6] Of String[11] =
     ('Воскресенье', 'Понедельник', 'Вторник',
      'Среда', 'Четверг', 'Пятница', 'Суббота');
Var Y, M, D, Dow, ho, mi, se, s1:Word;
begin
  GetDate(Y, M, D, Dow);
  GetTime(ho,mi,se,s1);
  Writeln('Год:',Y,' месяц:',M,' число:',D,' день недели:',days[dow],'час:',ho,' минута:', mi,' секунда:',se,' сотая часть секунды:',s1,';');
  readln;
end;