401 lines
6.8 KiB
ArmAsm
401 lines
6.8 KiB
ArmAsm
# 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
|