commit da8b0e590858c98fbc5e53ac57bc2953feac8f88
parent 3f2c359b803e57990cbc55736dee509c270c7a83
Author: Roberto E. Vargas Caballero <k0ga@shike2.com>
Date: Wed, 27 Dec 2017 14:13:04 +0000
[as-z80] Add conditional branch instructions
Diffstat:
5 files changed, 89 insertions(+), 35 deletions(-)
diff --git a/as/target/x80/ins.c b/as/target/x80/ins.c
@@ -114,6 +114,24 @@ rrclass(int reg)
}
}
+int
+ccclass(int reg)
+{
+ switch (reg) {
+ case AREG_NZ:
+ case AREG_Z:
+ case AREG_NC:
+ case AREG_C:
+ case AREG_PO:
+ case AREG_PE:
+ case AREG_P:
+ case AREG_M:
+ return 1;
+ default:
+ return 0;
+ }
+}
+
static int
reg2int(int reg)
{
@@ -140,6 +158,22 @@ reg2int(int reg)
}
}
+static int
+flag2int(int flag)
+{
+ switch (flag) {
+ case AREG_NZ: return 0;
+ case AREG_Z: return 1;
+ case AREG_NC: return 2;
+ case AREG_C: return 3;
+ case AREG_PO: return 4;
+ case AREG_PE: return 5;
+ case AREG_P: return 6;
+ case AREG_M: return 7;
+ default: abort();
+ }
+}
+
void
r8_imm8(Op *op, Node **args)
{
@@ -396,17 +430,25 @@ idx_bit(Op *op, Node **args)
}
void
-cc_imm16(Op *op, Node **args)
-{
- /* TODO */
- abort();
-}
-
-void
cc(Op *op, Node **args)
{
- /* TODO */
- abort();
+ unsigned char buf[4];
+ Node *flag, *imm;
+ int n = op->size, i = n;
+ unsigned val;
+
+ flag = args[0];
+ imm = args[1];
+ memcpy(buf, op->bytes, n);
+
+ if (imm) {
+ val = imm->sym->value;
+ buf[--i] = val >> 8;
+ buf[--i] = val;
+ }
+ buf[--i] |= flag2int(flag->sym->argtype) << 3;
+
+ emit(buf, n);
}
void
diff --git a/as/target/x80/proc.h b/as/target/x80/proc.h
@@ -68,3 +68,4 @@ extern int ddclass(int reg);
extern int qqclass(int reg);
extern int ppclass(int reg);
extern int rrclass(int reg);
+extern int ccclass(int reg);
diff --git a/as/target/x80/x80.dat b/as/target/x80/x80.dat
@@ -333,7 +333,7 @@ OTDR none 2 0xed,0xbb noargs Z80,R800
# Jump group
JP imm16 3 0xc3 imm16 Z80,R800,GB80
-JP cc,imm16 3 0xc2 cc_imm16 Z80,R800,GB80
+JP cc,imm16 3 0xc2 cc Z80,R800,GB80
JR imm8 2 0x18 jr Z80,R800,GB80
JR ss,imm8 2 0x00 jr Z80,R800,GB80
JP IY 2 0xfd,0xe9 noargs Z80,R800
@@ -341,7 +341,7 @@ DJNZ imm8 2 0x10 jr Z80,R800,GB80
# Call and return group
CALL imm16 3 0xcd imm16 Z80,R800,GB80
-CALL cc,imm16 3 0xc6 cc_imm16 Z80,R800
+CALL cc,imm16 3 0xc4 cc Z80,R800
RET none 1 0xc9 noargs Z80,R800,GB80
RET cc 1 0xc0 cc Z80,R800
RETI none 2 0xed,0x4d noargs Z80,R800
diff --git a/as/target/z80/proc.c b/as/target/z80/proc.c
@@ -42,6 +42,14 @@ iarch(void)
"AF'", AREG_AF_,
"SP", AREG_SP,
+ "NZ", AREG_NZ,
+ "Z", AREG_Z,
+ "NC", AREG_NC,
+ "PO", AREG_PO,
+ "PE", AREG_PE,
+ "P", AREG_P,
+ "M", AREG_M,
+
NULL,
}, *bp;
@@ -122,6 +130,9 @@ match(Op *op, Node **args)
case AREG_RRCLASS:
class = rrclass;
goto register_class;
+ case AREG_CCCLASS:
+ class = ccclass;
+ goto register_class;
case AREG_DDCLASS:
class = ddclass;
register_class:
diff --git a/as/target/z80/test.s b/as/target/z80/test.s
@@ -190,17 +190,17 @@
CP %A,%L / BD
CP %A,(%HL) / BE
CP %A,%A / BF
-/C0 RET NZ
+ RET %NZ / C0
POP %BC / C1
-/C2 n n JP NZ, nn
+ JP %NZ,16384 / C2 00 40
/C3 n n JP nn
-/C4 n n CALL NZ, nn
+ CALL %NZ,32768 / C4 00 80
PUSH %BC / C5
ADD %A,32 / C6 20
/C7 RST 0h
-/C8 RET Z
+ RET %Z / C8
RET / C9
-/CA n n JP Z, nn
+ JP %Z,32768 / CA 00 80
RLC %B / CB 00
RLC %C / CB 01
RLC %D / CB 02
@@ -457,23 +457,23 @@
SET 7,%L / CB FD
SET 7,(%HL) / CB FE
SET 7,%A / CB FF
-/CC n n CALL Z, nn
+ CALL %Z,16384 / CC 00 40
/CD n n CALL nn
ADC %A,64 / CE 40
/CF RST 8h
-/D0 RET NC
+ RET %NC / D0
POP %DE / D1
-/D2 n n JP NC, nn
+ JP %NC,16384 / D2 00 40
/D3 n OUT (n), A
-/D4 n n CALL NC, nn
+ CALL %NC,32768 / D4 00 80
PUSH %DE / D5
SUB %A,32 / D6 20
/D7 RST 10h
-/D8 RETC
+ RET %C / D8
EXX / D9
-/DA n n JP C, nn
+ JP %C,16384 / DA 00 40
/DB n IN A, (n)
-/DC n n CALL C, nn
+ CALL %C,32768 / DC 00 80
ADD %IX,%BC / DD 09
ADD %IX,%DE / DD 19
LD %IX,64 / DD 21 40 00
@@ -761,19 +761,19 @@
LD %SP,%IX / DD F9
/DE n SBC A, n
/DF RST 18h
-/E0 RET PO
+ RET %PO / E0
POP %HL / E1
-/E2 n n JP PO, nn
+ JP %PO,32768 / E2 00 80
EX (%SP),%HL / E3
-/E4 n n CALL PO, nn
+ CALL %PO,16384 / E4 00 40
PUSH %HL / E5
/E6 n AND n
/E7 RST 20h
-/E8 RET PE
+ RET %PE / E8
/E9 JP (HL)
-/EA n n JP PE, (nn)
+ JP %PE,16384 / EA 00 40
EX %DE,%HL / EB
-/EC n n CALL PE, nn
+ CALL %PE,16384 / EC 00 40
/ED40 IN B, (C)
/ED41 OUT (C), B
/ED42 SBC HL, BC
@@ -839,19 +839,19 @@
OTDR / ED BB
/EE n XOR n
/EF RST 28h
-/F0 RET P
+ RET %P / F0
POP %AF / F1
-/F2 n n JP P, nn
+ JP %P,32768 / F2 00 80
DI / F3
-/F4 n n CALL P, nn
+ CALL %P,16384 / F4 00 40
PUSH %AF / F5
/F6 n OR n
/F7 RST 30h
-/F8 RET M
+ RET %M / F8
LD %SP,%HL / F9
-/FA n n JP M, nn
+ JP %M,32768 / FA 00 80
EI / FB
-/FC n n CALL M, nn
+ CALL %M,16384 / FC 00 40
ADD %IY,%BC / FD 09
ADD %IY,%DE / FD 19
/FD21 n n LD IY, nn
