;;; -*- 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