jmp.cgs

来自「lwip在ucos上的移植」· CGS 代码 · 共 30 行

# 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