Subversion Repositories scarts

# fr30 testcase for
# mach(): fr30
#  sth $Ri,@$Rj

        .include "testutils.inc"

        START

        .text
        .global sth
sth:
        mvr_h_gr        sp,r9           ; Save stack pointer
        ; Test sth $Ri,@Rj
        mvi_h_mem       0xdeadbeef,sp
        mvi_h_gr        0xaaaabeef,r8
        set_cc          0x0f            ; Condition codes should not change
        sth             r8,@sp
        test_cc         1 1 1 1
        test_h_mem      0xbeefbeef,sp
        test_h_gr       0xaaaabeef,r8

        ; Test sth $Ri,@(R13,Rj)
        mvi_h_mem       0xbeefdead,sp
        mvi_h_gr        0xaaaadead,r8
        mvr_h_gr        sp,r1
        inci_h_gr       -8,sp
        mvr_h_gr        sp,r2
        mvi_h_mem       0xbeefdead,sp
        inci_h_gr       4,sp
        mvi_h_mem       0xbeefdead,sp

        mvi_h_gr        4,r13
        set_cc          0x0e            ; Condition codes should not change
        sth             r8,@(r13,sp)
        test_cc         1 1 1 0
        test_h_mem      0xdeaddead,r1
        test_h_gr       0xaaaadead,r8

        mvi_h_gr        0,r13
        set_cc          0x0d            ; Condition codes should not change
        sth             r8,@(r13,sp)
        test_cc         1 1 0 1
        test_h_mem      0xdeaddead,sp
        test_h_gr       0xaaaadead,r8

        mvi_h_gr        -4,r13
        set_cc          0x0c            ; Condition codes should not change
        sth             r8,@(r13,sp)
        test_cc         1 1 0 0
        test_h_mem      0xdeaddead,r2
        test_h_gr       0xaaaadead,r8

        ; Test sth $Ri,@(R14,$disp9)
        mvr_h_gr        r9,sp           ; Restore stack pointer
        mvi_h_gr        0xaaaaabcd,r8
        mvi_h_mem       0xdeadbeef,sp
        mvr_h_gr        sp,r14
        inci_h_gr       -256,r14        ; must be aligned
        mvr_h_gr        r14,r2
        mvi_h_mem       0xdeadbeef,r14
        inci_h_gr       -256,r14
        mvr_h_gr        r14,r3
        mvi_h_mem       0xdeadbeef,r14
        inci_h_gr       258,r14

        set_cc          0x0b            ; Condition codes should not change
        sth             r8,@(r14,254)
        test_cc         1 0 1 1
        test_h_mem      0xabcdbeef,r1
        test_h_gr       0xaaaaabcd,r8

        set_cc          0x0a            ; Condition codes should not change
        sth             r8,@(r14,0)
        test_cc         1 0 1 0
        test_h_mem      0xdeadabcd,r2
        test_h_gr       0xaaaaabcd,r8

        set_cc          0x09            ; Condition codes should not change
        sth             r8,@(r14,-256)
        test_cc         1 0 0 1
        test_h_mem      0xdeadabcd,r3
        test_h_gr       0xaaaaabcd,r8

        pass