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

Rev	Author	Line No.	Line
1186	savelij	1	cpu cp-3f
		2	page 0
		3
		4	port1 port 4
		5	port2 port 5
		6
		7	las 7 ; f7
		8	ld a,#7
		9	las 15 ; ff
		10	ld a,#15
		11	expect 1320,1320
		12	las 16 ; !
		13	ld a,#<16
		14	endexpect
		15
		16	lss 6 ; 2e
		17	ld s,#6
		18	lss 7 ; 2f
		19	ld s,#7
		20	expect 1320,1320
		21	lss 8 ; !
		22	ld s,#8
		23	endexpect
		24
		25	lts 3 ; 3b
		26	ld t,#3
		27	lts 7 ; 3f
		28	ld t,#7
		29	expect 1320,1320
		30	lts 8 ; !
		31	ld t,#8
		32	endexpect
		33
		34	lal 10 ; 04 0a
		35	ld a,#>10
		36	lal -10 ; 04 f6
		37	ld a,#-10
		38	lal 255 ; 04 ff
		39	ld a,#255
		40	lal -128 ; 04 80
		41	ld a,#-128
		42	expect 1320,1320
		43	lal 256 ; !
		44	ld a,#256
		45	endexpect
		46	expect 1315,1315
		47	lal -129 ; !
		48	ld a,#-129
		49	endexpect
		50
		51	anl 24h ; 05 24
		52	and #24h
		53	and a,#24h
		54	anl -24h ; 05 dc
		55	and #-24h
		56	and a,#-24h
		57	anl 255 ; 05 ff
		58	and #255
		59	and a,#255
		60	anl -128 ; 05 80
		61	and #-128
		62	and a,#-128
		63	expect 1320,1320,1320
		64	anl 256 ; !
		65	and #256
		66	and a,#256
		67	endexpect
		68	expect 1315,1315,1315
		69	anl -129 ; !
		70	and #-129
		71	and a,#-129
		72	endexpect
		73
		74	eol 35h ; 0c 35
		75	xor #35h
		76	xor a,#35h
		77	eol -35h ; 0c cb
		78	xor #-35h
		79	xor a,#-35h
		80	eol 255 ; 0c ff
		81	xor #255
		82	xor a,#255
		83	eol -128 ; 0c 80
		84	xor #-128
		85	xor a,#-128
		86	expect 1320,1320,1320
		87	eol 256 ; !
		88	xor #256
		89	xor a,#256
		90	endexpect
		91	expect 1315,1315,1315
		92	eol -129 ; !
		93	xor #-129
		94	xor a,#-129
		95	endexpect
		96
		97	orl 4ah ; 0d 4a
		98	or #4ah
		99	or a,#4ah
		100	orl -4ah ; 0d b6
		101	or #-4ah
		102	or a,#-4ah
		103	orl 255 ; 0d ff
		104	or #255
		105	or a,#255
		106	orl -128 ; 0d 80
		107	or #-128
		108	or a,#-128
		109	expect 1320,1320,1320
		110	orl 256 ; !
		111	or #256
		112	or a,#256
		113	endexpect
		114	expect 1315,1315,1315
		115	orl -129 ; !
		116	or #-129
		117	or a,#-129
		118	endexpect
		119
		120	adl 161 ; 0e a1
		121	add #161
		122	add a,#161
		123	adl -61 ; 0e c3
		124	add #-61
		125	add a,#-61
		126	adl 255 ; 0e ff
		127	add #255
		128	add a,#255
		129	adl -128 ; 0e 80
		130	add #-128
		131	add a,#-128
		132	expect 1320,1320,1320
		133	adl 256 ; !
		134	add #256
		135	add a,#256
		136	endexpect
		137	expect 1315,1315,1315
		138	adl -129 ; !
		139	add #-129
		140	add a,#-129
		141	endexpect
		142
		143	cml 16 ; 0f 10
		144	cp #16
		145	cp a,#16
		146	cml -16 ; 0f f0
		147	cp #-16
		148	cp a,#-16
		149	cml 255 ; 0f ff
		150	cp #255
		151	cp a,#255
		152	cml -128 ; 0f 80
		153	cp #-128
		154	cp a,#-128
		155	expect 1320,1320,1320
		156	cml 256 ; !
		157	cp #256
		158	cp a,#256
		159	endexpect
		160	expect 1315,1315,1315
		161	cml -129 ; !
		162	cp #-129
		163	cp a,#-129
		164	endexpect
		165
		166	lav ; 08
		167	ld a,v
		168	law ; 09
		169	ld a,w
		170	lax ; 0a
		171	ld a,x
		172	lay ; 0b
		173	ld a,y
		174	sav ; 18
		175	ld v,a
		176	saw ; 19
		177	ld w,a
		178	sax ; 1a
		179	ld x,a
		180	say ; 1b
		181	ld y,a
		182	sat ; 01
		183	ld t,a
		184	sst ; 03
		185	ld st,a
		186
		187	als ; 1c
		188	sla
		189	sla a
		190	sla a,1
		191	ars ; 1d
		192	srl
		193	srl a
		194	srl a,1
		195	alf ; 1e
		196	sla 4
		197	sla a,4
		198	arf ; 1f
		199	srl 4
		200	srl a,4
		201
		202	lar 10 ; 8a
		203	ld a,10
		204	lar 12 ; 8c
		205	ld a,(st)
		206	lar 13 ; 8d
		207	ld a,(st)-
		208	lar 14 ; 8e
		209	ld a,(st)+
		210	sar 10 ; 9a
		211	ld 10,a
		212	sar 11 ; 9b
		213	ld 11,a
		214	sar 12 ; 9c
		215	ld (st),a
		216	sar 13 ; 9d
		217	ld (st)-,a
		218	sar 14 ; 9e
		219	ld (st)+,a
		220	adr 14 ; ae
		221	add (st)+
		222	add a,(st)+
		223	anr 11 ; bb
		224	and 11
		225	and a,11
		226	eor 12 ; cc
		227	xor (st)
		228	xor a,(st)
		229	der 9 ; d9
		230	dec 9
		231	dar 14 ; ee
		232
		233	inp port1 ; 24
		234	out port2 ; 35
		235
		236	jmp 123h ; 41 23
		237	jaz 123h ; 49 23
		238	jan 123h ; 51 23
		239	jap 123h ; 59 23
		240	jsd 123h ; 61 23
		241	jcn 123h ; 69 23
		242	jcz 123h ; 71 23
		243	jsb 123h ; 79 23
		244	gos 123h ; 79 23 (alias on LP8000)
		245	ret ; 00
		246
		247	six ; 02
		248	ld (z(x)),a
		249	lix ; 06
		250	ld a,(z(x))
		251	liy ; 07
		252	ld a,(z(y))
		253	sqx ; 16
		254	ld q(x),a
		255	sqy ; 17
		256	ld q(y),a
		257	szx ; 12
		258	ld z(x),a
		259	szy ; 13
		260	ld z(y),a

Subversion Repositories pentevo

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