orccr.cgs

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

# fr30 testcase for orccr $u8
# mach(): fr30

	.include "testutils.inc"

	START

	.text
	.global orccr
orccr:
	orccr      	0xff
	test_cc		1 1 1 1
	test_i		1
	test_s_user

	set_cc	0x0f
	orccr      	0x00
	test_cc		1 1 1 1
	test_i		1
	test_s_user

	set_cc		0x00
	set_i			0
	set_s_system
	orccr      	0xaa
	test_cc		1 0 1 0
	test_i		0
	test_s_user

	set_cc		0x00
	set_i			0
	set_s_system
	orccr      	0xc0
	test_cc		0 0 0 0
	test_i		0
	test_s_system

	pass