WebSVN – NedoOS – Blame – /src/games/ufo2/xbegin.asm

Rev	Author	Line No.	Line
992	alone	1	;*Z80
		2	*L+
		3	*M-
		4	;*D-
		5	;******�� -2******
		6	iIVAN EQU 32000
		7	pIVAN EQU iIVAN+6
		8	*P1
		9	ORG #C000
		10	SCR
		11	*B ..\XDEMO\XDEMO0.lpc
		12	*P3
		13	ORG #C000
		14	*B ..\XDEMO\XDEMOTXT.lpc
		15	*P6
		16	ORG #C000
		17	*B ..\XDEMO\XDEMOS6.lpc
		18	*P7
		19	ORG #C000
		20	*B ..\XDEMO\XDEMOS7.lpc
		21	DEFM " ===�� === 143/33/03"
		22	*P4
		23	ORG #C000
		24	*B ..\XDEMO\XDEMO1.lpc
		25	*P0
		26	ORG #C000
		27	*B ..\XDEMO\XDEMO2.lpc
		28	;---------------------
		29
		30	ORG #7000
		31	ENT $
		32	ST1 JR ST1_
		33	DEFM " *** (c) 1996 Mednonogov bros. "
		34	DEFM "'UFO-2' Demo Movie v1.03 "
		35	DEFM " Tel/Fax (812) 1433303 *** "
		36	ST1_ DI
		37	LD (OLDSP+1),SP
		38	LD SP,#BFF0
		39	EXX
		40	PUSH HL
		41	PUSH IY
		42	IM 2
		43	LD A,#71
		44	LD I,A
		45	CALL iIVAN
		46	DI
		47	JP START
		48	DEFS #7272-$,#72
		49	intr PUSH DE
		50	PUSH HL
		51	PUSH BC
		52	CALL pIVAN
		53	CALL KEYs
		54	POP BC
		55	POP HL
		56	POP DE
		57	EI
		58	RET
		59	*F XGRLIB
		60	MEME LD BC,#7FFD
		61	AND #7
		62	OR 16
		63	OUT (C),A
		64	RET
		65
		66	START CALL DECOMP
		67	ATR$ #0,#2018,#70 ;��
		68	XOR A
		69	OUT (254),A
		70	CALL CHNGRG
		71	DEC A
		72	CALL SIMBAR
		73	LD HL,#D00
		74	LD BC,#1070
		75	LD DE,XTITLE
		76	CALL PUTSCR
		77	ATR$ #1000,#808,#50;��࠭
		78	ATR$ #0010,#1012,#68;��
		79	ATR$ #1208,#1806,#78;⥪��
		80	ATR$ #800,#1008,#30;��
		81	CHN$ XOR_
		82	LD HL,#B939
		83	LD DE,#B906
		84	CALL LINE
		85	DEC D
		86	LD HL,#8606
		87	CALL LINE
		88	INC L
		89	LD DE,#8639
		90	CALL LINE
		91	INC D
		92	LD HL,#B839
		93	CALL LINE
		94	LD HL,BUFFER
		95	LD DE,BUFFER+1
		96	LD (HL),#FF
		97	LD BC,575
		98	LDIR
		99	EI
		100
		101	NACH LD A,0
		102	CALL E8
		103	LD A,1
		104	CALL E8
		105	LD A,4
		106	CALL E8
		107	JP NACH
		108
		109	PAGE DEFB 7
		110	E8 LD (PAGE),A
		111	LD B,8
		112	LD DE,#4000+16+#20
		113	LD HL,SCR
		114	E88 LD C,1
		115	E89 PUSH$
		116	HALT
		117	CALL PTBALL
		118	POP$
		119	PUSH$
		120	HALT
		121	CALL FLIK
		122	CALL VOSST
		123	POP$
		124	LD A,C
		125	TIM ADD A,250
		126	LD C,A
		127	JR NC,E89
		128	LD A,H
		129	ADD A,8
		130	LD H,A
		131	E78 DJNZ E88
		132	RET
		133
		134	PTBALL LD A,(PAGE)
		135	CALL MEME
		136	LD B,128
		137	PB0 PUSH BC
		138	PUSH DE
		139	LDI
		140	LDI
		141	LDI
		142	LDI;
		143	LDI
		144	LDI
		145	LDI
		146	LDI ;
		147	LDI
		148	LDI
		149	LDI
		150	LDI ;
		151	LDI
		152	LDI
		153	LDI
		154	LDI ;
		155	POP DE
		156	POP BC
		157	INC D
		158	LD A,D
		159	AND %111
		160	JR NZ,M74
		161	LD A,D
		162	SUB 8
		163	LD D,A
		164	LD A,E
		165	ADD A,32
		166	LD E,A
		167	JR NC,M74
		168	LD A,8
		169	ADD A,D
		170	LD D,A
		171	M74 DJNZ PB0
		172	RET
		173
		174	DEL EQU TIM+1
		175	KEYs PUSH BC
		176	LD BC,#BFFE
		177	IN A,(C)
		178	POP BC
		179	BIT 2,A
		180	JR NZ,KY1
		181	LD A,(DEL);+++
		182	INC A
		183	RET Z
		184	LD (DEL),A
		185	RET
		186	KY1 BIT 3,A
		187	JR NZ,KY2
		188	LD A,(DEL);---
		189	OR A
		190	RET Z
		191	DEC A
		192	LD (DEL),A
		193	RET
		194	KY2 BIT 0,A
		195	RET NZ
		196	DI
		197	XOR A
		198	CALL MEME
		199	IM 1
		200	LD BC,65533
		201	LD A,7
		202	OUT (C),A
		203	LD BC,49149
		204	LD A,#FF
		205	OUT (C),A
		206	ATR$ 0,#2018,0
		207	POP IY
		208	POP HL
		209	EXX
		210	LD BC,1995
		211	OLDSP LD SP,0
		212	EI
		213	RET
		214	;0-�ய�� ⠪�
		215	;253 -��
		216	;255,N-�� N ⠪⮢
		217	;254,�-梥� �
		218	;1-100 � 101-200 - ��⨭��
		219	;201-230 - ⥪��
		220	FLIK LD HL,SDELAY
		221	LD A,(HL)
		222	OR A
		223	JR Z,FL1
		224	DEC (HL)
		225	RET
		226	FL1 LD HL,(PSCEN)
		227	LD A,(HL)
		228	INC HL
		229	LD (PSCEN),HL
		230	OR A
		231	RET Z
		232	CP 253
		233	JR NZ,FL2
		234	LD HL,SCENA ;� ��砫�
		235	LD (PSCEN),HL
		236	JP iIVAN
		237	FL2 CP #FE
		238	JR C,FL3
		239	JR Z,FCOL
		240	LD A,(HL) ;��㧠
		241	LD (SDELAY),A
		242	INC HL
		243	LD (PSCEN),HL
		244	RET
		245	FCOL LD A,(HL) ;��
		246	INC HL
		247	LD (PSCEN),HL
		248	LD HL,#1101
		249	LD BC,#606
		250	JP ATRBAR
		251	FL3 CP 201
		252	JR C,FL4
		253	SUB 201 ;��
		254	LD L,A
		255	LD A,3
		256	CALL MEME
		257	LD A,55
		258	LD (VOSB),A
		259	LD H,0
		260	DEFS 6,#29 ;add hl
		261	PUSH HL
		262	DEFS 3,#29
		263	POP DE
		264	ADD HL,DE
		265	LD DE,#C000
		266	ADD HL,DE
		267	LD DE,BUFFER
		268	LD BC,576
		269	LDIR
		270	RET
		271	FL4 DEC A ;��⨪
		272	LD L,A
		273	LD H,0
		274	CP 100
		275	LD A,6
		276	JR C,FL41
		277	LD A,L
		278	SUB 100
		279	LD L,A
		280	LD A,7
		281	FL41 CALL MEME
		282	DEFS 5,#29
		283	PUSH HL
		284	DEFS 3,#29
		285	POP DE
		286	ADD HL,DE
		287	LD BC,#C000
		288	ADD HL,BC
		289	LD DE,#5000+32+1
		290	LD B,48
		291	FL40 PUSH BC
		292	PUSH DE
		293	LDI
		294	LDI
		295	LDI
		296	LDI
		297	LDI
		298	LDI
		299	POP DE
		300	INC D
		301	LD A,D
		302	AND %111
		303	JR NZ,M38
		304	LD A,D
		305	SUB 8
		306	LD D,A
		307	LD A,E
		308	ADD A,32
		309	LD E,A
		310	JR NC,M38
		311	LD A,8
		312	ADD A,D
		313	LD D,A
		314	M38 POP BC
		315	DJNZ FL40
		316	RET
		317
		318	VOSB DEFB 1
		319	VOSST LD HL,VOSB
		320	INC (HL)
		321	LD A,(HL)
		322	CP 24
		323	JR C,VS1
		324	XOR A
		325	LD (HL),A
		326	VS1 LD DE,#5000+64+768+8
		327	LD L,A
		328	ADD A,E
		329	LD E,A
		330	LD H,0
		331	LD BC,BUFFER
		332	ADD HL,BC
		333	LD B,24
		334	VS0 PUSH BC
		335	LD A,(HL)
		336	LD (DE),A
		337	LD BC,24
		338	ADD HL,BC
		339	INC D
		340	LD A,D
		341	AND %111
		342	JR NZ,M338
		343	LD A,D
		344	SUB 8
		345	LD D,A
		346	LD A,E
		347	ADD A,32
		348	LD E,A
		349	JR NC,M338
		350	LD A,8
		351	ADD A,D
		352	LD D,A
		353	M338 POP BC
		354	DJNZ VS0
		355	RET
		356
		357	DEFS iIVAN-17-$,#CC
		358	*B ..\MUSIC\M_IVAN2.$C
		359
		360	BUFFER
		361	XTITLE
		362	*B ..\DATA\XTITLE.DAT
		363
		364	W MAC
		365	DEFB 255,=0
		366	ENDM
		367
		368	CL MAC
		369	DEFB 254,=0
		370	ENDM
		371
		372	S6 MAC
		373	DEFB =0
		374	ENDM
		375
		376	S7 MAC
		377	DEFB =0+100
		378	ENDM
		379	T MAC
		380	DEFB =0+200
		381	ENDM
		382	CLEAR MAC
		383	DEFB 254,0,1
		384	ENDM
		385
		386	DEFM " 24 Earth spr/ 28 Text spr/ 112 Movie spr/ Good music!"
		387
		388	SCENA ;��
		389	;�� ।��
		390	T 7
		391	CLEAR
		392	W 170
		393	T 1
		394	W 180
		395	T 3
		396	W 23
		397	S6 4
		398	CL #8
		399	CL #30
		400	CL #78
		401	CL #30
		402	CL #50
		403	W 250
		404	T 7
		405	W 25
		406	CL #30
		407	CL #78
		408	CL #30
		409	CL 8
		410	CLEAR
		411	W 55
		412	T 2
		413	W 23
		414	S6 3
		415	CL #10
		416	CL #30
		417	CL #78
		418	CL #70
		419	CL #38
		420	W 150
		421	T 4
		422	W 220
		423	T 16
		424	W 220
		425	T 7
		426	W 20
		427	CL #31
		428	CL #32
		429	CL #7E
		430	CL #7F
		431	CL #36
		432	CL 9
		433	CLEAR
		434	W 60
		435	T 5
		436	W 20
		437	S6 2
		438	CL 8
		439	NOP
		440	CL #10
		441	NOP
		442	CL #18
		443	NOP
		444	CL #28
		445	NOP
		446	CL #68
		447	NOP
		448	CL #78
		449	NOP
		450	CL #68
		451	W 250
		452	W 100
		453	T 7
		454	W 20
		455	CL #78
		456	NOP
		457	CL #68
		458	NOP
		459	CL #28
		460	NOP
		461	CL #18
		462	NOP
		463	CL #10
		464	NOP
		465	CL 8
		466	CLEAR
		467
		468	;��ᨠ�᪨� �஭��
		469	W 80
		470	S6 5
		471	CL 8
		472	NOP
		473	NOP
		474	CL #10
		475	NOP
		476	NOP
		477	CL #18
		478	NOP
		479	CL #58
		480	T 6
		481	W 55
		482	S6 6
		483	W 70
		484	S6 7
		485	W 70
		486	S6 8
		487	W 55
		488	T 8
		489	W 14
		490	S6 9
		491	W 30
		492	S6 18
		493	NOP
		494	S6 19
		495	NOP
		496	S6 20
		497	NOP
		498	S6 21
		499	NOP
		500	S6 22
		501	NOP
		502	S6 23
		503	NOP
		504	S6 24
		505	NOP
		506	S6 9
		507	W 15
		508	S6 10
		509	W 70
		510	S6 11
		511	W 70
		512	S6 12
		513	W 60
		514	T 9
		515	W 9
		516	S6 13
		517	W 70
		518	S6 14
		519	W 70
		520	S6 15
		521	W 70
		522	S6 16
		523	W 70
		524	S6 17
		525	W 25
		526	S6 25
		527	NOP
		528	;SCENA ;��
		529	S6 26
		530	NOP
		531	S6 27
		532	CL #59
		533	S6 28
		534	NOP
		535	S6 29
		536	NOP
		537	S6 30
		538	CL #30
		539	CL #70
		540	CL #78
		541	W 5
		542	T 10
		543	;SCENA;�� 1999
		544	CL #70
		545	W 5
		546	CL #68
		547	NOP
		548	CL #2D
		549	S6 31
		550	W 65
		551	CL #2B
		552	NOP
		553	CL #2A
		554	NOP
		555	CL #29
		556	W 35
		557	T 11
		558	W 40
		559	S6 32
		560	CL #69
		561	S6 33
		562	CL #71
		563	S6 34
		564	S6 35
		565	S6 30
		566	W 7
		567	CL #6D
		568	W 3
		569	S6 31
		570	CL #2D
		571	NOP
		572	CL #2A
		573	NOP
		574	CL #29
		575	W 39
		576	CL #19
		577	NOP
		578	CL #11
		579	NOP
		580	CL #49
		581	S6 1
		582	T 7
		583	W 25
		584	;SCENA;��㦥�� 襫��
		585	T 12
		586	W 105
		587	T 13
		588	S7 25
		589	CL #51
		590	W 2
		591	CL #61
		592	W 2
		593	CL #68
		594	W 2
		595	CL #70
		596	W 115
		597	S7 26
		598	W 3
		599	S6 54
		600	W 3
		601	S6 55
		602	W 3
		603	S6 56
		604	W 87
		605	T 7
		606	W 10
		607	CL 18
		608	NOP
		609	CL 8
		610	NOP
		611	CLEAR
		612	W 60
		613	;��-2017
		614	S7 27
		615	CL #8
		616	NOP
		617	CL #50
		618	NOP
		619	CL #68
		620	NOP
		621	CL #70
		622	W 5
		623	T 14
		624	W 60
		625	S7 28
		626	NOP
		627	S7 29
		628	NOP
		629	S7 30
		630	NOP
		631	S7 31
		632	NOP
		633	S7 32
		634	NOP
		635	S7 33
		636	NOP
		637	S7 34
		638	W 80
		639	S7 35
		640	NOP
		641	S7 36
		642	NOP
		643	S6 30
		644	W 36
		645
		646	;�㦠��
		647	S6 52
		648	W 2
		649	S6 53
		650	W 3
		651	S7 1
		652	W 9
		653	T 15
		654	W 70
		655	S7 2
		656	S7 3
		657	S7 4
		658	S7 5
		659	S7 6
		660	NOP
		661	S7 5
		662	S7 4
		663	S7 3
		664	S7 2
		665	S7 1
		666	W 15
		667	S6 53
		668	W 1
		669	S6 52
		670	W 1
		671	S6 30
		672	W 16
		673	;SCENA;�� ࠡ��
		674	CLEAR
		675	CL #69
		676	S7 38
		677	W 10
		678	T 17
		679	W 100
		680	S7 39
		681	W 2
		682	S7 40
		683	W 2
		684	S7 41
		685	W 5
		686	T 18
		687	W 90
		688	S7 42
		689	S7 43
		690	S7 44
		691	S7 45
		692	S7 46
		693	S7 47
		694	S7 48
		695	S7 41
		696	W 25
		697	T 19
		698	W 10
		699	S7 42
		700	S7 43
		701	S7 44
		702	S7 45
		703	S7 46
		704	S7 47
		705	S7 48
		706	S7 41
		707	S7 42
		708	S7 43
		709	S7 44
		710	S7 45
		711	S7 46
		712	S7 47
		713	S7 48
		714	S7 41
		715	S7 42
		716	S7 43
		717	S7 44
		718	S7 45
		719	S7 46
		720	S7 47
		721	S7 48
		722	S7 41
		723	S7 42
		724	S7 43
		725	S7 44
		726	S7 45
		727	S7 46
		728	S7 47
		729	S7 48
		730	S7 41
		731	W 60
		732	S7 40
		733	W 2
		734	S7 39
		735	W 2
		736	S7 38
		737	W 25
		738	CLEAR
		739	S7 37
		740	CL #60
		741	T 28
		742	W 110
		743	CL #61
		744	CL #6A
		745	CL #75
		746	CL #7F
		747	S6 1
		748	CL #46
		749	CL #45
		750	CL #44
		751	CL #42
		752	CL 1
		753	CLEAR
		754	W 7
		755	T 20
		756	W 140
		757
		758	;��
		759	CL #68
		760	S6 36
		761	W 4
		762	S6 46
		763	NOP
		764	NOP
		765	S6 47
		766	T 21
		767	NOP
		768	S6 48
		769	NOP
		770	NOP
		771	S6 47
		772	NOP
		773	NOP
		774	S6 46
		775	NOP
		776	NOP
		777	S6 36
		778	W 4
		779	S6 49
		780	NOP
		781	NOP
		782	S6 50
		783	NOP
		784	NOP
		785	S6 51
		786	NOP
		787	NOP
		788	S6 50
		789	NOP
		790	NOP
		791	S6 49
		792	NOP
		793	NOP
		794	S6 36
		795	W 4
		796	S6 46
		797	NOP
		798	NOP
		799	S6 47
		800	NOP
		801	NOP
		802	S6 48
		803	NOP
		804	NOP
		805	S6 47
		806	NOP
		807	NOP
		808	S6 46
		809	NOP
		810	NOP
		811	S6 36
		812	W 4
		813	S6 49
		814	NOP
		815	NOP
		816	S6 50
		817	NOP
		818	NOP
		819	S6 51
		820	NOP
		821	NOP
		822	S6 50
		823	NOP
		824	NOP
		825	S6 49
		826	NOP
		827	NOP
		828	S6 36
		829	W 4
		830	S6 46
		831	NOP
		832	NOP
		833	S6 47
		834	NOP
		835	NOP
		836	S6 48
		837	NOP
		838	NOP
		839	S6 47
		840	NOP
		841	NOP
		842	S6 46
		843	NOP
		844	NOP
		845	S6 36
		846	W 4
		847	S6 49
		848	NOP
		849	NOP
		850	S6 50
		851	NOP
		852	NOP
		853	S6 51
		854	NOP
		855	NOP
		856	S6 50
		857	NOP
		858	NOP
		859	S6 49
		860	NOP
		861	NOP
		862	S6 36
		863	W 4
		864	S6 46
		865	NOP
		866	NOP
		867	S6 47
		868	NOP
		869	NOP
		870	S6 48
		871	NOP
		872	NOP
		873	S6 47
		874	NOP
		875	NOP
		876	S6 46
		877	NOP
		878	NOP
		879	S6 36
		880	W 4
		881	S6 49
		882	NOP
		883	NOP
		884	S6 50
		885	NOP
		886	NOP
		887	S6 51
		888	NOP
		889	NOP
		890	S6 50
		891	NOP
		892	NOP
		893	S6 49
		894	NOP
		895	NOP
		896	S6 36
		897	W 4
		898	S6 46
		899	NOP
		900	NOP
		901	S6 47
		902	NOP
		903	NOP
		904	S6 48
		905	NOP
		906	NOP
		907	S6 47
		908	NOP
		909	NOP
		910	S6 46
		911	NOP
		912	NOP
		913	S6 36
		914	W 4
		915	S6 49
		916	NOP
		917	NOP
		918	S6 50
		919	NOP
		920	NOP
		921	S6 51
		922	NOP
		923	NOP
		924	S6 50
		925	NOP
		926	NOP
		927	S6 49
		928	NOP
		929	NOP
		930	S6 36
		931	W 4
		932	S6 46
		933	NOP
		934	NOP
		935	S6 47
		936	NOP
		937	NOP
		938	S6 48
		939	NOP
		940	NOP
		941	S6 47
		942	NOP
		943	NOP
		944	S6 46
		945	NOP
		946	NOP
		947	S6 36
		948	W 4
		949	S6 49
		950	NOP
		951	NOP
		952	S6 50
		953	NOP
		954	NOP
		955	S6 51
		956	NOP
		957	NOP
		958	S6 50
		959	T 22
		960	NOP
		961	S6 49
		962	NOP
		963	NOP
		964	S6 36
		965	W 4
		966	S6 46
		967	NOP
		968	NOP
		969	S6 47
		970	NOP
		971	NOP
		972	S6 48
		973	NOP
		974	NOP
		975	S6 47
		976	NOP
		977	NOP
		978	S6 46
		979	NOP
		980	NOP
		981	S6 36
		982	W 4
		983	S6 49
		984	NOP
		985	NOP
		986	S6 50
		987	NOP
		988	NOP
		989	S6 51
		990	NOP
		991	NOP
		992	S6 50
		993	NOP
		994	NOP
		995	S6 49
		996	NOP
		997	NOP
		998	S6 36
		999	W 4
		1000	S6 46
		1001	NOP
		1002	NOP
		1003	S6 47
		1004	NOP
		1005	NOP
		1006	S6 48
		1007	NOP
		1008	NOP
		1009	S6 47
		1010	NOP
		1011	NOP
		1012	S6 46
		1013	NOP
		1014	NOP
		1015	S6 36
		1016	W 4
		1017	S6 49
		1018	NOP
		1019	NOP
		1020	S6 50
		1021	NOP
		1022	NOP
		1023	S6 51
		1024	NOP
		1025	NOP
		1026	S6 50
		1027	NOP
		1028	NOP
		1029	S6 49
		1030	NOP
		1031	NOP
		1032	S6 36
		1033	;��
		1034	W 10
		1035	S6 37
		1036	W 4
		1037	S6 38
		1038	W 4
		1039	S6 39
		1040	W 4
		1041	S6 40
		1042	W 4
		1043	S6 42
		1044	W 4
		1045	S6 43
		1046	W 4
		1047	S6 44
		1048	W 4
		1049	S6 45
		1050	W 4
		1051	S6 1
		1052	;��⮭ �믫뢠��
		1053	W 14
		1054	S7 7
		1055	W 2
		1056	S7 8
		1057	W 2
		1058	S7 9
		1059	W 2
		1060	S7 10
		1061	W 2
		1062	S7 11
		1063	W 2
		1064	S7 12
		1065	W 2
		1066	S7 13
		1067	W 2
		1068	S7 14
		1069	T 23
		1070	S7 15
		1071	W 2
		1072	S6 1
		1073	;SCENA;��
		1074	CLEAR
		1075	W 30
		1076	CL 1
		1077	CL 2
		1078	CL 4
		1079	CL 5
		1080	CL #46
		1081	CL #7F
		1082	S7 23
		1083	CL #7D
		1084	S7 24
		1085	CL #78
		1086	S7 16
		1087	NOP
		1088	S7 17
		1089	NOP
		1090	S7 18
		1091	NOP
		1092	S7 19
		1093	NOP
		1094	S7 20
		1095	NOP
		1096	S7 21
		1097	NOP
		1098	S7 22
		1099	NOP
		1100	S7 23
		1101	NOP
		1102	S7 24
		1103	NOP
		1104	S7 16
		1105	NOP
		1106	S7 17
		1107	NOP
		1108	S7 18
		1109	NOP
		1110	S7 19
		1111	NOP
		1112	S7 20
		1113	NOP
		1114	S7 21
		1115	NOP
		1116	S7 22
		1117	NOP
		1118	S7 23
		1119	NOP
		1120	S7 24
		1121	NOP
		1122	S7 16
		1123	NOP
		1124	S7 17
		1125	NOP
		1126	S7 18
		1127	NOP
		1128	S7 19
		1129	NOP
		1130	S7 20
		1131	NOP
		1132	S7 21
		1133	NOP
		1134	S7 22
		1135	NOP
		1136	S7 23
		1137	NOP
		1138	S7 24
		1139	NOP
		1140	S7 16
		1141	NOP
		1142	S7 17
		1143	NOP
		1144	S7 18
		1145	NOP
		1146	S7 19
		1147	NOP
		1148	S7 20
		1149	NOP
		1150	S7 21
		1151	NOP
		1152	S7 22
		1153	NOP
		1154	S7 23
		1155	NOP
		1156	S7 24
		1157	NOP
		1158	S7 16
		1159	NOP
		1160	S7 17
		1161	NOP
		1162	S7 18
		1163	NOP
		1164	S7 19
		1165	NOP
		1166	S7 20
		1167	NOP
		1168	S7 21
		1169	NOP
		1170	S7 22
		1171	NOP
		1172	S7 23
		1173	NOP
		1174	S7 24
		1175	NOP
		1176	S7 16
		1177	NOP
		1178	S7 17
		1179	NOP
		1180	S7 18
		1181	NOP
		1182	S7 19
		1183	NOP
		1184	S7 20
		1185	NOP
		1186	S7 21
		1187	NOP
		1188	S7 22
		1189	NOP
		1190	S7 23
		1191	NOP
		1192	S7 24
		1193	NOP
		1194	S7 16
		1195	NOP
		1196	S7 17
		1197	NOP
		1198	S7 18
		1199	NOP
		1200	S7 19
		1201	NOP
		1202	S7 20
		1203	NOP
		1204	S7 21
		1205	NOP
		1206	S7 22
		1207	NOP
		1208	S7 23
		1209	NOP
		1210	S7 24
		1211	NOP
		1212	S7 16
		1213	NOP
		1214	S7 17
		1215	NOP
		1216	S7 18
		1217	NOP
		1218	S7 19
		1219	NOP
		1220	S7 20
		1221	NOP
		1222	S7 21
		1223	NOP
		1224	S7 22
		1225	NOP
		1226	S7 23
		1227	T 24
		1228	S7 24
		1229	NOP
		1230	S7 16
		1231	NOP
		1232	S7 17
		1233	NOP
		1234	S7 18
		1235	NOP
		1236	S7 19
		1237	NOP
		1238	S7 20
		1239	NOP
		1240	S7 21
		1241	NOP
		1242	S7 22
		1243	NOP
		1244	S7 23
		1245	NOP
		1246	S7 24
		1247	NOP
		1248	S7 16
		1249	NOP
		1250	S7 17
		1251	NOP
		1252	S7 18
		1253	NOP
		1254	S7 19
		1255	NOP
		1256	S7 20
		1257	NOP
		1258	S7 21
		1259	NOP
		1260	S7 22
		1261	NOP
		1262	S7 23
		1263	NOP
		1264	S7 24
		1265	NOP
		1266	S7 16
		1267	NOP
		1268	S7 17
		1269	NOP
		1270	S7 18
		1271	NOP
		1272	S7 19
		1273	NOP
		1274	S7 20
		1275	NOP
		1276	S7 21
		1277	NOP
		1278	S7 22
		1279	NOP
		1280	S7 23
		1281	NOP
		1282	S7 24
		1283	NOP
		1284	S7 16
		1285	NOP
		1286	S7 17
		1287	NOP
		1288	S7 18
		1289	NOP
		1290	S7 19
		1291	NOP
		1292	S7 20
		1293	NOP
		1294	S7 21
		1295	NOP
		1296	S7 22
		1297	NOP
		1298	S7 23
		1299	CL #70
		1300	S7 24
		1301	CL #28
		1302	S7 16
		1303	CL #20
		1304	S7 17
		1305	CL #10
		1306	S7 18
		1307	CL #8
		1308	CLEAR
		1309	W 30
		1310	;SCENA;��
		1311	T 25
		1312	W 22
		1313	S7 49
		1314	CL #8
		1315	S7 50
		1316	CL #18
		1317	S7 51
		1318	CL #28
		1319	S7 52
		1320	CL #30
		1321	S7 53
		1322	CL #38
		1323	S7 54
		1324	NOP
		1325	S7 55
		1326	NOP
		1327	S7 56
		1328	NOP
		1329	S7 49
		1330	NOP
		1331	S7 50
		1332	NOP
		1333	S7 51
		1334	NOP
		1335	S7 52
		1336	NOP
		1337	S7 53
		1338	NOP
		1339	S7 54
		1340	NOP
		1341	S7 55
		1342	NOP
		1343	S7 56
		1344	NOP
		1345	S7 49
		1346	NOP
		1347	S7 50
		1348	NOP
		1349	S7 51
		1350	NOP
		1351	S7 52
		1352	NOP
		1353	S7 53
		1354	NOP
		1355	S7 54
		1356	NOP
		1357	S7 55
		1358	NOP
		1359	S7 56
		1360	NOP
		1361	S7 49
		1362	NOP
		1363	S7 50
		1364	NOP
		1365	S7 51
		1366	NOP
		1367	S7 52
		1368	NOP
		1369	S7 53
		1370	NOP
		1371	S7 54
		1372	NOP
		1373	S7 55
		1374	NOP
		1375	S7 56
		1376	NOP
		1377	S7 49
		1378	NOP
		1379	S7 50
		1380	NOP
		1381	S7 51
		1382	NOP
		1383	S7 52
		1384	NOP
		1385	S7 53
		1386	NOP
		1387	S7 54
		1388	NOP
		1389	S7 55
		1390	NOP
		1391	S7 56
		1392	NOP
		1393	S7 49
		1394	NOP
		1395	S7 50
		1396	NOP
		1397	S7 51
		1398	NOP
		1399	S7 52
		1400	NOP
		1401	S7 53
		1402	NOP
		1403	S7 54
		1404	NOP
		1405	S7 55
		1406	NOP
		1407	S7 56
		1408	NOP
		1409	S7 49
		1410	NOP
		1411	S7 50
		1412	NOP
		1413	S7 51
		1414	NOP
		1415	S7 52
		1416	NOP
		1417	S7 53
		1418	NOP
		1419	S7 54
		1420	NOP
		1421	S7 55
		1422	NOP
		1423	S7 56
		1424	NOP
		1425	S7 49
		1426	NOP
		1427	S7 50
		1428	NOP
		1429	S7 51
		1430	NOP
		1431	S7 52
		1432	NOP
		1433	S7 53
		1434	NOP
		1435	S7 54
		1436	NOP
		1437	S7 55
		1438	NOP
		1439	S7 56
		1440	NOP
		1441	S7 49
		1442	NOP
		1443	S7 50
		1444	NOP
		1445	S7 51
		1446	NOP
		1447	S7 52
		1448	NOP
		1449	S7 53
		1450	NOP
		1451	S7 54
		1452	NOP
		1453	S7 55
		1454	NOP
		1455	S7 56
		1456	T 26
		1457	S7 49
		1458	NOP
		1459	S7 50
		1460	NOP
		1461	S7 51
		1462	NOP
		1463	S7 52
		1464	NOP
		1465	S7 53
		1466	NOP
		1467	S7 54
		1468	NOP
		1469	S7 55
		1470	NOP
		1471	S7 56
		1472	NOP
		1473	S7 49
		1474	NOP
		1475	S7 50
		1476	NOP
		1477	S7 51
		1478	NOP
		1479	S7 52
		1480	NOP
		1481	S7 53
		1482	NOP
		1483	S7 54
		1484	NOP
		1485	S7 55
		1486	NOP
		1487	S7 56
		1488	NOP
		1489	S7 49
		1490	NOP
		1491	S7 50
		1492	NOP
		1493	S7 51
		1494	NOP
		1495	S7 52
		1496	NOP
		1497	S7 53
		1498	NOP
		1499	S7 54
		1500	NOP
		1501	S7 55
		1502	NOP
		1503	S7 56
		1504	NOP
		1505	S7 49
		1506	NOP
		1507	S7 50
		1508	NOP
		1509	S7 51
		1510	NOP
		1511	S7 52
		1512	NOP
		1513	S7 53
		1514	NOP
		1515	S7 54
		1516	NOP
		1517	S7 55
		1518	NOP
		1519	S7 56
		1520	NOP
		1521	S7 49
		1522	NOP
		1523	S7 50
		1524	NOP
		1525	S7 51
		1526	NOP
		1527	S7 52
		1528	NOP
		1529	S7 53
		1530	NOP
		1531	S7 54
		1532	NOP
		1533	S7 55
		1534	NOP
		1535	S7 56
		1536	NOP
		1537	S7 49
		1538	NOP
		1539	S7 50
		1540	NOP
		1541	S7 51
		1542	NOP
		1543	S7 52
		1544	NOP
		1545	S7 53
		1546	NOP
		1547	S7 54
		1548	NOP
		1549	S7 55
		1550	NOP
		1551	S7 56
		1552	NOP
		1553	S7 49
		1554	NOP
		1555	S7 50
		1556	NOP
		1557	S7 51
		1558	NOP
		1559	S7 52
		1560	NOP
		1561	S7 53
		1562	NOP
		1563	S7 54
		1564	NOP
		1565	S7 55
		1566	NOP
		1567	S7 56
		1568	T 27
		1569	S7 49
		1570	NOP
		1571	S7 50
		1572	NOP
		1573	S7 51
		1574	NOP
		1575	S7 52
		1576	NOP
		1577	S7 53
		1578	CL #30
		1579	S7 54
		1580	CL #20
		1581	S7 55
		1582	CL #10
		1583	S7 56
		1584	CLEAR
		1585
		1586	;��
		1587	W 100
		1588	T 26
		1589	W 10
		1590	CL #68
		1591	S6 41
		1592	W 170
		1593	T 27
		1594	W 200
		1595	T 25
		1596	W 170
		1597	T 27
		1598	W 100
		1599	CL 0
		1600	S6 4
		1601	CL #42
		1602	W 100
		1603	T 26
		1604	W 180
		1605	T 27
		1606	W 80
		1607	CL #60
		1608	S6 2
		1609	W 100
		1610	CLEAR
		1611	T 7
		1612	W 45
		1613
		1614
		1615	DEFW 253
		1616
		1617	;��
		1618
		1619	SDELAY DEFB 5
		1620	PSCEN DEFW SCENA
		1621
		1622	DECOMA CALL MEME
		1623	LD BC,(SCR)
		1624	LD HL,SCR+2
		1625	ADD HL,BC
		1626	DEC HL
		1627	LD DE,#FFFE
		1628	LDDR
		1629	EX DE,HL
		1630	INC HL
		1631	LD DE,SCR
		1632	CALL DELPC
		1633	RET
		1634
		1635	DECOMP XOR A
		1636	CALL DECOMA
		1637	LD A,1
		1638	CALL DECOMA
		1639	LD A,6
		1640	CALL DECOMA
		1641	LD A,7
		1642	CALL DECOMA
		1643	LD A,4
		1644	CALL DECOMA
		1645	LD A,3
		1646	JP DECOMA
		1647
		1648	*F xDELPC

Subversion Repositories NedoOS

(root)/src/games/ufo2/xbegin.asm – Rev 992