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.23.43.45;	author arniml;	state Exp;
branches;
next	1.1;
commitid	9b7446a63ad4567;

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
@fix wrong aisc commands
@
text
@	;; *******************************************************************
	;; $Id: test.asm,v 1.1.1.1 2006/05/06 01:56:45 arniml Exp $
	;;
	;; Checks the ASC instruction.
	;;

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

	org	0x00
	clra

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

	clra
	rc
	;; test a0 + m5 + c0
	asc
	jmp	ok_a0_m5_c0_carry
	jmp	fail
ok_a0_m5_c0_carry:
	skc
	jmp	ok_a0_m5_c0_c
	jmp	fail
ok_a0_m5_c0_c:
	ske
	jmp	fail

	;; test a5 + m5 + c0
	asc
	jmp	ok_a5_m5_c0_carry
	jmp	fail
ok_a5_m5_c0_carry:
	skc
	jmp	ok_a5_m5_c0_c
	jmp	fail
ok_a5_m5_c0_c:
	aisc	16+5 - 10
	nop
	ske
	jmp	fail

	rc
	asc
	;; test a10 + m5 + c0
	asc
	jmp	ok_a10_m5_c0_carry
	jmp	fail
ok_a10_m5_c0_carry:
	skc
	jmp	ok_a10_m5_c0_c
	jmp	fail
ok_a10_m5_c0_c:
	aisc	16+5 - 15
	nop
	ske
	jmp	fail

	rc
	asc
	asc
	;; test a15 + m5 + c0
	asc
	jmp	fail
	skc
	jmp	fail
	rc
	aisc	16+5 - 20
	nop
	ske
	jmp	fail

	sc
	clra
	;; test a0 + m5 + c1
	asc
	jmp	ok_a0_m5_c1_carry
	jmp	fail
ok_a0_m5_c1_carry:
	skc
	jmp	ok_a0_m5_c1_c
	jmp	fail
ok_a0_m5_c1_c:
	aisc	16+5 - 6
	nop
	ske
	jmp	fail

	sc
	;; test a5 + m5 + c1
	asc
	jmp	ok_a5_m5_c1_carry
	jmp	fail
ok_a5_m5_c1_carry:
	skc
	jmp	ok_a5_m5_c1_c
	jmp	fail
ok_a5_m5_c1_c:
	aisc	16+5 - 11
	nop
	ske
	jmp	fail

	rc
	asc
	sc
	;; test a10 + m5 + c1
	asc
	jmp	fail
	skc
	jmp	fail
	aisc	16+5 - 16
	nop
	ske
	jmp	fail

	rc
	asc
	asc
	sc
	;; test a15 + m5 + c1
	asc
	jmp	fail
	skc
	jmp	fail
	;; aisc	16+5 - 21
	nop
	ske
	jmp	fail


	rc
	aisc	0xa
	x	0x0
	clra
	;; test a0 + m15 + c0
	asc
	jmp	ok_a0_m15_c0_carry
	jmp	fail
ok_a0_m15_c0_carry:
	skc
	jmp	ok_a0_m15_c0_c
	jmp	fail
ok_a0_m15_c0_c:
	ske
	jmp	fail

	rc
	;; test a15 + m15 + c0
	asc
	jmp	fail
	skc
	jmp	fail
	aisc	16+15 - 30
	nop
	ske
	jmp	fail

	sc
	clra
	;; test a0 + m15 + c1
	asc
	jmp	fail
	skc
	jmp	fail
	aisc	16+15 - 16
	nop
	ske
	jmp	fail

	sc
	;; test a15 + m15 + c1
	asc
	jmp	fail
	skc
	jmp	fail
	;; aisc	16+15 - 31
	nop
	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/14 15:30:57 arnim Exp $
d129 1
a129 1
	aisc	16+5 - 21
d180 1
a180 1
	aisc	16+15 - 31
@


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