#include "common.h"

#ifndef __MACROS_H
#define __MACROS_H

; common registers
#define	R0		0
#define	R1		1
#define	R2		2
#define	R3		3
#define	R4		4
#define	R5		5
#define	R6		6
#define	R7		7
#define	R8		8
#define	R9		9

; system functions
#define	S0		0
#define	S1		1
#define	S2		2
#define	S3		3
#define	S4		4
#define	S5		5
#define	S6		6
#define	S7		7
#define	S8		8
#define	S9		9

; user functions
#define	U0		15
#define	U1		14
#define	U2		13
#define	U3		12
#define	U4		11
#define	U5		10
#define	U6		9
#define	U7		8
#define	U8		7
#define	U9		6

; shorthand
#define	_OFF_M(o)	((o) - * - 3)
#define	_BRX_M(o)	<_OFF_M(o), >_OFF_M(o)
#define	_MRG_M(p, q)	((p) * 16 + (q))

; macros
#define ESC		.BYTE _ESC_C
#define RTN		.BYTE _RTN_C
#define BRS(o)		.BYTE _BRS_C, _BRX_M(o)
#define BRA(o)		.BYTE _BRA_C, _BRX_M(o)
#define BRE(o)		.BYTE _BRE_C, _BRX_M(o)
#define BRG(o)		.BYTE _BRG_C, _BRX_M(o)
#define BRL(o)		.BYTE _BRL_C, _BRX_M(o)
#define BRZ(o)		.BYTE _BRZ_C, _BRX_M(o)
#define BRP(o)		.BYTE _BRP_C, _BRX_M(o)
#define BRN(o)		.BYTE _BRN_C, _BRX_M(o)
#define BRO(o)		.BYTE _BRO_C, _BRX_M(o)
#define BRU(o)		.BYTE _BRU_C, _BRX_M(o)
#define CPR(p, q)	.BYTE _CPR_C, _MRG_M(p, q)
#define LDI(p, q)	.BYTE _LDI_C, _MRG_M(p, q)
#define SVI(p, q)	.BYTE _SVI_C, _MRG_M(p, q)
#define CMR(p, q)	.BYTE _CMR_C, _MRG_M(p, q)
#define SET(r, v)	.BYTE _SET_C + (r), _SET_V(#v)
#define LDD(r, a)	.BYTE _LDD_C + (r), <(a), >(a)
#define SVD(r, a)	.BYTE _SVD_C + (r), <(a), >(a)
#define PSH(r)		.BYTE _PSH_C + (r)
#define POP(r)		.BYTE _POP_C + (r)
#define EXC(r)		.BYTE _EXC_C + (r)
#define INR(r)		.BYTE _INR_C + (r)
#define DCR(r)		.BYTE _DCR_C + (r)
#define TST(r)		.BYTE _TST_C + (r)
#define ADD(r, p, q)	.BYTE _ADD_C + (r), _MRG_M(p, q)
#define SUB(r, p, q)	.BYTE _SUB_C + (r), _MRG_M(p, q)
#define MUL(r, p, q)	.BYTE _MUL_C + (r), _MRG_M(p, q)
#define DIV(r, p, q)	.BYTE _DIV_C + (r), _MRG_M(p, q)
#define MOD(r, p, q)	.BYTE _MOD_C + (r), _MRG_M(p, q)
#define EXT(f)		.BYTE _EXT_C + (f)

; header for fixed code or data
#define FIXED(l)	.BYTE _SM_FXD:.WORD l, _END_##l - l:* = * - 5:l .(

; header for relocatable code: l(abel) => starting offset, length of code
#define CODE(l)		.BYTE _RLC_CD:.WORD _start - l, _END_##l - l: * = * -5:l .(
#define START		&_start

; header for relocatable data: l(abel) => length of zeroed data, length of preset data
#define DATA(l)		.BYTE _RLC_DT:.WORD _END_##l - _zero, _zero - l: * = * - 5:l .(
#define ZERO		&_zero

; initialize v(alue)
#define VALUE(v)	.BYTE _SET_V(#v)

; reserve c(ount)
#define RESERVE(c)	* = * + c * 4

; common begin and end
#define BEGIN(l)	l .(
#define END(l)		.):_END_##l

#endif /* __MACROS_H */