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

Rev	Author	Line No.	Line
1186	savelij	1	cpu 87c70
		2	include stddef87.inc
		3	page 0
		4
		5	ei
		6	di
		7	swi
		8	nop
		9	ret
		10	reti
		11	retn
		12
		13	targ: jrs t,targ
		14	jrs f,targ
		15
		16	jr t,targ
		17	jr f,targ
		18	jr eq,targ
		19	jr z,targ
		20	jr ne,targ
		21	jr nz,targ
		22	jr cs,targ
		23	jr lt,targ
		24	jr cc,targ
		25	jr ge,targ
		26	jr le,targ
		27	jr gt,targ
		28
		29	daa a
		30	daa b
		31	das a
		32	das c
		33	shlc a
		34	shlc d
		35	shrc a
		36	shrc e
		37	rolc a
		38	rolc h
		39	rorc a
		40	rorc l
		41	swap a
		42	swap b
		43
		44	add a,c
		45	addc l,a
		46	sub wa,de
		47	subb a,(12h)
		48	and a,(hl)
		49	or a,(de)
		50	xor a,(hl+)
		51	cmp a,(-hl)
		52	add a,(hl+10)
		53	addc a,(hl-125)
		54	sub a,(hl+c)
		55	subb a,(c+hl)
		56	and a,(pc+a)
		57	or a,(a+pc)
		58	cmp (12h),(hl)
		59	add (de),(hl)
		60	addc (hl+5),(hl)
		61	sub (hl+c),(hl)
		62	subb (pc+a),(hl)
		63	and a,55h
		64	or c,55h
		65	xor hl,5678h
		66	cmp (12h),55h
		67	add (hl),55h
		68	addc (hl+),55h
		69	sub (-hl),55h
		70	subb (hl-32),55h
		71	and (hl+c),55h
		72	or (pc+a),55h
		73
		74	mcmp (12h),55h
		75	mcmp (de),55h
		76	mcmp (hl+),55h
		77	mcmp (-hl),55h
		78	mcmp (hl+3),55h
		79	mcmp (c+hl),55h
		80	mcmp (pc+a),55h
		81
		82
		83	inc c
		84	inc bc
		85	inc (12h)
		86	inc (hl)
		87	inc (de)
		88	inc (hl+)
		89	inc (-hl)
		90	inc (hl+4)
		91	inc (hl+c)
		92	inc (a+pc)
		93	dec e
		94	dec hl
		95	dec (12h)
		96	dec (hl)
		97	dec (de)
		98	dec (hl+)
		99	dec (-hl)
		100	dec (hl-7)
		101	dec (hl+c)
		102	dec (pc+a)
		103
		104	mul w,a
		105	mul c,b
		106	mul d,e
		107	mul l,h
		108
		109	targ2:
		110	jr targ2
		111
		112	div wa,c
		113	div de,c
		114	div hl,c
		115
		116	rold a,(12h)
		117	rold a,(hl)
		118	rold a,(hl+)
		119	rold a,(-hl)
		120	rold a,(hl+16)
		121	rold a,(c+hl)
		122	rord a,(12h)
		123	rord a,(hl)
		124	rord a,(hl+)
		125	rord a,(-hl)
		126	rord a,(hl-16)
		127	rord a,(hl+c)
		128
		129	xch a,d
		130	xch d,w
		131	xch hl,de
		132	xch bc,wa
		133	xch b,(12h)
		134	xch (12h),c
		135	xch d,(hl)
		136	xch (de),e
		137	expect 140
		138	xch l,(hl+)
		139	endexpect
		140	expect 140
		141	xch (hl+),h
		142	endexpect
		143	xch a,(-hl)
		144	xch (-hl),w
		145	xch b,(hl+5)
		146	xch (hl-3),c
		147	xch d,(hl+c)
		148	xch (c+hl),e
		149	xch h,(pc+a)
		150	xch (a+pc),l
		151
		152	clr b
		153	clr de
		154	clr (12h)
		155	clr (hl)
		156	clr (de)
		157	clr (hl+)
		158	clr (-hl)
		159	clr (hl+5)
		160
		161	ldw hl,1234h
		162	ldw (12h),1234h
		163	ldw (hl),1234h
		164
		165	ld a,l
		166	ld d,a
		167	ld w,h
		168	ld a,(12h)
		169	ld c,(12h)
		170	ld a,(hl)
		171	ld d,(hl)
		172	ld c,(de)
		173	ld b,(-hl)
		174	expect 140
		175	ld h,(hl+)
		176	endexpect
		177	ld c,(hl-122)
		178	ld w,(hl+c)
		179	ld d,(a+pc)
		180	ld h,20
		181
		182	ld hl,bc
		183	ld de,(12h)
		184	ld bc,(de)
		185	ld wa,(hl+1)
		186	ld hl,(hl+c)
		187	ld de,(pc+a)
		188	ld bc,1234
		189
		190	ld (12h),a
		191	ld (12h),c
		192	ld (12h),de
		193	ld (12h),(23h)
		194	ld (12h),(de)
		195	ld (12h),(hl-42)
		196	ld (12h),(hl+c)
		197	ld (12h),(pc+a)
		198	ld (12h),23h
		199
		200	ld (hl),a
		201	ld (de),d
		202	ld (hl+),c
		203	ld (-hl),e
		204	ld (hl+4),h
		205	ld (hl),de
		206	ld (hl+5),bc
		207	ld (hl),(12h)
		208	ld (hl),(de)
		209	ld (hl),(hl+1)
		210	ld (hl),(hl+c)
		211	ld (hl),(pc+a)
		212	ld (hl),23h
		213	ld (de),23h
		214	ld (hl+),23h
		215	ld (-hl),23h
		216	ld (hl-77),23h
		217
		218	ld sp,1234h
		219	ld sp,de
		220	ld hl,sp
		221	ld rbs,7
		222
		223	jp 2000h
		224	call 1234h
		225	call 0ff54h
		226	jp hl
		227	call de
		228	jp (hl)
		229	jp (de)
		230	jp (12h)
		231	call (12h)
		232	jp (hl+5)
		233	call (hl-100)
		234	jp (hl+c)
		235	call (a+pc)
		236	jp (c+hl)
		237	call (pc+a)
		238
		239	callv 3
		240
		241	callp 76h
		242	callp 0ff12h
		243
		244	push psw
		245	push de
		246	pop wa
		247	pop psw
		248
		249	ld cf,a.5
		250	ld cf,(12h).4
		251	ld cf,(hl).3
		252	ld cf,(hl+).2
		253	ld cf,(-hl).1
		254	ld cf,(hl+3).0
		255	ld cf,(hl+c).7
		256	ld cf,(pc+a).3
		257	ld cf,(de).c
		258
		259	ld a.5,cf
		260	ld (12h).4,cf
		261	ld (hl).3,cf
		262	ld (hl+).2,cf
		263	ld (-hl).1,cf
		264	ld (hl+3).0,cf
		265	ld (hl+c).7,cf
		266	ld (pc+a).3,cf
		267	ld (de).c,cf
		268
		269	xor cf,d.3
		270	xor cf,(12h).4
		271	xor cf,(de).5
		272	xor cf,(hl+).6
		273	xor cf,(-hl).7
		274	xor cf,(hl+3).0
		275	xor cf,(hl+c).1
		276	xor cf,(pc+a).2
		277
		278	clr cf
		279	clr d.3
		280	clr (12h).4
		281	clr (de).5
		282	clr (hl+).6
		283	clr (-hl).7
		284	clr (hl+3).0
		285	clr (hl+c).1
		286	clr (pc+a).2
		287	clr (de).c
		288
		289	set cf
		290	set d.3
		291	set (12h).4
		292	set (de).5
		293	set (hl+).6
		294	set (-hl).7
		295	set (hl+3).0
		296	set (hl+c).1
		297	set (pc+a).2
		298	set (de).c
		299
		300	cpl cf
		301	cpl d.3
		302	cpl (12h).4
		303	cpl (de).5
		304	cpl (hl+).6
		305	cpl (-hl).7
		306	cpl (hl+3).0
		307	cpl (hl+c).1
		308	cpl (pc+a).2
		309	cpl (de).c
		310
		311	test d.3
		312	test (12h).4
		313	test (de).5
		314	test (hl+).6
		315	test (-hl).7
		316	test (hl+3).0
		317	test (hl+c).1
		318	test (pc+a).2
		319	test (de).c
		320
		321	;-----------------------------------------------------
		322	; standard Intel/MASM-style pseudo instructions
		323
		324	include "../t_dx/t_dn.inc"
		325	include "../t_dx/t_db.inc"
		326	include "../t_dx/t_dw.inc"
		327	include "../t_dx/t_dd.inc"
		328	include "../t_dx/t_dq.inc"
		329	include "../t_dx/t_dt.inc"
		330	include "../t_dx/t_do.inc"

Subversion Repositories pentevo

(root)//tools/asl/asl-current/tests/t_87c800/t_87c800.asm – Rev 1186