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
	transfer:1.1.1.1
	local:1.1.1;
locks; strict;
comment	@;; @;


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

1.1
date	2004.03.25.22.29.17;	author arniml;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	2004.03.25.22.29.17;	author arniml;	state Exp;
branches;
next	;


desc
@@


1.2
log
@fix test wrt AC
@
text
@	;; *******************************************************************
	;; $Id: test.asm,v 1.1.1.1 2004/03/25 22:29:17 arniml Exp $
	;;
	;; Test several commands related to PSW.
	;; *******************************************************************

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

	ORG	0

	;; Start of test
	mov	a, psw
	anl	a, #0F7H
	jnz	fail

	dec	a
	mov	psw, a
	mov	a, psw
	inc	a
	jnz	fail

	mov	psw, a
	mov	a, psw
	anl	a, #0F7H
	jnz	fail

	cpl	f0
	jf0	ok_1
	jmp	fail
ok_1:	mov	a, psw
	anl	a, #~040H	; mask AC, tested separately with DA
	add	a, #(~028H + 1) & 0FFH
	jnz	fail

	clr	f0
	jnc	fail
	mov	a, psw
	anl	a, #~040H	; mask AC, tested separately with DA
	add	a, #(~088H + 1) & 0FFH
	jnz	fail

	clr	c
	jc	fail
	sel	rb1
	mov	a, psw
	anl	a, #~040H	; mask AC, tested separately with DA
	add	a, #(~018H + 1) & 0FFH
	jnz	fail

	cpl	c
	jc	fail
	sel	rb0
	mov	a, psw
	anl	a, #~040H	; mask AC, tested separately with DA
	add	a, #(~08H + 1) & 0FFH
	jnz	fail

pass:	PASS

fail:	FAIL
@


1.1
log
@Initial revision
@
text
@d2 1
a2 1
	;; $Id: test.asm,v 1.1 2004/03/12 21:20:30 arnim Exp $
d32 1
d39 1
d47 1
d55 1
@


1.1.1.1
log
@Imported sources
@
text
@@