paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 22:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Z80: added the JRJP pseudo instruction

Browse Source 
git-svn-id: trunk@45496 -
This commit is contained in:
nickysn 2020-05-25 15:53:51 +00:00
parent 90d7a7f03a
commit c5d04d1a54
5 changed files with 90 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/z80/z80ins.dat
View File

@ -181,6 +181,23 @@ NC,e $30,e
Z,e $28,e
NZ,e $20,e
; pseudo instruction - translated to JR if possible (i.e. the target is within
; -126..+129 bytes range and an appropriate form of the JR instruction exists),
; otherwise to JP
[JRJP]
; JR
e $18,e
C,e $38,e
NC,e $30,e
Z,e $28,e
NZ,e $20,e
; JP
nn $C3,nn
cc,nn %11ccc010,nn
(HL) $E9
(IX) $DD,$E9
(IY) $FD,$E9
[LD]
r,r' %01rrrr'r'r'
r,n %00rrr110,n

2
compiler/z80/z80nop.inc
View File

@ -1,2 +1,2 @@
{ don't edit, this file is generated from z80ins.dat; to regenerate, run 'make insdat' in the compiler directory }
203;
213;

1
compiler/z80/z80op.inc
View File

@ -30,6 +30,7 @@ A_INI,
A_INIR,
A_JP,
A_JR,
A_JRJP,
A_LD,
A_LDD,
A_LDDR,

1
compiler/z80/z80stdopnames.inc
View File

@ -30,6 +30,7 @@
'inir',
'jp',
'jr',
'jrjp',
'ld',
'ldd',
'lddr',

70
compiler/z80/z80tab.inc
View File

@ -567,6 +567,76 @@
code : '$20,e';
flags : 0
),
(
opcode : A_JRJP;
ops : 1;
optypes : (OT_RELJMP8,OT_NONE);
code : '$18,e';
flags : 0
),
(
opcode : A_JRJP;
ops : 2;
optypes : (OT_COND_C,OT_RELJMP8);
code : '$38,e';
flags : 0
),
(
opcode : A_JRJP;
ops : 2;
optypes : (OT_COND_NC,OT_RELJMP8);
code : '$30,e';
flags : 0
),
(
opcode : A_JRJP;
ops : 2;
optypes : (OT_COND_Z,OT_RELJMP8);
code : '$28,e';
flags : 0
),
(
opcode : A_JRJP;
ops : 2;
optypes : (OT_COND_NZ,OT_RELJMP8);
code : '$20,e';
flags : 0
),
(
opcode : A_JRJP;
ops : 1;
optypes : (OT_IMM16,OT_NONE);
code : '$C3,nn';
flags : 0
),
(
opcode : A_JRJP;
ops : 2;
optypes : (OT_COND,OT_IMM16);
code : '%11ccc010,nn';
flags : 0
),
(
opcode : A_JRJP;
ops : 1;
optypes : (OT_REF_HL,OT_NONE);
code : '$E9';
flags : 0
),
(
opcode : A_JRJP;
ops : 1;
optypes : (OT_REF_IX,OT_NONE);
code : '$DD,$E9';
flags : 0
),
(
opcode : A_JRJP;
ops : 1;
optypes : (OT_REF_IY,OT_NONE);
code : '$FD,$E9';
flags : 0
),
(
opcode : A_LD;
ops : 2;