testbenches/mine.z80


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

;;; -*- asm -*-
;;; 

.ORG 4000h

	call	cond_jr		;cd
	halt

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

cond_jr:
	ld	a,01h		;3e
	cp	a		;bf
	jr	nz,wrong	;20

	ccf			;3f
	jr	c,wrong		;38

	scf			;37
	jr	nc,wrong	;30
	ret


wrong:
	jp	wrong

data8:
	.db	0a5h
data16:
	.dw	data8