Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

DKCO720.ASM @ 5

Last change on this file since 5 was 1, checked in by svn, 6 years ago
Import initial
File size: 28.0 KB

Line
1	ORG $7800
2	7800: MTD:
3
4	7804: 16 00 6F LBRA $7876
5
6	7807: 16 00 1B LBRA $7825
7
8	780A: 16 04 A6 LBRA $7CB3
9
10	780D: 17 0C A8 LBSR $84B8
11	7810: 17 0C A5 LBSR $84B8
12	7813: 17 0C A2 LBSR $84B8
13	7816: 17 0C 9F LBSR $84B8
14	7819: 17 0C 9C LBSR $84B8
15	781C: 17 0C 99 LBSR $84B8
16	781F: 17 0C 96 LBSR $84B8
17	7822: 17 0C 93 LBSR $84B8
18
19
20	BOOT_FLOPPY()
21	7825: 8D 76 BSR $789D
22	7827: 0F 49 CLR $49
23	7829: 8D 7C BSR $78A7
24	782B: 17 00 D0 LBSR $78FE
25	782E: 86 02 LDA #$02
26	7830: 34 02 PSHS A
27	7832: 0F 58 CLR $58
28	7834: CC 00 01 LDD #$0001
29	7837: DD 4B STD $4B
30	7839: CE 62 00 LDU #$6200
31	783C: DF 4F STU $4F
32	783E: 17 03 66 LBSR $7BA7
33	7841: 8D 76 BSR $78B9
34	7843: DE 4F LDU $4F
35	7845: 24 08 BCC $784F
36	7847: 96 58 LDA $58
37	7849: 26 20 BNE $786B
38	784B: 03 58 COM $58
39	784D: 20 E5 BRA $7834
40
41	784F: 10 8E 62 7F LDY #$627F
42	7853: 34 20 PSHS Y
43	7855: 86 55 LDA #$55
44	7857: 6A C4 DEC ,U
45	7859: 63 C4 COM ,U
46	785B: AB C0 ADDA ,U+
47	785D: 11 A3 E4 CMPU ,S
48	7860: 26 F5 BNE $7857
49	7862: 35 20 PULS Y
50	7864: A1 C4 CMPA ,U
51	7866: 26 08 BNE $7870
52	7868: 7E 62 00 JMP $6200 # execute BOOT
53
54	erreur_boot:
55	786B: 35 02 PULS A
56	786D: 4A DECA
57	786E: 26 C0 BNE $7830
58	7870: 0F 80 CLR $80
59	7872: 6E 9F 00 1E JMP [$001E,X]
60
61
62	DISC_FUNC()
63	7876: 34 7F PSHS U,Y,X,DP,B,A,CC
64	7878: 8D 23 BSR $789D
65	787A: 96 48 LDA $48
66	787C: 81 01 CMPA #$01
67	787E: 27 06 BEQ $7886
68	7880: 96 49 LDA $49
69	7882: 81 04 CMPA #$04
70	7884: 27 0D BEQ $7893
71	7886: 8D 1F BSR $78A7
72	7888: 8D 38 BSR $78C2
73	788A: 8D 2D BSR $78B9
74	788C: 35 02 PULS A
75	788E: 1E 8A EXG A,CC
76	7890: 44 LSRA
77	7891: 35 FE PULS A,B,DP,X,Y,U,PC ;(PUL? PC=RTS)
78
79	ramdisk
80	7893: CE E0 04 LDU #$E004
81	7896: DF 55 STU $55
82	7898: BD FF A0 JSR $FFA0
83	789B: 20 EF BRA $788C
84
85	789D: 86 60 LDA #$60
86	789F: 1F 8B TFR A,DP
87	78A1: 8E E7 D0 LDX #$E7D0
88	78A4: 0F 4E CLR $4E
89	78A6: 39 RTS
90
91	78A7: DC 48 LDD $48
92	78A9: 81 01 CMPA #$01
93	78AB: 26 02 BNE $78AF
94	78AD: C6 01 LDB #$01
95	78AF: CE E0 BE LDU #$E0BE
96	78B2: A6 C5 LDA B,U
97	78B4: A7 02 STA $0002,X
98	78B6: 97 57 STA $57
99	78B8: 39 RTS
100
101	78B9: 86 40 LDA #$40
102	78BB: A7 02 STA $0002,X
103	78BD: 39 RTS
104
105	table des bits des lecteurs
106	78BE: 41
107	78BF: 01
108	78C0: 42
109	78C1: 02
110
111	execution fonctions standard
112	78C2: 86 02 LDA #$02
113	78C4: 34 02 PSHS A
114	78C6: 4F CLRA
115	78C7: D6 48 LDB $48
116	78C9: 54 LSRB
117	78CA: 4C INCA
118	78CB: 24 FC BCC $78C9
119	78CD: 4A DECA
120	78CE: 48 ASLA
121	78CF: 10 8E 78 F0 LDY #$78F0
122	78D3: AD B6 JSR [A,Y]
123	78D5: 24 17 BCC $78EE
124	78D7: 96 4E LDA $4E
125	78D9: 85 51 BITA #$51
126	78DB: 26 11 BNE $78EE
127	78DD: 6A E4 DEC ,S
128	78DF: 27 0C BEQ $78ED
129	78E1: 0F 4E CLR $4E
130	78E3: 81 08 CMPA #$08
131	78E5: 27 DF BEQ $78C6
132	78E7: 8D 4B BSR $7934
133	78E9: 25 F2 BCS $78DD
134	78EB: 20 D9 BRA $78C6
135
136	78ED: 53 COMB
137	78EE: 35 82 PULS A,PC ;(PUL? PC=RTS)
138
139	table des fonctions
140	78F0: 78 FE # reset
141	78F2: 7B A7 # lecture LOAD_SECTOR()
142	78F4: 79 6E # passage simple densité ?
143	78F6: 79 77 # ecriture WRITE_SECTOR()
144	78F8: 79 74 # double densité ?
145	78FA: 79 34 # recherche piste 0 TRACK0()
146	78FC: 7C 52 # recherche piste SEEK()
147
148
149	78FE: 8D 34 BSR $7934
150	7900: 25 31 BCS $7933
151	7902: 86 01 LDA #$01
152	7904: 97 4B STA $4B
153	7906: 17 03 71 LBSR $7C7A
154	7909: C6 44 LDB #$44
155	790B: A6 01 LDA $0001,X
156	790D: 85 08 BITA #$08
157	790F: 27 02 BEQ $7913
158	7911: C6 43 LDB #$43
159	7913: D7 4E STB $4E
160	7915: 8D 1D BSR $7934
161	7917: 0F 52 CLR $52
162	7919: 0F 54 CLR $54
163	791B: 6F 84 CLR ,X
164	791D: 0F 58 CLR $58
165	791F: DC E9 LDD $E9
166	7921: 93 ED SUBD $ED
167	7923: 2C 05 BGE $792A
168	7925: 43 COMA
169	7926: 53 COMB
170	7927: C3 00 01 ADDD #$0001
171	792A: 4D TSTA
172	792B: 26 05 BNE $7932
173	792D: 5D TSTB
174	792E: 2A 02 BPL $7932
175	7930: 03 58 COM $58
176	7932: 4F CLRA
177	7933: 39 RTS
178
179	7934: C6 64 LDB #$64
180	7936: A6 01 LDA $0001,X
181	7938: 85 08 BITA #$08
182	793A: 26 13 BNE $794F
183	793C: 96 57 LDA $57
184	793E: 8A 10 ORA #$10
185	7940: A7 02 STA $0002,X
186	7942: 84 EF ANDA #$EF
187	7944: A7 02 STA $0002,X
188	7946: 8D 1D BSR $7965
189	7948: 5A DECB
190	7949: 10 27 03 27 LBEQ $7C74
191	794D: 20 E7 BRA $7936
192
193	794F: 8D 0E BSR $795F
194	7951: 17 03 54 LBSR $7CA8
195	7954: 6F A4 CLR ,Y
196	7956: 6F 06 CLR $0006,X
197	7958: 39 RTS
198
199	7959: 10 8E 00 6C LDY #$006C
200	795D: 20 0A BRA $7969
201
202	795F: 10 8E 07 50 LDY #$0750
203	7963: 20 04 BRA $7969
204
205	7965: 10 8E 02 EC LDY #$02EC
206	7969: 31 3F LEAY -1,Y
207	796B: 26 FC BNE $7969
208	796D: 39 RTS
209
210	796E: 86 FF LDA #$FF
211	7970: 97 58 STA $58
212	7972: 4F CLRA
213	7973: 39 RTS
214
215	7974: 0F 58 CLR $58
216	7976: 39 RTS
217
218	7977: 17 02 D8 LBSR $7C52
219	797A: 25 FA BCS $7976
220	797C: A6 01 LDA $0001,X
221	797E: 85 04 BITA #$04
222	7980: 27 05 BEQ $7987
223	7982: 86 01 LDA #$01
224	7984: 16 02 EF LBRA $7C76
225
226	7987: 17 01 B7 LBSR $7B41
227	798A: C6 19 LDB #$19
228	798C: 34 01 PSHS CC
229	798E: 17 02 03 LBSR $7B94
230	7991: 10 8E 75 00 LDY #$7500
231	7995: 31 3F LEAY $FFFF,Y
232	7997: 10 27 02 A5 LBEQ $7C40
233	799B: E6 84 LDB ,X
234	799D: C5 02 BITB #$02
235	799F: 27 F4 BEQ $7995
236	79A1: A7 03 STA $0003,X
237	79A3: E6 84 LDB ,X
238	79A5: 2A FC BPL $79A3
239	79A7: A7 03 STA $0003,X
240	79A9: E6 84 LDB ,X
241	79AB: 2A FC BPL $79A9
242	79AD: C6 FB LDB #$FB
243	79AF: E7 03 STB $0003,X
244	79B1: 10 8E 02 00 LDY #$0200
245	79B5: E6 84 LDB ,X
246	79B7: 2A FC BPL $79B5
247	79B9: E6 C0 LDB ,U+
248	79BB: E7 03 STB $0003,X
249	79BD: 31 3F LEAY $FFFF,Y
250	79BF: 26 F4 BNE $79B5
251	79C1: 12 NOP
252	79C2: 12 NOP
253	79C3: E6 84 LDB ,X
254	79C5: C5 08 BITB #$08
255	79C7: 27 FA BEQ $79C3
256	79C9: 8D 8E BSR $7959
257	79CB: 0D 48 TST $48
258	79CD: 2A 48 BPL $7A17
259	79CF: 17 02 88 LBSR $7C5A
260	79D2: C6 1B LDB #$1B
261	79D4: 17 01 BD LBSR $7B94
262	79D7: 86 04 LDA #$04
263	79D9: 10 8E 75 00 LDY #$7500
264	79DD: 31 3F LEAY $FFFF,Y
265	79DF: 10 27 00 F9 LBEQ $7ADC
266	79E3: E6 84 LDB ,X
267	79E5: C5 02 BITB #$02
268	79E7: 27 F4 BEQ $79DD
269	79E9: E6 03 LDB $0003,X
270	79EB: 4A DECA
271	79EC: 10 27 02 58 LBEQ $7C48
272	79F0: E6 84 LDB ,X
273	79F2: 2A FC BPL $79F0
274	79F4: E6 03 LDB $0003,X
275	79F6: C1 FB CMPB #$FB
276	79F8: 26 F1 BNE $79EB
277	79FA: 4F CLRA
278	79FB: E6 84 LDB ,X
279	79FD: 2A FC BPL $79FB
280	79FF: E6 03 LDB $0003,X
281	7A01: E1 C0 CMPB ,U+
282	7A03: 26 03 BNE $7A08
283	7A05: 4A DECA
284	7A06: 26 F3 BNE $79FB
285	7A08: E6 84 LDB ,X
286	7A0A: C5 08 BITB #$08
287	7A0C: 27 FA BEQ $7A08
288	7A0E: 4D TSTA
289	7A0F: 26 02 BNE $7A13
290	7A11: C5 04 BITB #$04
291	7A13: 10 26 00 C5 LBNE $7ADC
292	7A17: 35 01 PULS CC
293	7A19: 6F 84 CLR ,X
294	7A1B: 39 RTS
295
296	7A1C: 34 01 PSHS CC
297	7A1E: 20 AF BRA $79CF
298
299	7A20: 17 01 31 LBSR $7B54
300	7A23: 17 01 35 LBSR $7B5B
301	7A26: 34 01 PSHS CC
302	7A28: 34 06 PSHS B,A
303	7A2A: 17 00 BD LBSR $7AEA
304	7A2D: 24 05 BCC $7A34
305	7A2F: 35 06 PULS A,B
306	7A31: 16 02 0C LBRA $7C40
307
308	7A34: C6 FF LDB #$FF
309	7A36: E7 04 STB $0004,X
310	7A38: CC 06 24 LDD #$0624
311	7A3B: E7 84 STB ,X
312	7A3D: E6 84 LDB ,X
313	7A3F: 2A FC BPL $7A3D
314	7A41: 6F 03 CLR $0003,X
315	7A43: 4A DECA
316	7A44: 26 F7 BNE $7A3D
317	7A46: E6 84 LDB ,X
318	7A48: 2A FC BPL $7A46
319	7A4A: CC FB C7 LDD #$FBC7
320	7A4D: ED 03 STD $0003,X
321	7A4F: C6 FF LDB #$FF
322	7A51: A6 84 LDA ,X
323	7A53: 2A FC BPL $7A51
324	7A55: A6 C0 LDA ,U+
325	7A57: ED 03 STD $0003,X
326	7A59: 86 7F LDA #$7F
327	7A5B: E6 84 LDB ,X
328	7A5D: 2A FC BPL $7A5B
329	7A5F: E6 C0 LDB ,U+
330	7A61: E7 03 STB $0003,X
331	7A63: 4A DECA
332	7A64: 26 F5 BNE $7A5B
333	7A66: E6 84 LDB ,X
334	7A68: 2A FC BPL $7A66
335	7A6A: 35 04 PULS B
336	7A6C: E7 03 STB $0003,X
337	7A6E: 43 COMA
338	7A6F: 26 F5 BNE $7A66
339	7A71: E6 84 LDB ,X
340	7A73: 2A FC BPL $7A71
341	7A75: 6F 03 CLR $0003,X
342	7A77: E6 84 LDB ,X
343	7A79: 2A FC BPL $7A77
344	7A7B: C6 20 LDB #$20
345	7A7D: E7 84 STB ,X
346	7A7F: E6 84 LDB ,X
347	7A81: 2A FC BPL $7A7F
348	7A83: E6 03 LDB $0003,X
349	7A85: 43 COMA
350	7A86: 26 F7 BNE $7A7F
351	7A88: 32 7E LEAS $FFFE,S
352	7A8A: 17 FE CC LBSR $7959
353	7A8D: 0D 48 TST $48
354	7A8F: 2A 42 BPL $7AD3
355	7A91: 17 01 C6 LBSR $7C5A
356	7A94: 8D 54 BSR $7AEA
357	7A96: 25 42 BCS $7ADA
358	7A98: C6 FB LDB #$FB
359	7A9A: E7 03 STB $0003,X
360	7A9C: CC 80 38 LDD #$8038
361	7A9F: E7 84 STB ,X
362	7AA1: 10 8E 01 00 LDY #$0100
363	7AA5: 31 3F LEAY $FFFF,Y
364	7AA7: 27 31 BEQ $7ADA
365	7AA9: E6 84 LDB ,X
366	7AAB: C5 01 BITB #$01
367	7AAD: 27 F6 BEQ $7AA5
368	7AAF: E6 03 LDB $0003,X
369	7AB1: C6 28 LDB #$28
370	7AB3: E7 84 STB ,X
371	7AB5: E6 84 LDB ,X
372	7AB7: 2A FC BPL $7AB5
373	7AB9: E6 03 LDB $0003,X
374	7ABB: E1 C0 CMPB ,U+
375	7ABD: 26 1B BNE $7ADA
376	7ABF: 4A DECA
377	7AC0: 26 F3 BNE $7AB5
378	7AC2: A6 84 LDA ,X
379	7AC4: 2A FC BPL $7AC2
380	7AC6: A6 03 LDA $0003,X
381	7AC8: E6 84 LDB ,X
382	7ACA: 2A FC BPL $7AC8
383	7ACC: E6 03 LDB $0003,X
384	7ACE: 10 A3 E4 CMPD ,S
385	7AD1: 26 07 BNE $7ADA
386	7AD3: 35 06 PULS A,B
387	7AD5: 35 01 PULS CC
388	7AD7: 6F 84 CLR ,X
389	7AD9: 39 RTS
390
391	7ADA: 35 06 PULS A,B
392	7ADC: 86 20 LDA #$20
393	7ADE: 16 01 69 LBRA $7C4A
394
395	7AE1: 34 01 PSHS CC
396	7AE3: CC 5D 30 LDD #$5D30
397	7AE6: 34 06 PSHS B,A
398	7AE8: 20 A7 BRA $7A91
399
400	7AEA: 86 C7 LDA #$C7
401	7AEC: A7 04 STA $0004,X
402	7AEE: 86 FE LDA #$FE
403	7AF0: A7 03 STA $0003,X
404	7AF2: 86 30 LDA #$30
405	7AF4: DE 4F LDU $4F
406	7AF6: 1A 50 ORCC #$50
407	7AF8: C6 38 LDB #$38
408	7AFA: E7 84 STB ,X
409	7AFC: 10 8E 17 00 LDY #$1700
410	7B00: 31 3F LEAY $FFFF,Y
411	7B02: 27 3A BEQ $7B3E
412	7B04: E6 84 LDB ,X
413	7B06: C5 01 BITB #$01
414	7B08: 27 F6 BEQ $7B00
415	7B0A: E6 03 LDB $0003,X
416	7B0C: C6 28 LDB #$28
417	7B0E: E7 84 STB ,X
418	7B10: E6 84 LDB ,X
419	7B12: 2A FC BPL $7B10
420	7B14: E6 03 LDB $0003,X
421	7B16: D1 4B CMPB $4B
422	7B18: 26 21 BNE $7B3B
423	7B1A: E6 84 LDB ,X
424	7B1C: 2A FC BPL $7B1A
425	7B1E: E6 03 LDB $0003,X
426	7B20: 26 19 BNE $7B3B
427	7B22: E6 84 LDB ,X
428	7B24: 2A FC BPL $7B22
429	7B26: E6 03 LDB $0003,X
430	7B28: D1 4C CMPB $4C
431	7B2A: 26 0F BNE $7B3B
432	7B2C: E6 84 LDB ,X
433	7B2E: 2A FC BPL $7B2C
434	7B30: E6 03 LDB $0003,X
435	7B32: 26 07 BNE $7B3B
436	7B34: 17 FE 22 LBSR $7959
437	7B37: 4F CLRA
438	7B38: A6 84 LDA ,X
439	7B3A: 39 RTS
440
441	7B3B: 4A DECA
442	7B3C: 26 BA BNE $7AF8
443	7B3E: 53 COMB
444	7B3F: 20 F7 BRA $7B38
445
446	7B41: D6 4B LDB $4B
447	7B43: C1 39 CMPB #$39
448	7B45: 2A 05 BPL $7B4C
449	7B47: CC 9F 40 LDD #$9F40
450	7B4A: 20 03 BRA $7B4F
451
452	7B4C: CC 1F 42 LDD #$1F42
453	7B4F: A7 07 STA $0007,X
454	7B51: 96 49 LDA $49
455	7B53: 84 01 ANDA #$01
456	7B55: 27 02 BEQ $7B59
457	7B57: CB 10 ADDB #$10
458	7B59: E7 01 STB $0001,X
459	7B5B: 39 RTS
460
461	7B5C: 4F CLRA
462	7B5D: 10 8E 00 80 LDY #$0080
463	7B61: CC BF 84 LDD #$BF84
464	7B64: 34 06 PSHS B,A
465	7B66: A6 E4 LDA ,S
466	7B68: A8 C0 EORA ,U+
467	7B6A: 34 02 PSHS A
468	7B6C: 44 LSRA
469	7B6D: 44 LSRA
470	7B6E: 44 LSRA
471	7B6F: 44 LSRA
472	7B70: A8 E4 EORA ,S
473	7B72: A7 E4 STA ,S
474	7B74: 1F 89 TFR A,B
475	7B76: 54 LSRB
476	7B77: 54 LSRB
477	7B78: 54 LSRB
478	7B79: 48 ASLA
479	7B7A: 48 ASLA
480	7B7B: 48 ASLA
481	7B7C: 48 ASLA
482	7B7D: E8 62 EORB $0002,S
483	7B7F: E7 62 STB $0002,S
484	7B81: 1F 89 TFR A,B
485	7B83: A8 62 EORA $0002,S
486	7B85: A7 61 STA $0001,S
487	7B87: 58 ASLB
488	7B88: E8 E4 EORB ,S
489	7B8A: E7 62 STB $0002,S
490	7B8C: 32 61 LEAS $0001,S
491	7B8E: 31 3F LEAY $FFFF,Y
492	7B90: 26 D4 BNE $7B66
493	7B92: 35 86 PULS A,B,PC ;(PUL? PC=RTS)
494
495	init registre disques
496	7B94: 96 4C LDA $4C
497	7B96: A7 05 STA $0005,X
498	7B98: 86 0A LDA #$0A
499	7B9A: A7 04 STA $0004,X
500	7B9C: 86 A1 LDA #$A1
501	7B9E: A7 03 STA $0003,X
502	7BA0: 1A 50 ORCC #$50
503	7BA2: DE 4F LDU $4F U is user buffer
504	7BA4: E7 84 STB ,X store command to THFMC1
505	7BA6: 39 RTS
506
507	LOAD_SECTOR()
508	7BA7: 17 00 A8 LBSR $7C52 recherche la piste
509	7BAA: 10 25 00 91 LBCS $7C3F sortie en erreur
510	7BAE: 34 01 PSHS CC
511	7BB0: 8D 8F BSR $7B41 fixe précompensation
512	7BB2: C6 1B LDB #$1B lecture auto
513	7BB4: 8D DE BSR $7B94 registre disques
514	7BB6: 86 04 LDA #$04
515	7BB8: 10 8E 75 00 LDY #$7500
516	7BBC: 31 3F LEAY -1,Y
517	7BBE: 27 09 BEQ $7BC9 si erreur secteur non trouvé
518	7BC0: E6 84 LDB ,X
519	7BC2: C5 02 BITB #$02
520	7BC4: 27 F6 BEQ $7BBC loop attente ctrl
521	7BC6: E6 03 LDB $0003,X
522	7BC8: 4A DECA
523	7BC9: 27 7D BEQ $7C48
524	7BCB: E6 84 LDB ,X
525	7BCD: 2A FC BPL $7BCB
526	7BCF: E6 03 LDB $0003,X
527	7BD1: C1 FB CMPB #$FB
528	7BD3: 26 F3 BNE $7BC8
529	7BD5: 10 8E 02 00 LDY #$0200 positionne compteur à 512 octets
530	7BD9: E6 84 LDB ,X
531	7BDB: 2A FC BPL $7BD9
532	7BDD: E6 03 LDB $0003,X
533	7BDF: E7 C0 STB ,U+
534	7BE1: 31 3F LEAY -1,Y
535	7BE3: 26 F4 BNE $7BD9 loop
536	7BE5: E6 84 LDB ,X
537	7BE7: C5 08 BITB #$08
538	7BE9: 27 FA BEQ $7BE5
539	7BEB: C5 04 BITB #$04
540	7BED: 26 55 BNE $7C44
541	7BEF: 20 4A BRA $7C3B
542
543	7BF1: 17 FF 60 LBSR $7B54
544	7BF4: 17 FE F3 LBSR $7AEA
545	7BF7: 25 47 BCS $7C40
546	7BF9: 31 23 LEAY $0003,Y
547	7BFB: 17 FD 6B LBSR $7969
548	7BFE: C6 FB LDB #$FB
549	7C00: E7 03 STB $0003,X
550	7C02: CC 80 38 LDD #$8038
551	7C05: E7 84 STB ,X
552	7C07: 10 8E 01 00 LDY #$0100
553	7C0B: 31 3F LEAY $FFFF,Y
554	7C0D: 27 39 BEQ $7C48
555	7C0F: E6 84 LDB ,X
556	7C11: C5 01 BITB #$01
557	7C13: 27 F6 BEQ $7C0B
558	7C15: E6 03 LDB $0003,X
559	7C17: C6 28 LDB #$28
560	7C19: E7 84 STB ,X
561	7C1B: E6 84 LDB ,X
562	7C1D: 2A FC BPL $7C1B
563	7C1F: E6 03 LDB $0003,X
564	7C21: E7 C0 STB ,U+
565	7C23: 4A DECA
566	7C24: 26 F5 BNE $7C1B
567	7C26: E6 84 LDB ,X
568	7C28: 2A FC BPL $7C26
569	7C2A: E6 03 LDB $0003,X
570	7C2C: 34 04 PSHS B
571	7C2E: 43 COMA
572	7C2F: 26 F5 BNE $7C26
573	7C31: 17 FF 27 LBSR $7B5B
574	7C34: 1E 89 EXG A,B
575	7C36: 10 A3 E1 CMPD ,S++
576	7C39: 26 09 BNE $7C44
577	7C3B: 35 01 PULS CC
578	7C3D: 6F 84 CLR ,X
579	7C3F: 39 RTS
580
581	7C40: 86 04 LDA #$04
582	7C42: 20 06 BRA $7C4A
583
584	7C44: 86 08 LDA #$08
585	7C46: 20 02 BRA $7C4A
586
587	7C48: 86 02 LDA #$02
588	7C4A: 97 4E STA $4E
589	7C4C: 6F 84 CLR ,X
590	7C4E: 35 01 PULS CC
591	7C50: 43 COMA
592	7C51: 39 RTS
593
594	SEEK()
595	7C52: 8D 06 BSR $7C5A # activation du lecteur
596	7C54: 25 03 BCS $7C59 # sortie en erreur
597	7C56: 8D 22 BSR $7C7A # deplacement des tetes
598	7C58: 4F CLRA
599	7C59: 39 RTS
600
601	Activation du lecteur
602	7C5A: 10 8E 80 00 LDY #$8000
603	7C5E: D6 57 LDB $57
604	7C60: CA 04 ORB #$04
605	7C62: E7 02 STB $0002,X
606	7C64: C4 FB ANDB #$FB
607	7C66: E7 02 STB $0002,X
608	7C68: 31 3F LEAY -1,Y
609	7C6A: 27 08 BEQ $7C74
610	7C6C: E6 01 LDB $0001,X
611	7C6E: C4 02 ANDB #$02
612	7C70: 27 EC BEQ $7C5E
613	7C72: 4F CLRA
614	7C73: 39 RTS
615
616	7C74: 86 10 LDA #$10
617	7C76: 34 01 PSHS CC
618	7C78: 20 D0 BRA $7C4A
619
620	deplacement des tetes:
621	7C7A: 17 FC E8 LBSR $7965
622	7C7D: 8D 29 BSR $7CA8
623	7C7F: E6 A4 LDB ,Y
624	7C81: 96 57 LDA $57
625	7C83: D0 4B SUBB $4B
626	7C85: 27 18 BEQ $7C9F
627	7C87: 2A 03 BPL $7C8C
628	7C89: 8A 20 ORA #$20
629	7C8B: 50 NEGB
630	7C8C: A7 02 STA $0002,X
631	7C8E: 8A 14 ORA #$14
632	7C90: A7 02 STA $0002,X
633	7C92: 84 EB ANDA #$EB
634	7C94: A7 02 STA $0002,X
635	7C96: 17 FC CC LBSR $7965
636	7C99: 5A DECB
637	7C9A: 26 F2 BNE $7C8E
638	7C9C: 17 FC C0 LBSR $795F
639	7C9F: 8D 07 BSR $7CA8
640	7CA1: D6 4B LDB $4B
641	7CA3: E7 06 STB $0006,X
642	7CA5: E7 A4 STB ,Y
643	7CA7: 39 RTS
644
645	7CA8: 10 8E 60 52 LDY #$6052
646	7CAC: 96 49 LDA $49
647	7CAE: 84 02 ANDA #$02
648	7CB0: 31 A6 LEAY A,Y
649	7CB2: 39 RTS
650
651	7CB3: 34 7F PSHS U,Y,X,DP,B,A,CC
652	7CB5: 17 FB E5 LBSR $789D
653	7CB8: 96 49 LDA $49
654	7CBA: 81 04 CMPA #$04
655	7CBC: 26 0A BNE $7CC8
656	7CBE: CE E0 0A LDU #$E00A
657	7CC1: DF 55 STU $55
658	7CC3: BD FF A0 JSR $FFA0
659	7CC6: 20 56 BRA $7D1E
660
661	7CC8: 8D 69 BSR $7D33
662	7CCA: 96 48 LDA $48
663	7CCC: 84 80 ANDA #$80
664	7CCE: 97 48 STA $48
665	7CD0: 17 FB D4 LBSR $78A7
666	7CD3: 17 FF 84 LBSR $7C5A
667	7CD6: 25 46 BCS $7D1E
668	7CD8: 17 FC 59 LBSR $7934
669	7CDB: 25 41 BCS $7D1E
670	7CDD: 0F 4B CLR $4B
671	7CDF: 8D 40 BSR $7D21
672	7CE1: 25 3B BCS $7D1E
673	7CE3: 34 01 PSHS CC
674	7CE5: 1A 50 ORCC #$50
675	7CE7: 17 00 8E LBSR $7D78
676	7CEA: 86 02 LDA #$02
677	7CEC: 34 02 PSHS A
678	7CEE: 17 00 B7 LBSR $7DA8
679	7CF1: 8E E7 D0 LDX #$E7D0
680	7CF4: 17 FF 63 LBSR $7C5A
681	7CF7: 17 00 EB LBSR $7DE5
682	7CFA: 24 0B BCC $7D07
683	7CFC: 6A E4 DEC ,S
684	7CFE: 26 EE BNE $7CEE
685	7D00: 35 02 PULS A
686	7D02: 35 01 PULS CC
687	7D04: 43 COMA
688	7D05: 20 17 BRA $7D1E
689
690	7D07: 35 02 PULS A
691	7D09: 35 01 PULS CC
692	7D0B: 96 4B LDA $4B
693	7D0D: 81 4F CMPA #$4F
694	7D0F: 27 04 BEQ $7D15
695	7D11: 8D 1B BSR $7D2E
696	7D13: 20 CE BRA $7CE3
697
698	7D15: 17 02 78 LBSR $7F90
699	7D18: 25 04 BCS $7D1E
700	7D1A: 86 50 LDA #$50
701	7D1C: 97 4B STA $4B
702	7D1E: 16 FB 69 LBRA $788A
703
704	7D21: A6 01 LDA $0001,X
705	7D23: 85 04 BITA #$04
706	7D25: 26 02 BNE $7D29
707	7D27: 4F CLRA
708	7D28: 39 RTS
709
710	7D29: 86 01 LDA #$01
711	7D2B: 16 FF 48 LBRA $7C76
712
713	7D2E: 0C 4B INC $4B
714	7D30: 16 FF 47 LBRA $7C7A
715
716	7D33: 34 10 PSHS X
717	7D35: CE E5 5E LDU #$E55E
718	7D38: 8E 00 03 LDX #$0003
719	7D3B: C6 04 LDB #$04
720	7D3D: A6 84 LDA ,X
721	7D3F: A1 C4 CMPA ,U
722	7D41: 27 09 BEQ $7D4C
723	7D43: 5C INCB
724	7D44: 33 C5 LEAU B,U
725	7D46: A6 C4 LDA ,U
726	7D48: 26 EE BNE $7D38
727	7D4A: 20 10 BRA $7D5C
728
729	7D4C: 30 1F LEAX $FFFF,X
730	7D4E: 26 03 BNE $7D53
731	7D50: 8E 00 1A LDX #$001A
732	7D53: 33 41 LEAU $0001,U
733	7D55: 5A DECB
734	7D56: 26 E5 BNE $7D3D
735	7D58: A6 C4 LDA ,U
736	7D5A: 97 58 STA $58
737	7D5C: 35 90 PULS X,PC ;(PUL? PC=RTS)
738
739
740	???
741	7D5E: 52 Illegal Opcode
742	7D5F: 45 Illegal Opcode
743	7D60: 47 ASRA
744	7D61: 6E FF 43 49 JMP [$4349,S]
745
746	7D65: 50 NEGB
747	7D66: 4A DECA
748	7D67: FF 4C 45 STU $4C45
749	7D6A: 4D TSTA
750	7D6B: 74 FF 4C LSR $FF4C
751	7D6E: 4F CLRA
752	7D6F: 50 NEGB
753	7D70: B5 00 53 BITA $0053
754	7D73: 45 Illegal Opcode
755	7D74: 47 ASRA
756	7D75: B6 00 00 LDA $0000
757	???
758
759
760	7D78: 8E 60 D3 LDX #$60D3
761	7D7B: C6 10 LDB #$10
762	7D7D: 6F 85 CLR B,X
763	7D7F: 5A DECB
764	7D80: 26 FB BNE $7D7D
765	7D82: 30 88 10 LEAX $10,X
766	7D85: 34 10 PSHS X
767	7D87: 8E 60 D3 LDX #$60D3
768	7D8A: 86 01 LDA #$01
769	7D8C: D6 4D LDB $4D
770	7D8E: A7 84 STA ,X
771	7D90: 30 85 LEAX B,X
772	7D92: 4C INCA
773	7D93: 81 10 CMPA #$10
774	7D95: 22 0E BHI $7DA5
775	7D97: AC E4 CPX ,S
776	7D99: 25 02 BCS $7D9D
777	7D9B: 30 10 LEAX $FFF0,X
778	7D9D: 6D 84 TST ,X
779	7D9F: 27 ED BEQ $7D8E
780	7DA1: 30 01 LEAX $0001,X
781	7DA3: 20 F2 BRA $7D97
782
783	7DA5: 32 62 LEAS $0002,S
784	7DA7: 39 RTS
785
786	7DA8: 8E 60 D3 LDX #$60D3
787	7DAB: DE 4F LDU $4F
788	7DAD: E6 80 LDB ,X+
789	7DAF: 27 1D BEQ $7DCE
790	7DB1: 96 4B LDA $4B
791	7DB3: A7 C4 STA ,U
792	7DB5: 6F 41 CLR $0001,U
793	7DB7: E7 42 STB $0002,U
794	7DB9: 10 8E 00 04 LDY #$0004
795	7DBD: 96 58 LDA $58
796	7DBF: 4C INCA
797	7DC0: A7 43 STA $0003,U
798	7DC2: 27 0B BEQ $7DCF
799	7DC4: CC B2 30 LDD #$B230
800	7DC7: 17 FD 9A LBSR $7B64
801	7DCA: ED C1 STD ,U++
802	7DCC: 20 DF BRA $7DAD
803
804	7DCE: 39 RTS
805
806	7DCF: CC EF 21 LDD #$EF21
807	7DD2: 20 F3 BRA $7DC7
808
809	7DD4: E6 01 LDB $0001,X
810	7DD6: C5 40 BITB #$40
811	7DD8: 27 FA BEQ $7DD4
812	7DDA: E6 03 LDB $0003,X
813	7DDC: E6 84 LDB ,X
814	7DDE: 2A FA BPL $7DDA
815	7DE0: E6 84 LDB ,X
816	7DE2: 2A FC BPL $7DE0
817	7DE4: 39 RTS
818
819	7DE5: 86 10 LDA #$10
820	7DE7: 34 02 PSHS A
821	7DE9: DE 4F LDU $4F
822	7DEB: 96 58 LDA $58
823	7DED: 10 26 00 B9 LBNE $7EAA
824	7DF1: 17 FD 4D LBSR $7B41
825	7DF4: 8D DE BSR $7DD4
826	7DF6: CC 4E FF LDD #$4EFF
827	7DF9: ED 03 STD $0003,X
828	7DFB: C6 04 LDB #$04
829	7DFD: E7 84 STB ,X
830	7DFF: 86 1E LDA #$1E
831	7E01: E6 84 LDB ,X
832	7E03: 2A FC BPL $7E01
833	7E05: C6 4E LDB #$4E
834	7E07: E7 03 STB $0003,X
835	7E09: 4A DECA
836	7E0A: 26 F5 BNE $7E01
837	7E0C: 86 0C LDA #$0C
838	7E0E: E6 84 LDB ,X
839	7E10: 2A FC BPL $7E0E
840	7E12: 6F 03 CLR $0003,X
841	7E14: 4A DECA
842	7E15: 26 F7 BNE $7E0E
843	7E17: E6 84 LDB ,X
844	7E19: 2A FC BPL $7E17
845	7E1B: CC A1 0A LDD #$A10A
846	7E1E: ED 03 STD $0003,X
847	7E20: E6 84 LDB ,X
848	7E22: 2A FC BPL $7E20
849	7E24: A7 03 STA $0003,X
850	7E26: E6 84 LDB ,X
851	7E28: 2A FC BPL $7E26
852	7E2A: A7 03 STA $0003,X
853	7E2C: E6 84 LDB ,X
854	7E2E: 2A FC BPL $7E2C
855	7E30: CC FE FF LDD #$FEFF
856	7E33: ED 03 STD $0003,X
857	7E35: 86 06 LDA #$06
858	7E37: E6 84 LDB ,X
859	7E39: 2A FC BPL $7E37
860	7E3B: E6 C0 LDB ,U+
861	7E3D: E7 03 STB $0003,X
862	7E3F: 4A DECA
863	7E40: 26 F5 BNE $7E37
864	7E42: 86 16 LDA #$16
865	7E44: E6 84 LDB ,X
866	7E46: 2A FC BPL $7E44
867	7E48: C6 4E LDB #$4E
868	7E4A: E7 03 STB $0003,X
869	7E4C: 4A DECA
870	7E4D: 26 F5 BNE $7E44
871	7E4F: 86 0C LDA #$0C
872	7E51: E6 84 LDB ,X
873	7E53: 2A FC BPL $7E51
874	7E55: 6F 03 CLR $0003,X
875	7E57: 4A DECA
876	7E58: 26 F7 BNE $7E51
877	7E5A: E6 84 LDB ,X
878	7E5C: 2A FC BPL $7E5A
879	7E5E: CC A1 0A LDD #$A10A
880	7E61: ED 03 STD $0003,X
881	7E63: E6 84 LDB ,X
882	7E65: 2A FC BPL $7E63
883	7E67: A7 03 STA $0003,X
884	7E69: E6 84 LDB ,X
885	7E6B: 2A FC BPL $7E69
886	7E6D: A7 03 STA $0003,X
887	7E6F: E6 84 LDB ,X
888	7E71: 2A FC BPL $7E6F
889	7E73: CC FB FF LDD #$FBFF
890	7E76: ED 03 STD $0003,X
891	7E78: 4F CLRA
892	7E79: E6 84 LDB ,X
893	7E7B: 2A FC BPL $7E79
894	7E7D: C6 E5 LDB #$E5
895	7E7F: E7 03 STB $0003,X
896	7E81: 4A DECA
897	7E82: 26 F5 BNE $7E79
898	7E84: E6 84 LDB ,X
899	7E86: 2A FC BPL $7E84
900	7E88: C6 78 LDB #$78
901	7E8A: E7 03 STB $0003,X
902	7E8C: E6 84 LDB ,X
903	7E8E: 2A FC BPL $7E8C
904	7E90: C6 27 LDB #$27
905	7E92: E7 03 STB $0003,X
906	7E94: 86 2C LDA #$2C
907	7E96: E6 84 LDB ,X
908	7E98: 2A FC BPL $7E96
909	7E9A: C6 4E LDB #$4E
910	7E9C: E7 03 STB $0003,X
911	7E9E: 4A DECA
912	7E9F: 26 F5 BNE $7E96
913	7EA1: 6A E4 DEC ,S
914	7EA3: 10 26 FF 65 LBNE $7E0C
915	7EA7: 16 00 A1 LBRA $7F4B
916
917	7EAA: 17 FC A7 LBSR $7B54
918	7EAD: 17 FF 24 LBSR $7DD4
919	7EB0: CC FF FF LDD #$FFFF
920	7EB3: ED 03 STD $0003,X
921	7EB5: C6 24 LDB #$24
922	7EB7: E7 84 STB ,X
923	7EB9: 86 10 LDA #$10
924	7EBB: E6 84 LDB ,X
925	7EBD: 2A FC BPL $7EBB
926	7EBF: C6 FF LDB #$FF
927	7EC1: E7 03 STB $0003,X
928	7EC3: 4A DECA
929	7EC4: 26 F5 BNE $7EBB
930	7EC6: 86 06 LDA #$06
931	7EC8: E6 84 LDB ,X
932	7ECA: 2A FC BPL $7EC8
933	7ECC: 6F 03 CLR $0003,X
934	7ECE: 4A DECA
935	7ECF: 26 F7 BNE $7EC8
936	7ED1: E6 84 LDB ,X
937	7ED3: 2A FC BPL $7ED1
938	7ED5: CC FE C7 LDD #$FEC7
939	7ED8: ED 03 STD $0003,X
940	7EDA: E6 84 LDB ,X
941	7EDC: 2A FC BPL $7EDA
942	7EDE: C6 FF LDB #$FF
943	7EE0: A6 C0 LDA ,U+
944	7EE2: ED 03 STD $0003,X
945	7EE4: 86 05 LDA #$05
946	7EE6: E6 84 LDB ,X
947	7EE8: 2A FC BPL $7EE6
948	7EEA: E6 C0 LDB ,U+
949	7EEC: E7 03 STB $0003,X
950	7EEE: 4A DECA
951	7EEF: 26 F5 BNE $7EE6
952	7EF1: 86 0C LDA #$0C
953	7EF3: E6 84 LDB ,X
954	7EF5: 2A FC BPL $7EF3
955	7EF7: C6 FF LDB #$FF
956	7EF9: E7 03 STB $0003,X
957	7EFB: 4A DECA
958	7EFC: 26 F5 BNE $7EF3
959	7EFE: 86 06 LDA #$06
960	7F00: E6 84 LDB ,X
961	7F02: 2A FC BPL $7F00
962	7F04: 6F 03 CLR $0003,X
963	7F06: 4A DECA
964	7F07: 26 F7 BNE $7F00
965	7F09: E6 84 LDB ,X
966	7F0B: 2A FC BPL $7F09
967	7F0D: CC FB C7 LDD #$FBC7
968	7F10: ED 03 STD $0003,X
969	7F12: E6 84 LDB ,X
970	7F14: 2A FC BPL $7F12
971	7F16: CC E5 FF LDD #$E5FF
972	7F19: ED 03 STD $0003,X
973	7F1B: 86 7F LDA #$7F
974	7F1D: E6 84 LDB ,X
975	7F1F: 2A FC BPL $7F1D
976	7F21: C6 E5 LDB #$E5
977	7F23: E7 03 STB $0003,X
978	7F25: 4A DECA
979	7F26: 26 F5 BNE $7F1D
980	7F28: E6 84 LDB ,X
981	7F2A: 2A FC BPL $7F28
982	7F2C: C6 5D LDB #$5D
983	7F2E: E7 03 STB $0003,X
984	7F30: E6 84 LDB ,X
985	7F32: 2A FC BPL $7F30
986	7F34: C6 30 LDB #$30
987	7F36: E7 03 STB $0003,X
988	7F38: 86 16 LDA #$16
989	7F3A: E6 84 LDB ,X
990	7F3C: 2A FC BPL $7F3A
991	7F3E: C6 FF LDB #$FF
992	7F40: E7 03 STB $0003,X
993	7F42: 4A DECA
994	7F43: 26 F5 BNE $7F3A
995	7F45: 6A E4 DEC ,S
996	7F47: 10 26 FF 7B LBNE $7EC6
997	7F4B: A6 01 LDA $0001,X
998	7F4D: 85 40 BITA #$40
999	7F4F: 26 08 BNE $7F59
1000	7F51: A6 84 LDA ,X
1001	7F53: 2A FC BPL $7F51
1002	7F55: E7 03 STB $0003,X
1003	7F57: 20 F2 BRA $7F4B
1004
1005	7F59: 35 02 PULS A
1006	7F5B: 6F 84 CLR ,X
1007	7F5D: 0D 48 TST $48
1008	7F5F: 2A 22 BPL $7F83
1009	7F61: 86 E5 LDA #$E5
1010	7F63: 8D 1F BSR $7F84
1011	7F65: CE 60 D3 LDU #$60D3
1012	7F68: 17 FC EF LBSR $7C5A
1013	7F6B: A6 C0 LDA ,U+
1014	7F6D: 27 14 BEQ $7F83
1015	7F6F: 97 4C STA $4C
1016	7F71: 34 40 PSHS U
1017	7F73: 96 58 LDA $58
1018	7F75: 27 05 BEQ $7F7C
1019	7F77: 17 FB 67 LBSR $7AE1
1020	7F7A: 20 03 BRA $7F7F
1021
1022	7F7C: 17 FA 9D LBSR $7A1C
1023	7F7F: 35 40 PULS U
1024	7F81: 24 E8 BCC $7F6B
1025	7F83: 39 RTS
1026
1027	7F84: DE 4F LDU $4F
1028	7F86: D6 58 LDB $58
1029	7F88: C4 80 ANDB #$80
1030	7F8A: A7 C0 STA ,U+
1031	7F8C: 5A DECB
1032	7F8D: 26 FB BNE $7F8A
1033	7F8F: 39 RTS
1034
1035	7F90: 86 14 LDA #$14
1036	7F92: 97 4B STA $4B
1037	7F94: 17 FC E3 LBSR $7C7A
1038	7F97: 86 FF LDA #$FF
1039	7F99: 8D E9 BSR $7F84
1040	7F9B: 86 10 LDA #$10
1041	7F9D: 97 4C STA $4C
1042	7F9F: 17 FC B8 LBSR $7C5A
1043	7FA2: 17 F9 E2 LBSR $7987
1044	7FA5: 25 18 BCS $7FBF
1045	7FA7: 0A 4C DEC $4C
1046	7FA9: 26 F4 BNE $7F9F
1047	7FAB: DE 4F LDU $4F
1048	7FAD: 6F C4 CLR ,U
1049	7FAF: CC FE FE LDD #$FEFE
1050	7FB2: ED C8 29 STD $29,U
1051	7FB5: 86 02 LDA #$02
1052	7FB7: 97 4C STA $4C
1053	7FB9: 17 F9 CB LBSR $7987
1054	7FBC: 25 01 BCS $7FBF
1055	7FBE: 4F CLRA
1056	7FBF: 39 RTS

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

Download in other formats:

Original Format