Subversion Repositories scarts

# fr30 testcase for jmp @$Ri
# mach(): fr30

        .include "testutils.inc"

        START

        .text
        .global jmp

        ; Test jmp $Ri
        mvi_h_gr        #func1,r0
        set_cc          0x0f            ; condition codes shouldn't change
jmp1:
        jmp             @r0
        fail
func1:
        test_cc         1 1 1 1
        mvi_h_gr        #func2,r0
        set_cc          0x0f            ; condition codes shouldn't change
jmp2:
        jmp:d           @r0
        ldi:8           1,r0            ; Must assume this works
        fail
func2:
        test_cc         1 1 1 1
        testr_h_gr      1,r0

        pass