ack/mach/m68020/as/mach1.c

/* $Header$ */
/*
 * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
 * See the copyright notice in the ACK home directory, in the file "Copyright".
 */
/*
 * Motorola 68020 dependent C declarations
 */

#define	low3(z)		((short)(z) & 07)
#define	low4(z)		((short)(z) & 017)
#define	low5(z)		((short)(z) & 037)
#define	low6(z)		((short)(z) & 077)
#define	low7(z)		((short)(z) & 0177)

#define	fit3(z)		((((z)-1) & ~07) == 0)
#define	fit4(z)		(((z) & ~017) == 0)
#define	fit5(z)		(((z) & ~037) == 0)
#define	fit6(z)		(((z) & ~077) == 0)
#define	fit7(z)		(((z) & ~0177) == 0)
#define	sfit7(z)	(fit7((z)+64))
#define	fit8(z)		(((z) & ~0xFF) == 0)
#define	fit16(z)	(((z) & ~0xFFFF) == 0)

#define	SIZE_B		0000
#define	SIZE_W		0100
#define	SIZE_L		0200
#define	SIZE_NON	0300
#define	SIZE_DEF	SIZE_W

#define FSIZE_L		00
#define FSIZE_S		01
#define FSIZE_X		02
#define FSIZE_P		03
#define FSIZE_W		04
#define FSIZE_D		05
#define FSIZE_B		06

#define	DEF_FP		01000	/* default floating point processor */
#define	DEF_MM		00000	/* default memory management */
extern int	co_id;		/* coprocessor id */

extern int	mrg_1,mrg_2;	/* Mode and ReGister */
extern short	ffew_1, ffew_2; /* Full Format Extension Word */
extern expr_t	bd_1,bd_2,od_1,od_2; /* base and outer displacements */
#ifndef ASLD
extern valu_t	bd_rel1,bd_rel2,od_rel1,od_rel2;
#endif

#ifdef RELOCATION
#ifdef ASLD
#define	T_EMIT2(a,b,c,d)	t_emit2(a,b,c,(valu_t)0)
#define	T_EMIT4(a,b,c,d)	t_emit4(a,b,c,(valu_t)0)
#else  ALSD
#define	T_EMIT2(a,b,c,d)	t_emit2(a,b,c,(valu_t)d)
#define	T_EMIT4(a,b,c,d)	t_emit4(a,b,c,(valu_t)d)
#endif ASLD
#else
#define	T_EMIT2(a,b,c,d)	t_emit2(a)
#define	T_EMIT4(a,b,c,d)	t_emit4(a)
#endif

struct instr_t {
	short	i_word;		/* word to be emitted */
#ifdef RELOCATION
	short	i_relotype;
	int	i_reloinfo;
	valu_t	i_relonami;
#endif
};
typedef struct instr_t instr_t;
instr_t instr[30];	/* temporary area for instructions */
instr_t *instrp;	/* index into instr[] */
int dot_offset;

/* flags used when reading effective addresses */
#define INDEX		0300
#define PRE_INDEX	0100
#define POST_INDEX	0200
#define DBL_INDEX	0300
#define PC_MODE		0400

/* addressing mode bits */
#define	DTA		0x01
#define	MEM		0x02
#define	CTR		0x04
#define	ALT		0x08
#define	FITB		0x10
#define	FITW		0x20
#define	PUTW		0x40
#define	PUTL		0x80

#ifndef extern
extern short	eamode[];
#else
short	eamode[] = {
/* 00A */	DTA        |ALT,
/* 01A */	            ALT,
/* 02A */	DTA|MEM|CTR|ALT,
/* 03A */	DTA|MEM    |ALT,
/* 04A */	DTA|MEM    |ALT,
/* 05A */	DTA|MEM|CTR|ALT|FITW|PUTW, /* if relocation wanted, use 06A */
/* 06A */	DTA|MEM|CTR|ALT     |PUTW, /* relocation handled by ea_1() */
/* 07x */	0,
/* 070 */	DTA|MEM|CTR|ALT|FITW|PUTW | (RELO2)<<8,
/* 071 */	DTA|MEM|CTR|ALT     |PUTL | (RELO4)<<8,
/* 072 */	DTA|MEM|CTR    |FITW|PUTW, /* if relocation wanted, use 073 */
/* 073 */	DTA|MEM|CTR         |PUTW, /* relocation handled by ea_1() */
/* 074x */	0,
/* 074B */	DTA|MEM        |FITB|PUTW | (RELO1)<<8,
/* 074W */	DTA|MEM        |FITW|PUTW | (RELO2)<<8,
/* 074L */	DTA|MEM             |PUTL | (RELO4)<<8,
};
			/* RELO2 had to go with mode 070, because the assembly
			 * language programmer can use addresses like
			 * '(expression).w', which still have to be relocatable.
			 */
#endif