CD 90-940 contrôleur disquette 5"1/4 simple et double densite ------------------------------------------------------------- a000 44 D a001 4b K a002 44 D a003 28 checksum 44+4b+44+55=128 a004 160081 LBRA $a088 DKCONT a007 16001b LBRA $a025 DKBOOT a00a 16031f LBRA $a32c DKFMT a00d 160592 LBRA $a5a2 LECFA a010 1605bb LBRA $a5ce RECFI a013 1606c2 LBRA $a6d8 RECUP a016 1605a8 LBRA $a5c1 ECRSE a019 16061f LBRA $a63b ALLOD a01c 160675 LBRA $a694 ALLOB a01f 1606d5 LBRA $a6f7 MAJCL a022 160540 LBRA $a565 FINTR -------------------------------- DKBOOT = Lancement du boot -------------------------------- a025 170075 ..u LBSR $a09d init DP, X, U a028 170103 ... LBSR $a12e initialisation du controleur a02b 0f49 .I CLR /$49 0 dans le numero de lecteur a02d 17007c ..| LBSR $a0ac initialisation bits du lecteur a030 1702d9 ... LBSR $a30c recherche piste 0 a033 254d %M BLO $a082 ---------------- a035 8603 .. LDA #$03 | a037 3402 4. PSHS A <------------- | a039 17013d ..= LBSR $a179 | | double densite a03c 0f4a .J CLR /$4a <---- | | a03e 0f4b .K CLR /$4b | | | piste 0 a040 8601 .. LDA #$01 | | | a042 974c .L STA /$4c | | | secteur 1 a044 338d81b8 3... LEAU $2200,PCR | | | a048 df4f .O STU /$4f | | | adresse buffer boot a04a 308d0782 0... LEAX $a7d0,PCR | | | a04e e684 .. LDB ,X | | | a050 1701af ... LBSR $a202 | | | lecture secteur logique a053 240b $. BHS $a060 ----|-- | | a055 a608 .. LDA $08,X | | | | a057 8480 .. ANDA #$80 | | | | a059 2622 &" BNE $a07d ----|--|-- | | a05b 170116 ... LBSR $a174 | | | | | simple densite a05e 20dc . BRA $a03c ---- | | | | a060 318d821b 1... LEAY $227f,PCR <-- | | | a064 3420 4 PSHS Y | | | a066 8655 .U LDA #$55 | | | calcul checksum boot a068 6ac4 j. DEC ,U <-- | | | a06a 63c4 c. COM ,U | | | | a06c abc0 .. ADDA ,U+ | | | | a06e 11a3e4 ... CMPU ,S | | | | a071 26f5 &. BNE $a068 -- | | | a073 3520 5 PULS Y | | | a075 a1c4 .. CMPA ,U | | | teste checksum boot a077 2609 &. BNE $a082 ----------|--|->| a079 6e8d8183 n... JMP $2200,PCR | | | execute le boot | | | -------------------------------- | | | Erreur de boot | | | -------------------------------- | | | a07d 3502 5. PULS A <------------- | | a07f 4a J DECA | | a080 26b5 &. BNE $a037 ------------- | nouvel essai (3 fois) a082 0f80 .. CLR /$80 <---------------- a084 6e9f001e n... JMP [$001e] lancement programme disquette -------------------------------- DKCONT = Fonctions standard -------------------------------- a088 347f 4 PSHS U,Y,X,DP,B,A,CC a08a 8d11 .. BSR $a09d initialisation registres a08c a684 .. LDA ,X lit le status a08e 3402 4. PSHS A a090 8d1a .. BSR $a0ac initialise bits lecteur a092 3504 5. PULS B a094 8d3c .< BSR $a0d2 execution de l'operation a096 3502 5. PULS A a098 1e8a .. EXG A,CC a09a 44 D LSRA bit d'erreur dans CC a09b 35fe 5. PULS A,B,DP,X,Y,U,PC -------------------------------- Initialisation registres -------------------------------- a09d 1f50 .P TFR PC,D a09f 8470 .p ANDA #$70 a0a1 1f8b .. TFR A,DP DP = $20 ou $60 a0a3 308d0729 0..) LEAX $a7d0,PCR X = $a7d0 ou $e7d0 a0a7 338d0023 3..# LEAU $a0ce,PCR U = $a0ce ou $e0ce a0ab 39 9 RTS -------------------------------- Initialisation bits du lecteur -------------------------------- a0ac 9649 .I LDA /$49 numero lecteur a initialiser a0ae 9157 .W CMPA /$57 si numero inchange a0b0 271b '. BEQ $a0cd ---> RTS a0b2 c6d0 .. LDB #$d0 a0b4 e784 .. STB ,X a0b6 1700a9 ... LBSR $a162 temporisation 40 microsecondes a0b9 0f58 .X CLR /$58 flag lecteur initialise a0bb 9757 .W STA /$57 numero lecteur initialise a0bd a608 .. LDA $08,X a0bf 8480 .. ANDA #$80 bit de densite -------------------------------- Stockage des bits du lecteur -------------------------------- a0c1 338d0009 3... LEAU $a0ce,PCR pointeur registres disque a0c5 d649 .I LDB /$49 numero de lecteur a0c7 aac5 .. ORA B,U a0c9 a78d070b .... STA $a7d8,PCR modification bits lecteur a0cd 39 9 RTS -------------------------------- a0ce 02030405 -------------------------------- -------------------------------- Execution fonction standard -------------------------------- a0d2 8603 .. LDA #$03 a0d4 3402 4. PSHS A a0d6 9648 .H LDA /$48 <------- a0d8 318d0052 1..R LEAY $a12e,PCR ----|-> Reset controleur a0dc 8501 .. BITA #$01 | a0de 2630 &0 BNE $a110 ----- | a0e0 318d011e 1... LEAY $a202,PCR -|--|-> Lecture secteur logique a0e4 8502 .. BITA #$02 | | a0e6 2628 &( BNE $a110 ---->| | a0e8 318d0091 1... LEAY $a17d,PCR -|--|-> Ecriture secteur logique a0ec 8508 .. BITA #$08 | | a0ee 2620 & BNE $a110 ---->| | a0f0 318d0218 1... LEAY $a30c,PCR -|--|-> Recherche piste 0 a0f4 8520 . BITA #$20 | | a0f6 2618 &. BNE $a110 ---->| | a0f8 318d0143 1..C LEAY $a23f,PCR -|--|-> Recherche piste a0fc 8540 .@ BITA #$40 | | a0fe 2610 &. BNE $a110 ---->| | a100 318d0070 1..p LEAY $a174,PCR -|--|-> Passage simple densite a104 8504 .. BITA #$04 | | a106 2608 &. BNE $a110 ---->| | a108 318d006d 1..m LEAY $a179,PCR -|--|-> Passage double densite a10c 8510 .. BITA #$10 | | a10e 271b '. BEQ $a12b -- | | a110 ada4 .. JSR ,Y <--|-- | Execution de la fonction a112 2418 $. BHS $a12c --|-- | a114 964e .N LDA /$4e | | | a116 8551 .Q BITA #$51 | | | a118 2612 &. BNE $a12c --|->| | a11a 6ae4 j. DEC ,S | | | a11c 270d '. BEQ $a12b ->| | | a11e 0f4e .N CLR /$4e | | | a120 8108 .. CMPA #$08 | | | a122 27b2 '. BEQ $a0d6 --|--|->| a124 1701e5 ... LBSR $a30c | | | Recherche piste 0 a127 25f1 %. BLO $a11a | | | a129 20ab . BRA $a0d6 --|--|-- a12b 53 S COMB <--- | a12c 3582 5. PULS A,PC <----- ------------------------------- Reset controleur ------------------------------- a12e 8644 .D LDA #$44 39 RTS pour dcmoto a130 974e .N STA /$4e active double densite a132 cc8000 ... LDD #$8000 a135 dd51 .Q STD /$51 a137 dd53 .S STD /$53 a139 dd57 .W STD /$57 a13b dce9 .. LDD /$e9 pointeur fat a13d 93ed .. SUBD /$ed pointeur secteur a13f 2c05 ,. BGE $a146 -- a141 43 C COMA | a142 53 S COMB | a143 c30001 ... ADDD #$0001 | a146 4d M TSTA <-- a147 2606 &. BNE $a14f ----> 4f CLRA a149 5d ] TSTB a14a 2a03 *. BPL $a14f ----> 4f CLRA a14c 8680 .. LDA #$80 80=double densite a14e 214f !O BRN $a19f 4F CLRA 00=simple densite a150 a78d0684 .... STA $a7d8,PCR fixe la densite a154 4f O CLRA code retour = 0 a155 39 9 RTS -------------------------------- Temporisation 1 seconde -------------------------------- a156 108e5f46 .._F LDY #$5f46 a15a 3d = MUL a15b 3d = MUL a15c 3d = MUL a15d 313f 1? LEAY -$01,Y a15f 26f9 &. BNE $a15a a161 39 9 RTS -------------------------------- Temporisation 40 microsecondes -------------------------------- a162 8d08 .. BSR $a16c a164 8d06 .. BSR $a16c a166 8d04 .. BSR $a16c a168 8d02 .. BSR $a16c a16a 8d00 .. BSR $a16c a16c 39 9 RTS -------------------------------- Temporisation 20 millisecondes -------------------------------- a16d 108e01e8 .... LDY #$01e8 a171 16ffe6 ... LBRA $a15a -------------------------------- Passage en simple densite -------------------------------- a174 8680 .. LDA #$80 a176 16ff48 ..H LBRA $a0c1 -------------------------------- Passage en double densite -------------------------------- a179 4f O CLRA a17a 16ff44 ..D LBRA $a0c1 -------------------------------- Ecriture d'un secteur -------------------------------- a17d 8d56 .V BSR $a1d5 1539 pour dcmoto a17f 2529 %) BLO $a1aa a181 1700bb ... LBSR $a23f recherche piste a184 2524 %$ BLO $a1aa a186 c6a8 .. LDB #$a8 a188 3461 4a PSHS U,Y,CC a18a 3103 1. LEAY $03,X a18c 8d66 .f BSR $a1f4 a18e 2002 . BRA $a192 -- a190 a7a4 .. STA ,Y | a192 a6c0 .. LDA ,U+ <-- a194 e684 .. LDB ,X a196 c502 .. BITB #$02 a198 26f6 &. BNE $a190 a19a c501 .. BITB #$01 a19c 26f6 &. BNE $a194 a19e 3561 5a PULS CC,Y,U a1a0 17007e ..~ LBSR $a221 a1a3 2505 %. BLO $a1aa a1a5 0d48 .H TST /$48 a1a7 2b02 +. BMI $a1ab a1a9 4f O CLRA a1aa 39 9 RTS -------------------------------- Verification d'un secteur -------------------------------- a1ab c688 .. LDB #$88 a1ad 3441 4A PSHS U,CC a1af 8d43 .C BSR $a1f4 a1b1 0f4e .N CLR /$4e a1b3 3103 1. LEAY $03,X a1b5 c602 .. LDB #$02 a1b7 2008 . BRA $a1c1 a1b9 a6a4 .. LDA ,Y a1bb a1c0 .. CMPA ,U+ a1bd 2702 '. BEQ $a1c1 a1bf 0c4e .N INC /$4e a1c1 8601 .. LDA #$01 a1c3 e584 .. BITB ,X a1c5 26f2 &. BNE $a1b9 a1c7 a584 .. BITA ,X a1c9 26f8 &. BNE $a1c3 a1cb 3541 5A PULS CC,U a1cd 0d4e .N TST /$4e a1cf 2750 'P BEQ $a221 a1d1 8620 . LDA #$20 a1d3 205a Z BRA $a22f --------------------------------- Teste la protection ecriture --------------------------------- a1d5 3404 4. PSHS B a1d7 c6a8 .. LDB #$a8 a1d9 e784 .. STB ,X a1db 8d85 .. BSR $a162 temporisation 40 microsecondes a1dd 8d83 .. BSR $a162 temporisation 40 microsecondes a1df a684 .. LDA ,X a1e1 c6d0 .. LDB #$d0 a1e3 e784 .. STB ,X a1e5 17ff7a ..z LBSR $a162 temporisation 40 microsecondes a1e8 3504 5. PULS B a1ea 8540 .@ BITA #$40 a1ec 2704 '. BEQ $a1f2 a1ee 8601 .. LDA #$01 a1f0 203d = BRA $a22f a1f2 4f O CLRA a1f3 39 9 RTS --------------------------------- Initialisation operation disque --------------------------------- a1f4 964c .L LDA /$4c a1f6 a702 .. STA $02,X a1f8 1a50 .P ORCC #$50 a1fa e784 .. STB ,X a1fc 17ff63 ..c LBSR $a162 temporisation 40 microsecondes a1ff de4f .O LDU /$4f a201 39 9 RTS -------------------------------- Lecture d'un secteur -------------------------------- a202 8d3b .; BSR $a23f 1439 pour dcmoto a204 251a %. BLO $a220 ---> RTS a206 c688 .. LDB #$88 a208 3441 4A PSHS U,CC a20a 8de8 .. BSR $a1f4 a20c e684 .. LDB ,X <-------- a20e c502 .. BITB #$02 | a210 2706 '. BEQ $a218 --- | a212 a603 .. LDA $03,X | | a214 a7c0 .. STA ,U+ | | a216 20f4 . BRA $a20c -- | ->| | | a218 c501 .. BITB #$01 <--- | a21a 26f0 &. BNE $a20c ------- a21c 3541 5A PULS CC,U a21e 8d01 .. BSR $a221 a220 39 9 RTS -------------------------------- a221 c504 .. BITB #$04 a223 2616 &. BNE $a23b a225 c508 .. BITB #$08 a227 260e &. BNE $a237 a229 c510 .. BITB #$10 a22b 2606 &. BNE $a233 a22d 4f O CLRA a22e 39 9 RTS --------------------------------- a22f 974e .N STA /$4e a231 43 C COMA a232 39 9 RTS a233 8604 .. LDA #$04 a235 20f8 . BRA $a22f a237 8608 .. LDA #$08 a239 20f4 . BRA $a22f a23b 8602 .. LDA #$02 a23d 20f0 . BRA $a22f ---------------------------------- Recherche piste ---------------------------------- a23f c480 .. ANDB #$80 a241 d458 .X ANDB /$58 a243 2604 &. BNE $a249 -- a245 8d28 .( BSR $a26f | teste presence disquette a247 251b %. BLO $a264 --|-- a249 1700a9 ... LBSR $a2f5 <- | a24c eca4 .. LDD ,Y | a24e 8480 .. ANDA #$80 | a250 2705 '. BEQ $a257 -- | a252 170080 ... LBSR $a2d5 | | lecture numero piste actuelle a255 250d %. BLO $a264 --|->| a257 d14b .K CMPB /$4b <-- | piste actuelle = piste demandee ? a259 2703 '. BEQ $a25e -- | a25b 170084 ... LBSR $a2e2 | | deplace la tete a25e 4f O CLRA <-- | a25f e701 .. STB $01,X | a261 eda4 .. STD ,Y <-- | initialise les registres de piste a263 39 9 RTS ---|--|--> retour a264 17008e ... LBSR $a2f5 <-|-- a267 cc8000 ... LDD #$8000 | si erreur : a26a dd57 .W STD /$57 | reset registres de piste a26c 16fff2 ... LBRA $a261 -- ----------------------------------- Teste presence disquette ----------------------------------- a26f a601 .. LDA $01,X a271 a703 .. STA $03,X a273 8610 .. LDA #$10 a275 a784 .. STA ,X a277 17fee8 ... LBSR $a162 temporisation 40 microsecondes a27a 86d0 .. LDA #$d0 a27c a784 .. STA ,X a27e 17fee1 ... LBSR $a162 temporisation 40 microsecondes a281 a684 .. LDA ,X a283 8402 .. ANDA #$02 a285 9758 .X STA /$58 a287 108e8200 .... LDY #$8200 a28b 313f 1? LEAY -$01,Y a28d 10270039 .'.9 LBEQ $a2ca a291 a684 .. LDA ,X a293 8402 .. ANDA #$02 a295 9158 .X CMPA /$58 a297 27f2 '. BEQ $a28b a299 c607 .. LDB #$07 a29b a684 .. LDA ,X a29d 8402 .. ANDA #$02 a29f 27fa '. BEQ $a29b a2a1 108e09c4 .... LDY #$09c4 a2a5 313f 1? LEAY -$01,Y a2a7 26fc &. BNE $a2a5 a2a9 3401 4. PSHS CC a2ab 1a50 .P ORCC #$50 a2ad a684 .. LDA ,X a2af 3121 1! LEAY $01,Y a2b1 8402 .. ANDA #$02 a2b3 27f8 '. BEQ $a2ad a2b5 3501 5. PULS CC a2b7 108c311b ..1. CMPY #$311b a2bb 2b0a +. BMI $a2c7 a2bd 108c3357 ..3W CMPY #$3357 a2c1 2a04 *. BPL $a2c7 a2c3 0358 .X COM /$58 a2c5 4f O CLRA a2c6 39 9 RTS a2c7 5a Z DECB a2c8 26d1 &. BNE $a29b a2ca a608 .. LDA $08,X a2cc 8480 .. ANDA #$80 a2ce a708 .. STA $08,X a2d0 8610 .. LDA #$10 a2d2 16ff5a ..Z LBRA $a22f ---------------------------------- Recupere numero de piste courant ---------------------------------- a2d5 c6c0 .. LDB #$c0 a2d7 8d27 .' BSR $a300 a2d9 17ff49 ..I LBSR $a225 a2dc 2503 %. BLO $a2e1 a2de e602 .. LDB $02,X a2e0 4f O CLRA a2e1 39 9 RTS ---------------------------------- Deplace la tete de lecture ---------------------------------- a2e2 e701 .. STB $01,X a2e4 d64b .K LDB /$4b a2e6 e703 .. STB $03,X a2e8 c610 .. LDB #$10 a2ea 8d14 .. BSR $a300 a2ec 3420 4 PSHS Y a2ee 17fe7c ..| LBSR $a16d temporisation 20 millisecondes a2f1 e601 .. LDB $01,X a2f3 35a0 5. PULS Y,PC ---------------------------------- Pointe sur position de tete ---------------------------------- a2f5 318d7d58 1.}X LEAY $2051,PCR a2f9 9649 .I LDA /$49 a2fb 8402 .. ANDA #$02 a2fd 31a6 1. LEAY A,Y a2ff 39 9 RTS ---------------------------------- Operation sur le lecteur ---------------------------------- a300 e784 .. STB ,X Lance l'operation a302 17fe5d ..] LBSR $a162 temporisation 40 microsecondes a305 e684 .. LDB ,X <- a307 c501 .. BITB #$01 | a309 26fa &. BNE $a305 - Attente lecteur pret a30b 39 9 RTS ---------------------------------- Recherche piste 0 ---------------------------------- a30c 17ff60 ..` LBSR $a26f 39 RTS pour dcmoto a30f 10250018 .%.. LBLO $a32b -----------> RTS a313 c600 .. LDB #$00 a315 17ffe8 ... LBSR $a300 a318 c504 .. BITB #$04 a31a 2605 &. BNE $a321 --- a31c 8610 .. LDA #$10 | a31e 16ff0e ... LBRA $a22f -- | ------> STA /$4e; COMA; RTS | a321 17fe49 ..I LBSR $a16d <-- temporisation 20 millisecondes a324 17ffce ... LBSR $a2f5 a327 6fa4 o. CLR ,Y a329 6f21 o! CLR $01,Y a32b 39 9 RTS -------------------------------- DKFMT = formatage de la disquette -------------------------------- a32c 347f 4 PSHS U,Y,X,DP,B,A,CC 1839 pour dcmoto a32e 17fd6c ..l LBSR $a09d a331 170047 ..G LBSR $a37b a334 8d4e .N BSR $a384 a336 17fd73 ..s LBSR $a0ac a339 17fe99 ... LBSR $a1d5 a33c 2536 %6 BLO $a374 ----------- a33e 17ffcb ... LBSR $a30c | Recherche piste 0 a341 2531 %1 BLO $a374 ---------->| a343 0f4a .J CLR /$4a | a345 0f4b .K CLR /$4b | a347 17008a ... LBSR $a3d4 | a34a 8603 .. LDA #$03 <------- | a34c 3402 4. PSHS A | | a34e 1700b5 ... LBSR $a406 <- | | a351 170145 ..E LBSR $a499 | | | a354 2408 $. BHS $a35e --|-- | | a356 6ae4 j. DEC ,S | | | | a358 26f4 &. BNE $a34e -- | | | a35a 3502 5. PULS A | | | a35c 2016 . BRA $a374 -----|--|->| | | | a35e 3502 5. PULS A <------- | | a360 a601 .. LDA $01,X | | a362 8127 .' CMPA #$27 (39) | | a364 2705 '. BEQ $a36b -- | | a366 17016c ..l LBSR $a4d5 | | | a369 20df . BRA $a34a --|----- | | | a36b 170177 ..w LBSR $a4e5 <- | a36e 2504 %. BLO $a374 ---------->| a370 8628 .( LDA #$28 | a372 974b .K STA /$4b | a374 3502 5. PULS A <------------- a376 1e8a .. EXG A,CC a378 44 D LSRA a379 35fe 5. PULS A,B,DP,X,Y,U,PC -------------------------------- -------------------------------- a37b 9648 .H LDA /$48 a37d 8480 .. ANDA #$80 a37f 9748 .H STA /$48 a381 0f4e .N CLR /$4e a383 39 9 RTS a384 3410 4. PSHS X a386 cee3ba ... LDU #$e3ba a389 8e0003 ... LDX #$0003 a38c c604 .. LDB #$04 a38e a684 .. LDA ,X a390 a1c4 .. CMPA ,U a392 2709 '. BEQ $a39d a394 5c \ INCB a395 33c5 3. LEAU B,U a397 a6c4 .. LDA ,U a399 26ee &. BNE $a389 a39b 2012 . BRA $a3af a39d 301f 0. LEAX -$01,X a39f 2603 &. BNE $a3a4 a3a1 8e001a ... LDX #$001a a3a4 3341 3A LEAU $01,U a3a6 5a Z DECB a3a7 26e5 &. BNE $a38e a3a9 a6c4 .. LDA ,U a3ab a78d0429 ...) STA $a7d8,PCR a3af cc8000 ... LDD #$8000 a3b2 dd51 .Q STD /$51 a3b4 dd53 .S STD /$53 a3b6 dd57 .W STD /$57 a3b8 3590 5. PULS X,PC ----------------------------------- a3ba 52 R ??? a3bb 45 E ??? a3bc 47 G ASRA a3bd 6e80 n. JMP ,X+ a3bf 43 C COMA a3c0 49 I ROLA a3c1 50 P NEGB a3c2 4a J DECA a3c3 804c .L SUBA #$4c a3c5 45 E ??? a3c6 4d M TSTA a3c7 74804c t.L LSR $804c a3ca 4f O CLRA a3cb 50 P NEGB a3cc b50053 ..S BITA $0053 a3cf 45 E ??? a3d0 47 G ASRA a3d1 b60000 ... LDA $0000 a3d4 308d7cfb 0.|. LEAX $20d3,PCR a3d8 c610 .. LDB #$10 a3da 6f85 o. CLR B,X a3dc 5a Z DECB a3dd 26fb &. BNE $a3da a3df 308810 0.. LEAX $10,X a3e2 3410 4. PSHS X a3e4 308d7ceb 0.|. LEAX $20d3,PCR a3e8 8601 .. LDA #$01 a3ea d64d .M LDB /$4d a3ec a784 .. STA ,X a3ee 3085 0. LEAX B,X a3f0 4c L INCA a3f1 8110 .. CMPA #$10 a3f3 220e ". BHI $a403 a3f5 ace4 .. CMPX ,S a3f7 2502 %. BLO $a3fb a3f9 3010 0. LEAX -$10,X a3fb 6d84 m. TST ,X a3fd 27ed '. BEQ $a3ec a3ff 3001 0. LEAX $01,X a401 20f2 . BRA $a3f5 a403 3262 2b LEAS $02,S a405 39 9 RTS --------------------------------------- a406 3449 4I PSHS U,DP,CC a408 1a50 .P ORCC #$50 a40a 318d0108 1... LEAY $a516,PCR a40e a68d03c6 .... LDA $a7d8,PCR a412 8580 .. BITA #$80 a414 2704 '. BEQ $a41a a416 318d011e 1... LEAY $a538,PCR a41a 4f O CLRA a41b de4f .O LDU /$4f a41d e6a0 .. LDB ,Y+ <------ a41f 2710 '. BEQ $a431 ----- | --- a421 1f01 .. TFR D,X | | a423 e6a0 .. LDB ,Y+ | | a425 e7c0 .. STB ,U+ | | a427 afc1 .. STX ,U++ | | a429 308d003d 0..= LEAX $a46a,PCR | | a42d afc1 .. STX ,U++ | | a42f 20ec . BRA $a41d ------ | | a431 de4f .O LDU /$4f <---------- a433 964b .K LDA /$4b a435 a74f .O STA $0f,U a437 308d003b 0..; LEAX $a476,PCR a43b afc82b ..+ STX $2b,U a43e 308d003f 0..? LEAX $a481,PCR a442 afc84e ..N STX $4e,U a445 318d7c8b 1.|. LEAY $20d4,PCR a449 1fb8 .. TFR DP,A a44b 8b87 .. ADDA #$87 a44d 1f8b .. TFR A,DP a44f 8e0010 ... LDX #$0010 a452 c6ff .. LDB #$ff a454 96d8 .. LDA /$d8 a456 8580 .. BITA #$80 a458 2605 &. BNE $a45f ------ a45a 8e001e ... LDX #$001e | a45d c64e .N LDB #$4e | a45f 86f8 .. LDA #$f8 <----- a461 97d0 .. STA /$d0 a463 17fcfc ... LBSR $a162 temporisation 40 microsecondes a466 8602 .. LDA #$02 a468 d7d3 .. STB /$d3 a46a 95d0 .. BITA /$d0 <----- a46c 27fc '. BEQ $a46a ----->| a46e d7d3 .. STB /$d3 | a470 301f 0. LEAX -$01,X | a472 26f6 &. BNE $a46a ------ a474 3794 7. PULU B,X,PC -------------------------------------- a476 3404 4. PSHS B a478 e6a0 .. LDB ,Y+ a47a e7c8ec ... STB $ec,U a47d 3504 5. PULS B a47f 20e9 . BRA $a46a a481 ee8d7bca ..{. LDU $204f,PCR a485 6d3f m? TST -$01,Y a487 26e1 &. BNE $a46a a489 96d0 .. LDA /$d0 a48b 8502 .. BITA #$02 a48d 2704 '. BEQ $a493 a48f d7d3 .. STB /$d3 a491 20f6 . BRA $a489 a493 8501 .. BITA #$01 a495 26f2 &. BNE $a489 a497 35c9 5. PULS CC,DP,U,PC ------------------------------------- a499 308d0333 0..3 LEAX $a7d0,PCR a49d 0d48 .H TST /$48 a49f 2c23 ,# BGE $a4c4 a4a1 86e5 .. LDA #$e5 a4a3 8d21 .! BSR $a4c6 a4a5 8601 .. LDA #$01 a4a7 974c .L STA /$4c a4a9 c603 .. LDB #$03 a4ab 3404 4. PSHS B a4ad 17fcfb ... LBSR $a1ab a4b0 2407 $. BHS $a4b9 a4b2 6ae4 j. DEC ,S a4b4 26f7 &. BNE $a4ad a4b6 3504 5. PULS B a4b8 39 9 RTS ----------------------------------- a4b9 3504 5. PULS B a4bb 964c .L LDA /$4c a4bd 8110 .. CMPA #$10 a4bf 2703 '. BEQ $a4c4 a4c1 4c L INCA a4c2 20e3 . BRA $a4a7 a4c4 4f O CLRA a4c5 39 9 RTS a4c6 109e4f ..O LDY /$4f a4c9 e68d030b .... LDB $a7d8,PCR a4cd c480 .. ANDB #$80 a4cf a7a0 .. STA ,Y+ a4d1 5a Z DECB a4d2 26fb &. BNE $a4cf a4d4 39 9 RTS a4d5 c650 .P LDB #$50 a4d7 17fe26 ..& LBSR $a300 a4da 17fc90 ... LBSR $a16d temporisation 20 millisecondes a4dd 17fe15 ... LBSR $a2f5 a4e0 6c21 l! INC $01,Y a4e2 0c4b .K INC /$4b a4e4 39 9 RTS a4e5 8e0014 ... LDX #$0014 a4e8 9f4a .J STX /$4a a4ea 86ff .. LDA #$ff a4ec 8dd8 .. BSR $a4c6 a4ee 8608 .. LDA #$08 a4f0 9a48 .H ORA /$48 a4f2 9748 .H STA /$48 a4f4 5f _ CLRB a4f5 5c \ INCB a4f6 d74c .L STB /$4c a4f8 17fb8d ... LBSR $a088 a4fb 2518 %. BLO $a515 a4fd c110 .. CMPB #$10 a4ff 26f4 &. BNE $a4f5 a501 9e4f .O LDX /$4f a503 6f84 o. CLR ,X a505 ccfefe ... LDD #$fefe a508 ed8829 ..) STD $29,X a50b 8602 .. LDA #$02 a50d 974c .L STA /$4c a50f 17fb76 ..v LBSR $a088 a512 2501 %. BLO $a515 a514 4f O CLRA a515 39 9 RTS a516 0c00 .. INC /$00 a518 03f5 .. COM /$f5 a51a 01fe .. BRN $a51a a51c 0100 .. BRN $a51e a51e 0100 .. BRN $a520 a520 0101 .. BRN $a523 a522 0101 .. BRN $a525 a524 01f7 .. BRN $a51d a526 164e0c .N. LBRA $f335 a529 0003 .. NEG /$03 a52b f501fb ... BITB $01fb a52e 80e5 .. SUBA #$e5 a530 80e5 .. SUBA #$e5 a532 01f7 .. BRN $a52b a534 2c4e ,N BGE $a584 a536 0000 .. NEG /$00 a538 0300 .. COM /$00 a53a 0300 .. COM /$00 a53c 01fe .. BRN $a53c a53e 0100 .. BRN $a540 a540 0100 .. BRN $a542 a542 0101 .. BRN $a545 a544 0100 .. BRN $a546 a546 01f7 .. BRN $a53f a548 0cff .. INC /$ff a54a 0300 .. COM /$00 a54c 0300 .. COM /$00 a54e 01fb .. BRN $a54b a550 40 @ NEGA a551 e540 .@ BITB $00,U a553 e501 .. BITB $01,X a555 f716ff ... STB $16ff a558 0000 .. NEG /$00 a55a 53 S COMB a55b 43 C COMA a55c 52 R ??? a55d 41 A ??? a55e 54 T LSRB a55f 43 C COMA a560 48 H ASLA a561 2044 D BRA $a5a7 a563 4f O CLRA a564 53 S COMB ------------------------------------ ------------------------------------ a565 d6f0 .. LDB /$f0 a567 c102 .. CMPB #$02 a569 2723 '# BEQ $a58e a56b 0af0 .. DEC /$f0 a56d 8d5f ._ BSR $a5ce a56f 2530 %0 BLO $a5a1 a571 5d ] TSTB a572 2705 '. BEQ $a579 a574 170161 ..a LBSR $a6d8 a577 2528 %( BLO $a5a1 a579 0cf0 .. INC /$f0 a57b 8d51 .Q BSR $a5ce a57d 2522 %" BLO $a5a1 a57f c60a .. LDB #$0a a581 9ee7 .. LDX /$e7 a583 a685 .. LDA B,X a585 a7a5 .. STA B,Y a587 5a Z DECB a588 2cf9 ,. BGE $a583 a58a 8d35 .5 BSR $a5c1 a58c 2513 %. BLO $a5a1 a58e 8602 .. LDA #$02 a590 974c .L STA /$4c a592 c614 .. LDB #$14 a594 4f O CLRA a595 dd4a .J STD /$4a a597 dced .. LDD /$ed a599 dd4f .O STD /$4f a59b 8d24 .$ BSR $a5c1 a59d 2502 %. BLO $a5a1 a59f 0ff0 .. CLR /$f0 a5a1 39 9 RTS a5a2 9eed .. LDX /$ed a5a4 9f4f .O STX /$4f a5a6 8602 .. LDA #$02 a5a8 200c . BRA $a5b6 a5aa 97e5 .. STA /$e5 a5ac 43 C COMA a5ad 39 9 RTS a5ae 4f O CLRA a5af 39 9 RTS a5b0 8603 .. LDA #$03 a5b2 9ee9 .. LDX /$e9 a5b4 9f4f .O STX /$4f a5b6 974c .L STA /$4c a5b8 c614 .. LDB #$14 a5ba 4f O CLRA a5bb dd4a .J STD /$4a a5bd 8602 .. LDA #$02 a5bf 2002 . BRA $a5c3 -------------------------------- ECRSE = Ecriture d'un secteur -------------------------------- a5c1 8608 .. LDA #$08 a5c3 9748 .H STA /$48 a5c5 109ee9 ... LDY /$e9 a5c8 17fa39 ..9 LBSR $a004 a5cb 8603 .. LDA #$03 a5cd 39 9 RTS a5ce 8de0 .. BSR $a5b0 a5d0 25d8 %. BLO $a5aa a5d2 8d35 .5 BSR $a609 a5d4 109ee9 ... LDY /$e9 a5d7 dee7 .. LDU /$e7 a5d9 d6f0 .. LDB /$f0 a5db c103 .. CMPB #$03 a5dd 2604 &. BNE $a5e3 a5df 338dff77 3..w LEAU $a55a,PCR a5e3 5f _ CLRB a5e4 c10b .. CMPB #$0b a5e6 2433 $3 BHS $a61b a5e8 a6a5 .. LDA B,Y a5ea 81ff .. CMPA #$ff a5ec 272a '* BEQ $a618 a5ee 5c \ INCB a5ef a1c0 .. CMPA ,U+ a5f1 27f1 '. BEQ $a5e4 a5f3 31a820 1. LEAY $20,Y a5f6 301f 0. LEAX -$01,X a5f8 26dd &. BNE $a5d7 a5fa 0c4c .L INC /$4c a5fc 964c .L LDA /$4c a5fe 8110 .. CMPA #$10 a600 2216 ". BHI $a618 a602 17f9ff ... LBSR $a004 a605 8603 .. LDA #$03 a607 20c7 . BRA $a5d0 a609 8e0008 ... LDX #$0008 a60c e68d01c8 .... LDB $a7d8,PCR a610 c480 .. ANDB #$80 a612 2703 '. BEQ $a617 a614 8e0004 ... LDX #$0004 a617 39 9 RTS a618 5f _ CLRB a619 201b . BRA $a636 a61b e62b .+ LDB $0b,Y a61d d1eb .. CMPB /$eb a61f 26f7 &. BNE $a618 a621 e62c ., LDB $0c,Y a623 d1ec .. CMPB /$ec a625 26f1 &. BNE $a618 a627 d64c .L LDB /$4c a629 a62d .- LDA $0d,Y a62b 97f6 .. STA /$f6 a62d 0ff5 .. CLR /$f5 a62f ae2e .. LDX $0e,Y a631 9ff7 .. STX /$f7 a633 109ffa ... STY /$fa a636 d7f9 .. STB /$f9 a638 16ff73 ..s LBRA $a5ae a63b 109eed ... LDY /$ed a63e 8d6e .n BSR $a6ae a640 258e %. BLO $a5d0 a642 d7f6 .. STB /$f6 a644 17ff69 ..i LBSR $a5b0 a647 25f7 %. BLO $a640 a649 109ee9 ... LDY /$e9 a64c 8dbb .. BSR $a609 a64e e6a4 .. LDB ,Y a650 2720 ' BEQ $a672 a652 8605 .. LDA #$05 a654 c1ff .. CMPB #$ff a656 271a '. BEQ $a672 a658 31a820 1. LEAY $20,Y a65b 301f 0. LEAX -$01,X a65d 26ef &. BNE $a64e a65f 0c4c .L INC /$4c a661 964c .L LDA /$4c a663 8110 .. CMPA #$10 a665 2207 ". BHI $a66e a667 17f99a ... LBSR $a004 a66a 8603 .. LDA #$03 a66c 20d9 . BRA $a647 a66e 8605 .. LDA #$05 a670 20ce . BRA $a640 a672 9ee7 .. LDX /$e7 a674 d6f0 .. LDB /$f0 a676 c103 .. CMPB #$03 a678 2604 &. BNE $a67e a67a 308dfedc 0... LEAX $a55a,PCR a67e c60a .. LDB #$0a a680 a685 .. LDA B,X a682 a7a5 .. STA B,Y a684 5a Z DECB a685 2cf9 ,. BGE $a680 a687 96eb .. LDA /$eb a689 a72b .+ STA $0b,Y a68b 96ec .. LDA /$ec a68d d6f6 .. LDB /$f6 a68f ed2c ., STD $0c,Y a691 16ff2d ..- LBRA $a5c1 a694 d6f6 .. LDB /$f6 a696 c128 .( CMPB #$28 a698 220e ". BHI $a6a8 a69a 5d ] TSTB a69b 2711 '. BEQ $a6ae a69d a6a5 .. LDA B,Y a69f 81ff .. CMPA #$ff a6a1 272d '- BEQ $a6d0 a6a3 5a Z DECB a6a4 c128 .( CMPB #$28 a6a6 23f2 #. BLS $a69a a6a8 cb02 .. ADDB #$02 a6aa c151 .Q CMPB #$51 a6ac 20ed . BRA $a69b a6ae 5f _ CLRB a6af 31a828 1.( LEAY $28,Y a6b2 8605 .. LDA #$05 a6b4 c128 .( CMPB #$28 a6b6 1022fef0 .".. LBHI $a5aa a6ba a6a5 .. LDA B,Y a6bc 81ff .. CMPA #$ff a6be 270b '. BEQ $a6cb a6c0 50 P NEGB a6c1 a6a5 .. LDA B,Y a6c3 81ff .. CMPA #$ff a6c5 2704 '. BEQ $a6cb a6c7 50 P NEGB a6c8 5c \ INCB a6c9 20e7 . BRA $a6b2 a6cb cb28 .( ADDB #$28 a6cd 31a8d8 1.. LEAY $d8,Y a6d0 6fa5 o. CLR B,Y a6d2 5a Z DECB a6d3 d7f9 .. STB /$f9 a6d5 16fed6 ... LBRA $a5ae a6d8 a62d .- LDA $0d,Y a6da 97f6 .. STA /$f6 a6dc 6fa4 o. CLR ,Y a6de 17fee0 ... LBSR $a5c1 a6e1 258d %. BLO $a670 a6e3 109eed ... LDY /$ed a6e6 d6f6 .. LDB /$f6 a6e8 5c \ INCB a6e9 a6a5 .. LDA B,Y a6eb 6fa5 o. CLR B,Y a6ed 6aa5 j. DEC B,Y a6ef 1f89 .. TFR A,B a6f1 81c0 .. CMPA #$c0 a6f3 25f3 %. BLO $a6e8 a6f5 20de . BRA $a6d5 ----------------------------------- MAJCL = Mise a jour cluster ----------------------------------- a6f7 d6f6 .. LDB /$f6 a6f9 4f O CLRA a6fa 54 T LSRB a6fb ddfb .. STD /$fb a6fd 4c L INCA a6fe 97f5 .. STA /$f5 a700 2402 $. BHS $a704 - a702 8609 .. LDA #$09 | a704 97fa .. STA /$fa <- a706 39 9 RTS a707 ffffff