    Testet auf Diskettenwechsel und initialisiert ggf. ($c63d)

    Einsprung von $82AC, $8627, $89E7, $8B23, $8B2F, $A956, $B781, $B8E3:

    84AE: A5 2D     LDA $2D          Auto-Initialisierung ein ?
    84B0: D0 31     BNE $84E3        nein, ==>
    84B2: A9 01     LDA #$01         Wurde Diskette gewechselt ?
    84B4: 24 25     BIT $25          (bzw. Lesefehler)
    84B6: F0 2B     BEQ $84E3        nein, ==>
    84B8: 20 CF B0  JSR $B0CF        physikalisches 1581-Format festlegen
    84BB: 20 B3 B0  JSR $B0B3        ganze Diskette als Partition setzen
    84BE: A9 80     LDA #$80         Job-Fehlerbehandlung ausschalten
    84C0: 8D A8 02  STA $02A8        (wird automatisch zurueckgesetzt)
    84C3: 20 DC 8E  JSR $8EDC        Verzeichnis-Blockheader suchen
    84C6: A0 FF     LDY #$FF         Code fuer Drive-Error
    84C8: C9 02     CMP #$02         ist Error $02,$03 oder $0f aufgetreten ?
    84CA: F0 0A     BEQ $84D6        ja, ==>
    84CC: C9 03     CMP #$03
    84CE: F0 06     BEQ $84D6        ja, ==>
    84D0: C9 0F     CMP #$0F
    84D2: F0 02     BEQ $84D6        ja, ==>
    84D4: A0 00     LDY #$00         nein, Code fuer Drive Ok.

    Einsprung von $84CA, $84CE, $84D2:

    84D6: 98        TYA
    84D7: 85 6E     STA $6E          Drive-Status setzen
    84D9: D0 08     BNE $84E3        Fehler ? ja, (Ende) ==>
    84DB: A9 80     LDA #$80         Job-Fehlerbehandlung ausschalten
    84DD: 8D A8 02  STA $02A8
    84E0: 20 03 8F  JSR $8F03        Partition initialisieren

    Einsprung von $84B0, $84B6, $84D9:

    84E3: 24 8A     BIT $8A          Burst-OR-Maske
    84E5: 10 04     BPL $84EB        b7=1: Fremdformat ? ja, ==>
    84E7: A9 FF     LDA #$FF         Drive-Status setzen
    84E9: 85 6E     STA $6E

    Einsprung von $84E5:

    84EB: A5 6E     LDA $6E
    84ED: 60        RTS

        Previous Page / Next Page