.NLIST
	.ENABL	LC			; Allow lower case chars
;
; MACRO DEFINITIONS
;
; BIT TEST EQUAL AND BRANCH
;

	.MACRO	BITEQ ARG1,ARG2,BDST
	BIT	ARG1,ARG2
	BEQ	BDST
	.ENDM

;
; BIT TEST NOT EQUAL AND BRANCH
;

	.MACRO	BITNE ARG1,ARG2,BDST
	BIT	ARG1,ARG2
	BNE	BDST
	.ENDM

;
; BIT TEST EQUAL BYTE AND BRANCH
;

	.MACRO	BITEQB ARG1,ARG2,BDST
	BITB	ARG1,ARG2
	BEQ	BDST
	.ENDM

;
; BIT TEST NOT EQUAL BYTE AND BRANCH
;

	.MACRO	BITNEB ARG1,ARG2,BDST
	BITB	ARG1,ARG2
	BNE	BDST
	.ENDM

;
; COMPARE EQUAL AND BRANCH
;

	.MACRO	CMPEQ ARG1,ARG2,BDST
	CMP	ARG1,ARG2
	BEQ	BDST
	.ENDM

;
; COMPARE NOT EQUAL AND BRANCH
;

	.MACRO	CMPNE ARG1,ARG2,BDST
	CMP	ARG1,ARG2
	BNE	BDST
	.ENDM

;
; COMPARE EQUAL BYTE AND BRANCH
;

	.MACRO	CMPEQB ARG1,ARG2,BDST
	CMPB	ARG1,ARG2
	BEQ	BDST
	.ENDM

;
; COMPARE NOT EQUAL BYTE AND BRANCH
;

	.MACRO	CMPNEB ARG1,ARG2,BDST
	CMPB	ARG1,ARG2
	BNE	BDST
	.ENDM

;
; TEST EQUAL AND BRANCH
;

	.MACRO	TSTEQ ARG1,BDST
	TST	ARG1
	BEQ	BDST
	.ENDM

;
; TEST NOT EQUAL AND BRANCH
;

	.MACRO	TSTNE ARG1,BDST
	TST	ARG1
	BNE	BDST
	.ENDM

;
; TEST EQUAL BYTE AND BRANCH
;

	.MACRO	TSTEQB ARG1,BDST
	TSTB	ARG1
	BEQ	BDST
	.ENDM

;
; TEST NOT EQUAL BYTE AND BRANCH
;

	.MACRO	TSTNEB ARG1,BDST
	TSTB	ARG1
	BNE	BDST
	.ENDM
;
; Define unsigned divide macro
;	R0 = ARG2/ARG1	R1 = remainder
;
	.MACRO	DIV$,ARG1,ARG2
	.ifdf	$EIS
	MOV	ARG2,R1		; Dividend
	CLR	R0
	DIV	ARG1,R0
	.iff
	MOV	ARG2,R0
	MOV	ARG1,R1
	CALL	$DIV
	.endc
	.endm
	.LIST