| # fr30 testcase for call @$Ri |
| # mach(): fr30 |
| |
| .include "testutils.inc" |
| |
| START |
| |
| .text |
| .global call |
| |
| ; Test call $Ri |
| mvi_h_gr 0xdeadbeef,r9 |
| mvi_h_gr #func1,r0 |
| set_cc 0x0f ; condition codes shouldn't change |
| call1: |
| call @r0 |
| test_h_gr 0xbeefdead,r9 |
| pass |
| |
| func1: |
| test_cc 1 1 1 1 |
| mvi_h_gr #call1,r7 |
| inci_h_gr 2,r7 |
| testr_h_dr r7,rp |
| save_rp |
| |
| mvi_h_gr #func2,r0 |
| set_cc 0x0f ; condition codes shouldn't change |
| call2: |
| call:d @r0 |
| ldi:8 1,r0 ; Must assume this works |
| restore_rp |
| ret |
| func2: |
| test_cc 1 1 1 1 |
| mvi_h_gr #call2,r7 |
| inci_h_gr 4,r7 |
| testr_h_dr r7,rp |
| testr_h_gr 1,r0 |
| save_rp |
| |
| set_cc 0x0f ; condition codes shouldn't change |
| call3: |
| call func3 |
| restore_rp |
| ret |
| func3: |
| test_cc 1 1 1 1 |
| mvi_h_gr #call3,r7 |
| inci_h_gr 2,r7 |
| testr_h_dr r7,rp |
| save_rp |
| |
| set_cc 0x0f ; condition codes shouldn't change |
| call4: |
| call:d func4 |
| ldi:8 1,r0 ; Must assume this works |
| restore_rp |
| ret |
| func4: |
| test_cc 1 1 1 1 |
| mvi_h_gr #call4,r7 |
| inci_h_gr 4,r7 |
| testr_h_dr r7,rp |
| testr_h_gr 1,r0 |
| mvi_h_gr 0xbeefdead,r9 |
| ret |
| |
| fail |
