mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-20 13:29:14 +02:00
+ support conditional operations in the Z80 internal asm
git-svn-id: trunk@45274 -
This commit is contained in:
parent
58d6d64fba
commit
3e14eddaf6
@ -738,6 +738,29 @@ implementation
|
|||||||
internalerror(2020050419);
|
internalerror(2020050419);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
'ccc':
|
||||||
|
begin
|
||||||
|
case condition of
|
||||||
|
C_NZ:
|
||||||
|
result:=0;
|
||||||
|
C_Z:
|
||||||
|
result:=1;
|
||||||
|
C_NC:
|
||||||
|
result:=2;
|
||||||
|
C_C:
|
||||||
|
result:=3;
|
||||||
|
C_PO:
|
||||||
|
result:=4;
|
||||||
|
C_PE:
|
||||||
|
result:=5;
|
||||||
|
C_P:
|
||||||
|
result:=6;
|
||||||
|
C_M:
|
||||||
|
result:=7;
|
||||||
|
else
|
||||||
|
internalerror(2020050605);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
else
|
else
|
||||||
internalerror(2020050409);
|
internalerror(2020050409);
|
||||||
end;
|
end;
|
||||||
@ -766,7 +789,7 @@ implementation
|
|||||||
bincode:=bincode+'1';
|
bincode:=bincode+'1';
|
||||||
maskcode:=maskcode+'0';
|
maskcode:=maskcode+'0';
|
||||||
end;
|
end;
|
||||||
'p','d','r','q':
|
'p','d','r','q','c':
|
||||||
begin
|
begin
|
||||||
bincode:=bincode+'0';
|
bincode:=bincode+'0';
|
||||||
maskcode:=maskcode+token[i];
|
maskcode:=maskcode+token[i];
|
||||||
|
Loading…
Reference in New Issue
Block a user