head	1.2;
access;
symbols
	rel_1_1:1.2
	rel_1_0:1.2
	rel_0_1_beta:1.2;
locks; strict;
comment	@;; @;


1.2
date	2006.05.28.19.22.11;	author arniml;	state Exp;
branches;
next	1.1;
commitid	5fc84479f8624567;

1.1
date	2006.05.28.15.26.04;	author arniml;	state Exp;
branches;
next	;
commitid	79034479c10b4567;


desc
@@


1.2
log
@removed obsolete instructions in decision tree
@
text
@	;; *******************************************************************
	;; $Id: test.asm,v 1.1 2006/05/28 15:26:04 arniml Exp $
	;;
	;; Checks interrupt on AISC.
	;; AISC is interrupted twice:
	;;   1) no carry, thus no skip
	;;   2) carry, skip after interrupt completion
	;;

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

	include	"int_macros.inc"

	org	0x00
	clra

	int_flag_clear
	;; write return instruction identifier to current M
	;; ret_instr_030 = 0x01
	clra
	aisc	0x1
	x	0

	lei	0x02
	jp	int_mark_030

	org	0x030
int_mark_030:
	nop
	nop
int_instr_030:
	aisc	0xf
ret_instr_030:
	jp	+		; must not be skipped!
	jmp	fail
+
	;; check result of AISC
	xad	3, 0
	clra
	aisc	0xf
	x	0
	xad	3, 0
	ske
	jmp	fail
	;; check whether interrupt really occured
	int_flag_check

	;;
	;; prepare next interrupt
	;;
	int_flag_clear
	;; write return instruction identifier to current M
	;; ret_instr_0b0 = 0x2
	clra
	aisc	0x2
	x	0

	lei	0x02
	jmp	int_mark_0b0

	org	0x0ae
	jmp	fail
	org	0x0b0
int_mark_0b0:
	nop
	nop
int_instr_0b0:
	aisc	0x1
ret_instr_0b0:
	jmp	fail		; must be skipped!
	;; check result of AISC
	xad	3, 0
	clra
	x	0
	xad	3, 0
	ske
	jmp	fail
	;; check whether interrupt really occured
	int_flag_check
	jmp	pass
	

	;; *******************************************************************
	;; Interrupt routine
	;;
	org	0x0fd
	jmp	fail
int_routine:
	nop
	save_a_m_c

	int_flag_set

	;; access current M of main program
	ldd	3, 14
	x	0
	skmbz	0x0
	jp	check_sa_030
	skmbz	0x1
	jp	check_sa_0b0
	jmp	fail

check_sa_030:
	check_sa	ret_instr_030
	jmp	int_finished
check_sa_0b0:
	check_sa	ret_instr_0b0

int_finished:
	restore_c_m_a
	ret
	;;
	;; *******************************************************************


	org	0x200
	include	"int_pass_fail.asm"
@


1.1
log
@initial check-in
@
text
@d2 1
a2 1
	;; $Id: test.asm,v 1.1 2006/05/27 19:05:42 arniml Exp $
d98 1
a98 1
	jmp	check_sa_030
d100 1
a100 1
	jmp	check_sa_0b0
a107 1
	jmp	int_finished
@