DOSTO8S.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: 17.6 KB

Line
1	FCC #MTD:#
2	D0000 LBRA D0090
3	LBRA D0020
4	D0010 LBRA D1210
5	LBSR $ECB8
6	LBSR $ECB8
7	LBSR $ECB8
8	LBSR $ECB8
9	LBSR $ECB8
10	LBSR $ECB8
11	LBSR $ECB8
12	LBSR $ECB8
13	D0020 BSR D0140
14	CLR <$49
15	BSR D0150
16	LBSR D0260
17	LDA #$02
18	D0030 PSHS A
19	CLR <$58
20	D0040 LDD #$0001
21	STD <$4B
22	LDU #$6200
23	STU <$4F
24	LBSR D0940
25	BSR D0170
26	LDU <$4F
27	BCC D0050
28	LDA <$58
29	BNE D0070
30	COM <$58
31	BRA D0040
32	D0050 LDY #$627F
33	PSHS Y
34	LDA #$55
35	D0060 DEC ,U
36	COM ,U
37	ADDA ,U+
38	CMPU ,S
39	BNE D0060
40	PULS Y
41	CMPA ,U
42	BNE D0080
43	JMP $6200
44	D0070 PULS A
45	DECA
46	BNE D0030
47	D0080 CLR <$80
48	JMP [$001E]
49	D0090 PSHS U,Y,X,DP,B,A,CC
50	BSR D0140
51	LDA <$48
52	CMPA #$01
53	BEQ D0100
54	LDA <$49
55	CMPA #$04
56	BEQ D0130
57	D0100 BSR D0150
58	BSR D0190
59	D0110 BSR D0170
60	D0120 PULS A
61	EXG A,CC
62	LSRA
63	PULS A,B,DP,X,Y,U,PC
64	D0130 LDU #D0000 #$E004
65	STU <$55
66	JSR $FFA0
67	BRA D0120
68	D0140 LDA #$60
69	TFR A,DP
70	LDX #$E7D0
71	CLR <$4E
72	RTS
73	D0150 LDD <$48
74	CMPA #$01
75	BNE D0160
76	LDB #$01
77	D0160 LDU #D0180 #$E0BE
78	LDA B,U
79	STA 2,X
80	STA <$57
81	RTS
82	D0170 LDA #$40
83	STA 2,X
84	RTS
85	D0180 FCB $41,$01,$42,$02
86	D0190 LDA #$02
87	PSHS A
88	D0200 CLRA
89	LDB <$48
90	D0210 LSRB
91	INCA
92	BCC D0210
93	DECA
94	ASLA
95	LDY #D0250 #$E0F0
96	JSR [A,Y]
97	BCC D0240
98	LDA <$4E
99	BITA #$51
100	BNE D0240
101	D0220 DEC ,S
102	BEQ D0230
103	CLR <$4E
104	CMPA #$08
105	BEQ D0200
106	BSR D0310
107	BCS D0220
108	BRA D0200
109	D0230 COMB
110	D0240 PULS A,PC
111	D0250 FDB D0260 =$E0FE
112	FDB D0940 =$E3A7
113	FDB D0380 =$E16E
114	FDB D0410 =$E177
115	FDB D0390 =$E174
116	FDB D0310 =$E134
117	FDB D1100 =$E452
118	D0260 BSR D0310
119	BCS D0300
120	LDA #$01
121	STA <$4B
122	LBSR D1160
123	LDB #$44
124	LDA 1,X
125	BITA #$08
126	BEQ D0270
127	LDB #$43
128	D0270 STB <$4E
129	BSR D0310
130	CLR <$52
131	CLR <$54
132	CLR ,X
133	CLR <$58
134	LDD <$E9
135	SUBD <$ED
136	BGE D0280
137	COMA
138	COMB
139	ADDD #$0001
140	D0280 TSTA
141	BNE D0290
142	TSTB
143	BPL D0290
144	COM <$58
145	D0290 CLRA
146	D0300 RTS
147	D0310 LDB #$64
148	D0320 LDA 1,X
149	BITA #$08
150	BNE D0330
151	LDA <$57
152	ORA #$10
153	STA 2,X
154	ANDA #$EF
155	STA 2,X
156	BSR D0360
157	DECB
158	LBEQ D1140
159	BRA D0320
160	D0330 BSR D0350
161	LBSR D1200
162	CLR ,Y
163	CLR 6,X
164	RTS
165	D0340 LDY #$006C
166	BRA D0370
167	D0350 LDY #$0750
168	BRA D0370
169	D0360 LDY #$02EC
170	D0370 LEAY -1,Y
171	BNE D0370
172	RTS
173	D0380 LDA #$FF
174	STA <$58
175	CLRA
176	RTS
177	D0390 CLR <$58
178	D0400 RTS
179	D0410 LBSR D1100
180	BCS D0400
181	LDA 1,X
182	BITA #$04
183	BEQ D0420
184	LDA #$01
185	LBRA D1150
186	D0420 LDA <$58
187	LBNE D0570
188	LBSR D0860
189	LDB #$19
190	PSHS CC
191	LBSR D0930
192	LDY #$7500
193	D0430 LEAY -1,Y
194	LBEQ D1060
195	LDB ,X
196	BITB #$02
197	BEQ D0430
198	STA 3,X
199	D0440 LDB ,X
200	BPL D0440
201	STA 3,X
202	D0450 LDB ,X
203	BPL D0450
204	LDB #$FB
205	STB 3,X
206	CLRA
207	D0460 LDB ,X
208	BPL D0460
209	LDB ,U+
210	STB 3,X
211	DECA
212	BNE D0460
213	D0470 LDB ,X
214	BITB #$08
215	BEQ D0470
216	BSR D0340
217	TST <$48
218	BPL D0550
219	D0480 LBSR D1120
220	LDB #$1B
221	LBSR D0930
222	LDA #$04
223	LDY #$7500
224	D0490 LEAY -1,Y
225	LBEQ D0740
226	LDB ,X
227	BITB #$02
228	BEQ D0490
229	LDB 3,X
230	D0500 DECA
231	LBEQ D1080
232	D0510 LDB ,X
233	BPL D0510
234	LDB 3,X
235	CMPB #$FB
236	BNE D0500
237	CLRA
238	D0520 LDB ,X
239	BPL D0520
240	LDB 3,X
241	CMPB ,U+
242	BNE D0530
243	DECA
244	BNE D0520
245	D0530 LDB ,X
246	BITB #$08
247	BEQ D0530
248	TSTA
249	BNE D0540
250	BITB #$04
251	D0540 LBNE D0740
252	D0550 PULS CC
253	CLR ,X
254	RTS
255	D0560 PSHS CC
256	BRA D0480
257	D0570 LBSR D0890
258	LBSR D0900
259	PSHS CC
260	PSHS B,A
261	LBSR D0760
262	BCC D0580
263	PULS A,B
264	LBRA D1060
265	D0580 LDB #$FF
266	STB 4,X
267	LDD #$0624
268	STB ,X
269	D0590 LDB ,X
270	BPL D0590
271	CLR 3,X
272	DECA
273	BNE D0590
274	D0600 LDB ,X
275	BPL D0600
276	LDD #$FBC7
277	STD 3,X
278	LDB #$FF
279	D0610 LDA ,X
280	BPL D0610
281	LDA ,U+
282	STD 3,X
283	LDA #$7F
284	D0620 LDB ,X
285	BPL D0620
286	LDB ,U+
287	STB 3,X
288	DECA
289	BNE D0620
290	D0630 LDB ,X
291	BPL D0630
292	PULS B
293	STB 3,X
294	COMA
295	BNE D0630
296	D0640 LDB ,X
297	BPL D0640
298	CLR 3,X
299	D0650 LDB ,X
300	BPL D0650
301	LDB #$20
302	STB ,X
303	D0660 LDB ,X
304	BPL D0660
305	LDB 3,X
306	COMA
307	BNE D0660
308	LEAS -2,S
309	LBSR D0340
310	TST <$48
311	BPL D0720
312	D0670 LBSR D1120
313	BSR D0760
314	BCS D0730
315	LDB #$FB
316	STB 3,X
317	LDD #$8038
318	STB ,X
319	LDY #$0100
320	D0680 LEAY -1,Y
321	BEQ D0730
322	LDB ,X
323	BITB #$01
324	BEQ D0680
325	LDB 3,X
326	LDB #$28
327	STB ,X
328	D0690 LDB ,X
329	BPL D0690
330	LDB 3,X
331	CMPB ,U+
332	BNE D0730
333	DECA
334	BNE D0690
335	D0700 LDA ,X
336	BPL D0700
337	LDA 3,X
338	D0710 LDB ,X
339	BPL D0710
340	LDB 3,X
341	CMPD ,S
342	BNE D0730
343	D0720 PULS A,B
344	PULS CC
345	CLR ,X
346	RTS
347	D0730 PULS A,B
348	D0740 LDA #$20
349	LBRA D1090
350	D0750 PSHS CC
351	LDD #$5D30
352	PSHS B,A
353	BRA D0670
354	D0760 LDA #$C7
355	STA 4,X
356	LDA #$FE
357	STA 3,X
358	LDA #$30
359	LDU <$4F
360	ORCC #$50
361	D0770 LDB #$38
362	STB ,X
363	LDY #$1700
364	D0780 LEAY -1,Y
365	BEQ D0850
366	LDB ,X
367	BITB #$01
368	BEQ D0780
369	LDB 3,X
370	LDB #$28
371	STB ,X
372	D0790 LDB ,X
373	BPL D0790
374	LDB 3,X
375	CMPB <$4B
376	BNE D0840
377	D0800 LDB ,X
378	BPL D0800
379	LDB 3,X
380	BNE D0840
381	D0810 LDB ,X
382	BPL D0810
383	LDB 3,X
384	CMPB <$4C
385	BNE D0840
386	D0820 LDB ,X
387	BPL D0820
388	LDB 3,X
389	BNE D0840
390	LBSR D0340
391	CLRA
392	D0830 LDA ,X
393	RTS
394	D0840 DECA
395	BNE D0770
396	D0850 COMB
397	BRA D0830
398	D0860 LDB <$4B
399	CMPB #$39
400	BPL D0870
401	LDD #$9F20
402	BRA D0880
403	D0870 LDD #$1F22
404	D0880 STA 7,X
405	STB 1,X
406	RTS
407	D0890 LDA #$BF
408	STA 7,X
409	CLR 1,X
410	RTS
411	D0900 LDU <$4F
412	LDY #$0080
413	LDD #$BF84
414	D0910 PSHS B,A
415	D0920 LDA ,S
416	EORA ,U+
417	PSHS A
418	LSRA
419	LSRA
420	LSRA
421	LSRA
422	EORA ,S
423	STA ,S
424	TFR A,B
425	LSRB
426	LSRB
427	LSRB
428	ASLA
429	ASLA
430	ASLA
431	ASLA
432	EORB 2,S
433	STB 2,S
434	TFR A,B
435	EORA 2,S
436	STA 1,S
437	ASLB
438	EORB ,S
439	STB 2,S
440	LEAS 1,S
441	LEAY -1,Y
442	BNE D0920
443	PULS A,B,PC
444	D0930 LDA <$4C
445	STA 5,X
446	LDA #$0A
447	STA 4,X
448	LDA #$A1
449	STA 3,X
450	ORCC #$50
451	LDU <$4F
452	STB ,X
453	RTS
454	D0940 LBSR D1100
455	LBCS D1050
456	PSHS CC
457	LDA <$58
458	BNE D1000
459	BSR D0860
460	LDB #$1B
461	BSR D0930
462	LDA #$04
463	LDY #$7500
464	D0950 LEAY -1,Y
465	BEQ D1060
466	LDB ,X
467	BITB #$02
468	BEQ D0950
469	LDB 3,X
470	D0960 DECA
471	BEQ D1080
472	D0970 LDB ,X
473	BPL D0970
474	LDB 3,X
475	CMPB #$FB
476	BNE D0960
477	CLRA
478	D0980 LDB ,X
479	BPL D0980
480	LDB 3,X
481	STB ,U+
482	DECA
483	BNE D0980
484	D0990 LDB ,X
485	BITB #$08
486	BEQ D0990
487	BITB #$04
488	BNE D1070
489	BRA D1040
490	D1000 LBSR D0890
491	LBSR D0760
492	BCS D1060
493	LEAY 3,Y
494	LBSR D0370
495	LDB #$FB
496	STB 3,X
497	LDD #$8038
498	STB ,X
499	LDY #$0100
500	D1010 LEAY -1,Y
501	BEQ D1080
502	LDB ,X
503	BITB #$01
504	BEQ D1010
505	LDB 3,X
506	LDB #$28
507	STB ,X
508	D1020 LDB ,X
509	BPL D1020
510	LDB 3,X
511	STB ,U+
512	DECA
513	BNE D1020
514	D1030 LDB ,X
515	BPL D1030
516	LDB 3,X
517	PSHS B
518	COMA
519	BNE D1030
520	LBSR D0900
521	EXG A,B
522	CMPD ,S++
523	BNE D1070
524	D1040 PULS CC
525	CLR ,X
526	D1050 RTS
527	D1060 LDA #$04
528	BRA D1090
529	D1070 LDA #$08
530	BRA D1090
531	D1080 LDA #$02
532	D1090 STA <$4E
533	CLR ,X
534	PULS CC
535	COMA
536	RTS
537	D1100 BSR D1120
538	BCS D1110
539	BSR D1160
540	CLRA
541	D1110 RTS
542	D1120 LDY #$8000
543	D1130 LDB <$57
544	ORB #$04
545	STB 2,X
546	ANDB #$FB
547	STB 2,X
548	LEAY -1,Y
549	BEQ D1140
550	LDB 1,X
551	ANDB #$02
552	BEQ D1130
553	CLRA
554	RTS
555	D1140 LDA #$10
556	D1150 PSHS CC
557	BRA D1090
558	D1160 LBSR D0360
559	BSR D1200
560	LDB ,Y
561	LDA <$57
562	SUBB <$4B
563	BEQ D1190
564	BPL D1170
565	ORA #$20
566	NEGB
567	D1170 STA 2,X
568	D1180 ORA #$14
569	STA 2,X
570	ANDA #$EB
571	STA 2,X
572	LBSR D0360
573	DECB
574	BNE D1180
575	LBSR D0350
576	D1190 BSR D1200
577	LDB <$4B
578	STB 6,X
579	STB ,Y
580	RTS
581	D1200 LDY #$6052
582	LDA <$49
583	ANDA #$02
584	LEAY A,Y
585	RTS
586	D1210 PSHS U,Y,X,DP,B,A,CC
587	LBSR D0140
588	LDA <$49
589	CMPA #$04
590	BNE D1220
591	LDU #D0010 #$E00A
592	STU <$55
593	JSR $FFA0
594	BRA D1270
595	D1220 BSR D1310
596	LDA <$48
597	ANDA #$80
598	STA <$48
599	LBSR D0150
600	LBSR D1120
601	BCS D1270
602	LBSR D0310
603	BCS D1270
604	CLR <$4B
605	BSR D1280
606	BCS D1270
607	D1230 PSHS CC
608	ORCC #$50
609	LBSR D1380
610	LDA #$02
611	PSHS A
612	D1240 LBSR D1440
613	LDX #$E7D0
614	LBSR D1120
615	LBSR D1520
616	BCC D1250
617	DEC ,S
618	BNE D1240
619	PULS A
620	PULS CC
621	COMA
622	BRA D1270
623	D1250 PULS A
624	PULS CC
625	LDA <$4B
626	CMPA #$4F
627	BEQ D1260
628	BSR D1300
629	BRA D1230
630	D1260 LBSR D1960
631	BCS D1270
632	LDA #$50
633	STA <$4B
634	D1270 LBRA D0110
635	D1280 LDA 1,X
636	BITA #$04
637	BNE D1290
638	CLRA
639	RTS
640	D1290 LDA #$01
641	LBRA D1150
642	D1300 INC <$4B
643	LBRA D1160
644	D1310 PSHS X
645	LDU #D1370 #$E55E
646	D1320 LDX #$0003
647	LDB #$04
648	D1330 LDA ,X
649	CMPA ,U
650	BEQ D1340
651	INCB
652	LEAU B,U
653	LDA ,U
654	BNE D1320
655	BRA D1360
656	D1340 LEAX -1,X
657	BNE D1350
658	LDX #$001A
659	D1350 LEAU 1,U
660	DECB
661	BNE D1330
662	LDA ,U
663	STA <$58
664	D1360 PULS X,PC
665	D1370 FCB $52,$45,$47,$6E
666	FCB $FF,$43,$49,$50
667	FCB $4A,$FF,$4C,$45
668	FCB $4D,$74,$FF,$4C
669	FCB $4F,$50,$B5,$00
670	FCB $53,$45,$47,$B6
671	FCB $00,$00
672	D1380 LDX #$60D3
673	LDB #$10
674	D1390 CLR B,X
675	DECB
676	BNE D1390
677	LEAX $10,X
678	PSHS X
679	LDX #$60D3
680	LDA #$01
681	LDB <$4D
682	D1400 STA ,X
683	LEAX B,X
684	INCA
685	CMPA #$10
686	BHI D1430
687	D1410 CMPX ,S
688	BCS D1420
689	LEAX -16,X
690	D1420 TST ,X
691	BEQ D1400
692	LEAX 1,X
693	BRA D1410
694	D1430 LEAS 2,S
695	RTS
696	D1440 LDX #$60D3
697	LDU <$4F
698	D1450 LDB ,X+
699	BEQ D1470
700	LDA <$4B
701	STA ,U
702	CLR 1,U
703	STB 2,U
704	LDY #$0004
705	LDA <$58
706	INCA
707	STA 3,U
708	BEQ D1480
709	LDD #$B230
710	D1460 LBSR D0910
711	STD ,U++
712	BRA D1450
713	D1470 RTS
714	D1480 LDD #$EF21
715	BRA D1460
716	D1490 LDB 1,X
717	BITB #$40
718	BEQ D1490
719	D1500 LDB 3,X
720	LDB ,X
721	BPL D1500
722	D1510 LDB ,X
723	BPL D1510
724	RTS
725	D1520 LDA #$10
726	PSHS A
727	LDU <$4F
728	LDA <$58
729	LBNE D1720
730	LBSR D0860
731	BSR D1490
732	LDD #$4EFF
733	STD 3,X
734	LDB #$04
735	STB ,X
736	D1530 LDA #$1E
737	D1540 LDB ,X
738	BPL D1540
739	LDB #$4E
740	STB 3,X
741	DECA
742	BNE D1540
743	D1550 LDA #$0C
744	D1560 LDB ,X
745	BPL D1560
746	CLR 3,X
747	DECA
748	BNE D1560
749	D1570 LDB ,X
750	BPL D1570
751	LDD #$A10A
752	STD 3,X
753	D1580 LDB ,X
754	BPL D1580
755	STA 3,X
756	D1590 LDB ,X
757	BPL D1590
758	STA 3,X
759	D1600 LDB ,X
760	BPL D1600
761	LDD #$FEFF
762	STD 3,X
763	LDA #$06
764	D1610 LDB ,X
765	BPL D1610
766	LDB ,U+
767	STB 3,X
768	DECA
769	BNE D1610
770	LDA #$16
771	D1620 LDB ,X
772	BPL D1620
773	LDB #$4E
774	STB 3,X
775	DECA
776	BNE D1620
777	LDA #$0C
778	D1630 LDB ,X
779	BPL D1630
780	CLR 3,X
781	DECA
782	BNE D1630
783	D1640 LDB ,X
784	BPL D1640
785	LDD #$A10A
786	STD 3,X
787	D1650 LDB ,X
788	BPL D1650
789	STA 3,X
790	D1660 LDB ,X
791	BPL D1660
792	STA 3,X
793	D1670 LDB ,X
794	BPL D1670
795	LDD #$FBFF
796	STD 3,X
797	CLRA
798	D1680 LDB ,X
799	BPL D1680
800	LDB #$E5
801	STB 3,X
802	DECA
803	BNE D1680
804	D1690 LDB ,X
805	BPL D1690
806	LDB #$78
807	STB 3,X
808	D1700 LDB ,X
809	BPL D1700
810	LDB #$27
811	STB 3,X
812	LDA #$2C
813	D1710 LDB ,X
814	BPL D1710
815	LDB #$4E
816	STB 3,X
817	DECA
818	BNE D1710
819	DEC ,S
820	LBNE D1550
821	LBRA D1870
822	D1720 LBSR D0890
823	LBSR D1490
824	LDD #$FFFF
825	STD 3,X
826	LDB #$24
827	STB ,X
828	LDA #$10
829	D1730 LDB ,X
830	BPL D1730
831	LDB #$FF
832	STB 3,X
833	DECA
834	BNE D1730
835	D1740 LDA #$06
836	D1750 LDB ,X
837	BPL D1750
838	CLR 3,X
839	DECA
840	BNE D1750
841	D1760 LDB ,X
842	BPL D1760
843	LDD #$FEC7
844	STD 3,X
845	D1770 LDB ,X
846	BPL D1770
847	LDB #$FF
848	LDA ,U+
849	STD 3,X
850	LDA #$05
851	D1780 LDB ,X
852	BPL D1780
853	LDB ,U+
854	STB 3,X
855	DECA
856	BNE D1780
857	LDA #$0C
858	D1790 LDB ,X
859	BPL D1790
860	LDB #$FF
861	STB 3,X
862	DECA
863	BNE D1790
864	LDA #$06
865	D1800 LDB ,X
866	BPL D1800
867	CLR 3,X
868	DECA
869	BNE D1800
870	D1810 LDB ,X
871	BPL D1810
872	LDD #$FBC7
873	STD 3,X
874	D1820 LDB ,X
875	BPL D1820
876	LDD #D1530 #$E5FF
877	STD 3,X
878	LDA #$7F
879	D1830 LDB ,X
880	BPL D1830
881	LDB #$E5
882	STB 3,X
883	DECA
884	BNE D1830
885	D1840 LDB ,X
886	BPL D1840
887	LDB #$5D
888	STB 3,X
889	D1850 LDB ,X
890	BPL D1850
891	LDB #$30
892	STB 3,X
893	LDA #$16
894	D1860 LDB ,X
895	BPL D1860
896	LDB #$FF
897	STB 3,X
898	DECA
899	BNE D1860
900	DEC ,S
901	LBNE D1740
902	D1870 LDA 1,X
903	BITA #$40
904	BNE D1890
905	D1880 LDA ,X
906	BPL D1880
907	STB 3,X
908	BRA D1870
909	D1890 PULS A
910	CLR ,X
911	TST <$48
912	BPL D1930
913	LDA #$E5
914	BSR D1940
915	LDU #$60D3
916	LBSR D1120
917	D1900 LDA ,U+
918	BEQ D1930
919	STA <$4C
920	PSHS U
921	LDA <$58
922	BEQ D1910
923	LBSR D0750
924	BRA D1920
925	D1910 LBSR D0560
926	D1920 PULS U
927	BCC D1900
928	D1930 RTS
929	D1940 LDU <$4F
930	LDB <$58
931	ANDB #$80
932	D1950 STA ,U+
933	DECB
934	BNE D1950
935	RTS
936	D1960 LDA #$14
937	STA <$4B
938	LBSR D1160
939	LDA #$FF
940	BSR D1940
941	LDA #$10
942	STA <$4C
943	D1970 LBSR D1120
944	LBSR D0420
945	BCS D1980
946	DEC <$4C
947	BNE D1970
948	LDU <$4F
949	CLR ,U
950	LDD #$FEFE
951	STD $29,U
952	LDA #$02
953	STA <$4C
954	LBSR D0420
955	BCS D1980
956	CLRA
957	D1980 RTS

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

source: thomson/code/3rdparty/sources3-lambinet/DOSTO8S.ASM@ ceffc47

Download in other formats: