.title	AS6805 Sequential Test

	.area	DIRECT

	.setdp

	bit0	=	0
	bit1	=	1
	bit2	=	2
	bit3	=	3
	bit4	=	4
	bit5	=	5
	bit6	=	6
	bit7	=	7

	ext = 0x0123
	ix2 = 0xABCD
	ix1 = 0x00EF

begin:	.byte	0
loca:	.byte	0
locb:	.byte	0
locc:	.byte	0
locd:	.byte	0
loce:	.byte	0


	.area	AS6805A

1$:	jsr	5$		; CD __ __
	jmp	5$		; CC __ __
	sub	5$		; C0 __ __

	jsr	6$		; CD 00 00
	jmp	7$		; CC 00 03
	sub	8$		; C0 00 06


	.page

	. = 1$+256

2$:	brset	#bit0,*loca, .	; 00 01 FD
	brclr	#bit0,*loca,2$	; 01 01 FA
	brset	#bit1,*loca,2$	; 02 01 F7
	brclr	#bit1,*loca,2$	; 03 01 F4
	brset	#bit2,*loca,2$	; 04 01 F1
	brclr	#bit2,*loca,2$	; 05 01 EE
	brset	#bit3,*loca,2$	; 06 01 EB
	brclr	#bit3,*loca,2$	; 07 01 E8
	brset	#bit4,*loca,2$	; 08 01 E5
	brclr	#bit4,*loca,2$	; 09 01 E2
	brset	#bit5,*loca,2$	; 0A 01 DF
	brclr	#bit5,*loca,2$	; 0B 01 DC
	brset	#bit6,*loca,2$	; 0C 01 D9
	brclr	#bit6,*loca,2$	; 0D 01 D6
	brset	#bit7,*loca,2$	; 0E 01 D3
	brclr	#bit7,*loca,2$	; 0F 01 D0

	bset	#bit0,*locb	; 10 02
	bclr	#bit0,*locb	; 11 02
	bset	#bit1,*locb	; 12 02
	bclr	#bit1,*locb	; 13 02
	bset	#bit2,*locb	; 14 02
	bclr	#bit2,*locb	; 15 02
	bset	#bit3,*locb	; 16 02
	bclr	#bit3,*locb	; 17 02
	bset	#bit4,*locb	; 18 02
	bclr	#bit4,*locb	; 19 02
	bset	#bit5,*locb	; 1A 02
	bclr	#bit5,*locb	; 1B 02
	bset	#bit6,*locb	; 1C 02
	bclr	#bit6,*locb	; 1D 02
	bset	#bit7,*locb	; 1E 02
	bclr	#bit7,*locb	; 1F 02

3$:	bra	3$		; 20 FE
	brn	3$		; 21 FC
	bhi	3$		; 22 FA
	bls	3$		; 23 F8
	bcc	3$		; 24 F6
	bcs	3$		; 25 F4
	bne	3$		; 26 F2
	beq	3$		; 27 F0
	bhcc	3$		; 28 EE
	bhcs	3$		; 29 EC
	bpl	3$		; 2A EA
	bmi	3$		; 2B E8
	bmc	3$		; 2C E6
	bms	3$		; 2D E4
	bil	3$		; 2E E2
	bih	3$		; 2F E0


	.page

	neg	*locc		; 30 03
				; 31
				; 32
	com	*locc		; 33 03
	lsr	*locc		; 34 03
				; 35
	ror	*locc		; 36 03
	asr	*locc		; 37 03
	lsl	*locc		; 38 03
	rol	*locc		; 39 03
	dec	*locc		; 3A 03
				; 3B
	inc	*locc		; 3C 03
	tst	*locc		; 3D 03
				; 3E
	clr	*locc		; 3F 03

	nega			; 40
				; 41
				; 42
	coma			; 43
	lsra			; 44
				; 45
	rora			; 46
	asra			; 47
	lsla			; 48
	rola			; 49
	deca			; 4A
				; 4B
	inca			; 4C
	tsta			; 4D
				; 4E
	clra			; 4F

	negx			; 50
				; 51
				; 52
	comx			; 53
	lsrx			; 54
				; 55
	rorx			; 56
	asrx			; 57
	lslx			; 58
	rolx			; 59
	decx			; 5A
				; 5B
	incx			; 5C
	tstx			; 5D
				; 5E
	clrx			; 5F


	.page

	neg	locd,x		; 60 04
				; 61
				; 62
	com	locd,x		; 63 04
	lsr	locd,x		; 64 04
				; 65
	ror	locd,x		; 66 04
	asr	locd,x		; 67 04
	lsl	locd,x		; 68 04
	rol	locd,x		; 69 04
	dec	locd,x		; 6A 04
				; 6B
	inc	locd,x		; 6C 04
	tst	locd,x		; 6D 04
				; 6E
	clr	locd,x		; 6F 04

	neg	,x		; 70
				; 71
				; 72
	com	,x		; 73
	lsr	,x		; 74
				; 75
	ror	,x		; 76
	asr	,x		; 77
	lsl	,x		; 78
	rol	,x		; 79
	dec	,x		; 7A
				; 7B
	inc	,x		; 7C
	tst	,x		; 7D
				; 7E
	clr	,x		; 7F


	.page

	rti			; 80
	rts			; 81
				; 82
	swi			; 83
				; 84
				; 85
				; 86
				; 87
				; 88
				; 89
				; 8A
				; 8B
				; 8C
				; 8D 
	stop			; 8E
	wait			; 8F

				; 90
				; 91
				; 92
				; 93
				; 94
				; 95
				; 96
	tax			; 97
	clc			; 98
	sec			; 99
	cli			; 9A
	sei			; 9B
	rsp			; 9C
	nop			; 9D 
				; 9E
	txa			; 9F

				
	.page

	sub	#0x21		; A0 21
	cmp	#0x21		; A1 21
	sbc	#0x21		; A2 21
	cpx	#0x21		; A3 21
	and	#0x21		; A4 21
	bit	#0x21		; A5 21
	lda	#0x21		; A6 21
				; A7
	eor	#0x21		; A8 21
	adc	#0x21		; A9 21
	ora	#0x21		; AA 21
	add	#0x21		; AB 21
				; AC
4$:	bsr	4$		; AD FE
	ldx	#0x21		; AE 21
				; AF

	sub	*loce		; B0 05
	cmp	*loce		; B1 05
	sbc	*loce		; B2 05
	cpx	*loce		; B3 05
	and	*loce		; B4 05
	bit	*loce		; B5 05
	lda	*loce		; B6 05
	sta	*loce		; B7 05
	eor	*loce		; B8 05
	adc	*loce		; B9 05
	ora	*loce		; BA 05
	add	*loce		; BB 05
	jmp	*loce		; BC 05
	jsr	*loce		; BD 05
	ldx	*loce		; BE 05
	stx	*loce		; BF 05

	sub	ext		; C0 01 23
	cmp	ext		; C1 01 23
	sbc	ext		; C2 01 23
	cpx	ext		; C3 01 23
	and	ext		; C4 01 23
	bit	ext		; C5 01 23
	lda	ext		; C6 01 23
	sta	ext		; C7 01 23
	eor	ext		; C8 01 23
	adc	ext		; C9 01 23
	ora	ext		; CA 01 23
	add	ext		; CB 01 23
	jmp	ext		; CC 01 23
	jsr	ext		; CD 01 23
	ldx	ext		; CE 01 23
	stx	ext		; CF 01 23


	.page

	sub	ix2,x		; D0 AB CD
	cmp	ix2,x		; D1 AB CD
	sbc	ix2,x		; D2 AB CD
	cpx	ix2,x		; D3 AB CD
	and	ix2,x		; D4 AB CD
	bit	ix2,x		; D5 AB CD
	lda	ix2,x		; D6 AB CD
	sta	ix2,x		; D7 AB CD
	eor	ix2,x		; D8 AB CD
	adc	ix2,x		; D9 AB CD
	ora	ix2,x		; DA AB CD
	add	ix2,x		; DB AB CD
	jmp	ix2,x		; DC AB CD
	jsr	ix2,x		; DD AB CD
	ldx	ix2,x		; DE AB CD
	stx	ix2,x		; DF AB CD

	sub	ix1,x		; E0 EF
	cmp	ix1,x		; E1 EF
	sbc	ix1,x		; E2 EF
	cpx	ix1,x		; E3 EF
	and	ix1,x		; E4 EF
	bit	ix1,x		; E5 EF
	lda	ix1,x		; E6 EF
	sta	ix1,x		; E7 EF
	eor	ix1,x		; E8 EF
	adc	ix1,x		; E9 EF
	ora	ix1,x		; EA EF
	add	ix1,x		; EB EF
	jmp	ix1,x		; EC EF
	jsr	ix1,x		; ED EF
	ldx	ix1,x		; EE EF
	stx	ix1,x		; EF EF

	sub	,x		; F0
	cmp	,x		; F1
	sbc	,x		; F2
	cpx	,x		; F3
	and	,x		; F4
	bit	,x		; F5
	lda	,x		; F6
	sta	,x		; F7
	eor	,x		; F8
	adc	,x		; F9
	ora	,x		; FA
	add	,x		; FB
	jmp	,x		; FC
	jsr	,x		; FD
	ldx	,x		; FE
	stx	,x		; FF


	.page

5$:	jsr	*begin		; BD __
	jmp	*begin		; BC __
	sub	*begin		; B0 __

	.area	AS6805B

6$:	jsr	1$		; CD __ __
7$:	jmp	1$		; CC __ __
8$:	sub	1$		; C0 __ __