WebSVN – pentevo – Blame – /tools/asl/asl-current/tests/t_kcpsm/t_kcpsm.asm

Rev	Author	Line No.	Line
1186	savelij	1	cpu kcpsm
		2
		3	;ei
		4	;di
		5	;retie
		6	;retid
		7
		8	CONSTANT const1, 02
		9	NAMEREG s08, treg
		10
		11
		12	load treg, #const1
		13
		14	nop
		15
		16	load s0, #1
		17	jump test1
		18	jump Z, test1
		19	jump NZ, test1
		20	jump C, test1
		21	jump NC, test1
		22
		23	test1:
		24	call test2
		25	call Z, test2
		26	call NZ, test2
		27	call C, test2
		28	call NC, test2
		29
		30	test2:
		31	return
		32	return Z
		33	return NZ
		34	return C
		35	return NC
		36
		37	load s0, #21
		38	and s0, #03
		39	or s0, #19
		40	xor s0, #71
		41
		42	load s1, s0
		43	and s1, s0
		44	or s1, s0
		45	xor s1, s0
		46
		47	add s0, #21
		48	addcy s0, #03
		49	sub s0, #19
		50	subcy s0, #71
		51
		52	add s1, s0
		53	addcy s1, s0
		54	sub s1, s0
		55	subcy s1, s0
		56
		57	sr0 s0
		58	sr1 s0
		59	srx s0
		60	sra s0
		61	rr s0
		62
		63	sl0 s0
		64	sl1 s0
		65	slx s0
		66	sla s0
		67	rl s0
		68
		69	input s0, #21
		70	input s0, (s1)
		71	output s0, #21
		72	output s0, (s1)
		73
		74	returni enable
		75	returni disable
		76
		77	enable interrupt
		78	disable interrupt
		79
		80	myreg equ s12
		81	myregr reg s12
		82	myregre reg myreg
		83
		84	add s12,200
		85	add myreg,200
		86	add myregr,200
		87	add myregre,200
		88
		89	segment data
		90
		91	org 0aah
		92	vari:
		93
		94	;-----------------------------------------------------
		95	; standard Intel/MASM-style pseudo instructions
		96
		97	segment code
		98
		99	db 128,255,-128,1
		100	dw 32768,65535,-32768
		101	dd 100000000

Subversion Repositories pentevo