From 24a3ab6a80292c00eef036b520add092f9d952ff Mon Sep 17 00:00:00 2001
From: Astrid Smith
Date: Mon, 15 Nov 2010 23:32:59 -0800
Subject: Pattern rule for testbenches added

---
 testbenches/mine.testbench.z80 | 57 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 testbenches/mine.testbench.z80

(limited to 'testbenches/mine.testbench.z80')

diff --git a/testbenches/mine.testbench.z80 b/testbenches/mine.testbench.z80
new file mode 100644
index 0000000..57c6998
--- /dev/null
+++ b/testbenches/mine.testbench.z80
@@ -0,0 +1,57 @@
+;;; -*- asm -*-
+;;; 
+
+.ORG 4000h
+
+	call	cond_jr_no	;cd
+	halt			;76
+
+inc8:
+	ld	bc,data8	;01
+	;; BC should have &data8
+	ld	a,(bc)		;0a
+	inc	a		;3c
+	ld	(bc),a		;02
+	halt
+
+dec8:
+	ld	a,0a5h		;3e
+	dec	a		;3d
+	ret			;c9
+
+	;; Test jump-not-taken of JR [C,NC,Z]
+cond_jr_no:
+	ld	a,01h		;3e 01
+	cp	a		;bf
+	jr	nz,wrong	;20 07
+
+	ccf			;3f
+	jr	c,wrong		;38 
+
+	scf			;37
+	jr	nc,wrong	;30 
+	ret			;c9
+
+wrong:
+	jp	wrong
+
+	;; Test jump-taken of JR [C,NC,Z]
+cond_jr_yes:
+	ld	a,01h		;3e 01
+	ld	b,02h		;06 02
+	cp	b		;b8
+	jr	nz,right1	;20
+	jp	wrong
+right1:	scf			;37
+	jr	c,right2	;38 
+	jp	wrong
+right2:	ccf			;3f
+	jr	nc,right3	;30 
+	jp	wrong
+right3:	ret			;c9
+
+
+data8:
+	.db	0a5h
+data16:
+	.dw	data8
-- 
cgit v1.2.3