# Hitachi H8 testcase 'stc'
# mach(): all
# as(h8300):	--defsym sim_cpu=0
# as(h8300h):	--defsym sim_cpu=1
# as(h8300s):	--defsym sim_cpu=2
# as(h8sx):	--defsym sim_cpu=3
# ld(h8300h):	-m h8300helf
# ld(h8300s):	-m h8300self
# ld(h8sx):	-m h8300sxelf

	.include "testutils.inc"
	.data
byte_dest1:
	.byte	0
	.byte	0
byte_dest2:
	.byte	0
	.byte	0
byte_dest3:
	.byte	0
	.byte	0
byte_dest4:
	.byte	0
	.byte	0
byte_dest5:
	.byte	0
	.byte	0
byte_dest6:
	.byte	0
	.byte	0
byte_dest7:
	.byte	0
	.byte	0
byte_dest8:
	.byte	0
	.byte	0
byte_dest9:
	.byte	0
	.byte	0
byte_dest10:
	.byte	0
	.byte	0
byte_dest11:
	.byte	0
	.byte	0
byte_dest12:
	.byte	0
	.byte	0
	
	start

stc_ccr_reg8:
	set_grs_a5a5
	set_ccr_zero

	ldc	#0xff, ccr	; test value
	stc	ccr, r0h	; copy test value to r0h

	test_h_gr16  0xffa5 r0	; ff in r0h, a5 in r0l
.if (sim_cpu)			; h/s/sx
	test_h_gr32  0xa5a5ffa5 er0	; ff in r0h, a5 everywhere else
.endif
	test_gr_a5a5 1		; Make sure other general regs not disturbed
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

.if (sim_cpu == h8300s || sim_cpu == h8sx)	; Earlier versions, no exr
stc_exr_reg8:
	set_grs_a5a5
	set_ccr_zero

	ldc	#0x87, exr	; set exr to 0x87
	stc	exr, r0l	; retrieve and check exr value
	cmp.b	#0x87, r0l
	beq	.L21
	fail
.L21:
	test_h_gr32  0xa5a5a587 er0	; Register 0 modified by test procedure.
	test_gr_a5a5 1		; Make sure other general regs not disturbed
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_ccr_abs16:
	set_grs_a5a5
	set_ccr_zero

	ldc	#0xff, ccr
	stc	ccr, @byte_dest1:16	; abs16 dest

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 1
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_exr_abs16:
	set_grs_a5a5
	set_ccr_zero

	ldc	#0x87, exr
	stc	exr, @byte_dest2:16	; abs16 dest

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 1
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_ccr_abs32:
	set_grs_a5a5
	set_ccr_zero

	ldc	#0xff, ccr
	stc	ccr, @byte_dest3:32	; abs32 dest

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 1
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_exr_abs32:
	set_grs_a5a5
	set_ccr_zero

	ldc	#0x87, exr
	stc	exr, @byte_dest4:32	; abs32 dest

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 1
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_ccr_disp16:
	set_grs_a5a5
	set_ccr_zero

	mov	#byte_dest5-1, er1
	ldc	#0xff, ccr
	stc	ccr, @(1:16,er1)	; disp16 dest (5)

	test_h_gr32 byte_dest5-1, er1	; er1 still contains address

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_exr_disp16:
	set_grs_a5a5
	set_ccr_zero

	mov	#byte_dest6+1, er1
	ldc	#0x87, exr
	stc	exr, @(-1:16,er1)	; disp16 dest (6)

	test_h_gr32 byte_dest6+1, er1	; er1 still contains address

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_ccr_disp32:
	set_grs_a5a5
	set_ccr_zero

	mov	#byte_dest7-1, er1
	ldc	#0xff, ccr
	stc	ccr, @(1:32,er1)	; disp32 dest (7)

	test_h_gr32 byte_dest7-1, er1	; er1 still contains address

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_exr_disp32:
	set_grs_a5a5
	set_ccr_zero

	mov	#byte_dest8+1, er1
	ldc	#0x87, exr
	stc	exr, @(-1:32,er1)	; disp16 dest (8)

	test_h_gr32 byte_dest8+1, er1	; er1 still contains address

	test_gr_a5a5 2		; Make sure other general regs not disturbed
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_ccr_predecr:
	set_grs_a5a5
	set_ccr_zero

	mov	#byte_dest9+2, er1
	ldc	#0xff, ccr
	stc	ccr, @-er1	; predecr dest (9)

	test_h_gr32  byte_dest9 er1	; er1 still contains address

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7
	
stc_exr_predecr:
	set_grs_a5a5
	set_ccr_zero

	mov	#byte_dest10+2, er1
	ldc	#0x87, exr
	stc	exr, @-er1	; predecr dest (10)

	test_h_gr32 byte_dest10, er1	; er1 still contains address

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7
	
stc_ccr_ind:
	set_grs_a5a5
	set_ccr_zero

	mov	#byte_dest11, er1
	ldc	#0xff, ccr
	stc	ccr, @er1	; postinc dest (11)

	test_h_gr32 byte_dest11, er1	; er1 still contains address

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7
	
stc_exr_ind:
	set_grs_a5a5
	set_ccr_zero

	mov	#byte_dest12, er1
	ldc	#0x87, exr
	stc	exr, @er1, exr	; postinc dest (12)

	test_h_gr32 byte_dest12, er1	; er1 still contains address

	test_gr_a5a5 0		; Make sure other general regs not disturbed
	test_gr_a5a5 2
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7
	
.endif
	
.if (sim_cpu == h8sx)		; New vbr and sbr registers for h8sx
stc_sbr_reg:
	set_grs_a5a5
	set_ccr_zero

	mov	#0xaaaaaaaa, er0
	ldc	er0, sbr	; set sbr to 0xaaaaaaaa
 	stc	sbr, er1	; retreive and check sbr value

	test_h_gr32 0xaaaaaaaa er1
	test_h_gr32 0xaaaaaaaa er0 ; Register 0 modified by test procedure.
	test_gr_a5a5 2		; Make sure other general regs not disturbed
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

stc_vbr_reg:	
	set_grs_a5a5
	set_ccr_zero

	mov	#0xaaaaaaaa, er0
	ldc	er0, vbr	; set sbr to 0xaaaaaaaa
	stc	vbr, er1	; retreive and check sbr value

	test_h_gr32 0xaaaaaaaa er1
	test_h_gr32 0xaaaaaaaa er0 ; Register 0 modified by test procedure.
	test_gr_a5a5 2		; Make sure other general regs not disturbed
	test_gr_a5a5 3
	test_gr_a5a5 4
	test_gr_a5a5 5
	test_gr_a5a5 6
	test_gr_a5a5 7

check_results:
	;; Now check results
	mov @byte_dest1, r0h
	cmp.b	#0xff, r0h
	beq .L1
	fail

.L1:	mov @byte_dest2, r0h
	cmp.b	#0x87, r0h
	beq .L2
	fail

.L2:	mov @byte_dest3, r0h
	cmp.b	#0xff, r0h
	beq .L3
	fail

.L3:	mov @byte_dest4, r0h
	cmp.b	#0x87, r0h
	beq .L4
	fail

.L4:	mov @byte_dest5, r0h
	cmp.b	#0xff, r0h
	beq .L5
	fail

.L5:	mov @byte_dest6, r0h
	cmp.b	#0x87, r0h
	beq .L6
	fail

.L6:	mov @byte_dest7, r0h
	cmp.b	#0xff, r0h
	beq .L7
	fail

.L7:	mov @byte_dest8, r0h
	cmp.b	#0x87, r0h
	beq .L8
	fail

.L8:	mov @byte_dest9, r0h
	cmp.b	#0xff, r0h
	beq .L9
	fail

.L9:	mov @byte_dest10, r0h
	cmp.b	#0x87, r0h
	beq .L10
	fail

.L10:	mov @byte_dest11, r0h
	cmp.b	#0xff, r0h
	beq .L11
	fail

.L11:	mov @byte_dest12, r0h
	cmp.b	#0x87, r0h
	beq .L12
	fail

.L12:	
.endif
	pass

	exit 0