head	1.1;
access;
symbols
	rel_1_1:1.1
	rel_1_0:1.1;
locks; strict;
comment	@;; @;


1.1
date	2006.07.11.23.13.32;	author arniml;	state Exp;
branches;
next	;
commitid	276844b430964567;


desc
@@


1.1
log
@initial check-in
@
text
@	;; *******************************************************************
	;; $Id$
	;;
	;; Test MOVD.
	;; *******************************************************************

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

	ORG	0

	;; Start of test

	;;
	;; read initial values
	;;

	;; port 4
	cpl	a
	movd	a, p4
	xrl	a, #00fh
	jnz	fail

	;; port 5
	cpl	a
	movd	a, p5
	xrl	a, #00fh
	jnz	fail

	;; port 6
	cpl	a
	movd	a, p6
	xrl	a, #00fh
	jnz	fail

	;; port 7
	cpl	a
	movd	a, p7
	xrl	a, #00fh
	jnz	fail


	;;
	;; test read/write via direct connection
	;;

	;; port 4 => port 6
	mov	a, #005h
	movd	p4, a
	cpl	a
	movd	a, p6
	xrl	a, #005h
	jnz	fail

	mov	a, #00ah
	movd	p4, a
	cpl	a
	movd	a, p6
	xrl	a, #00ah
	jnz	fail
	movd	a, p4

	;; port 6 => port 4
	mov	a, #000h
	movd	p6, a
	cpl	a
	movd	a, p4
	xrl	a, #000h
	jnz	fail

	mov	a, #00fh
	movd	p6, a
	cpl	a
	movd	a, p4
	xrl	a, #00fh
	jnz	fail
	movd	p6, a

	;; port 5 => port 7
	mov	a, #005h
	movd	p5, a
	cpl	a
	movd	a, p7
	xrl	a, #005h
	jnz	fail

	mov	a, #00ah
	movd	p5, a
	cpl	a
	movd	a, p7
	xrl	a, #00ah
	jnz	fail
	movd	a, p7

	;; port 7 => port 5
	mov	a, #000h
	movd	p7, a
	cpl	a
	movd	a, p5
	xrl	a, #000h
	jnz	fail

	mov	a, #00fh
	movd	p7, a
	cpl	a
	movd	a, p5
	xrl	a, #00fh
	jnz	fail
	movd	p7, a


	jmp	pass

	jmp	fail
pass:	PASS

fail:	FAIL
@