source: HXC_thomson_filesel/docs/DKCO720.ASM @ 4

Last change on this file since 4 was 1, checked in by svn, 5 years ago

Import initial

File size: 28.0 KB
Line 
1ORG $7800
27800: MTD:
3
47804: 16 00 6F    LBRA  $7876
5
67807: 16 00 1B    LBRA  $7825
7
8780A: 16 04 A6    LBRA  $7CB3
9
10780D: 17 0C A8    LBSR  $84B8
117810: 17 0C A5    LBSR  $84B8
127813: 17 0C A2    LBSR  $84B8
137816: 17 0C 9F    LBSR  $84B8
147819: 17 0C 9C    LBSR  $84B8
15781C: 17 0C 99    LBSR  $84B8
16781F: 17 0C 96    LBSR  $84B8
177822: 17 0C 93    LBSR  $84B8
18
19
20BOOT_FLOPPY()
217825: 8D 76       BSR   $789D
227827: 0F 49       CLR   $49
237829: 8D 7C       BSR   $78A7
24782B: 17 00 D0    LBSR  $78FE
25782E: 86 02       LDA   #$02
267830: 34 02       PSHS  A
277832: 0F 58       CLR   $58
287834: CC 00 01    LDD   #$0001
297837: DD 4B       STD   $4B
307839: CE 62 00    LDU   #$6200
31783C: DF 4F       STU   $4F
32783E: 17 03 66    LBSR  $7BA7
337841: 8D 76       BSR   $78B9
347843: DE 4F       LDU   $4F
357845: 24 08       BCC   $784F
367847: 96 58       LDA   $58
377849: 26 20       BNE   $786B
38784B: 03 58       COM   $58
39784D: 20 E5       BRA   $7834
40
41784F: 10 8E 62 7F LDY   #$627F
427853: 34 20       PSHS  Y
437855: 86 55       LDA   #$55
447857: 6A C4       DEC   ,U
457859: 63 C4       COM   ,U
46785B: AB C0       ADDA  ,U+
47785D: 11 A3 E4    CMPU  ,S
487860: 26 F5       BNE   $7857
497862: 35 20       PULS  Y
507864: A1 C4       CMPA  ,U
517866: 26 08       BNE   $7870
527868: 7E 62 00    JMP   $6200  # execute BOOT
53
54erreur_boot:
55786B: 35 02       PULS  A
56786D: 4A          DECA 
57786E: 26 C0       BNE   $7830
587870: 0F 80       CLR   $80
597872: 6E 9F 00 1E JMP   [$001E,X]
60
61
62DISC_FUNC()
637876: 34 7F       PSHS  U,Y,X,DP,B,A,CC
647878: 8D 23       BSR   $789D
65787A: 96 48       LDA   $48
66787C: 81 01       CMPA  #$01
67787E: 27 06       BEQ   $7886
687880: 96 49       LDA   $49
697882: 81 04       CMPA  #$04
707884: 27 0D       BEQ   $7893
717886: 8D 1F       BSR   $78A7
727888: 8D 38       BSR   $78C2
73788A: 8D 2D       BSR   $78B9
74788C: 35 02       PULS  A
75788E: 1E 8A       EXG   A,CC
767890: 44          LSRA 
777891: 35 FE       PULS  A,B,DP,X,Y,U,PC ;(PUL? PC=RTS)
78
79ramdisk
807893: CE E0 04    LDU   #$E004
817896: DF 55       STU   $55
827898: BD FF A0    JSR   $FFA0
83789B: 20 EF       BRA   $788C
84
85789D: 86 60       LDA   #$60
86789F: 1F 8B       TFR   A,DP
8778A1: 8E E7 D0    LDX   #$E7D0
8878A4: 0F 4E       CLR   $4E
8978A6: 39          RTS   
90
9178A7: DC 48       LDD   $48
9278A9: 81 01       CMPA  #$01
9378AB: 26 02       BNE   $78AF
9478AD: C6 01       LDB   #$01
9578AF: CE E0 BE    LDU   #$E0BE
9678B2: A6 C5       LDA   B,U
9778B4: A7 02       STA   $0002,X
9878B6: 97 57       STA   $57
9978B8: 39          RTS   
100
10178B9: 86 40       LDA   #$40
10278BB: A7 02       STA   $0002,X
10378BD: 39          RTS   
104
105table des bits des lecteurs
10678BE: 41
10778BF: 01
10878C0: 42
10978C1: 02
110
111execution fonctions standard
11278C2: 86 02       LDA   #$02
11378C4: 34 02       PSHS  A
11478C6: 4F          CLRA 
11578C7: D6 48       LDB   $48
11678C9: 54          LSRB 
11778CA: 4C          INCA 
11878CB: 24 FC       BCC   $78C9
11978CD: 4A          DECA 
12078CE: 48          ASLA 
12178CF: 10 8E 78 F0 LDY   #$78F0
12278D3: AD B6       JSR   [A,Y]
12378D5: 24 17       BCC   $78EE
12478D7: 96 4E       LDA   $4E
12578D9: 85 51       BITA  #$51
12678DB: 26 11       BNE   $78EE
12778DD: 6A E4       DEC   ,S
12878DF: 27 0C       BEQ   $78ED
12978E1: 0F 4E       CLR   $4E
13078E3: 81 08       CMPA  #$08
13178E5: 27 DF       BEQ   $78C6
13278E7: 8D 4B       BSR   $7934
13378E9: 25 F2       BCS   $78DD
13478EB: 20 D9       BRA   $78C6
135
13678ED: 53          COMB 
13778EE: 35 82       PULS  A,PC ;(PUL? PC=RTS)
138
139table des fonctions
14078F0: 78 FE  # reset
14178F2: 7B A7  # lecture LOAD_SECTOR()
14278F4: 79 6E  # passage simple densité ?
14378F6: 79 77  # ecriture WRITE_SECTOR()
14478F8: 79 74  # double densité ?
14578FA: 79 34  # recherche piste 0 TRACK0()
14678FC: 7C 52  # recherche piste SEEK()
147
148
14978FE: 8D 34       BSR   $7934
1507900: 25 31       BCS   $7933
1517902: 86 01       LDA   #$01
1527904: 97 4B       STA   $4B
1537906: 17 03 71    LBSR  $7C7A
1547909: C6 44       LDB   #$44
155790B: A6 01       LDA   $0001,X
156790D: 85 08       BITA  #$08
157790F: 27 02       BEQ   $7913
1587911: C6 43       LDB   #$43
1597913: D7 4E       STB   $4E
1607915: 8D 1D       BSR   $7934
1617917: 0F 52       CLR   $52
1627919: 0F 54       CLR   $54
163791B: 6F 84       CLR   ,X
164791D: 0F 58       CLR   $58
165791F: DC E9       LDD   $E9
1667921: 93 ED       SUBD  $ED
1677923: 2C 05       BGE   $792A
1687925: 43          COMA 
1697926: 53          COMB 
1707927: C3 00 01    ADDD  #$0001
171792A: 4D          TSTA 
172792B: 26 05       BNE   $7932
173792D: 5D          TSTB 
174792E: 2A 02       BPL   $7932
1757930: 03 58       COM   $58
1767932: 4F          CLRA 
1777933: 39          RTS   
178
1797934: C6 64       LDB   #$64
1807936: A6 01       LDA   $0001,X
1817938: 85 08       BITA  #$08
182793A: 26 13       BNE   $794F
183793C: 96 57       LDA   $57
184793E: 8A 10       ORA   #$10
1857940: A7 02       STA   $0002,X
1867942: 84 EF       ANDA  #$EF
1877944: A7 02       STA   $0002,X
1887946: 8D 1D       BSR   $7965
1897948: 5A          DECB 
1907949: 10 27 03 27 LBEQ  $7C74
191794D: 20 E7       BRA   $7936
192
193794F: 8D 0E       BSR   $795F
1947951: 17 03 54    LBSR  $7CA8
1957954: 6F A4       CLR   ,Y
1967956: 6F 06       CLR   $0006,X
1977958: 39          RTS   
198
1997959: 10 8E 00 6C LDY   #$006C
200795D: 20 0A       BRA   $7969
201
202795F: 10 8E 07 50 LDY   #$0750
2037963: 20 04       BRA   $7969
204
2057965: 10 8E 02 EC LDY   #$02EC
2067969: 31 3F       LEAY  -1,Y
207796B: 26 FC       BNE   $7969
208796D: 39          RTS   
209
210796E: 86 FF       LDA   #$FF
2117970: 97 58       STA   $58
2127972: 4F          CLRA 
2137973: 39          RTS   
214
2157974: 0F 58       CLR   $58
2167976: 39          RTS   
217
2187977: 17 02 D8    LBSR  $7C52
219797A: 25 FA       BCS   $7976
220797C: A6 01       LDA   $0001,X
221797E: 85 04       BITA  #$04
2227980: 27 05       BEQ   $7987
2237982: 86 01       LDA   #$01
2247984: 16 02 EF    LBRA  $7C76
225
2267987: 17 01 B7    LBSR  $7B41
227798A: C6 19       LDB   #$19
228798C: 34 01       PSHS  CC
229798E: 17 02 03    LBSR  $7B94
2307991: 10 8E 75 00 LDY   #$7500
2317995: 31 3F       LEAY  $FFFF,Y
2327997: 10 27 02 A5 LBEQ  $7C40
233799B: E6 84       LDB   ,X
234799D: C5 02       BITB  #$02
235799F: 27 F4       BEQ   $7995
23679A1: A7 03       STA   $0003,X
23779A3: E6 84       LDB   ,X
23879A5: 2A FC       BPL   $79A3
23979A7: A7 03       STA   $0003,X
24079A9: E6 84       LDB   ,X
24179AB: 2A FC       BPL   $79A9
24279AD: C6 FB       LDB   #$FB
24379AF: E7 03       STB   $0003,X
24479B1: 10 8E 02 00 LDY   #$0200
24579B5: E6 84       LDB   ,X
24679B7: 2A FC       BPL   $79B5
24779B9: E6 C0       LDB   ,U+
24879BB: E7 03       STB   $0003,X
24979BD: 31 3F       LEAY  $FFFF,Y
25079BF: 26 F4       BNE   $79B5
25179C1: 12          NOP   
25279C2: 12          NOP   
25379C3: E6 84       LDB   ,X
25479C5: C5 08       BITB  #$08
25579C7: 27 FA       BEQ   $79C3
25679C9: 8D 8E       BSR   $7959
25779CB: 0D 48       TST   $48
25879CD: 2A 48       BPL   $7A17
25979CF: 17 02 88    LBSR  $7C5A
26079D2: C6 1B       LDB   #$1B
26179D4: 17 01 BD    LBSR  $7B94
26279D7: 86 04       LDA   #$04
26379D9: 10 8E 75 00 LDY   #$7500
26479DD: 31 3F       LEAY  $FFFF,Y
26579DF: 10 27 00 F9 LBEQ  $7ADC
26679E3: E6 84       LDB   ,X
26779E5: C5 02       BITB  #$02
26879E7: 27 F4       BEQ   $79DD
26979E9: E6 03       LDB   $0003,X
27079EB: 4A          DECA 
27179EC: 10 27 02 58 LBEQ  $7C48
27279F0: E6 84       LDB   ,X
27379F2: 2A FC       BPL   $79F0
27479F4: E6 03       LDB   $0003,X
27579F6: C1 FB       CMPB  #$FB
27679F8: 26 F1       BNE   $79EB
27779FA: 4F          CLRA 
27879FB: E6 84       LDB   ,X
27979FD: 2A FC       BPL   $79FB
28079FF: E6 03       LDB   $0003,X
2817A01: E1 C0       CMPB  ,U+
2827A03: 26 03       BNE   $7A08
2837A05: 4A          DECA 
2847A06: 26 F3       BNE   $79FB
2857A08: E6 84       LDB   ,X
2867A0A: C5 08       BITB  #$08
2877A0C: 27 FA       BEQ   $7A08
2887A0E: 4D          TSTA 
2897A0F: 26 02       BNE   $7A13
2907A11: C5 04       BITB  #$04
2917A13: 10 26 00 C5 LBNE  $7ADC
2927A17: 35 01       PULS  CC
2937A19: 6F 84       CLR   ,X
2947A1B: 39          RTS   
295
2967A1C: 34 01       PSHS  CC
2977A1E: 20 AF       BRA   $79CF
298
2997A20: 17 01 31    LBSR  $7B54
3007A23: 17 01 35    LBSR  $7B5B
3017A26: 34 01       PSHS  CC
3027A28: 34 06       PSHS  B,A
3037A2A: 17 00 BD    LBSR  $7AEA
3047A2D: 24 05       BCC   $7A34
3057A2F: 35 06       PULS  A,B
3067A31: 16 02 0C    LBRA  $7C40
307
3087A34: C6 FF       LDB   #$FF
3097A36: E7 04       STB   $0004,X
3107A38: CC 06 24    LDD   #$0624
3117A3B: E7 84       STB   ,X
3127A3D: E6 84       LDB   ,X
3137A3F: 2A FC       BPL   $7A3D
3147A41: 6F 03       CLR   $0003,X
3157A43: 4A          DECA 
3167A44: 26 F7       BNE   $7A3D
3177A46: E6 84       LDB   ,X
3187A48: 2A FC       BPL   $7A46
3197A4A: CC FB C7    LDD   #$FBC7
3207A4D: ED 03       STD   $0003,X
3217A4F: C6 FF       LDB   #$FF
3227A51: A6 84       LDA   ,X
3237A53: 2A FC       BPL   $7A51
3247A55: A6 C0       LDA   ,U+
3257A57: ED 03       STD   $0003,X
3267A59: 86 7F       LDA   #$7F
3277A5B: E6 84       LDB   ,X
3287A5D: 2A FC       BPL   $7A5B
3297A5F: E6 C0       LDB   ,U+
3307A61: E7 03       STB   $0003,X
3317A63: 4A          DECA 
3327A64: 26 F5       BNE   $7A5B
3337A66: E6 84       LDB   ,X
3347A68: 2A FC       BPL   $7A66
3357A6A: 35 04       PULS  B
3367A6C: E7 03       STB   $0003,X
3377A6E: 43          COMA 
3387A6F: 26 F5       BNE   $7A66
3397A71: E6 84       LDB   ,X
3407A73: 2A FC       BPL   $7A71
3417A75: 6F 03       CLR   $0003,X
3427A77: E6 84       LDB   ,X
3437A79: 2A FC       BPL   $7A77
3447A7B: C6 20       LDB   #$20
3457A7D: E7 84       STB   ,X
3467A7F: E6 84       LDB   ,X
3477A81: 2A FC       BPL   $7A7F
3487A83: E6 03       LDB   $0003,X
3497A85: 43          COMA 
3507A86: 26 F7       BNE   $7A7F
3517A88: 32 7E       LEAS  $FFFE,S
3527A8A: 17 FE CC    LBSR  $7959
3537A8D: 0D 48       TST   $48
3547A8F: 2A 42       BPL   $7AD3
3557A91: 17 01 C6    LBSR  $7C5A
3567A94: 8D 54       BSR   $7AEA
3577A96: 25 42       BCS   $7ADA
3587A98: C6 FB       LDB   #$FB
3597A9A: E7 03       STB   $0003,X
3607A9C: CC 80 38    LDD   #$8038
3617A9F: E7 84       STB   ,X
3627AA1: 10 8E 01 00 LDY   #$0100
3637AA5: 31 3F       LEAY  $FFFF,Y
3647AA7: 27 31       BEQ   $7ADA
3657AA9: E6 84       LDB   ,X
3667AAB: C5 01       BITB  #$01
3677AAD: 27 F6       BEQ   $7AA5
3687AAF: E6 03       LDB   $0003,X
3697AB1: C6 28       LDB   #$28
3707AB3: E7 84       STB   ,X
3717AB5: E6 84       LDB   ,X
3727AB7: 2A FC       BPL   $7AB5
3737AB9: E6 03       LDB   $0003,X
3747ABB: E1 C0       CMPB  ,U+
3757ABD: 26 1B       BNE   $7ADA
3767ABF: 4A          DECA 
3777AC0: 26 F3       BNE   $7AB5
3787AC2: A6 84       LDA   ,X
3797AC4: 2A FC       BPL   $7AC2
3807AC6: A6 03       LDA   $0003,X
3817AC8: E6 84       LDB   ,X
3827ACA: 2A FC       BPL   $7AC8
3837ACC: E6 03       LDB   $0003,X
3847ACE: 10 A3 E4    CMPD  ,S
3857AD1: 26 07       BNE   $7ADA
3867AD3: 35 06       PULS  A,B
3877AD5: 35 01       PULS  CC
3887AD7: 6F 84       CLR   ,X
3897AD9: 39          RTS   
390
3917ADA: 35 06       PULS  A,B
3927ADC: 86 20       LDA   #$20
3937ADE: 16 01 69    LBRA  $7C4A
394
3957AE1: 34 01       PSHS  CC
3967AE3: CC 5D 30    LDD   #$5D30
3977AE6: 34 06       PSHS  B,A
3987AE8: 20 A7       BRA   $7A91
399
4007AEA: 86 C7       LDA   #$C7
4017AEC: A7 04       STA   $0004,X
4027AEE: 86 FE       LDA   #$FE
4037AF0: A7 03       STA   $0003,X
4047AF2: 86 30       LDA   #$30
4057AF4: DE 4F       LDU   $4F
4067AF6: 1A 50       ORCC  #$50
4077AF8: C6 38       LDB   #$38
4087AFA: E7 84       STB   ,X
4097AFC: 10 8E 17 00 LDY   #$1700
4107B00: 31 3F       LEAY  $FFFF,Y
4117B02: 27 3A       BEQ   $7B3E
4127B04: E6 84       LDB   ,X
4137B06: C5 01       BITB  #$01
4147B08: 27 F6       BEQ   $7B00
4157B0A: E6 03       LDB   $0003,X
4167B0C: C6 28       LDB   #$28
4177B0E: E7 84       STB   ,X
4187B10: E6 84       LDB   ,X
4197B12: 2A FC       BPL   $7B10
4207B14: E6 03       LDB   $0003,X
4217B16: D1 4B       CMPB  $4B
4227B18: 26 21       BNE   $7B3B
4237B1A: E6 84       LDB   ,X
4247B1C: 2A FC       BPL   $7B1A
4257B1E: E6 03       LDB   $0003,X
4267B20: 26 19       BNE   $7B3B
4277B22: E6 84       LDB   ,X
4287B24: 2A FC       BPL   $7B22
4297B26: E6 03       LDB   $0003,X
4307B28: D1 4C       CMPB  $4C
4317B2A: 26 0F       BNE   $7B3B
4327B2C: E6 84       LDB   ,X
4337B2E: 2A FC       BPL   $7B2C
4347B30: E6 03       LDB   $0003,X
4357B32: 26 07       BNE   $7B3B
4367B34: 17 FE 22    LBSR  $7959
4377B37: 4F          CLRA 
4387B38: A6 84       LDA   ,X
4397B3A: 39          RTS   
440
4417B3B: 4A          DECA 
4427B3C: 26 BA       BNE   $7AF8
4437B3E: 53          COMB 
4447B3F: 20 F7       BRA   $7B38
445
4467B41: D6 4B       LDB   $4B
4477B43: C1 39       CMPB  #$39
4487B45: 2A 05       BPL   $7B4C
4497B47: CC 9F 40    LDD   #$9F40
4507B4A: 20 03       BRA   $7B4F
451
4527B4C: CC 1F 42    LDD   #$1F42
4537B4F: A7 07       STA   $0007,X
4547B51: 96 49       LDA   $49
4557B53: 84 01       ANDA  #$01
4567B55: 27 02       BEQ   $7B59
4577B57: CB 10       ADDB  #$10
4587B59: E7 01       STB   $0001,X
4597B5B: 39          RTS   
460
4617B5C: 4F          CLRA 
4627B5D: 10 8E 00 80 LDY   #$0080
4637B61: CC BF 84    LDD   #$BF84
4647B64: 34 06       PSHS  B,A
4657B66: A6 E4       LDA   ,S
4667B68: A8 C0       EORA  ,U+
4677B6A: 34 02       PSHS  A
4687B6C: 44          LSRA 
4697B6D: 44          LSRA 
4707B6E: 44          LSRA 
4717B6F: 44          LSRA 
4727B70: A8 E4       EORA  ,S
4737B72: A7 E4       STA   ,S
4747B74: 1F 89       TFR   A,B
4757B76: 54          LSRB 
4767B77: 54          LSRB 
4777B78: 54          LSRB 
4787B79: 48          ASLA 
4797B7A: 48          ASLA 
4807B7B: 48          ASLA 
4817B7C: 48          ASLA 
4827B7D: E8 62       EORB  $0002,S
4837B7F: E7 62       STB   $0002,S
4847B81: 1F 89       TFR   A,B
4857B83: A8 62       EORA  $0002,S
4867B85: A7 61       STA   $0001,S
4877B87: 58          ASLB 
4887B88: E8 E4       EORB  ,S
4897B8A: E7 62       STB   $0002,S
4907B8C: 32 61       LEAS  $0001,S
4917B8E: 31 3F       LEAY  $FFFF,Y
4927B90: 26 D4       BNE   $7B66
4937B92: 35 86       PULS  A,B,PC ;(PUL? PC=RTS)
494
495init registre disques
4967B94: 96 4C       LDA   $4C     
4977B96: A7 05       STA   $0005,X
4987B98: 86 0A       LDA   #$0A
4997B9A: A7 04       STA   $0004,X
5007B9C: 86 A1       LDA   #$A1
5017B9E: A7 03       STA   $0003,X
5027BA0: 1A 50       ORCC  #$50
5037BA2: DE 4F       LDU   $4F U is user buffer
5047BA4: E7 84       STB   ,X  store command to THFMC1
5057BA6: 39          RTS   
506
507LOAD_SECTOR()
5087BA7: 17 00 A8    LBSR  $7C52  recherche la piste
5097BAA: 10 25 00 91 LBCS  $7C3F  sortie en erreur
5107BAE: 34 01       PSHS  CC
5117BB0: 8D 8F       BSR   $7B41  fixe précompensation
5127BB2: C6 1B       LDB   #$1B   lecture auto
5137BB4: 8D DE       BSR   $7B94  registre disques
5147BB6: 86 04       LDA   #$04
5157BB8: 10 8E 75 00 LDY   #$7500
5167BBC: 31 3F       LEAY  -1,Y
5177BBE: 27 09       BEQ   $7BC9   si erreur secteur non trouvé
5187BC0: E6 84       LDB   ,X
5197BC2: C5 02       BITB  #$02
5207BC4: 27 F6       BEQ   $7BBC   loop attente ctrl
5217BC6: E6 03       LDB   $0003,X
5227BC8: 4A          DECA 
5237BC9: 27 7D       BEQ   $7C48
5247BCB: E6 84       LDB   ,X
5257BCD: 2A FC       BPL   $7BCB
5267BCF: E6 03       LDB   $0003,X
5277BD1: C1 FB       CMPB  #$FB
5287BD3: 26 F3       BNE   $7BC8
5297BD5: 10 8E 02 00 LDY   #$0200   positionne compteur à 512 octets
5307BD9: E6 84       LDB   ,X
5317BDB: 2A FC       BPL   $7BD9
5327BDD: E6 03       LDB   $0003,X
5337BDF: E7 C0       STB   ,U+
5347BE1: 31 3F       LEAY  -1,Y
5357BE3: 26 F4       BNE   $7BD9    loop
5367BE5: E6 84       LDB   ,X
5377BE7: C5 08       BITB  #$08
5387BE9: 27 FA       BEQ   $7BE5
5397BEB: C5 04       BITB  #$04
5407BED: 26 55       BNE   $7C44
5417BEF: 20 4A       BRA   $7C3B
542
5437BF1: 17 FF 60    LBSR  $7B54
5447BF4: 17 FE F3    LBSR  $7AEA
5457BF7: 25 47       BCS   $7C40
5467BF9: 31 23       LEAY  $0003,Y
5477BFB: 17 FD 6B    LBSR  $7969
5487BFE: C6 FB       LDB   #$FB
5497C00: E7 03       STB   $0003,X
5507C02: CC 80 38    LDD   #$8038
5517C05: E7 84       STB   ,X
5527C07: 10 8E 01 00 LDY   #$0100
5537C0B: 31 3F       LEAY  $FFFF,Y
5547C0D: 27 39       BEQ   $7C48
5557C0F: E6 84       LDB   ,X
5567C11: C5 01       BITB  #$01
5577C13: 27 F6       BEQ   $7C0B
5587C15: E6 03       LDB   $0003,X
5597C17: C6 28       LDB   #$28
5607C19: E7 84       STB   ,X
5617C1B: E6 84       LDB   ,X
5627C1D: 2A FC       BPL   $7C1B
5637C1F: E6 03       LDB   $0003,X
5647C21: E7 C0       STB   ,U+
5657C23: 4A          DECA 
5667C24: 26 F5       BNE   $7C1B
5677C26: E6 84       LDB   ,X
5687C28: 2A FC       BPL   $7C26
5697C2A: E6 03       LDB   $0003,X
5707C2C: 34 04       PSHS  B
5717C2E: 43          COMA 
5727C2F: 26 F5       BNE   $7C26
5737C31: 17 FF 27    LBSR  $7B5B
5747C34: 1E 89       EXG   A,B
5757C36: 10 A3 E1    CMPD  ,S++
5767C39: 26 09       BNE   $7C44
5777C3B: 35 01       PULS  CC
5787C3D: 6F 84       CLR   ,X
5797C3F: 39          RTS   
580
5817C40: 86 04       LDA   #$04
5827C42: 20 06       BRA   $7C4A
583
5847C44: 86 08       LDA   #$08
5857C46: 20 02       BRA   $7C4A
586
5877C48: 86 02       LDA   #$02
5887C4A: 97 4E       STA   $4E
5897C4C: 6F 84       CLR   ,X
5907C4E: 35 01       PULS  CC
5917C50: 43          COMA 
5927C51: 39          RTS   
593
594SEEK()
5957C52: 8D 06       BSR   $7C5A # activation du lecteur
5967C54: 25 03       BCS   $7C59 # sortie en erreur
5977C56: 8D 22       BSR   $7C7A # deplacement des tetes
5987C58: 4F          CLRA 
5997C59: 39          RTS   
600
601Activation du lecteur
6027C5A: 10 8E 80 00 LDY   #$8000
6037C5E: D6 57       LDB   $57
6047C60: CA 04       ORB   #$04
6057C62: E7 02       STB   $0002,X
6067C64: C4 FB       ANDB  #$FB
6077C66: E7 02       STB   $0002,X
6087C68: 31 3F       LEAY  -1,Y
6097C6A: 27 08       BEQ   $7C74
6107C6C: E6 01       LDB   $0001,X
6117C6E: C4 02       ANDB  #$02
6127C70: 27 EC       BEQ   $7C5E
6137C72: 4F          CLRA 
6147C73: 39          RTS   
615
6167C74: 86 10       LDA   #$10
6177C76: 34 01       PSHS  CC
6187C78: 20 D0       BRA   $7C4A
619
620deplacement des tetes:
6217C7A: 17 FC E8    LBSR  $7965
6227C7D: 8D 29       BSR   $7CA8
6237C7F: E6 A4       LDB   ,Y
6247C81: 96 57       LDA   $57
6257C83: D0 4B       SUBB  $4B
6267C85: 27 18       BEQ   $7C9F
6277C87: 2A 03       BPL   $7C8C
6287C89: 8A 20       ORA   #$20
6297C8B: 50          NEGB 
6307C8C: A7 02       STA   $0002,X
6317C8E: 8A 14       ORA   #$14
6327C90: A7 02       STA   $0002,X
6337C92: 84 EB       ANDA  #$EB
6347C94: A7 02       STA   $0002,X
6357C96: 17 FC CC    LBSR  $7965
6367C99: 5A          DECB 
6377C9A: 26 F2       BNE   $7C8E
6387C9C: 17 FC C0    LBSR  $795F
6397C9F: 8D 07       BSR   $7CA8
6407CA1: D6 4B       LDB   $4B
6417CA3: E7 06       STB   $0006,X
6427CA5: E7 A4       STB   ,Y
6437CA7: 39          RTS   
644
6457CA8: 10 8E 60 52 LDY   #$6052
6467CAC: 96 49       LDA   $49
6477CAE: 84 02       ANDA  #$02
6487CB0: 31 A6       LEAY  A,Y
6497CB2: 39          RTS   
650
6517CB3: 34 7F       PSHS  U,Y,X,DP,B,A,CC
6527CB5: 17 FB E5    LBSR  $789D
6537CB8: 96 49       LDA   $49
6547CBA: 81 04       CMPA  #$04
6557CBC: 26 0A       BNE   $7CC8
6567CBE: CE E0 0A    LDU   #$E00A
6577CC1: DF 55       STU   $55
6587CC3: BD FF A0    JSR   $FFA0
6597CC6: 20 56       BRA   $7D1E
660
6617CC8: 8D 69       BSR   $7D33
6627CCA: 96 48       LDA   $48
6637CCC: 84 80       ANDA  #$80
6647CCE: 97 48       STA   $48
6657CD0: 17 FB D4    LBSR  $78A7
6667CD3: 17 FF 84    LBSR  $7C5A
6677CD6: 25 46       BCS   $7D1E
6687CD8: 17 FC 59    LBSR  $7934
6697CDB: 25 41       BCS   $7D1E
6707CDD: 0F 4B       CLR   $4B
6717CDF: 8D 40       BSR   $7D21
6727CE1: 25 3B       BCS   $7D1E
6737CE3: 34 01       PSHS  CC
6747CE5: 1A 50       ORCC  #$50
6757CE7: 17 00 8E    LBSR  $7D78
6767CEA: 86 02       LDA   #$02
6777CEC: 34 02       PSHS  A
6787CEE: 17 00 B7    LBSR  $7DA8
6797CF1: 8E E7 D0    LDX   #$E7D0
6807CF4: 17 FF 63    LBSR  $7C5A
6817CF7: 17 00 EB    LBSR  $7DE5
6827CFA: 24 0B       BCC   $7D07
6837CFC: 6A E4       DEC   ,S
6847CFE: 26 EE       BNE   $7CEE
6857D00: 35 02       PULS  A
6867D02: 35 01       PULS  CC
6877D04: 43          COMA 
6887D05: 20 17       BRA   $7D1E
689
6907D07: 35 02       PULS  A
6917D09: 35 01       PULS  CC
6927D0B: 96 4B       LDA   $4B
6937D0D: 81 4F       CMPA  #$4F
6947D0F: 27 04       BEQ   $7D15
6957D11: 8D 1B       BSR   $7D2E
6967D13: 20 CE       BRA   $7CE3
697
6987D15: 17 02 78    LBSR  $7F90
6997D18: 25 04       BCS   $7D1E
7007D1A: 86 50       LDA   #$50
7017D1C: 97 4B       STA   $4B
7027D1E: 16 FB 69    LBRA  $788A
703
7047D21: A6 01       LDA   $0001,X
7057D23: 85 04       BITA  #$04
7067D25: 26 02       BNE   $7D29
7077D27: 4F          CLRA 
7087D28: 39          RTS   
709
7107D29: 86 01       LDA   #$01
7117D2B: 16 FF 48    LBRA  $7C76
712
7137D2E: 0C 4B       INC   $4B
7147D30: 16 FF 47    LBRA  $7C7A
715
7167D33: 34 10       PSHS  X
7177D35: CE E5 5E    LDU   #$E55E
7187D38: 8E 00 03    LDX   #$0003
7197D3B: C6 04       LDB   #$04
7207D3D: A6 84       LDA   ,X
7217D3F: A1 C4       CMPA  ,U
7227D41: 27 09       BEQ   $7D4C
7237D43: 5C          INCB 
7247D44: 33 C5       LEAU  B,U
7257D46: A6 C4       LDA   ,U
7267D48: 26 EE       BNE   $7D38
7277D4A: 20 10       BRA   $7D5C
728
7297D4C: 30 1F       LEAX  $FFFF,X
7307D4E: 26 03       BNE   $7D53
7317D50: 8E 00 1A    LDX   #$001A
7327D53: 33 41       LEAU  $0001,U
7337D55: 5A          DECB 
7347D56: 26 E5       BNE   $7D3D
7357D58: A6 C4       LDA   ,U
7367D5A: 97 58       STA   $58
7377D5C: 35 90       PULS  X,PC ;(PUL? PC=RTS)
738
739
740???
7417D5E: 52          Illegal Opcode
7427D5F: 45          Illegal Opcode
7437D60: 47          ASRA 
7447D61: 6E FF 43 49 JMP   [$4349,S]
745
7467D65: 50          NEGB 
7477D66: 4A          DECA 
7487D67: FF 4C 45    STU   $4C45
7497D6A: 4D          TSTA 
7507D6B: 74 FF 4C    LSR   $FF4C
7517D6E: 4F          CLRA 
7527D6F: 50          NEGB 
7537D70: B5 00 53    BITA  $0053
7547D73: 45          Illegal Opcode
7557D74: 47          ASRA 
7567D75: B6 00 00    LDA   $0000
757???
758
759
7607D78: 8E 60 D3    LDX   #$60D3
7617D7B: C6 10       LDB   #$10
7627D7D: 6F 85       CLR   B,X
7637D7F: 5A          DECB 
7647D80: 26 FB       BNE   $7D7D
7657D82: 30 88 10    LEAX  $10,X
7667D85: 34 10       PSHS  X
7677D87: 8E 60 D3    LDX   #$60D3
7687D8A: 86 01       LDA   #$01
7697D8C: D6 4D       LDB   $4D
7707D8E: A7 84       STA   ,X
7717D90: 30 85       LEAX  B,X
7727D92: 4C          INCA 
7737D93: 81 10       CMPA  #$10
7747D95: 22 0E       BHI   $7DA5
7757D97: AC E4       CPX   ,S
7767D99: 25 02       BCS   $7D9D
7777D9B: 30 10       LEAX  $FFF0,X
7787D9D: 6D 84       TST   ,X
7797D9F: 27 ED       BEQ   $7D8E
7807DA1: 30 01       LEAX  $0001,X
7817DA3: 20 F2       BRA   $7D97
782
7837DA5: 32 62       LEAS  $0002,S
7847DA7: 39          RTS   
785
7867DA8: 8E 60 D3    LDX   #$60D3
7877DAB: DE 4F       LDU   $4F
7887DAD: E6 80       LDB   ,X+
7897DAF: 27 1D       BEQ   $7DCE
7907DB1: 96 4B       LDA   $4B
7917DB3: A7 C4       STA   ,U
7927DB5: 6F 41       CLR   $0001,U
7937DB7: E7 42       STB   $0002,U
7947DB9: 10 8E 00 04 LDY   #$0004
7957DBD: 96 58       LDA   $58
7967DBF: 4C          INCA 
7977DC0: A7 43       STA   $0003,U
7987DC2: 27 0B       BEQ   $7DCF
7997DC4: CC B2 30    LDD   #$B230
8007DC7: 17 FD 9A    LBSR  $7B64
8017DCA: ED C1       STD   ,U++
8027DCC: 20 DF       BRA   $7DAD
803
8047DCE: 39          RTS   
805
8067DCF: CC EF 21    LDD   #$EF21
8077DD2: 20 F3       BRA   $7DC7
808
8097DD4: E6 01       LDB   $0001,X
8107DD6: C5 40       BITB  #$40
8117DD8: 27 FA       BEQ   $7DD4
8127DDA: E6 03       LDB   $0003,X
8137DDC: E6 84       LDB   ,X
8147DDE: 2A FA       BPL   $7DDA
8157DE0: E6 84       LDB   ,X
8167DE2: 2A FC       BPL   $7DE0
8177DE4: 39          RTS   
818
8197DE5: 86 10       LDA   #$10
8207DE7: 34 02       PSHS  A
8217DE9: DE 4F       LDU   $4F
8227DEB: 96 58       LDA   $58
8237DED: 10 26 00 B9 LBNE  $7EAA
8247DF1: 17 FD 4D    LBSR  $7B41
8257DF4: 8D DE       BSR   $7DD4
8267DF6: CC 4E FF    LDD   #$4EFF
8277DF9: ED 03       STD   $0003,X
8287DFB: C6 04       LDB   #$04
8297DFD: E7 84       STB   ,X
8307DFF: 86 1E       LDA   #$1E
8317E01: E6 84       LDB   ,X
8327E03: 2A FC       BPL   $7E01
8337E05: C6 4E       LDB   #$4E
8347E07: E7 03       STB   $0003,X
8357E09: 4A          DECA 
8367E0A: 26 F5       BNE   $7E01
8377E0C: 86 0C       LDA   #$0C
8387E0E: E6 84       LDB   ,X
8397E10: 2A FC       BPL   $7E0E
8407E12: 6F 03       CLR   $0003,X
8417E14: 4A          DECA 
8427E15: 26 F7       BNE   $7E0E
8437E17: E6 84       LDB   ,X
8447E19: 2A FC       BPL   $7E17
8457E1B: CC A1 0A    LDD   #$A10A
8467E1E: ED 03       STD   $0003,X
8477E20: E6 84       LDB   ,X
8487E22: 2A FC       BPL   $7E20
8497E24: A7 03       STA   $0003,X
8507E26: E6 84       LDB   ,X
8517E28: 2A FC       BPL   $7E26
8527E2A: A7 03       STA   $0003,X
8537E2C: E6 84       LDB   ,X
8547E2E: 2A FC       BPL   $7E2C
8557E30: CC FE FF    LDD   #$FEFF
8567E33: ED 03       STD   $0003,X
8577E35: 86 06       LDA   #$06
8587E37: E6 84       LDB   ,X
8597E39: 2A FC       BPL   $7E37
8607E3B: E6 C0       LDB   ,U+
8617E3D: E7 03       STB   $0003,X
8627E3F: 4A          DECA 
8637E40: 26 F5       BNE   $7E37
8647E42: 86 16       LDA   #$16
8657E44: E6 84       LDB   ,X
8667E46: 2A FC       BPL   $7E44
8677E48: C6 4E       LDB   #$4E
8687E4A: E7 03       STB   $0003,X
8697E4C: 4A          DECA 
8707E4D: 26 F5       BNE   $7E44
8717E4F: 86 0C       LDA   #$0C
8727E51: E6 84       LDB   ,X
8737E53: 2A FC       BPL   $7E51
8747E55: 6F 03       CLR   $0003,X
8757E57: 4A          DECA 
8767E58: 26 F7       BNE   $7E51
8777E5A: E6 84       LDB   ,X
8787E5C: 2A FC       BPL   $7E5A
8797E5E: CC A1 0A    LDD   #$A10A
8807E61: ED 03       STD   $0003,X
8817E63: E6 84       LDB   ,X
8827E65: 2A FC       BPL   $7E63
8837E67: A7 03       STA   $0003,X
8847E69: E6 84       LDB   ,X
8857E6B: 2A FC       BPL   $7E69
8867E6D: A7 03       STA   $0003,X
8877E6F: E6 84       LDB   ,X
8887E71: 2A FC       BPL   $7E6F
8897E73: CC FB FF    LDD   #$FBFF
8907E76: ED 03       STD   $0003,X
8917E78: 4F          CLRA 
8927E79: E6 84       LDB   ,X
8937E7B: 2A FC       BPL   $7E79
8947E7D: C6 E5       LDB   #$E5
8957E7F: E7 03       STB   $0003,X
8967E81: 4A          DECA 
8977E82: 26 F5       BNE   $7E79
8987E84: E6 84       LDB   ,X
8997E86: 2A FC       BPL   $7E84
9007E88: C6 78       LDB   #$78
9017E8A: E7 03       STB   $0003,X
9027E8C: E6 84       LDB   ,X
9037E8E: 2A FC       BPL   $7E8C
9047E90: C6 27       LDB   #$27
9057E92: E7 03       STB   $0003,X
9067E94: 86 2C       LDA   #$2C
9077E96: E6 84       LDB   ,X
9087E98: 2A FC       BPL   $7E96
9097E9A: C6 4E       LDB   #$4E
9107E9C: E7 03       STB   $0003,X
9117E9E: 4A          DECA 
9127E9F: 26 F5       BNE   $7E96
9137EA1: 6A E4       DEC   ,S
9147EA3: 10 26 FF 65 LBNE  $7E0C
9157EA7: 16 00 A1    LBRA  $7F4B
916
9177EAA: 17 FC A7    LBSR  $7B54
9187EAD: 17 FF 24    LBSR  $7DD4
9197EB0: CC FF FF    LDD   #$FFFF
9207EB3: ED 03       STD   $0003,X
9217EB5: C6 24       LDB   #$24
9227EB7: E7 84       STB   ,X
9237EB9: 86 10       LDA   #$10
9247EBB: E6 84       LDB   ,X
9257EBD: 2A FC       BPL   $7EBB
9267EBF: C6 FF       LDB   #$FF
9277EC1: E7 03       STB   $0003,X
9287EC3: 4A          DECA 
9297EC4: 26 F5       BNE   $7EBB
9307EC6: 86 06       LDA   #$06
9317EC8: E6 84       LDB   ,X
9327ECA: 2A FC       BPL   $7EC8
9337ECC: 6F 03       CLR   $0003,X
9347ECE: 4A          DECA 
9357ECF: 26 F7       BNE   $7EC8
9367ED1: E6 84       LDB   ,X
9377ED3: 2A FC       BPL   $7ED1
9387ED5: CC FE C7    LDD   #$FEC7
9397ED8: ED 03       STD   $0003,X
9407EDA: E6 84       LDB   ,X
9417EDC: 2A FC       BPL   $7EDA
9427EDE: C6 FF       LDB   #$FF
9437EE0: A6 C0       LDA   ,U+
9447EE2: ED 03       STD   $0003,X
9457EE4: 86 05       LDA   #$05
9467EE6: E6 84       LDB   ,X
9477EE8: 2A FC       BPL   $7EE6
9487EEA: E6 C0       LDB   ,U+
9497EEC: E7 03       STB   $0003,X
9507EEE: 4A          DECA 
9517EEF: 26 F5       BNE   $7EE6
9527EF1: 86 0C       LDA   #$0C
9537EF3: E6 84       LDB   ,X
9547EF5: 2A FC       BPL   $7EF3
9557EF7: C6 FF       LDB   #$FF
9567EF9: E7 03       STB   $0003,X
9577EFB: 4A          DECA 
9587EFC: 26 F5       BNE   $7EF3
9597EFE: 86 06       LDA   #$06
9607F00: E6 84       LDB   ,X
9617F02: 2A FC       BPL   $7F00
9627F04: 6F 03       CLR   $0003,X
9637F06: 4A          DECA 
9647F07: 26 F7       BNE   $7F00
9657F09: E6 84       LDB   ,X
9667F0B: 2A FC       BPL   $7F09
9677F0D: CC FB C7    LDD   #$FBC7
9687F10: ED 03       STD   $0003,X
9697F12: E6 84       LDB   ,X
9707F14: 2A FC       BPL   $7F12
9717F16: CC E5 FF    LDD   #$E5FF
9727F19: ED 03       STD   $0003,X
9737F1B: 86 7F       LDA   #$7F
9747F1D: E6 84       LDB   ,X
9757F1F: 2A FC       BPL   $7F1D
9767F21: C6 E5       LDB   #$E5
9777F23: E7 03       STB   $0003,X
9787F25: 4A          DECA 
9797F26: 26 F5       BNE   $7F1D
9807F28: E6 84       LDB   ,X
9817F2A: 2A FC       BPL   $7F28
9827F2C: C6 5D       LDB   #$5D
9837F2E: E7 03       STB   $0003,X
9847F30: E6 84       LDB   ,X
9857F32: 2A FC       BPL   $7F30
9867F34: C6 30       LDB   #$30
9877F36: E7 03       STB   $0003,X
9887F38: 86 16       LDA   #$16
9897F3A: E6 84       LDB   ,X
9907F3C: 2A FC       BPL   $7F3A
9917F3E: C6 FF       LDB   #$FF
9927F40: E7 03       STB   $0003,X
9937F42: 4A          DECA 
9947F43: 26 F5       BNE   $7F3A
9957F45: 6A E4       DEC   ,S
9967F47: 10 26 FF 7B LBNE  $7EC6
9977F4B: A6 01       LDA   $0001,X
9987F4D: 85 40       BITA  #$40
9997F4F: 26 08       BNE   $7F59
10007F51: A6 84       LDA   ,X
10017F53: 2A FC       BPL   $7F51
10027F55: E7 03       STB   $0003,X
10037F57: 20 F2       BRA   $7F4B
1004
10057F59: 35 02       PULS  A
10067F5B: 6F 84       CLR   ,X
10077F5D: 0D 48       TST   $48
10087F5F: 2A 22       BPL   $7F83
10097F61: 86 E5       LDA   #$E5
10107F63: 8D 1F       BSR   $7F84
10117F65: CE 60 D3    LDU   #$60D3
10127F68: 17 FC EF    LBSR  $7C5A
10137F6B: A6 C0       LDA   ,U+
10147F6D: 27 14       BEQ   $7F83
10157F6F: 97 4C       STA   $4C
10167F71: 34 40       PSHS  U
10177F73: 96 58       LDA   $58
10187F75: 27 05       BEQ   $7F7C
10197F77: 17 FB 67    LBSR  $7AE1
10207F7A: 20 03       BRA   $7F7F
1021
10227F7C: 17 FA 9D    LBSR  $7A1C
10237F7F: 35 40       PULS  U
10247F81: 24 E8       BCC   $7F6B
10257F83: 39          RTS   
1026
10277F84: DE 4F       LDU   $4F
10287F86: D6 58       LDB   $58
10297F88: C4 80       ANDB  #$80
10307F8A: A7 C0       STA   ,U+
10317F8C: 5A          DECB 
10327F8D: 26 FB       BNE   $7F8A
10337F8F: 39          RTS   
1034
10357F90: 86 14       LDA   #$14
10367F92: 97 4B       STA   $4B
10377F94: 17 FC E3    LBSR  $7C7A
10387F97: 86 FF       LDA   #$FF
10397F99: 8D E9       BSR   $7F84
10407F9B: 86 10       LDA   #$10
10417F9D: 97 4C       STA   $4C
10427F9F: 17 FC B8    LBSR  $7C5A
10437FA2: 17 F9 E2    LBSR  $7987
10447FA5: 25 18       BCS   $7FBF
10457FA7: 0A 4C       DEC   $4C
10467FA9: 26 F4       BNE   $7F9F
10477FAB: DE 4F       LDU   $4F
10487FAD: 6F C4       CLR   ,U
10497FAF: CC FE FE    LDD   #$FEFE
10507FB2: ED C8 29    STD   $29,U
10517FB5: 86 02       LDA   #$02
10527FB7: 97 4C       STA   $4C
10537FB9: 17 F9 CB    LBSR  $7987
10547FBC: 25 01       BCS   $7FBF
10557FBE: 4F          CLRA 
10567FBF: 39          RTS   
Note: See TracBrowser for help on using the repository browser.