mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-25 17:59:06 +02:00
24 lines
361 B
ObjectPascal
24 lines
361 B
ObjectPascal
{$asmmode intel}
|
|
type
|
|
trec = record
|
|
ypos,
|
|
xpos : longint;
|
|
end;
|
|
|
|
z80cont = record
|
|
page: array [0..11,0..16383] of byte;
|
|
end;
|
|
|
|
var
|
|
rec : tRec;
|
|
myz80 : z80cont;
|
|
begin
|
|
asm
|
|
lea edi, Rec
|
|
cmp byte ptr [edi+tRec.Xpos], true
|
|
cmp byte ptr [edi].trec.Xpos, true
|
|
|
|
mov dh,byte ptr myz80.page[ecx]
|
|
end;
|
|
end.
|