head	1.2;
access;
symbols
	rel_1_1:1.2
	rel_1_0:1.2
	rel_0_1_beta:1.2
	LOC_CVS_0_1:1.1.1.1
	LOC_CVS:1.1.1;
locks; strict;
comment	@;; @;


1.2
date	2006.05.16.07.57.23;	author arniml;	state Exp;
branches;
next	1.1;
commitid	4805446985e14567;

1.1
date	2006.05.06.01.56.45;	author arniml;	state Exp;
branches
	1.1.1.1;
next	;
commitid	7cbf445c02434567;

1.1.1.1
date	2006.05.06.01.56.45;	author arniml;	state Exp;
branches;
next	;
commitid	7cbf445c02434567;


desc
@@


1.2
log
@finalize test
@
text
@	;; *******************************************************************
	;; $Id: test.asm,v 1.1.1.1 2006/05/06 01:56:45 arniml Exp $
	;;
	;; Checks the CASC instruction.
	;;

	;; the cpu type is defined on asl's command line

	org	0x00
	clra

	;; preload M0 with 0x5
	rmb	0x3
	smb	0x2
	rmb	0x1
	smb	0x0

	rc
	aisc	0xf
	;; test /(a15) + m5 + c0
	casc
	jmp	ok_a15_m5_c0_carry
	jmp	fail
ok_a15_m5_c0_carry:
	skc
	jmp	ok_a15_m5_c0_c
	jmp	fail
ok_a15_m5_c0_c:
	;; expect 0x5 as result
	ske
	jmp	fail

	sc
	clra
	aisc	0xa
	;; test /(a10) + m5 + c1
	casc
	jmp	ok_a10_m5_c1_carry
	jmp	fail
ok_a10_m5_c1_carry:
	skc
	jmp	ok_a10_m5_c1_c
	jmp	fail
ok_a10_m5_c1_c:
	;; expect 0xb as result
	aisc	0xa
	nop
	ske
	jmp	fail

	;; preload M0 with 0xa
	smb	0x3
	rmb	0x2
	smb	0x1
	rmb	0x0
	;;
	rc
	clra
	aisc	0x5
	;; test /(a5) + m10 + c0
	casc
	jmp	fail
	skc
	jmp	fail
	;; expect 0x4 as result
	aisc	0x6
	ske
	jmp	fail

	;; preload M0 with 0xf
	smb	0x3
	smb	0x2
	smb	0x1
	smb	0x0
	;;
	sc
	clra
	;; test /(a0) + m15 + c1
	casc
	jmp	fail
	skc
	jmp	fail
	;; expect 0xf as result
	ske
	jmp	fail


	jmp	pass

	org	0x100
	include	"pass_fail.asm"
@


1.1
log
@Initial revision
@
text
@d2 1
a2 1
	;; $Id: test.asm,v 1.1 2006/04/15 17:46:41 arnim Exp $
d12 39
d56 13
d70 9
a78 3
	rc
	asc	0xf
	;; test a15 + m5 + c0
a79 1
	jmp	ok_a15_m5_c0_carry
a80 1
ok_a15_m5_c0_carry:
a81 1
	jmp	ok_a15_m5_c0_c
d83 1
a83 1
ok_a15_m5_c0_c:
@


1.1.1.1
log
@import from local CVS repository, LOC_CVS_0_1
@
text
@@