Zdravim,
pokousim se prelozit tenhle kraticky program freepascalovskym kompilatorem :
Kód:
{ Vynuluj dvojci pametovych bunek od adresy $1A40 a zobraz.
Do bunek vloz $FF a $AA a zobraz.
Obsahy bunek vloz do registru B a C a zobraz }

program JSA4;
uses crt;
var P : word;
begin
        asm
        MOV WORD PTR ES:[$1A40], 0
        MOV AX, ES:[$1A40]
        MOV P, AX
        end;
        writeln ('Hodnota na adrese $1A40 je : ',P);
end.
Prekladam to pomoci :
Kód:
fpc -Rintel jsa4.pas
Kdyz program spustim, vyhodi mi hlasku :
Kód:
dekon@dekon:~/dokumenty/EPO/JSA$ ./jsa4
Runtime error 216 at $00000003
  $00000003