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


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.1
log
@Initial revision
@
text
@	;; *******************************************************************
	;; $Id: pass_fail.asm,v 1.3 2006/04/23 19:34:29 arnim Exp $
	;;
	;; Provides pass/fail signalling via port L.
	;;
	;; Result value is expected in accumuator.
	;;
	;; Signalling on L:
	;;   0x0R
	;;   0xaR
	;;   0x5R
	;;     0x0R  -> pass
	;;     0xfR  -> fail
	;;

	;; catch spurious code execution
	jmp	fail

pass:
	lei	0x4
	;; save result to M
	x	0x0
	;; output 0x0R to Q
	clra
	camq
	;; output 0xaR to Q
	aisc	0xa
	camq
	;; output 0x5R to Q
	clra
	aisc	0x5
	camq
	;; output 0x0R to Q
	clra
	camq
	jp	.

fail:
	lei	0x4
	;; save result to M
	x	0x0
	;; output 0x0R to Q
	clra
	camq
	;; output 0xaR to Q
	aisc	0xa
	camq
	;; output 0x5R to Q
	clra
	aisc	0x5
	camq
	;; output 0xfR to Q
	clra
	aisc	0xf
	camq
	jp	.
@


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