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