	mac	LoadB
	lda	#({2})
	sta	({1})
	endm

	mac	LoadW
	lda	#]({2})
	sta	({1})+1
	lda	#[({2})
	sta	({1})
	endm

	mac	MoveB
	lda	({1})
	sta	({2})
	endm

	mac	MoveW
	lda	({1})+1
	sta	({2})+1
	lda	({1})+0
	sta	({2})+0
	endm

	mac	add
	clc
	adc	({1})
	endm

	mac	AddB
	clc
	lda	({1})
	adc	({2})
	sta	({2})
	endm

	mac	AddW
	lda	({1})
	clc
	adc	({2})+0
	sta	({2})+0
	lda	({1})+1
	adc	({2})+1
	sta	({2})+1
	endm

	mac	AddVB
	lda	({2})
	clc
	adc	#({1})
	sta	({2})
	endm

	mac	AddVW
	clc
	lda	#[({1})
	adc	({2})+0
	sta	({2})+0
	.if	(({1}) >= 0) && (({1}) <= 255)
	bcc	1$
	inc	({2})+1
1$:
	.else
	lda	#](({1}))
	adc	({2})+1
	sta	({2})+1
	.endif
	endm

	mac	sub
	sec
	sbc	({1})
	endm

	mac	SubB
	sec
	lda	({2})
	sbc	({1})
	sta	({2})
	endm

	mac	SubW
	lda	({2})+0
	sec
	sbc	({1})+0
	sta	({2})+0
	lda	({2})+1
	sbc	({1})+1
	sta	({2})+1
	endm

	mac	CmpB
	lda	({1})
	cmp	({2})
	endm

	mac	CmpBI
	lda	({1})
	cmp	#({2})
	endm

	mac	CmpW
	lda	({1})+1
	cmp	 ({2})+1
	bne	1$
	lda	({1})+0
	cmp	({2})+0
1$:
	endm

	mac	CmpWI
	lda	({1})+1
	cmp	#]({2})
	bne	1$
	lda	({1})+0
	cmp	#[({2})
1$:
	endm

	mac	PushB
	lda	({1})
	pha
	endm

	mac	PushW
	lda	({1})+1
	pha
	lda	({1})+0
	pha
	endm

	mac	PopB
	pla
	sta	({1})
	endm

	mac	PopW
	pla
	sta	({1})+0
	pla
	sta	({1})+1
	endm

;	mac	bra		; this one re-done internally
;	clv
;	bvc	({1})
;	endm

	mac	IncW
	inc	({1})
	bne	1$
	inc	({1})+1
1$:
	endm

	mac	DecW2
	lda	({1})
	bne	1$
	dec	({1})+1
1$:
	dec	({1})
	endm

	mac	DecW
	ldx	#({1})
	jsr	Ddec
	endm

	mac	SubVW
	sec
	lda	({2})+0
	sbc	#[({1})
	sta	({2})+0
	lda	({2})+1
	sbc	#]({1})
	sta	({2})+1
	endm
