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

Rev	Author	Line No.	Line
1186	savelij	1	cpu z380
		2	include regz380
		3
		4	extmode on
		5
		6	page 0
		7	relaxed on
		8
		9	ddir w
		10	ddir ib,w
		11	ddir iw,w
		12	ddir ib
		13	ddir lw
		14	ddir ib,lw
		15	ddir iw,lw
		16	ddir iw
		17
		18	cpl
		19	cpl a
		20	neg
		21	neg a
		22
		23	ei
		24	ei $40
		25	di
		26	di $bf
		27
		28	btest
		29	exall
		30	exxx
		31	exxy
		32	indw
		33	indrw
		34	iniw
		35	inirw
		36	lddw
		37	lddrw
		38	ldiw
		39	ldirw
		40	mtest
		41	otdrw
		42	otirw
		43	outdw
		44	outiw
		45	retb
		46
		47	cplw
		48	cplw hl
		49	negw
		50	negw hl
		51
		52	ret
		53	ret nz
		54	ret z
		55	ret nc
		56	ret c
		57	ret po
		58	ret nv
		59	ret pe
		60	ret v
		61	ret p
		62	ret ns
		63	ret m
		64	ret s
		65
		66	jp 1234h
		67	jp 123456h
		68	ddir ib
		69	jp 123456h
		70	ddir iw
		71	jp 123456h
		72	ddir w
		73	jp 123456h
		74	ddir lw
		75	jp 123456h
		76	ddir w,iw
		77	jp 123456h
		78	jp 12345678h
		79	ddir lw
		80	jp 12345678h
		81	jp z,4321h
		82	jp nc,654321h
		83	jp pe,87654321h
		84	jp (hl)
		85	jp (ix)
		86	jp (iy)
		87
		88	call $1234
		89	call $123456
		90	call $12345678
		91	call nz,$4321
		92	call m,$654321
		93	call po,$87654321
		94
		95	jr $+20
		96	jr c,$-20
		97	jr $-200
		98	jr z,$+200
		99	jr $+$200000
		100	jr nc,$-$200000
		101
		102	calr $+20
		103	calr c,$-20
		104	calr $-200
		105	calr z,$+200
		106	calr $+$200000
		107	calr nc,$-$200000
		108
		109	djnz $+20
		110	djnz $-200
		111	djnz $+$200000
		112
		113	exts a
		114	exts
		115	extsw hl
		116	extsw
		117
		118	and a
		119	and a,b
		120	and a,c
		121	and a,d
		122	and a,e
		123	and a,h
		124	and a,l
		125	and a,ixl
		126	and a,ixu
		127	and a,iyl
		128	and a,iyu
		129	and a,$55
		130	and a,(hl)
		131	and a,(ix+20)
		132	and a,(iy-300)
		133	and a,(ix+100000)
		134
		135	andw ix
		136	andw hl,ix
		137	andw hl,iy
		138	andw hl,bc
		139	andw hl,de
		140	andw hl,hl
		141	andw hl,(ix+5)
		142	andw hl,(iy-200)
		143	andw hl,55aah
		144
		145	cp a
		146	cp a,b
		147	cp a,c
		148	cp a,d
		149	cp a,e
		150	cp a,h
		151	cp a,l
		152	cp a,ixl
		153	cp a,ixu
		154	cp a,iyl
		155	cp a,iyu
		156	cp a,$34
		157	cp a,(hl)
		158	cp a,(ix-20)
		159	cp a,(iy+$300)
		160	cp a,(ix+100000h)
		161
		162	cpw ix
		163	cpw hl,ix
		164	cpw hl,iy
		165	cpw hl,bc
		166	cpw hl,de
		167	cpw hl,hl
		168	cpw hl,(ix+17)
		169	cpw hl,(iy-200)
		170	cpw hl,$aa55
		171
		172	or a
		173	or a,b
		174	or a,c
		175	or a,d
		176	or a,e
		177	or a,h
		178	or a,l
		179	or a,ixl
		180	or a,ixu
		181	or a,iyl
		182	or a,iyu
		183	or a,$34
		184	or a,(hl)
		185	or a,(ix-20)
		186	or a,(iy+$300)
		187	or a,(ix+100000h)
		188
		189	orw ix
		190	orw hl,ix
		191	orw hl,iy
		192	orw hl,bc
		193	orw hl,de
		194	orw hl,hl
		195	orw hl,(ix+17)
		196	orw hl,(iy-200)
		197	orw hl,$aa55
		198
		199	xor a
		200	xor a,b
		201	xor a,c
		202	xor a,d
		203	xor a,e
		204	xor a,h
		205	xor a,l
		206	xor a,ixl
		207	xor a,ixu
		208	xor a,iyl
		209	xor a,iyu
		210	xor a,$34
		211	xor a,(hl)
		212	xor a,(ix-20)
		213	xor a,(iy+$300)
		214	xor a,(ix+100000h)
		215
		216	xorw ix
		217	xorw hl,ix
		218	xorw hl,iy
		219	xorw hl,bc
		220	xorw hl,de
		221	xorw hl,hl
		222	xorw hl,(ix+17)
		223	xorw hl,(iy-200)
		224	xorw hl,$aa55
		225
		226	sub a
		227	sub a,b
		228	sub a,c
		229	sub a,d
		230	sub a,e
		231	sub a,h
		232	sub a,l
		233	sub a,ixl
		234	sub a,ixu
		235	sub a,iyl
		236	sub a,iyu
		237	sub a,$34
		238	sub a,(hl)
		239	sub a,(ix-20)
		240	sub a,(iy+$300)
		241	sub a,(ix+100000h)
		242
		243	sub hl,(1234h)
		244	sub hl,(123456h)
		245	sub hl,(12345678h)
		246	sub sp,3412o
		247
		248	subw ix
		249	subw hl,ix
		250	subw hl,iy
		251	subw hl,bc
		252	subw hl,de
		253	subw hl,hl
		254	subw hl,(ix+17)
		255	subw hl,(iy-200)
		256	subw hl,$aa55
		257
		258	add a,b
		259	add a,iyu
		260	add a,' '
		261	add a,(hl)
		262	add a,(ix+10)
		263	add a,(ix+1000)
		264	add hl,bc
		265	add ix,de
		266	add iy,iy
		267	add ix,sp
		268	add hl,(12345678h)
		269	add sp,3412o
		270
		271	addw bc
		272	addw hl,hl
		273	addw hl,iy
		274	addw hl,2314h
		275	addw hl,(ix+128)
		276
		277	adc a,h
		278	adc a,ixu
		279	adc a,20
		280	adc a,(hl)
		281	adc a,(ix-500)
		282	adc hl,sp
		283
		284	adcw hl,bc
		285	adcw hl,iy
		286	adcw hl,$abcd
		287	adcw hl,(iy-30)
		288
		289	sbc a,d
		290	sbc a,iyl
		291	sbc a,20h
		292	sbc a,(hl)
		293	sbc a,(ix+500)
		294	sbc hl,sp
		295
		296	sbcw hl,bc
		297	sbcw hl,iy
		298	sbcw hl,$abcd
		299	sbcw hl,(iy-30)
		300
		301	dec a
		302	dec (hl)
		303	dec ixu
		304	dec (ix+35)
		305
		306	decw de
		307	dec iy
		308
		309	inc a
		310	inc (hl)
		311	inc ixu
		312	inc (ix+35)
		313
		314	incw de
		315	inc iy
		316
		317	rl d
		318	rl (hl)
		319	rl (ix+200)
		320	rlw ix
		321	rlw iy
		322	rlw de
		323	rlw hl
		324	rlw (hl)
		325	rlw (iy+$100000)
		326
		327	rlc d
		328	rlc (hl)
		329	rlc (ix+200)
		330	rlcw ix
		331	rlcw iy
		332	rlcw de
		333	rlcw hl
		334	rlcw (hl)
		335	rlcw (iy+$100000)
		336
		337	rr d
		338	rr (hl)
		339	rr (ix+200)
		340	rrw ix
		341	rrw iy
		342	rrw de
		343	rrw hl
		344	rrw (hl)
		345	rrw (iy+$100000)
		346
		347	rrc d
		348	rrc (hl)
		349	rrc (ix+200)
		350	rrcw ix
		351	rrcw iy
		352	rrcw de
		353	rrcw hl
		354	rrcw (hl)
		355	rrcw (iy+$100000)
		356
		357	sla d
		358	sla (hl)
		359	sla (ix+200)
		360	slaw ix
		361	slaw iy
		362	slaw de
		363	slaw hl
		364	slaw (hl)
		365	slaw (iy+$100000)
		366
		367	sra d
		368	sra (hl)
		369	sra (ix+200)
		370	sraw ix
		371	sraw iy
		372	sraw de
		373	sraw hl
		374	sraw (hl)
		375	sraw (iy+$100000)
		376
		377	srl d
		378	srl (hl)
		379	srl (ix+200)
		380	srlw ix
		381	srlw iy
		382	srlw de
		383	srlw hl
		384	srlw (hl)
		385	srlw (iy+$100000)
		386
		387	bit 5,a
		388	bit 6,(hl)
		389	bit 3,(ix+67)
		390
		391	res 5,a
		392	res 6,(hl)
		393	res 3,(ix+67)
		394
		395	set 5,a
		396	set 6,(hl)
		397	set 3,(ix+67)
		398
		399	mlt bc
		400	mlt hl
		401	mlt sp
		402
		403	ld a,c
		404	ld a,h
		405	ld a,iyu
		406	ld a,ixl
		407	ld a,(hl)
		408	ld a,(ix+20)
		409	ld a,(iy-300)
		410	ld a,(bc)
		411	ld a,(de)
		412	ld a,'A'
		413	ld a,(2000h)
		414	ld a,(10000h)
		415	ld a,r
		416	ld a,i
		417	ld d,a
		418	ld d,e
		419	ld d,ixl
		420	ld d,(hl)
		421	ld d,(iy+15)
		422	ld d,'D'
		423	ld ixl,a
		424	ld iyu,'I'
		425	ld iyl,iyu
		426	ld ixu,ixl
		427	ld ixl,e
		428	ld (hl),a
		429	ld (hl),c
		430	ld (ix+100),a
		431	ld (iy-200),d
		432	ld (hl),'H'
		433	ld (ix),'X'
		434	ld (hl),hl
		435	ld (hl),de
		436	ld (hl),bc
		437	ld (hl),ix
		438	ld (hl),iy
		439	ld (ix),hl
		440	ld (ix),de
		441	ld (ix),bc
		442	ld (iy),hl
		443	ld (iy),de
		444	ld (iy),bc
		445	ld (iy),ix
		446	ld (ix+123456h),iy
		447	ld sp,hl
		448	ld sp,iy
		449	ddir lw
		450	ld sp,123456h
		451	ld sp,(6)
		452	ld bc,(hl)
		453	ld de,(hl)
		454	ld hl,(hl)
		455	ld bc,(ix)
		456	ld de,(ix)
		457	ld hl,(ix)
		458	ld bc,(iy)
		459	ld de,(iy)
		460	ld hl,(iy)
		461	ld bc,hl
		462	ld de,bc
		463	ld de,ix
		464	ld hl,iy
		465	ld de,(bc)
		466	ld hl,(de)
		467	ld hl,2000h
		468	ddir lw
		469	ld hl,12345687h
		470	ld hl,(2000h)
		471	ld de,(20000h)
		472	ld hl,(sp+5)
		473	ld de,(sp-200)
		474	ld ix,(hl)
		475	ld iy,(hl)
		476	ld ix,(iy)
		477	ld iy,(ix)
		478	ld iy,hl
		479	ld ix,bc
		480	ld ix,iy
		481	ld iy,ix
		482	ld ix,(bc)
		483	ld iy,(de)
		484	ddir lw
		485	ld ix,123456h
		486	ld iy,0
		487	ld ix,(2000h)
		488	ld iy,(87654321h)
		489	ld ix,(sp)
		490	ld (bc),a
		491	ld (de),a
		492	ld (bc),de
		493	ld (de),hl
		494	ld (de),iy
		495	ld ($20001),a
		496	ld (123456h),hl
		497	ld (123456h),ix
		498	ld (123456h),de
		499	ld (123456h),sp
		500	ld i,a
		501	ld i,hl
		502	ld r,a
		503	ld hl,i
		504	ld (sp),de
		505	ld (sp),ix
		506	ld (hl),10
		507	ldw (hl),1000
		508	ddir lw
		509	ldw (hl),100000
		510	ldw (bc),30
		511	ldw (de),40
		512
		513	pop af
		514	pop sr
		515	pop bc
		516	pop de
		517	pop hl
		518	pop ix
		519	pop iy
		520	push af
		521	push sr
		522	push 300
		523	push bc
		524	push de
		525	push hl
		526	push ix
		527	push iy
		528
		529	; The AF' syntax for the alternate register bank is
		530	; really nasty. This requires a quotation qualifier
		531	; for the parser:
		532
		533	ex af,af' ; will comment be recognized?
		534	ex af',af ; will comment be recognized?
		535
		536	ex (sp),hl
		537	ex hl,(sp)
		538	ex (sp),ix
		539	ex ix,(sp)
		540	ex (sp),iy
		541	ex iy,(sp)
		542	ex de,hl
		543	ex hl,de
		544	ex a,a'
		545	ex c,c'
		546	ex a,h
		547	ex d,a
		548	ex a,(hl)
		549	ex (hl),a
		550	ex bc,de
		551	ex bc,hl
		552	ex bc,ix
		553	ex bc,iy
		554	ex de,bc
		555	ex de,hl
		556	ex de,ix
		557	ex de,iy
		558	ex hl,bc
		559	ex hl,de
		560	ex hl,ix
		561	ex hl,iy
		562	ex ix,bc
		563	ex ix,de
		564	ex ix,hl
		565	ex ix,iy
		566	ex iy,bc
		567	ex iy,de
		568	ex iy,hl
		569	ex iy,ix
		570	ex bc,bc'
		571	ex de,de'
		572	ex hl,hl'
		573	ex ix,ix'
		574	ex iy,iy'
		575
		576	im 0
		577	im 1
		578	im 2
		579	im 3
		580
		581	in a,(12h)
		582	out (12h),a
		583	in c,(c)
		584	out (c),c
		585	out (c),12h
		586
		587	inw bc,(c)
		588	outw (c),bc
		589	inw de,(c)
		590	outw (c),de
		591	inw hl,(c)
		592	outw (c),hl
		593	outw (c),$2002
		594
		595	in0 d,(20h)
		596	in0 (20h)
		597	out0 (20h),e
		598
		599	ina a,(12h)
		600	inaw hl,(1234h)
		601	outa (123456h),a
		602	outaw (12345678h),hl
		603
		604	tstio 1<<7
		605
		606	tst a
		607	tst (hl)
		608	tst 33h
		609
		610	divuw (ix+5)
		611	multw hl,(iy-3)
		612	multuw hl,(iy+100)
		613	divuw hl,bc
		614	multw hl,de
		615	multuw hl,hl
		616	divuw hl,ix
		617	multw hl,iy
		618	multuw hl,ix
		619	divuw hl,10
		620	multw hl,100
		621	multuw hl,1000
		622
		623	ldctl sr,a
		624	ldctl xsr,a
		625	ldctl a,xsr
		626	ldctl dsr,a
		627	ldctl a,dsr
		628	ldctl ysr,a
		629	ldctl a,ysr
		630	ldctl sr,20h
		631	ldctl xsr,31h
		632	ldctl dsr,42h
		633	ldctl ysr,53h
		634	ldctl sr,hl
		635	ldctl hl,sr
		636
		637	resc lw
		638	setc lw
		639	resc lck
		640	setc lck
		641	setc xm
		642
		643	swap bc
		644	swap de
		645	swap hl
		646	swap ix
		647	swap iy
		648
		649	out (c),0
		650
		651	cpu z80undoc
		652
		653	slia d
		654	slia (ix+5)
		655	slia (hl)
		656	slia a
		657	inc ixl
		658	inc iyu
		659	dec ixu
		660	dec iyl
		661	ld iyl,'a'
		662	ld b,ixl
		663	ld ixu,c
		664	ld iyl,iyu
		665	add a,ixl
		666	adc a,ixu
		667	sub a,iyl
		668	sbc a,iyu
		669	and a,ixl
		670	xor a,ixu
		671	or a,iyl
		672	cp a,iyu
		673	rlc (ix+3)
		674	rrc b,(iy-3) ; extra dest reg may be first or last arg
		675	rrc (iy-3),b
		676	slia a,(ix-100) ; several namings in use (no standard from Zilog!)
		677	sli a,(ix-100)
		678	sl1 a,(ix-100)
		679	sls a,(ix-100)
		680	res 5,h
		681	set 6,(ix+6)
		682	bit 3,(hl)
		683	res c,4,(ix-1) ; extra dest reg may be first or last arg
		684	res 4,(ix-1),c
		685	set l,6,(iy+17)
		686	set 6,(iy+17),l
		687	out (c),0
		688	in (c)
		689	tsti

Subversion Repositories pentevo

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