    Filenamen nach Drivenummer durchsuchen
    und Burstbefehl entfernen (bei der 1571: $91ea)
    A: c: 1: Drivenummer ist '1'

    Einsprung von $B8DE:

    BA06: A0 03     LDY #$03         Laenge des Burst-Befehls
    BA08: A5 29     LDA $29          Befehlszeilenlaenge
    BA0A: 38        SEC
    BA0B: E9 03     SBC #$03         - 3 ('u0.')
    BA0D: 85 29     STA $29
    BA0F: AD 04 02  LDA $0204        Drivenummer suchen
    BA12: C9 3A     CMP #$3A         (erkennbar an dem ':')
    BA14: D0 0E     BNE $BA24        keine Drivenummer angegeben, ==>
    BA16: AD 03 02  LDA $0203        Drivenummer holen
    BA19: AA        TAX
    BA1A: 29 30     AND #$30         ist das Zeichen wirklich eine Drivenummer ?
    BA1C: C9 30     CMP #$30         (b54 = 11)
    BA1E: D0 04     BNE $BA24        nein, ==>
    BA20: E0 31     CPX #$31         Wenn Drivenummer = '1', dann
    BA22: F0 1A     BEQ $BA3E        Fehler ==>

    Einsprung von $BA14, $BA1E:

    BA24: AD 03 02  LDA $0203        Sind Burst-Befehl und Filename durch ':'
    BA27: C9 3A     CMP #$3A         getrennt (ohne Drivenummer) ?
    BA29: D0 03     BNE $BA2E        nein, ==>
    BA2B: C6 29     DEC $29          ja, auch ':' entfernen
    BA2D: C8        INY              Laenge des Burst-Befehls =4 setzen

    Einsprung von $BA29:

    BA2E: A2 00     LDX #$00         Burst-Befehl entfernen

    Einsprung von $BA3A:

    BA30: B9 00 02  LDA $0200,Y      durch Verschieben der restlichen Eingaben
    BA33: 9D 00 02  STA $0200,X
    BA36: C8        INY
    BA37: E8        INX
    BA38: E4 29     CPX $29
    BA3A: D0 F4     BNE $BA30        noch Zeichen zu verschieben ? ja, ==>
    BA3C: 18        CLC              Drivenummer Ok.
    BA3D: 24         B $24

    Einsprung von $BA22:

    BA3E: 38        SEC              falsche Drivenummer
    BA3F: 60        RTS

        Previous Page / Next Page