head	1.2;
access;
symbols
	rel_1_1:1.2
	rel_1_0:1.2
	rel_0_6_1_beta:1.2
	rel_0_6__beta:1.2
	rel_0_6_beta:1.2
	rel_0_5_beta:1.2
	rel_0_4_beta:1.2
	rel_0_3_beta:1.2
	rel_0_2_beta:1.2
	rel_0_1_beta:1.2;
locks; strict;
comment	@;; @;


1.2
date	2004.04.06.18.12.57;	author arniml;	state Exp;
branches;
next	1.1;

1.1
date	2004.04.04.14.21.35;	author arniml;	state Exp;
branches;
next	;


desc
@@


1.2
log
@change test values that match better to the test case
@
text
@	;; *******************************************************************
	;; $Id: test.asm,v 1.1 2004/04/04 14:21:35 arniml Exp $
	;;
	;; Test XCHD A, @@ Rr.
	;; *******************************************************************

	INCLUDE	"cpu.inc"
	INCLUDE	"pass_fail.inc"

testR0R1	MACRO	pos
	inc	r0
	inc	r1
	mov	a, @@r0
	cpl	a
	add	a, #((~((pos+7) # 8) << 4) & 0F0H) | (pos & 00FH)
	cpl	a
	jnz	fail
	mov	a, @@r1
	cpl	a
	add	a, #((~((pos+7) # 8) << 4) & 0F0H) | (pos & 00FH)
	cpl	a
	jnz	fail
	ENDM

	ORG	0

	;; Start of test
	mov	r0, #010H
	mov	r1, #020H
	mov	a, #0F0H
	mov	@@r0, a
	mov	@@r1, a
	inc	r0
	inc	r1
	mov	a, #0E1H
	mov	@@r0, a
	mov	@@r1, a
	inc	r0
	inc	r1
	mov	a, #0D2H
	mov	@@r0, a
	mov	@@r1, a
	inc	r0
	inc	r1
	mov	a, #0C3H
	mov	@@r0, a
	mov	@@r1, a
	inc	r0
	inc	r1
	mov	a, #0B4H
	mov	@@r0, a
	mov	@@r1, a
	inc	r0
	inc	r1
	mov	a, #0A5H
	mov	@@r0, a
	mov	@@r1, a
	inc	r0
	inc	r1
	mov	a, #096H
	mov	@@r0, a
	mov	@@r1, a
	inc	r0
	inc	r1
	mov	a, #087H
	mov	@@r0, a
	mov	@@r1, a

	dec	r0
	xchd	a, @@r0
	dec	r0
	xchd	a, @@r0
	dec	r0
	xchd	a, @@r0
	dec	r0
	xchd	a, @@r0
	dec	r0
	xchd	a, @@r0
	dec	r0
	xchd	a, @@r0
	dec	r0
	xchd	a, @@r0
	mov	r0, #017H
	xchd	a, @@r0

	mov	a, @@r1
	dec	r1
	xchd	a, @@r1
	dec	r1
	xchd	a, @@r1
	dec	r1
	xchd	a, @@r1
	dec	r1
	xchd	a, @@r1
	dec	r1
	xchd	a, @@r1
	dec	r1
	xchd	a, @@r1
	dec	r1
	xchd	a, @@r1
	mov	r1, #027H
	xchd	a, @@r1

	jmp	goon

	ORG	256
	;;
goon:	mov	r0, #00FH
	mov	r1, #01FH
	testR0R1	1
	testR0R1	2
	testR0R1	3
	testR0R1	4
	testR0R1	5
	testR0R1	6
	testR0R1	7
	testR0R1	0

pass:	PASS

fail:	FAIL
@


1.1
log
@initial check-in
@
text
@d2 1
a2 1
	;; $Id: test.asm,v 1.1.1.1 2004/03/25 22:29:18 arniml Exp $
d15 1
a15 1
	add	a, #~((1 << pos) & 00FH) & ~((1 << ((pos+7) # 8) & 0F0H)) & 0FFH
d20 1
a20 1
	add	a, #~((1 << pos) & 00FH) & ~((1 << ((pos+7) # 8) & 0F0H)) & 0FFH
d30 1
a30 1
	mov	a, #0FEH
d35 1
a35 1
	mov	a, #0FDH
d40 1
a40 1
	mov	a, #0FBH
d45 1
a45 1
	mov	a, #0F7H
d50 1
a50 1
	mov	a, #0EFH
d55 1
a55 1
	mov	a, #0DFH
d60 1
a60 1
	mov	a, #0BFH
d65 1
a65 1
	mov	a, #07FH
@