DAMIER.ASM@ ceffc47

main

Last change on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago

Add that collection of 3rdparty source I had lying on my disk for some time...

git-svn-id: svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5

Property mode set to 100644

File size: 9.3 KB

Line
1	****************************************
2	* *
3	* DAMIER : HCL LEADS THOU FURTHER *
4	* *
5	****************************************
6
7
8	SCRCOL EQU $9400
9	TEXTE EQU $A580
10	DERPAG EQU TEXTE+136*16
11	CHUTES EQU $AE00
12	DEGRA EQU $B000
13	ETAPS EQU $B082
14	BUF EQU $B0BA
15	FONTES EQU $B100
16	CHRSET EQU $B900
17	SCRTEX EQU $BCC0
18	SCRECR EQU $41A4
19	DAMECR EQU $4B18
20	BASCUB EQU $5684
21
22	ORG BUF+3
23	FDB TEXTE+1
24	FCB 1
25	FDB $B84,$B86,$B88,$B8A
26	FDB $B8C,$B8E,$B90,$B92
27	FDB $B94,$B96,$B98,$B9A
28	FDB $B9C,$B9E,$BA0,$BA2
29	FDB 0,0,0,0,0,0
30	FDB SCRTEX
31
32	ORG $C760
33	G ORCC #80
34	LDA #$E7
35	EXG A,DP
36	STA BUF+2
37	LDD #32
38	STA <$DB
39	STA <$DA
40	DECB
41	BNE *-3
42	LDA <$E6
43	STA FIN+3
44	STS FIN+8
45	ANDA #191
46	STA <$E6
47	LDD #$2104
48	STD <$DC
49	LDA <$C3
50	ORA #1
51	STA <$C3
52	LDX #$4000
53	CLR ,X+
54	CMPX #$5F40
55	BNE *-5
56	DEC <$C3
57	CLR ,-X
58	CMPX #$4000
59	BNE *-5
60	LDX #DAMECR
61	LDU #DAMPIC
62	LDD ,U++
63	STD ,X++
64	CMPX #$5F40
65	BNE *-7
66	LDU #SCRDEG
67	LDX #SCRCOL
68	LDA #6
69	STA BUF
70	LEAY 24,X
71	LDD ,U++
72	BEQ CYCLE-8
73	REPER STD ,X++
74	STD ,--Y
75	ADDD -2,U
76	DEC BUF
77	BNE REPER
78	LEAX 12,X
79	BRA REPER-12
80	LDA #255
81	LDX #COLORS
82	JSR $EC00
83
84	CYCLE LDD #BANDE
85	STD BANDE-2
86	LDY #ETAPS
87	LDA #4
88	STA BUF+1
89	JSR SYNCRO
90	LEAY 14,Y
91	DEC BUF+1
92	BNE *-8
93	LDD #BAND2
94	STD BANDE-2
95	LDY #ETAPS
96	LDA #4
97	STA BUF+1
98	JSR SYNCRO
99	LEAY 14,Y
100	DEC BUF+1
101	BNE *-8
102	TST <$C8
103	BEQ CYCLE
104
105	FIN CLR <$DC
106	LDA #0
107	STA <$E6
108	LDS #0
109	CLR <$DD
110	LDA #255
111	LDX #COLORS+10
112	JSR $EC00
113	LDA BUF+2
114	TFR A,DP
115	RTS
116
117	SYNCRO STY BANDE-5
118	LDA #32
119	BITA <$E7
120	BEQ *-2
121	BITA <$E7
122	BNE *-2
123	PSHS A
124	MUL
125	MUL
126	MUL
127	MUL
128	PULS A
129	BITA <$E7
130	BEQ *-10
131	MUL
132	MUL
133	MUL
134	MUL
135	MUL
136	TST <$E7
137	BMI *-7
138	MUL
139	MUL
140	MUL
141	MUL
142	MUL
143	TST <$E7
144	BPL *-7
145
146	STS RETURN-2
147	LDX #SCRECR
148	SCROL1 ASL BUF+38
149	ROL 19,X
150	ROL 18,X
151	ROL 17,X
152	ROL 16,X
153	ROL 15,X
154	ROL 14,X
155	ROL 13,X
156	ROL 12,X
157	ROL 11,X
158	ROL 10,X
159	ROL 9,X
160	ROL 8,X
161	ROL 7,X
162	ROL 6,X
163	ROL 5,X
164	ROL 4,X
165	ROL 3,X
166	ROL 2,X
167	ROL 1,X
168	ROL ,X
169	ROL -1,X
170	ROL -2,X
171	ROL -3,X
172	ROL -4,X
173	ROL -5,X
174	ROL -6,X
175	ROL -7,X
176	ROL -8,X
177	ROL -9,X
178	ROL -10,X
179	ROL -11,X
180	ROL -12,X
181	ROL -13,X
182	ROL -14,X
183	ROL -15,X
184	ROL -16,X
185	ROL -17,X
186	ROL -18,X
187	ROL -19,X
188	ROL -20,X
189	ASL BUF+49
190	LDX #SCRECR+440
191	ROL 19,X
192	ROL 18,X
193	ROL 17,X
194	ROL 16,X
195	ROL 15,X
196	ROL 14,X
197	ROL 13,X
198	ROL 12,X
199	ROL 11,X
200	ROL 10,X
201	ROL 9,X
202	ROL 8,X
203	ROL 7,X
204	ROL 6,X
205	ROL 5,X
206	ROL 4,X
207	ROL 3,X
208	ROL 2,X
209	ROL 1,X
210	ROL ,X
211	ROL -1,X
212	ROL -2,X
213	ROL -3,X
214	ROL -4,X
215	ROL -5,X
216	ROL -6,X
217	ROL -7,X
218	ROL -8,X
219	ROL -9,X
220	ROL -10,X
221	ROL -11,X
222	ROL -12,X
223	ROL -13,X
224	ROL -14,X
225	ROL -15,X
226	ROL -16,X
227	ROL -17,X
228	ROL -18,X
229	ROL -19,X
230	ROL -20,X
231	LDU #BUF+39
232	LDX #SCRECR+40
233
234	TST 1,S
235	MUL
236	LDA #11
237	STA BUF
238	LDS #SCRCOL+98
239	COPPER PULS D
240	STD *+8
241	LDA #2
242	STA <$DB
243	LDD #0
244	STB <$DA
245	STA <$DA
246	STY RETURN+2
247	MUL
248	TST ,U
249	DEC BUF
250	BNE COPPER
251
252	LDA #10
253	SCROL2 ASL ,U+
254	ROL 19,X
255	ROL 18,X
256	ROL 17,X
257	ROL 16,X
258	ROL 15,X
259	ROL 14,X
260	ROL 13,X
261	ROL 12,X
262	ROL 11,X
263	ROL 10,X
264	ROL 9,X
265	ROL 8,X
266	ROL 7,X
267	ROL 6,X
268	ROL 5,X
269	ROL 4,X
270	ROL 3,X
271	ROL 2,X
272	ROL 1,X
273	ROL ,X
274	ROL -1,X
275	ROL -2,X
276	ROL -3,X
277	ROL -4,X
278	ROL -5,X
279	ROL -6,X
280	ROL -7,X
281	ROL -8,X
282	ROL -9,X
283	ROL -10,X
284	ROL -11,X
285	ROL -12,X
286	ROL -13,X
287	ROL -14,X
288	ROL -15,X
289	ROL -16,X
290	ROL -17,X
291	ROL -18,X
292	ROL -19,X
293	ROL -20,X
294	LEAX 40,X
295	DECA
296	BNE SCROL2
297	LEAU 1,U
298	DEC BUF+5
299	BEQ NEXT
300	LDA #19
301	DECA
302	BNE *-1
303	BRA FINSCR
304
305	NEXT LDX ,U
306	LDB ,X+
307	BNE *+7
308	LDX #SCRTEX
309	BRA *+4
310	TST ,U
311	STX ,U
312	LDX #CHRSET
313	LDA #12
314	MUL
315	LEAS D,X
316	PULS D,X,Y
317	PSHU Y,X,D
318	PULS D,X,Y
319	PSHU Y,X,D
320	LDB #8
321	STB BUF+5
322
323	FINSCR MUL
324	MUL
325	TST 1,U
326	INC <$C3
327
328	LDX #DEGRA
329	LDU #ETAPS
330	JMP BANDE
331	BANDE LDA ,U+
332	STA BUF
333	LIGNE LDB ,X+
334	CLRA
335	STA <$DB
336	STB <$DA
337	STB <$DA
338	STA <$DA
339	STB <$DA
340	ADDA [A,X]
341	DEC BUF
342	BEQ *+7
343	MUL
344	NOP
345	NOP
346	BRA LIGNE
347	CMPX #DEGRA+130
348	BHS FDEG
349	BAND2 LDA ,U+
350	STA BUF
351	LIGN2 LDB ,X+
352	CLRA
353	STA <$DB
354	STA <$DA
355	STB <$DA
356	STB <$DA
357	STB <$DA
358	ADDA [A,X]
359	DEC BUF
360	BEQ *+7
361	MUL
362	NOP
363	NOP
364	BRA LIGN2
365	CMPX #DEGRA+130
366	BLO BANDE
367	FDEG LDX COPPER-2
368	LDD -2,X
369	STD *+11
370	CLRA
371	STA <$DB
372	STA <$DA
373	STA <$DA
374	LDD #0
375	STB <$DA
376	STA <$DA
377
378	LDY BUF+3
379	LDS #BUF+6
380	LDB #16
381	STB BUF
382	LETTER LDX ,S
383	LDD #0
384	STD -120,X
385	STD -80,X
386	STD -40,X
387	STD ,X
388	CMPX #BASCUB
389	BHS *+6
390	CHUTE FDB $3089,$00A0
391	STX ,S++
392	LDA ,Y+
393	STS RECU-2
394	EXG X,Y
395	STX RECU+2
396	LDB #32
397	MUL
398	LDU #FONTES
399	LEAS D,U
400	PULS D,X,U
401	STD -120,Y
402	STX -80,Y
403	STU -40,Y
404	PULS D,X,U
405	STD ,Y
406	STX 40,Y
407	STU 80,Y
408	PULS D,X,U
409	STD 120,Y
410	LEAY 280,Y
411	STX -120,Y
412	STU -80,Y
413	PULS D,X,U
414	STD -40,Y
415	STX ,Y
416	STU 40,Y
417	PULS D,X,U
418	STD 80,Y
419	STX 120,Y
420	STU 160,Y
421	LDD ,S
422	STD 200,Y
423	LDS #0
424	RECU LDY #0
425	INC CHUTE-3
426	DEC BUF
427	BNE LETTER
428	LDB CHUTE-3
429	SUBB #16
430	STB CHUTE-3
431	LDX BUF+6
432	DERNIE CMPX #BASCUB
433	BLO RETURN-10
434	CMPX #BASCUB-640*7+39
435	BHI MEMPAG
436	LDA <$CD
437	BITA #64
438	BEQ *+5
439	JMP RETURN-10
440	CMPY #DERPAG
441	BNE *+6
442	LDY #TEXTE
443	LDD #BASCUB
444	BRA *+8
445	MEMPAG LDA CHUTE-4
446	SUBD #640
447	STD CHUTE-4
448	STD DERNIE+1
449	LDA ,Y
450	ANDA #15
451	LDB #40
452	MUL
453	STB CHUTE+3
454	LDB ,Y+
455	ANDB #240
456	LDA #2
457	MUL
458	LDU #CHUTES
459	LDS #BUF+6
460	LEAU D,U
461	PULU D
462	STD ,S++
463	STD *+11
464	LDD #$100
465	PULU X
466	STX ,S++
467	CMPX #0
468	BHI *+7
469	STX *-4
470	TFR A,B
471	INCA
472	CMPA #16
473	BNE *-17
474	LDX #BUF+6
475	ASLB
476	ABX
477	STX DERNIE-2
478	BRA *+4
479	LEAY -16,Y
480	STY BUF+3
481	LDS #0
482	RETURN LDY #0
483	DEC <$C3
484	LDA <$CC
485	LDX COPPER-2
486	BITA #1
487	BNE *+12
488	LEAX -2,X
489	CMPX #SCRCOL
490	BNE *+5
491	LDX #SCRCOL+168
492	BITA #2
493	BNE *+12
494	LEAX 2,X
495	CMPX #SCRCOL+172
496	BNE *+5
497	LDX #SCRCOL+4
498	STX COPPER-2
499	RTS
500
501	SCRDEG FDB 1,16,17,256,257,272,273,1
502	COLORS FDB 0,514,15,15,0
503	FDB 0,15,240,255,3840,3855
504	FDB 4080,4095,1911,826,931
505	FDB 938,2611,2618,3815,123
506	FCC / HCL /
507	DAMPIC
508	END

Note: See TracBrowser for help on using the repository browser.

source: thomson/code/3rdparty/sources2-hcl/DAMIER.ASM@ ceffc47

Download in other formats: