;structured programming definitions

UNIVERSAL

	Z=4
	N=10

DEFINE	SOJ	reg,addr
	DEC	reg
	JNE	addr
	ENDM

DEFINE	BIS	src,dst = OR src,dst
DEFINE	BISW	src,dst = ORW src,dst

DEFINE	BIC	src,dst
	MOV	src,D7
	COM	D7
	AND	D7,dst
	ENDM

DEFINE	BICW	src,dst
	MOVW	src,D7
	COMW	D7
	ANDW	D7,dst
	ENDM

DEFINE	BIT	src,dst
	MOV	dst,D7
	AND	src,D7
	ENDM

DEFINE	BITW	src,dst
	MOVW	dst,D7
	ANDW	src,D7
	ENDM

DEFINE	TJMP	index
	LEA	A6,1$$
	ADDW	index,A6
	ADDW	@A6,A6
	JMP	@A6
1$$:
	ENDM

DEFINE	CEQ	addr
	BNE	1$$
	CALL	addr
1$$:
	ENDM

DEFINE	CNE	addr
	BEQ	1$$
	CALL	addr
1$$:
	ENDM

DEFINE	REQ
	BNE	1$$
	RTN
1$$:
	ENDM

DEFINE	RNE
	BEQ	1$$
	RTN
1$$:
	ENDM

	END

.