#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 FIX(l)		.BYTE _SM_FXD : .WORD l, _END_##l - l : * = * - 5 : l .(

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

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

; define l(abel), v(alue)
#define DEF(l, v)	&l .BYTE _SET_V(#v)

; reserve c(ount) & provide an alias for _zer
#define RES(c)		&ZER : &_zer : * = * + (c) * 4

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

#endif /* __MACROS_H */