Context Navigation

DKCO720.ASM

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

Rev	Line
[1]	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