269 lines
8.6 KiB
C
269 lines
8.6 KiB
C
/*
|
|
* Copyright (c) 2007-2009 Dominic Morris <dom /at/ suborbital.org.uk>
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
/* z80 backend for vasm */
|
|
|
|
#include <stdint.h>
|
|
|
|
#define BIGENDIAN 0
|
|
#define LITTLEENDIAN 1
|
|
#define VASM_CPU_Z80 1
|
|
|
|
/* maximum number of operands for one mnemonic */
|
|
#define MAX_OPERANDS 2
|
|
|
|
/* maximum number of mnemonic-qualifiers per mnemonic */
|
|
#define MAX_QUALIFIERS 0
|
|
|
|
/* maximum number of additional command-line-flags for this cpu */
|
|
|
|
/* data type to represent a target-address */
|
|
typedef int32_t taddr;
|
|
typedef uint32_t utaddr;
|
|
|
|
#define HAVE_INSTRUCTION_EXTENSION 1
|
|
typedef struct {
|
|
int altd;
|
|
int ioi;
|
|
int ioe;
|
|
} instruction_ext;
|
|
|
|
/* minimum instruction alignment */
|
|
#define INST_ALIGN 1
|
|
|
|
/* default alignment for n-bit data */
|
|
#define DATA_ALIGN(n) 1
|
|
|
|
/* operand class for n-bit data definitions */
|
|
#define DATA_OPERAND(n) OP_DATA
|
|
|
|
/* we define two additional unary operations, '<' and '>' */
|
|
int ext_unary_eval(int,taddr,taddr *,int);
|
|
int ext_find_base(symbol **,expr *,section *,taddr);
|
|
#define LOBYTE (LAST_EXP_TYPE+1)
|
|
#define HIBYTE (LAST_EXP_TYPE+2)
|
|
#define EXT_UNARY_NAME(s) (*s=='<'||*s=='>')
|
|
#define EXT_UNARY_TYPE(s) (*s=='<'?LOBYTE:HIBYTE)
|
|
#define EXT_UNARY_EVAL(t,v,r,c) ext_unary_eval(t,v,r,c)
|
|
#define EXT_FIND_BASE(b,e,s,p) ext_find_base(b,e,s,p)
|
|
|
|
/* Z80 allows ':' as a statement delimiter in oldstyle-syntax */
|
|
#define STATEMENT_DELIMITER ':'
|
|
|
|
|
|
/* type to store each operand */
|
|
typedef struct {
|
|
int reg;
|
|
int type;
|
|
int flags;
|
|
int bit;
|
|
expr *value;
|
|
} operand;
|
|
|
|
|
|
#define CPU_8080 1
|
|
#define CPU_Z80 2
|
|
#define CPU_RCM2000 4
|
|
#define CPU_RCM3000 8
|
|
#define CPU_RCM4000 16
|
|
#define CPU_Z180 32
|
|
#define CPU_EZ80 64
|
|
#define CPU_GB80 128
|
|
|
|
|
|
#define CPU_RABBIT (CPU_RCM2000|CPU_RCM3000|CPU_RCM4000)
|
|
#define CPU_ZILOG (CPU_Z80|CPU_Z180|CPU_EZ80)
|
|
#define CPU_ALL ( CPU_ZILOG | CPU_8080 | CPU_RABBIT | CPU_GB80 )
|
|
#define CPU_NOT8080 ( CPU_ALL ^ CPU_8080 )
|
|
#define CPU_NOTGB80 ( CPU_ALL ^ CPU_GB80 )
|
|
|
|
#define RCM_EMU_NONE 0
|
|
#define RCM_EMU_INCREMENT 1 /* Move to next instruction */
|
|
#define RCM_EMU_LIBRARY 2 /* Call a library routine */
|
|
|
|
/* Flags for altd */
|
|
#define F_IO 1 /* ioe/ioi valid */
|
|
#define F_ALTD 2 /* altd valid */
|
|
#define F_ALTDW 4 /* warn about altw use */
|
|
#define F_ALTDWHL 8 /* Warn about HLREF use with altd */
|
|
|
|
#define F_ALL ( F_IO|F_ALTD)
|
|
|
|
/* additional mnemonic data */
|
|
typedef struct {
|
|
int mode; /* Opcode mode */
|
|
uint32_t opcode; /* Opcode */
|
|
unsigned char cpus;
|
|
int modifier_flags; /* Modifier flags for altd/ioi etc */
|
|
int rabbit2000_action; /* Action to take on a rabbit */
|
|
int rabbit3000_action; /* Action to take on a rabbit */
|
|
int rabbit4000_action; /* Action to take on a rabbit */
|
|
int gb80_action; /* Action to take for a GBz80 */
|
|
} mnemonic_extension;
|
|
|
|
/* These values are significant - opcodes derived using them */
|
|
#define FLAGS_NZ 0
|
|
#define FLAGS_Z 1
|
|
#define FLAGS_NC 2
|
|
#define FLAGS_C 3
|
|
#define FLAGS_PO 4
|
|
#define FLAGS_PE 5
|
|
#define FLAGS_P 6
|
|
#define FLAGS_M 7
|
|
|
|
/* These values are significant - RCM4000 flags */
|
|
#define FLAGS_GT 0
|
|
#define FLAGS_GTU 1
|
|
#define FLAGS_LT 2
|
|
#define FLAGS_V 3
|
|
|
|
/* Theses values are significant */
|
|
#define REG_BC 0x00
|
|
#define REG_DE 0x01
|
|
#define REG_HL 0x02
|
|
#define REG_SP 0x03
|
|
#define REG_AF 0x04
|
|
|
|
|
|
/* These values are signifcant - opcodes are derived using them */
|
|
#define REG_B 0x00
|
|
#define REG_C 0x01
|
|
#define REG_D 0x02
|
|
#define REG_E 0x03
|
|
#define REG_H 0x04
|
|
#define REG_L 0x05
|
|
#define REG_HLREF 0x06
|
|
#define REG_A 0x07
|
|
/* Extra ones - values from here onwards aren't significant */
|
|
#define REG_I 0x08
|
|
#define REG_R 0x09
|
|
#define REG_F 0x0a
|
|
#define REG_PORT 0x0b
|
|
/* Rabbit extras */
|
|
#define REG_IP 0x0c
|
|
#define REG_XPC 0x0d
|
|
/* Rabbit 4000 extras */
|
|
#define REG_JK 0x0d
|
|
#define REG_BCDE 0x0e
|
|
#define REG_JKHL 0x0f
|
|
/* PW...PZ should be defined in this order */
|
|
#define REG_PW 0x10
|
|
#define REG_PX 0x11
|
|
#define REG_PY 0x12
|
|
#define REG_PZ 0x13
|
|
#define REG_SU 0x14
|
|
#define REG_HTR 0x15
|
|
|
|
#define REG_PLAIN 0x1f /* Mask to get the register out */
|
|
|
|
/* Modifiers */
|
|
#define REG_IX 0x20 /* h,l modified by ix */
|
|
#define REG_IY 0x40 /* h,l modified by iy */
|
|
#define REG_ALT 0x80 /* alternate registers */
|
|
#define REG_INDEX 0x100 /* (ix + ) */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Operand types */
|
|
#define OP_NONE 0x00
|
|
#define OP_ABS 0x01
|
|
#define OP_ABS16 0x02
|
|
#define OP_REG16 0x03
|
|
#define OP_REG8 0x04
|
|
#define OP_AF 0x05 /* af */
|
|
#define OP_SP 0x06 /* sp */
|
|
#define OP_HL 0x07 /* hl */
|
|
#define OP_DE 0x08 /* de */
|
|
#define OP_BC 0x09 /* bc */
|
|
#define OP_JK 0x0a
|
|
#define OP_BCDE 0x0b
|
|
#define OP_JKHL 0x0c
|
|
#define OP_A 0x0d /* a register */
|
|
#define OP_R 0x0e /* r register */
|
|
#define OP_I 0x0f /* i register */
|
|
#define OP_F 0x10 /* f - for in f,(c) */
|
|
#define OP_PORT 0x11
|
|
#define OP_FLAGS 0x12 /* nz, z, nc, c, (po, pe) */
|
|
#define OP_FLAGS_RCM 0x13 /* gt, lt, ge, le */
|
|
#define OP_ADDR 0x14 /* (xx) - an address */
|
|
#define OP_NUMBER 0x15 /* for bit, im, res, set, rst */
|
|
#define OP_ADDR8 0x16
|
|
#define OP_IP 0x17 /* ip (RCM) */
|
|
#define OP_XPC 0x18
|
|
#define OP_ABS24 0x19
|
|
#define OP_ABS32 0x20
|
|
#define OP_ADDR24 0x21
|
|
#define OP_ADDR32 0x22
|
|
#define OP_IX 0x23
|
|
#define OP_IY 0x24
|
|
#define OP_IDX32 0x25
|
|
#define OP_SU 0x26
|
|
#define OP_HTR 0x27
|
|
#define OP_DATA 0x3e
|
|
|
|
#define OP_MASK 0x3f /* Gets the basic operation out */
|
|
|
|
/* Modifiers */
|
|
#define OP_INDIR 0x40 /* ( x ) */
|
|
#define OP_INDEX 0x80 /* Modifier for 8 bit operations with ixh, ixl */
|
|
#define OP_ALT 0x100
|
|
#define OP_OFFSET 0x200 /* Has an offset as well (always optional) - maybe from ix,iy or sp,hl (rabbit) */
|
|
#define OP_ARITH16 0x400
|
|
#define OP_PUSHABLE 0x800
|
|
#define OP_STD16BIT 0x1000
|
|
#define OP_RALT 0x2000 /* Accept an alt register on a rabbit (only used mnemonics) - except (hl) */
|
|
#define OP_RALTHL 0x4000 /* Accept an alt (hl) register on a rabbit (only used mnemonics) */
|
|
#define OP_OFFSA 0x8000 /* Have +a as offset */
|
|
#define OP_OFFSHL 0x10000 /* Have +hl as offset */
|
|
#define OP_OFFSBC 0x20000 /* Have +bc as offset */
|
|
#define OP_OFFSDE 0x40000 /* Have +de as offset */
|
|
#define OP_OFFSIX 0x80000 /* Have +ix as offset */
|
|
#define OP_OFFSIY 0x100000 /* Have +iy as offset */
|
|
|
|
|
|
|
|
/* Opcode types - we can group them together to calculate offsets etc */
|
|
#define TYPE_NONE 0x00 /* No modifiers */
|
|
#define TYPE_ARITH8 0x01 /* + reg1 index or + reg2 index*/
|
|
#define TYPE_MISC8 0x02 /* + reg1 * 8 or + reg 2 * 8*/
|
|
#define TYPE_LD8 0x03 /* + reg1 * 8 + reg 2 */
|
|
#define TYPE_ARITH16 0x04 /* reg * 16 */
|
|
|
|
#define TYPE_FLAGS 0x05 /* flags * 8 */
|
|
#define TYPE_RELJUMP 0x06 /* jr/djnz/jre (flags *8 if necessary */
|
|
|
|
#define TYPE_BIT 0x07 /* Bit setting etc */
|
|
#define TYPE_RST 0x08 /* rst XX */
|
|
#define TYPE_IM 0x09 /* im */
|
|
#define TYPE_EDPREF 0x0a /* Has a 0xed prefix by default (RCM opcodes) */
|
|
#define TYPE_IPSET 0x0b /* ipset X (RCM) */
|
|
#define TYPE_IDX32 0x0c /* p? * 16 */
|
|
#define TYPE_NOPREFIX 0x0d /* Don't add on an indexing prefix (RCM) */
|
|
#define TYPE_IDX32R 0x0e /* p? * 16 + p? * 64*/
|
|
#define TYPE_OUT_C_0 0x0f /* for out (c), number, number can only be 0 */
|