SCREEN.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: 6.2 KB

Line
1	*********************
2	* *
3	* SCREEN.ASM * DISQUE RESEAU 1
4	* *
5	*********************
6
7	ORG $A000
8	PSHS A,B,X,Y,U,DP
9	LDB CHOIX,PCR
10	CLR ADR,PCR
11	CLR ADR1,PCR
12	CLR ADR4,PCR
13	CMPB #$02
14	BHI SUIT1
15	BRA ROUT1
16	SUIT1 CMPB #$0A
17	BHI SUIT2
18	BRA ROUT2
19	SUIT2 PULS A,B,X,Y,U,DP
20	RTS
21	*****************************
22	**SYMETRIE I (H VERS B)**
23	*****************************
24	ROUT1 LDD #$4027
25	STD ADR2,PCR
26	LDD #$F78
27	STD ADR4,PCR
28	LDX #$4000
29	DEBUT1 TFR X,D
30	ADDD ADR4,PCR
31	ADDD ADR4,PCR
32	ADDD #$28
33	TFR D,Y
34	LBSR RAMA
35	LDA ,X
36	LDB CHOIX,PCR
37	CMPB #$02
38	BNE SYMI11
39	LDB ,Y
40	STB ,X
41	SYMI11 STA ,Y
42	LBSR RAMB
43	LDA ,X
44	LDB CHOIX,PCR
45	CMPB #$02
46	BNE SYMI12
47	LDB ,Y
48	STB ,X
49	SYMI12 STA ,Y
50	LEAX 1,X
51	CMPX ADR2,PCR
52	BLS ENCOR1
53	LDD ADR2,PCR
54	ADDD #$28
55	STD ADR2,PCR
56	LDD ADR4,PCR
57	SUBD #$28
58	STD ADR4,PCR
59	ENCOR1 CMPX #$4FA0
60	BNE DEBUT1
61	PULS A,B,X,Y,U,DP
62	RTS
63	******************************
64	**SYMETRIE II (D VERS G)**
65	******************************
66	ROUT2 LDX #$4000
67	CLR ADR2,PCR
68	LDA #$27
69	STA ADR3,PCR
70	DEBUT2 TFR X,D
71	ADDD ADR2,PCR
72	TFR D,Y
73	BSR SUB2
74	LEAX 40,X
75	CMPX #$5F3F
76	BLS ENCOR2
77	TFR X,D
78	SUBD #$1F3F
79	TFR D,X
80	LDA ADR3,PCR
81	SUBA #$02
82	STA ADR3,PCR
83	ENCOR2 CMPX #$4014
84	BNE DEBUT2
85	PULS A,B,X,Y,U,DP
86	RTS
87	************
88	**SUB2**
89	************
90	SUB2 LDA CHOIX,PCR
91	CMPA #$03
92	BNE CONT1
93	BRA SUB3
94	CONT1 CMPA #$04
95	BNE CONT2
96	BRA SUB4
97	CONT2 CMPA #$05
98	BNE CONT3
99	BRA SUB5
100	CONT3 CMPA #$06
101	BNE CONT4
102	BRA SUB6
103	CONT4 CMPA #$07
104	BNE CONT5
105	LBRA SUB7
106	CONT5 CMPA #$08
107	BNE CONT6
108	LBRA SUB8
109	CONT6 CMPA #$09
110	BNE CONT7
111	LBRA SUB9
112	CONT7 LBRA SUB10
113	************
114	**SUB3**
115	************
116	SUB3 LBSR RAMA
117	CLRA
118	RORA
119	LDA ,X
120	LBSR TRA1
121	STA ,Y
122	LBSR RAMB
123	LDA ,X
124	STA ,Y
125	RTS
126	************
127	**SUB4**
128	************
129	SUB4 LBSR RAMA
130	CLRA
131	RORA
132	LDA ,X
133	LBSR TRA1
134	STA ,Y
135	LBSR RAMB
136	LDA ,X
137	LBSR TRA1
138	STA ,Y
139	RTS
140	************
141	**SUB5**
142	************
143	SUB5 LBSR RAMA
144	CLRA
145	RORA
146	LDA ,X
147	LBSR TRA2
148	STA ADR5,PCR
149	LBSR RAMB
150	LDA ADR5,PCR
151	STA ,Y
152	LDA ,X
153	LBSR TRA2
154	STA ADR5,PCR
155	LBSR RAMA
156	LDA ADR5,PCR
157	STA ,Y
158	RTS
159	************
160	**SUB6**
161	************
162	SUB6 LBSR RAMA
163	CLRA
164	RORA
165	LDA ,X
166	LBSR TRA1
167	STA ADR5,PCR
168	LBSR RAMB
169	LDA ADR5,PCR
170	STA ,Y
171	LDA ,X
172	LBSR TRA1
173	STA ADR5,PCR
174	LBSR RAMA
175	LDA ADR5,PCR
176	STA ,Y
177	RTS
178	************
179	**SUB7**
180	************
181	SUB7 LBSR RAMA
182	CLRA
183	RORA
184	LDA ,X
185	LBSR TRA1
186	STA ADR6,PCR
187	LDA ,Y
188	LBSR TRA1
189	STA ,X
190	LDA ADR6,PCR
191	STA ,Y
192	LBSR RAMB
193	LDA ,X
194	LDB ,Y
195	STA ,Y
196	STB ,X
197	RTS
198	************
199	**SUB8**
200	************
201	SUB8 LBSR RAMA
202	CLRA
203	RORA
204	LDA ,X
205	LBSR TRA1
206	STA ADR6,PCR
207	LDA ,Y
208	LBSR TRA1
209	STA ,X
210	LDA ADR6,PCR
211	STA ,Y
212	LBSR RAMB
213	LDA ,X
214	LBSR TRA1
215	STA ADR6,PCR
216	LDA ,Y
217	LBSR TRA1
218	STA ,X
219	LDA ADR6,PCR
220	STA ,Y
221	RTS
222	************
223	**SUB9**
224	************
225	SUB9 LBSR RAMA
226	CLRA
227	RORA
228	LDA ,X
229	LBSR TRA2
230	STA ADR6,PCR
231	LBSR RAMB
232	LDA ,Y
233	LBSR TRA2
234	TFR A,B
235	LDA ADR6,PCR
236	STA ,Y
237	LBSR RAMA
238	STB ,X
239	LBSR RAMB
240	LDA ,X
241	LBSR TRA2
242	STA ADR6,PCR
243	LBSR RAMA
244	LDA ,Y
245	LBSR TRA2
246	TFR A,B
247	LDA ADR6,PCR
248	STA ,Y
249	LBSR RAMB
250	STB ,X
251	RTS
252	*************
253	**SUB10**
254	*************
255	SUB10 LBSR RAMA
256	CLRA
257	RORA
258	LDA ,X
259	LBSR TRA1
260	STA ADR6,PCR
261	LBSR RAMB
262	LDA ,Y
263	BSR TRA1
264	TFR A,B
265	LDA ADR6,PCR
266	STA ,Y
267	BSR RAMA
268	STB ,X
269	BSR RAMB
270	LDA ,X
271	BSR TRA1
272	STA ADR6,PCR
273	BSR RAMA
274	LDA ,Y
275	BSR TRA1
276	TFR A,B
277	LDA ADR6,PCR
278	STA ,Y
279	BSR RAMB
280	STB ,X
281	RTS
282	************
283	**TRA1**
284	************
285	TRA1 TFR A,B
286	ANDA #$F0
287	ANDB #$0F
288	RORA
289	RORA
290	RORA
291	RORA
292	ROLB
293	ROLB
294	ROLB
295	ROLB
296	STB ADR5,PCR
297	ORA ADR5,PCR
298	TFR A,B
299	ANDA #$CC
300	ANDB #$33
301	RORA
302	RORA
303	ROLB
304	ROLB
305	STB ADR5,PCR
306	ORA ADR5,PCR
307	TFR A,B
308	ANDA #$AA
309	ANDB #$55
310	RORA
311	ROLB
312	STB ADR5,PCR
313	ORA ADR5,PCR
314	RTS
315	************
316	**TRA2**
317	************
318	TRA2 TFR A,B
319	ANDA #$0F
320	ANDB #$F0
321	ROLA
322	ROLA
323	ROLA
324	ROLA
325	RORB
326	RORB
327	RORB
328	RORB
329	STB ADR5,PCR
330	ORA ADR5,PCR
331	RTS
332	************
333	**RAMA**
334	************
335	RAMA LDA >$E7C3
336	ORA #$01
337	STA >$E7C3
338	RTS
339	************
340	**RAMB**
341	************
342	RAMB LDA >$E7C3
343	ANDA #$FE
344	STA >$E7C3
345	RTS
346	*****************
347	CHOIX FCB $00
348	ADR FCB 00
349	ADR1 FCB 00
350	ADR2 FCB 00
351	ADR3 FCB 00
352	ADR4 FCB 00
353	ADR5 FCB 00
354	ADR6 FCB 00
355	END

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

source: thomson/code/3rdparty/sources6-divers/SCREEN.ASM@ ceffc47

Download in other formats: